> >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 > >Borislav, pardon me if I allow myself:
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