1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
| nQtéProduire,nEpaisseur,nQtéBoite,nIntensité sont des entiers
sCommentaire,sCodeBoite,sGloss,sTeinture sont des chaînes
TableSupprimeTout(TABLE_Planif_Vernis)
TableSupprimeTout(TABLE_Planif_VernisRV)
Sablier(Vrai)
HExécuteRequête(REQ_QuantitéEnCommande,hRequêteDéfaut,SAI_DateDébut,SAI_DateFin)
HLitPremier(REQ_QuantitéEnCommande)
TANTQUE PAS HEnDehors(REQ_QuantitéEnCommande)
HLitRecherchePremier(SW00SX005,stocknumber,REQ_QuantitéEnCommande.stockordered)
SI HTrouve(SW00SX005) ALORS
HLitRecherchePremier(SW00XX099,stocknumber,REQ_QuantitéEnCommande.stockordered)
SI HTrouve(SW00XX099) ALORS
nQtéProduire = SW00XX099.QtéProduire
sCommentaire = SW00XX099.Commentaire
SINON
nQtéProduire = 0
sCommentaire = ""
FIN
HLitRecherchePremier(SW00XD031,recordkey,SW00SX005.recordkey)
SI HTrouve(SW00XD031) ALORS
nEpaisseur = SW00XD031.epaisseur
sCodeBoite = SW00XD031.codeboite
nQtéBoite = (REQ_QuantitéEnCommande.la_somme_quantityordered - REQ_QuantitéEnCommande.la_somme_qtycanceled) / SW00XD031.piedparboite
sGloss = SW00XD031.gloss
SINON
nEpaisseur = 0
sCodeBoite = ""
nQtéBoite = 0
sGloss = ""
FIN
HLitRecherchePremier(SW00XD040,recordkey,SW00SX005.recordkey)
SI HTrouve(SW00XD040) ALORS
sTeinture = SW00XD040.teinturecode
nIntensité = SW00XD040.teintintensite
SINON
sTeinture = ""
nIntensité = 0
FIN
TableAjouteLigne(TABLE_Planif_Vernis,SW00SX005.couleurdesc, ...
SW00SX005.essence, ...
SW00SX005.grade, ...
SW00SX005.largeur, ...
REQ_QuantitéEnCommande.la_somme_quantityordered - REQ_QuantitéEnCommande.la_somme_qtycanceled, ...
REQ_QuantitéEnCommande.stockordered, ...
SW00SX005.recordtype, ...
SW00SX005.sourcepf, ...
nQtéProduire, ...
sCommentaire, ...
sCodeBoite, ...
nQtéBoite, ...
sGloss, ...
sTeinture, ...
nIntensité)
FIN
HLitSuivant(REQ_QuantitéEnCommande)
FIN |
Partager