IF SQLPREPARE(m.lnAccess,[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)])>0 SELECT BobClient SCAN =SQLEXEC(m.lnAccess) ENDIF ENDSCANBut this code have none error control!
>_TALLY=0 > >SELECT BobClient >SCAN ALL >IF SQLPREPARE(m.lnAccess,m.csql)>0 > >SQLEXEC(m.lnAccess,m.csql) > > * with buffering > *COUNT NOOPTIMIZE FOR SQLEXEC(m.mlnAccess)>0 AND TABLEUPDATE() >ENDIF >ENDSCAN > > COUNT NOOPTIMIZE FOR SQLEXEC(m.mlnAccess)>0 > >IF _TALLY<m.BobClientCount > WAIT WINDOWS 'ERRORS' >ENDIF >