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 27 28 29
| SI SQLExec(strQuery,"LIST_CPTE")= Faux ALORS
SQLInfoGene()
Erreur("Erreur de lecture des engagements clients: " + RC + "Code erreur : " + SQL.Erreur +RC+...
SQL.MesErreur + RC + strQuery)
SINON
en_cours=" Extraction des comptes ayant un engagement : Tous les comptes"
indic est un entier =0
TANTQUE SQLAvance("LIST_CPTE")=0
TableauSupprimeTout(TabEngt)
en_cours=" Extraction des comptes ayant un engagement compte :" + SansEspace(SQLLitCol("LIST_CPTE",4)) + "-" + SansEspace(SQLLitCol("LIST_CPTE",5))
TabEngt[indic]:agce= SansEspace(SQLLitCol("LIST_CPTE",1))
TabEngt[indic]:cli=SansEspace(SQLLitCol("LIST_CPTE",2))
TabEngt[indic]:codeges=SansEspace(SQLLitCol("LIST_CPTE",3))
TabEngt[indic]:compte=SansEspace(SQLLitCol("LIST_CPTE",4)) + "-" + SansEspace(SQLLitCol("LIST_CPTE",5))
TabEngt[indic]:devise=SansEspace(SQLLitCol("LIST_CPTE",6))
TabEngt[indic]:chapitre=SansEspace(SQLLitCol("LIST_CPTE",7))
TabEngt[indic]:inti=Remplace(SansEspace(SQLLitCol("LIST_CPTE",8)),"'","''")
TabEngt[indic]:solde= SQLLitCol("LIST_CPTE",9)
//incrémentation indice
indic =indic+1
Info(indic)
FIN
Info("fin de lecture")
SQLFerme("LIST_CPTE") |
Partager