//D'abord on vide le fichier
HLitPremier(TonnagesOMGénéral)
TANTQUE PAS HEnDehors(TonnagesOMGénéral)
HSupprime(TonnagesOMGénéral)
HLitSuivant(TonnagesOMGénéral)
FIN
TableAffiche(TABLE_TonnagesOMGénéral,taInit)
//Maintenant on ajoute juste les numéros de semaine de la requête Total
HLitPremier (REQ_TonnagesBOMTAS_TOTALSemaine) // Charge en mémoire les données du premier enregistrement du fichier
TANTQUE PAS HEnDehors
// On va ajouter tous les numéros de semaine trouvés dans Total
TonnagesOMGénéral.Num_Semaine=REQ_TonnagesBOMTAS_TOTALSemaine.Num_Semaine
//On charge en mémoire l'enregistrement suivant
HLitSuivant (REQ_TonnagesBOMTAS_TOTALSemaine)
FIN
//On ajoute après les différents enregistrements
HLitPremier (TonnagesOMGénéral)
TANTQUE PAS HEnDehors
SI TonnagesOMGénéral.Num_Semaine=REQ_TonnagesBOMTAS_OMSemaine.Num_Semaine ALORS
TonnagesOMGénéral.Tonnage_OM=REQ_TonnagesBOMTAS_OMSemaine.Tonnage_OM
FIN
SI TonnagesOMGénéral.Num_Semaine=REQ_TonnagesBOMTAS_DRSemaine.Num_Sem ALORS
TonnagesOMGénéral.Tonnage_DR=REQ_TonnagesBOMTAS_DRSemaine.Tonnage_DR
FIN
SI TonnagesOMGénéral.Num_Semaine=REQ_TonnagesBOMTAS_VerreSemaine.Num_Semaine ALORS
TonnagesOMGénéral.Tonnage_Verre=REQ_TonnagesBOMTAS_VerreSemaine.Tonnage_Verre
FIN
SI TonnagesOMGénéral.Num_Semaine=REQ_TonnagesBOMTAS_DVSemaine.Num_Semaine ALORS
TonnagesOMGénéral.Tonnage_DV=REQ_TonnagesBOMTAS_DVSemaine.Tonnage_DV
FIN
SI TonnagesOMGénéral.Num_Semaine=REQ_TonnagesBOMTAS_OESemaine.Num_Semaine ALORS
TonnagesOMGénéral.Tonnage_GO=REQ_TonnagesBOMTAS_OESemaine.Tonnage_GO
FIN
SI TonnagesOMGénéral.Num_Semaine=REQ_TonnagesBOMTAS_TOTALSemaine.Num_Semaine ALORS
TonnagesOMGénéral.Tonnage_Total=REQ_TonnagesBOMTAS_TOTALSemaine.Tonnage_Total
FIN
TonnageOM est un entier = TonnagesOMGénéral.Tonnage_OM
TonnageDR est un entier = TonnagesOMGénéral.Tonnage_DR
TonnageDV est un entier = TonnagesOMGénéral.Tonnage_DV
TonnageGO est un entier = TonnagesOMGénéral.Tonnage_GO
TonnageV est un entier = TonnagesOMGénéral.Tonnage_Verre
TonnageT est un entier = TonnagesOMGénéral.Tonnage_Total
TonnageAutres est un entier = TonnageT- TonnageOM-TonnageDR-TonnageDV-TonnageGO-TonnageV
TonnagesOMGénéral.Tonnage_Autres=TonnageAutres
//On charge en mémoire l'enregistrement suivant
HLitSuivant (REQ_TonnagesBOMTAS_TOTALSemaine)
FIN
TableAffiche(TABLE_TonnagesOMGénéral,taInit)
Partager