ConsumptionItemsForGamme
Retourne les éléments de consommation et de production d'une gamme
Syntaxe
procedure ConsumptionItemsForGamme(gammeGPAOID: String; operationNumberList: TStrings; namedOperationList: TStrings; articleList: TStrings; unitList: TStrings; quantityList: TDoubleList)
gammeGPAOID : GPAOID de la gamme
operationNumberList : TStrings retournée des numéros d'opération comportant des éléments de conso/prod
namedOperationList : TStrings retournée des opérations nommées comportant des éléments de conso/prod
articleList : TStrings retournée des articles consommés et produits
unitList : TStrings retournée des abréviations des unités de consommation ou de production
quantityList : TDoubleList retournée des quantités consommées et produites
Remarques
- Les TStrings et la TDoubleList sont passées vides et retournées par la procédure.
- gammeGPAOID peut être passée avec ou sans numéro de version :
- C'est la version demandée qui est prise en compte si elle est précisée (gammeGPAOID v0.00)
- C'est la version validée et prioritaire qui est prise en compte sinon (gammeGPAOID tout court)
- Si la gamme n'existe pas ou n'est pas valide, les listes sont retournées vides
- Les listes retournées comportent autant d'éléments qu'il y a d'éléments de consommation et de production dans la gamme, dans le même ordre.
- Les quantités des éléments de consommation sont positives, celles des éléments de production sont négatives (dans quantityList)
Exemples
// Pour la version 1.07 de la gamme 1005960106, il existe :
// 2 consommations dans la sous-opération 'Préparation' de l'opération 10 (100 kg de l'article A et 200 kg de l'article B)
// 1 consommation dans la sous-opération 'Emballages' de l'opération 40 (100 m de l'article C)
// 1 production dans la sous-opération 'Conditionnement' de l'opération 40 (50 u de l'article P)
ConsumptionItemsForGamme('1005960106 v1.07', operationNumberList, namedOperationList, articleList, unitList, quantityList);
Println(operationNumberList.CommaText); // 10,10,40,40
Println(namedOperationList.CommaText); // Préparation,Préparation,Emballages,Conditionnement
Println(articleList.CommaText); // A,B,C,P
Println(unitList.CommaText); // kg,kg,m,u
Println(quantityList.AsString); // 100;200;100;-50
// 2 consommations dans la sous-opération 'Préparation' de l'opération 10 (100 kg de l'article A et 200 kg de l'article B)
// 1 consommation dans la sous-opération 'Emballages' de l'opération 40 (100 m de l'article C)
// 1 production dans la sous-opération 'Conditionnement' de l'opération 40 (50 u de l'article P)
ConsumptionItemsForGamme('1005960106 v1.07', operationNumberList, namedOperationList, articleList, unitList, quantityList);
Println(operationNumberList.CommaText); // 10,10,40,40
Println(namedOperationList.CommaText); // Préparation,Préparation,Emballages,Conditionnement
Println(articleList.CommaText); // A,B,C,P
Println(unitList.CommaText); // kg,kg,m,u
Println(quantityList.AsString); // 100;200;100;-50