1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
POUR i=1 A TableSelectOccurrence(TABLE_CODIM1)
SI TABLE_CODIM1.COL_CODE[i=1]=1 ALORS
TableSelectPlus(TABLE_CODIM1,i)
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+"','"+CODIM2_SUS.SUS_CODE+"','"+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 |
Partager