1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| R02 est une Source de Données
T02 est une chaîne = "SELECT LCOMCLI.LCCTSOLACC,LCOMCLI.LCCTTOPBES,LCOMCLI.LCCNQTECDE,LCOMCLI.LCCNQTECON FROM LCOMCLI WHERE LCOMCLI.LCKTSOC='100' AND LCOMCLI.LCKTNUMERO='%1' AND LCOMCLI.LCKTLIGNE='%2' AND LCOMCLI.LCKTPSF='%3'"
SI SQLExec(ChaîneConstruit(T02,NumCde,NumLigne,NumPSF),R02) = Faux ALORS
//ERREUR EXECUTION REQUETE
SINON
//LECTURE REQUETE
SI SQLAvance(R02) = 1 ALORS
// AUCUN RESULTAT
SINON
// RESULTAT TROUVER
EtatFab est une chaîne = SansEspace(SQLLitCol(R02,1))
TopCalculBesion est une chaîne = SansEspace(SQLLitCol(R02,2))
QtéCdé est une chaîne = SansEspace(SQLLitCol(R02,3))
QtéFab est une chaîne = SansEspace(SQLLitCol(R02,4))
FIN
FIN
SQLFerme(R02) |
Partager