I'm not seeing any problems there. Maybe you could add in a query for
the record you just inserted to see if it was inserted.
Here's how I would do it, checking if the record inserted
successfully, only for testing's sake:
* I would change your SQL to use parameters all the way through,
* Code like this would be faster/easier to maintain but you can ignore
it if you want:
TEXT TO m.lcSQL NOSHOW TEXTMERGE
INSERT INTO SQLSERVERTABLE (
DP_WKSEQNO
,DP_WKCOMPANY_PS
,DP_WKPAYGROUP_PS
,DP_WKPAYGROUP
,DP_WKDATE
,DP_WKTRIPNO
,DP_WKTRIPQ
,DP_WKEVENT
,DP_WKSTDATE
,DP_WKSTTIME
,DP_WKENDDATE
,DP_WKENDTIME
,DP_WKMINS
,DP_WKSTAT
,DP_WKDRIVER
,DP_WKCODE1
,DP_WKCODE2
,DP_WKLOC
,DP_WKACCNT
,DP_WKHUB
,DP_WKTODMILES
,DP_WKMIMARK
,DP_WKWEIGHT
,DP_WKQUANT
,DP_WKHOOK1
,DP_WKPAYCODE
,DP_WKGUID
,DP_WKDATETIME
,DP_WKSTATUS
,DP_WKPROCESSED)
VALUES (
?m.wkseqno
,?m.pscompany
,?m.pspaygroup
,?m.wkpaygroup
,?m.wkdate
,?m.wktripno
,?m.wktripq
,?m.wkevent
,?m.wkstdate
,?m.wksttime
,?m.wkenddate
,?m.wkendtime
,?m.wkmins
,?m.wkstat
,?m.wkdriver
,?m.wkcode1
,?m.wkcode2
,?m.wkloc
,?m.wkaccnt
,?m.wkhub
,?m.wktodmiles
,?m.wkmimark
,?m.wkweight
,?m.wkquant
,?m.wkhook1
,?m.wkpaycode
,?m.wkguid
,?m._wkdatetime,
,?m.wkstatus
,'N')
ENDTEXT
SCAN
SCATTER MEMVAR MEMO
lnsuccess = SQLEXEC(lnSQLhandle, m.lcSQL)
IF lnsuccess < 1
=MESSAGEBOX('SQL Select failed: ' + TRANSFORM(lnsuccess) + "'" +
m.lcSQL+ "'")
lclogstring = lclogstring + lcSQL + lccrlf + lccrlf
EXIT
ELSE
* check if record was saved
lnsuccess = SQLEXEC(lnSQLhandle, "SELECT recinserted =
COUNT(dp_wkseqno) FROM SQLServerTable WHERE dp_wkseqno = ?m.wkseqno",
"c_Result")
IF m.lnSuccess < 1
* failed
ELSE
IF c_Result.RecInserted <> 1
* failed or multiple seqno
SET STEP ON
ENDIF
ENDIF
ENDIF
ENDSCAN
