1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| POUR i = 1 A TableOccurrence(TABLE_CODIM1)
SI TABLE_CODIM1.COL_CODE[i] ALORS
POUR j=1 A TableOccurrence(CODIM2_SUS)
SI CODIM2_SUS.SUS_CODE[j] ALORS
// Si les données n'existe pas alors INSERT INTO ajoute les données
Requete1 est une chaîne="INSERT INTO ARTICLES (ART_CODE,ART_UVC,ART_NOMAPPEL,ART_CODIM1,ART_CODIM2,ART_DATE_CREATION,ART_DATE_MODIFICATION,ART_LIBRE1,ART_NOM,ART_COLLECTION,ART_FOURNISSEUR,ART_MARQUE,ART_COMPOSITION,ART_CODEBARRE,ART_LIBRE3,ART_CODIM3,ART_PRIXACHAT,ART_PRIXVENTE) "+...
"VALUES('"+NouveauCode+"','"+NouveauCode+"','"+SAI_ART_NOMAPPEL+"','"+TABLE_CODIM1.COL_CODE[i]+"','"+CODIM2_SUS.SUS_CODE[j]+"','"+SAI_CREATION+"','"+SAI_DATE_MODIF+"','"+SAI_ART_LIBRE1+"','"+SAI_ART_NOM+"','"+COMBO_COLLEC+"','"+COMBO_ART_FOUR+"','"+COMBO_ART_MARQUE+"','"+COMBO_COMPOSITION+"','"+nouveauCode_AEN+"','"+COMBO_ORIGINE1+"','"+COMBO_TYPE1+"','"+SAI_EPA+"','"+SAI_EPVD4+"') "
SI EnModeTest() ALORS Trace(Requete1)
SI SQLExec(Requete1,"REQ10") ALORS
FIN
FIN
FIN
FIN
FIN
FIN |
Partager