Here is the code:
Code: Select all
If toActuals = "-1" then
sSQL = "INSERT INTO WOLabour (Employee,TransDate,WoNum,LaborType,Scale,Hours,Rate,Tax1,Tax2,AddCost,TotalCost,Account,Description,ModifyDate,Estimate,Actual,Craft,ChargeBack,TaskNum,ChargeBackAmount) SELECT Employee," _
& nextissue3 & ",'" & wo & "',LaborType,Scale,Hours,Rate,Tax1,Tax2,AddCost,TotalCost,Account,Description,'" & curDate & "',1,Craft,ChargeBack,TaskNum,ChargeBackAmount FROM PMLabor WHERE PmNum = '" & pm & "'"
sSQL = "UPDATE WOlabour SET Actual = '-1' WHERE PmNum = '" & pm & "'"
else
sSQL = "INSERT INTO WOLabour (Employee,TransDate,WoNum,LaborType,Scale,Hours,Rate,Tax1,Tax2,AddCost,TotalCost,Account,Description,ModifyDate,Estimate,Craft,ChargeBack,TaskNum,ChargeBackAmount) SELECT Employee," _
& nextissue3 & ",'" & wo & "',LaborType,Scale,Hours,Rate,Tax1,Tax2,AddCost,TotalCost,Account,Description,'" & curDate & "',1,Craft,ChargeBack,TaskNum,ChargeBackAmount FROM PMLabor WHERE PmNum = '" & pm & "'"
conn.Execute sSQL, , 128
end ifParallon