**NOTE**:Source and Destination path is given from Processing Option and thre is no business view added to the report*****
***********************************************************************
GLOBALS: Variables (Global)
***********************************************************************
rpt_UserId_USER
rpt_DateUpdated_UPMJ
rpt_TimeOfDay_TDAY
rpt_WorkStationId_JOBN
rpt_GenericLong_GENLNG
rpt_Description_DESCR
rpt_ErrorCode_ERRC
rpt_ErrorDescription_ERRDSCA
rpt_EdiUserId_EDUS
rpt_EdiBatchNumber_EDBT
rpt_EdiLineNumber_EDLN
rpt_EdiSuccessfullyProces_EDSP
rpt_TransactionAction_TNAC
rpt_EdiTransactNumber_EDTN
rpt_Description_DSCRP5
rpt_FromPath_PTH
rpt_FileName_PTH
rpt_LengthFrmPth_MATH01
rpt_PathLength_MATH01
rpt_Counter_MATH01
rpt_CurrentChar_EV01
rpt_AddressNumber_AN8
rpt_CurrencyCodeAP_CRRP
rpt_PaymentTermAP_TRAP
rpt_PaymentInstrument_PYIN
rpt_TaxExpCod2_EXR2
rpt_TaxArea2_TXA2
rpt_CurencyCodeAB_CRCA
rpt_Path_Destination_PTH
rpt_StringDate_DESC
=======================================================================
SECTION: DriverSection [GROUP SECTION] ()
=======================================================================
OBJECT: SECTION
EVENT: Initialize Section
-----------------------------------------------------------------------
OPT: Using Defaults
//
// Get Audit Information
//
Get Audit Information
VA rpt_UserId_USER <- BF szUserName
VA rpt_DateUpdated_UPMJ <- BF jdDate
VA rpt_TimeOfDay_TDAY <- BF mnTime
VA rpt_WorkStationId_JOBN <- BF szWorkstation_UserId
//
PO szFromPath = rtrim(ltrim([PO szFromPath]," ")," ")
//
// Breaking Source Path and File Name
VA rpt_Counter_MATH01 = "0"
VA rpt_LengthFrmPth_MATH01 = "0"
VA rpt_PathLength_MATH01 = "0"
VA rpt_LengthFrmPth_MATH01 = length(ltrim(rtrim([PO szFromPath]," ")," "))
VA rpt_Counter_MATH01 = [VA rpt_LengthFrmPth_MATH01]-1
//
// Get File Name
While VA rpt_Counter_MATH01 is greater than <Zero> And VA rpt_CurrentChar_EV01 is not equal to "\"
//
VA rpt_CurrentChar_EV01 = substr([PO szFromPath],[VA rpt_Counter_MATH01],([VA rpt_Counter_MATH01]+1))
VA rpt_Counter_MATH01 = [VA rpt_Counter_MATH01]-1
//
End While
//
VA rpt_Counter_MATH01 = [VA rpt_Counter_MATH01]+1
VA rpt_FileName_PTH = substr([PO szFromPath],([VA rpt_Counter_MATH01]+1),(([VA rpt_LengthFrmPth_MATH01]-[VA rpt_Counter_MATH01])+1))
VA rpt_FromPath_PTH = substr([PO szFromPath],0,[VA rpt_Counter_MATH01])
//
//
Fetch Next Line from Flat File
PO szFromPath -> BF szFlatFileName
VA rpt_GenericLong_GENLNG <> BF idFilePtr
VA rpt_Description_DESCR <- BF szFlatFileRecord
"2000" -> BF mnRecordLength
VA rpt_ErrorCode_ERRC <- BF cErrorCode
VA rpt_ErrorDescription_ERRDSCA <- BF szErrorMessageID
//
While VA rpt_GenericLong_GENLNG is greater than <Zero>
//
VA rpt_CurrencyCodeAP_CRRP = " "
VA rpt_TaxArea2_TXA2 = " "
VA rpt_TaxExpCod2_EXR2 = " "
VA rpt_PaymentTermAP_TRAP = " "
VA rpt_PaymentInstrument_PYIN = " "
VA rpt_CurencyCodeAB_CRCA = " "
//
// GET CRRP SEGMENT 0
//
Parse Text String
VA rpt_Description_DESCR -> BF szInputText
VA rpt_Description_DSCRP5 <- BF szOutputObjectSegment
<Zero> -> BF mnSegmentNumber
"," -> BF cDelimiter
VA rpt_Description_DSCRP5 = rtrim(ltrim([VA rpt_Description_DSCRP5]," ")," ")
VA rpt_CurrencyCodeAP_CRRP = substr([VA rpt_Description_DSCRP5],0,3)
VA rpt_Description_DSCRP5 = " "
//
// GET TXA2 SEGMENT 1
//
Parse Text String
VA rpt_Description_DESCR -> BF szInputText
VA rpt_Description_DSCRP5 <- BF szOutputObjectSegment
"1.00" -> BF mnSegmentNumber
"," -> BF cDelimiter
VA rpt_Description_DSCRP5 = rtrim(ltrim([VA rpt_Description_DSCRP5]," ")," ")
VA rpt_TaxArea2_TXA2 = substr([VA rpt_Description_DSCRP5],0,10)
VA rpt_Description_DSCRP5 = " "
//
// GET EXR2 SEGMENT 2
//
Parse Text String
VA rpt_Description_DESCR -> BF szInputText
VA rpt_Description_DSCRP5 <- BF szOutputObjectSegment
"2.00" -> BF mnSegmentNumber
"," -> BF cDelimiter
VA rpt_Description_DSCRP5 = rtrim(ltrim([VA rpt_Description_DSCRP5]," ")," ")
VA rpt_TaxExpCod2_EXR2 = substr([VA rpt_Description_DSCRP5],0,2)
VA rpt_Description_DSCRP5 = " "
//
// GET TRAP SEGMENT 3
//
Parse Text String
VA rpt_Description_DESCR -> BF szInputText
VA rpt_Description_DSCRP5 <- BF szOutputObjectSegment
"3.00" -> BF mnSegmentNumber
"," -> BF cDelimiter
VA rpt_Description_DSCRP5 = rtrim(ltrim([VA rpt_Description_DSCRP5]," ")," ")
VA rpt_PaymentTermAP_TRAP = substr([VA rpt_Description_DSCRP5],0,3)
VA rpt_Description_DSCRP5 = " "
//
// GET PYIN SEGMENT 4
//
Parse Text String
VA rpt_Description_DESCR -> BF szInputText
VA rpt_Description_DSCRP5 <- BF szOutputObjectSegment
"4.00" -> BF mnSegmentNumber
"," -> BF cDelimiter
VA rpt_Description_DSCRP5 = rtrim(ltrim([VA rpt_Description_DSCRP5]," ")," ")
VA rpt_PaymentInstrument_PYIN = substr([VA rpt_Description_DSCRP5],0,1)
VA rpt_Description_DSCRP5 = " "
//
// GET CRCA SEGMENT 5
//
Parse Text String
VA rpt_Description_DESCR -> BF szInputText
VA rpt_Description_DSCRP5 <- BF szOutputObjectSegment
"5.00" -> BF mnSegmentNumber
"," -> BF cDelimiter
VA rpt_Description_DSCRP5 = rtrim(ltrim([VA rpt_Description_DSCRP5]," ")," ")
VA rpt_CurencyCodeAB_CRCA = substr([VA rpt_Description_DSCRP5],0,3)
VA rpt_Description_DSCRP5 = " "
//
// insert into F0401Z1
//
F0401Z1.Insert
VA rpt_EdiUserId_EDUS -> TK EDI - User ID
VA rpt_EdiBatchNumber_EDBT -> TK EDI - Batch Number
VA rpt_EdiTransactNumber_EDTN -> TK EDI - Transaction Number
VA rpt_EdiLineNumber_EDLN -> TK EDI - Line Number
VA rpt_CurrencyCodeAP_CRRP -> TK Currency Code - Accounts Payable
VA rpt_TaxArea2_TXA2 -> TK Tax Rate/Area 2
VA rpt_TaxExpCod2_EXR2 -> TK Tax Expl Code 2
VA rpt_PaymentTermAP_TRAP -> TK Payment Terms - A/P
VA rpt_PaymentInstrument_PYIN -> TK Payment Instrument
VA rpt_CurencyCodeAB_CRCA -> TK Currency Code - A/B Amounts
If SV File_IO_Status is equal to CO ERROR
//
// write into F0401Z1
//
End If
//
End While