// Sequence Grid Line No
-If GC EDI Line # [EDLN] is less than or equal to "0"
| VA frm_LineNumber_LNID [LNID] = [VA frm_LineNumber_LNID [LNID]]+1
| GC EDI Line # [EDLN] = VA frm_LineNumber_LNID [LNID]
| //
| // Get UKID for each Grid record - store in EDBT
| -GetNextUniqueKeyID(X00022.GetNextUniqueKeyID)
| "F5741061" -> szObjectName [OBNM]
| VA frm_NextNumber_N001 [N001] <- mnUniqueKeyID [UKID]
| GC EDI Batch # [EDBT] = [VA frm_NextNumber_N001 [N001]]
End If
//
-F5741061.Delete [Index 8: EDI]
GC EDI Batch # [EDBT] = TK EDI - Batch Number [EDBT]
-F5741061.Insert [Index 8: EDI]
GC EDI Co [EKCO] -> TK Company - Key (EDI - Document Key Co) [EKCO]
GC EDI Doc # [EDOC] -> TK EDI - Document Number [EDOC]
GC EDI DCT [EDCT] -> TK EDI - Document Type [EDCT]
GC EDI Line # [EDLN] -> TK EDI - Line Number [EDLN]
GC Tran Set [EDST] -> TK EDI - Transaction Set Number [EDST]
GC Translation Format [EDFT] -> TK EDI - Translation Format [EDFT]
GC Tran Date [EDDT] -> TK EDI - Transmission Date [EDDT]
GC Processed [EDSP] -> TK EDI - Successfully Processed [EDSP]
GC EDI Batch # [EDBT] -> TK EDI - Batch Number [EDBT]
GC Branch [MCU] -> TK Business Unit [MCU]
GC Supplier Number [AN8] -> TK Address Number [AN8]
GC Item Number [ITM] -> TK Item Number - Short [ITM]
GC 2nd Item Number [LITM] -> TK 2nd Item Number [LITM]
GC 3rd Item Number [AITM] -> TK 3rd Item Number [AITM]
GC Catalog [CATN] -> TK Catalog [CATN]
GC Currency Code [CRCD] -> TK Currency Code - From [CRCD]
GC UoM [UOM] -> TK Unit of Measure as Input [UOM]
GC Price [PRRC] -> TK Amount - Unit Cost [PRRC]
GC Quantity Break [UORG] -> TK Units - Order/Transaction Quantity [UORG]
GC Effective Date [EFTJ] -> TK Date - Effective [EFTJ]
GC Effective Date [EFTJ] -> TK Date - Expired [EXDJ]
GC User ID [USER] -> TK User ID [USER]
GC Program ID [PID] -> TK Program ID [PID]
GC Work Stn ID [JOBN] -> TK Work Station ID [JOBN]
GC Date Updated [UPMJ] -> TK Date - Updated [UPMJ]
GC Time of Day [TDAY] -> TK Time of Day [TDAY]
GC Effective Date. [VC10A] -> TK Video Constant A - length 10 [VC10A]
-If SV File_IO_Status is not equal to CO SUCCESS
| Set Grid Cell Error(FC Grid, <Currently Selected Row>, GC QuantityBreak, "Y570001")
| VA frm_cRecordErrorY_EV01 [EV01] = "Y"
End If
//
-F5741061.Open
-F5741061.Select [Index 9: EDI plus Cat]
GC EDI Co [EKCO] = TK Company - Key (EDI - Document Key Co) [EKCO]
GC EDI Doc # [EDOC] = TK EDI - Document Number [EDOC]
GC EDI DCT [EDCT] = TK EDI - Document Type [EDCT]
GC EDI Line # [EDLN] <> TK EDI - Line Number [EDLN]
GC Branch [MCU] = TK Business Unit [MCU]
GC Supplier Number [AN8] = TK Address Number [AN8]
GC Item Number [ITM] = TK Item Number - Short [ITM]
GC Catalog [CATN] = TK Catalog [CATN]
GC Currency Code [CRCD] = TK Currency Code - From [CRCD]
GC Quantity Break [UORG] = TK Units - Order/Transaction Quantity [UORG]
-F5741061.FetchNext [Index 9: EDI plus Cat]
VA frm_Dummy_USER [USER] <- TK User ID [USER]
-If SV File_IO_Status is equal to CO SUCCESS
| Set Grid Cell Error(FC Grid, <Currently Selected Row>, GC QuantityBreak, "Y570001")
| VA frm_cRecordErrorY_EV01 [EV01] = "Y"
End If
-F5741061.Close