Klik op het logo voor hulp op afstand
  
 
 
 
 
 
 
 




Project en fase doorlooptijd (3.35 - 3130)


Voortaan is het mogelijk om de doorlooptijd bij te houden op project niveau en fasen.
 
De doorlooptijd is een getal dat het aantal dagen weergeeft tussen de start van de productie en wanneer de productie als klaar gemeld wordt.
 
De gebruiker kan in ‘Project – Info – Project’ via een extra veld de doorlooptijd (in dagen) van het project opgeven in een nieuw invoer veld:
 
 
Via ‘Project – Info – Fasen’ kan men bij de kolom 'Doorlooptijd' de doorlooptijd in dagen opgeven voor elke gedefinieerde fase:
 
 
Deze informatie is eveneens opgenomen in het XML bestand onder de tag <LeadTime> en dit zowel bij de project als fase informatie:
 
 
Deze informatie kan ook via script opgevraagd en eventueel gewijzigd worden:
 
/* Project doorlooptijd lezen/schrijven */
/* Gunter Selleslagh - January 2018     */

/* Current project */
CurPro := GetCurrentProject();
if CurPro = Nil then halt;

/* Opvragen project doorlooptijd */
ShowMessage('Project doorlooptijd = ' + IntToStr(CurPro.LeadTime) + 'dag(en)');
 
/* Wijzigen project doorlooptijd */
CurPro.LeadTime := 15;
ShowMessage('Project doorlooptijd = ' + IntToStr(CurPro.LeadTime) + 'dag(en)');
 
 
De script syntax om de project fasen te ondervragen en eventueel aan te passen bij <PROJECTDATA> is eveneens voorzien van een extra eigenschap Leadtime’:
 
Phase[0].Leadtime 
 
Het opvragen van de doorlooptijd via script van de eerst gedefinieerde fase kan als volgt gebeuren:
 
/* Project doorlooptijd lezen/schrijven */
/* Gunter Selleslagh - January 2018     */

/* Current project */
CurPro := GetCurrentProject();
if CurPro = Nil then halt;

/* Opvragen project doorlooptijd */
lt := CurPro.LeadTime;
ShowMessage('Project doorlooptijd = ' + IntToStr(lt) + 'dag(en)');

/* Wijzigen project doorlooptijd */
lt := lt - 1; CurPro.LeadTime := lt;
ShowMessage('Project doorlooptijd = ' + IntToStr(lt) + 'dag(en)');

/* Opvragen fase doorlooptijden */
i := 0;
while (i < 50) && (CurPro.ProjectData.Phase[i].Desc <> '') do
{
  lt := CurPro.ProjectData.Phase[i].Leadtime;
  ShowMessage('Phase ' + IntToStr(i+1) + ' doorlooptijd = ' + IntToStr(lt) + 'dag(en)');
  
  i := i + 1;
};
 
 
 



 |  History  |
 
 

 
 
 
TECHWIN SOFTWARE
De Regenboog 11
B-2800 Mechelen
T +32(0)15 44 64 64
T +31(0)30 899 32 15 Nederland