shaz68
Member
I have a headerless detail that is not attached to a BSVW. It has columns for Work Order Number (DOCO) and Percent Complete (PC). The user can key in data or import from a spreadsheet.
When I press the 'post' button, it validates all records, and if no errors occurred, it SHOULD update the work orders with the new PC along with some audit data. Instead, I'm getting a CO ERROR returned from the Update operation.
Can anyone see what I'm doing wrong?
<font class="small">Code:</font><hr /><pre>
Get Audit Information
VA frm_mnCurrentRow_INT01 = "0"
Get Max Grid Rows(FC Grid, VA frm_mnMaxRows_INT01)
While VA frm_mnCurrentRow_INT01 is less than or equal to VA frm_mnMaxRows_INT01
Get Grid Row(FC Grid, VA frm_mnCurrentRow_INT01)
If GC Work Order Number is not equal to <Blank>
F4801.Update
GC Work Order Number = TK Document (Order No, Invoice, etc.)
GC Cmp -> TK Percent Complete
SL UserId -> TK User Id
SL ReportName -> TK Program ID
VA frm_WorkStationId -> TK Work Station ID
SL DateToday -> TK Date - Updated
VA frm_TimeOfDay -> TK Time of Day
If SV File_IO_Status is not equal to CO SUCCESS
VA frm_cErrorsFound_EV01 = "1"
End If
VA frm_mnCurrentRow_INT01 = [VA frm_mnCurrentRow_INT01]+1
End If
End While
</pre><hr />
SV File_IO_Status is always CO ERROR after this. The work order number does exist.
When I press the 'post' button, it validates all records, and if no errors occurred, it SHOULD update the work orders with the new PC along with some audit data. Instead, I'm getting a CO ERROR returned from the Update operation.
Can anyone see what I'm doing wrong?
<font class="small">Code:</font><hr /><pre>
Get Audit Information
VA frm_mnCurrentRow_INT01 = "0"
Get Max Grid Rows(FC Grid, VA frm_mnMaxRows_INT01)
While VA frm_mnCurrentRow_INT01 is less than or equal to VA frm_mnMaxRows_INT01
Get Grid Row(FC Grid, VA frm_mnCurrentRow_INT01)
If GC Work Order Number is not equal to <Blank>
F4801.Update
GC Work Order Number = TK Document (Order No, Invoice, etc.)
GC Cmp -> TK Percent Complete
SL UserId -> TK User Id
SL ReportName -> TK Program ID
VA frm_WorkStationId -> TK Work Station ID
SL DateToday -> TK Date - Updated
VA frm_TimeOfDay -> TK Time of Day
If SV File_IO_Status is not equal to CO SUCCESS
VA frm_cErrorsFound_EV01 = "1"
End If
VA frm_mnCurrentRow_INT01 = [VA frm_mnCurrentRow_INT01]+1
End If
End While
</pre><hr />
SV File_IO_Status is always CO ERROR after this. The work order number does exist.