>> >>SELECT BobClient >>SCAN >> csql = "INSERT INTO IFCOMPAN ( CID, CNAME1, CNAME2, CADDRESS1, CZIPCODE, CLOCALITY, CVATCAT, "+; >> " CCUSTYPE, CSUPTYPE, CCUSCAT, CCUSPAYDELAY ) VALUES ("+; >> " ?BobClient.code, ?BobClient.nomteleph , ?BobClient.nom2 , ?BobClient.rue,"+; >> " ?BobClient.cpays + ?BobClient.ccp , ?BobClient.localite , 'N' , 'C' , 'U' ,"+; >> " ?BobClient.codePersonnel , 30)" >> >> nresult = SQLEXEC( lnAccess , csql) >> IF nresult < 0 >> **** Error hapened >> ENDIF >>ENDSCAN >> >>>
>SELECT BobClient >csql = [INSERT INTO IFCOMPAN ( CID, CNAME1, CNAME2, CADDRESS1, CZIPCODE, CLOCALITY, CVATCAT,; >CCUSTYPE, CSUPTYPE, CCUSCAT, CCUSPAYDELAY ) VALUES (; >?code, ?nomteleph , ?nom2 , ?rue,?(cpays+ccp) , ?localite , 'N' , 'C' , 'U' ,; >?codePersonnel , 30)] >_TALLY=0 >IF SQLPREPARE(m.lnAccess,m.csql)>0 > COUNT NOOPTIMIZE FOR SQLEXEC(m.mlnAccess)>0 > * with buffering > *COUNT NOOPTIMIZE FOR SQLEXEC(m.mlnAccess)>0 AND TABLEUPDATE() >ENDIF >IF _TALLY<m.BobClientCount > WAIT WINDOWS 'ERRORS' >ENDIF >