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
|
OUR TOUT FGRAVEL
SELON FGRAVEL.TYPF1
CAS 1
TableAjouteLigne(TABLE_FGRAVEL,FGRAVEL.TYPF1,FGRAVEL.IDEN1,FGRAVEL.COMM1,FGRAVEL.COMP1,FGRAVEL.CODP1, FGRAVEL.VILL1,FGRAVEL.PAYS1,SansEspace(FGRAVEL.REFE1),
FGRAVEL.REFF1,FGRAVEL.DATE1,FGRAVEL.PROD1,FGRAVEL.MODV1, FGRAVEL.SENT1,FGRAVEL.NBRC1, FGRAVEL.TYPC1, FGRAVEL.NBSM1,FGRAVEL.POID1,FGRAVEL.VOLU1,
FGRAVEL.NBPC1,FGRAVEL.NBUN1,FGRAVEL.MTVA1,FGRAVEL.DEVV1,FGRAVEL.MTVE1,FGRAVEL.DEVE1, FGRAVEL.MTCR1,FGRAVEL.DEVC1,FGRAVEL.MDCR1,FGRAVEL.ECCR1,FGRAVEL.REFE1+"-1",hFixeIdAuto, FGRAVEL.REFE1+"-1" )
CAS 2
CodeArticle =SansEspace(Gauche(FGRAVEL.COMM1, 10))
IndiceLigne=TableCherche(COL_REFE1, CodeArticle,1)
SI IndiceLigne <>-1 ALORS
TableInsèreLigne(TABLE_FGRAVEL indice_ligne+1 ,FGRAVEL.TYPF1,FGRAVEL.IDEN1,FGRAVEL.COMM1, FGRAVEL.COMP1,FGRAVEL.CODP1,FGRAVEL.VILL1, FGRAVEL.PAYS1,SansEspace(FGRAVEL.REFE1),
FGRAVEL.REFF1,FGRAVEL.DATE1,FGRAVEL.PROD1,FGRAVEL.MODV1, FGRAVEL.SENT1,FGRAVEL.NBRC1, FGRAVEL.TYPC1,FGRAVEL.NBSM1, FGRAVEL.POID1,FGRAVEL.VOLU1,
FGRAVEL.NBPC1,FGRAVEL.NBUN1,FGRAVEL.MTVA1,FGRAVEL.DEVV1, FGRAVEL.MTVE1,FGRAVEL.DEVE1, FGRAVEL.MTCR1,FGRAVEL.DEVC1, FGRAVEL.MDCR1,FGRAVEL.ECCR1, COL_REFE1[IndiceLigne]+"-2",hFixeIdAuto, FGRAVEL.REFE1+"-2")
SINON
Erreur ( " J'ai une ligne de type DETAIL alors que la ligne PRODUIT correspondant n'existe pas ", codeArticle)
FIN
FIN
FIN |
Partager