A couple questions right off when the control file says if Type = N or if type = D what does that pertain to?
We have been working with a client to get their data imported but errors are plaguing us any insight would be helpful. We can enter the data on the screens np.:
'System Message 8011: ========Begin Processing of a level1 Data Line========
'level1,"",VO,A039,,04/02/2018,470F8329F5014FA9B34E,,04/02/2018,15,941.95,,A,,,,,,,,,7000,10047002,,,,,,,,HC,,,,,,,,,,,,,
'System Message 8005: New Record Requested
'System Message 6478: Invalid Company, Account, SubAccount combination.
'System Message 8002: Error In Field: capacct Value:
'System Message 8004: Data File Record/Line Number: 2 Column: 84
'level1,"",VO,A039,,04/02/2018,470F8329F5014FA9B34E,,04/02/2018,15,941.95,,A,,,,,,,,,7000,10047002,,,,,,,,HC,,,,,,,,,,,,,
'System Message 6478: Invalid Company, Account, SubAccount combination.
'System Message 8002: Error In Field: capsub Value:
level0,"",201810,H,3203.84
level1,"",VO,A039,,04/02/2018,470F8329F5014FA9B34E,,04/02/2018,15,941.95,,A,,,,,,,NP,,7000,10047002,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,A039,,04/02/2018,470F8329F5014FA9B34E,,04/02/2018,15,155.20,,A,,,,,,,NP,,7035,10047002,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,A039,,04/02/2018,470F8329F5014FA9B34E,,04/02/2018,15,38.24,,A,,,,,,,NP,,7035,10047004,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,A039,,04/02/2018,470F8329F5014FA9B34E,,04/02/2018,15,247.66,,A,,,,,,,NP,,7085,10047002,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,A039,,04/02/2018,470F8329F5014FA9B34E,,04/02/2018,15,93.40,,A,,,,,,,NP,,7095,10037006,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,A039,,04/02/2018,470F8329F5014FA9B34E,,04/02/2018,15,737.60,,A,,,,,,,NP,,7145,10047002,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,B022,,04/03/2018,597E95C9DE314CFFAF0B,,04/03/2018,15,174.70,,A,,,,,,,PR000095440,,5010,30047002,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,A039,,04/03/2018,597E95C9DE314CFFAF0B,,04/03/2018,15,591.88,,A,,,,,,,PR000095440,,7085,30047002,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,A039,,04/03/2018,597E95C9DE314CFFAF0B,,04/03/2018,15,91.75,,A,,,,,,,PR000095440,,7145,30047002,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,A039,,04/03/2018,597E95C9DE314CFFAF0B,,04/03/2018,15,94.48,,A,,,,,,,PR100091700,,5010,30047002,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,A039,,04/03/2018,597E95C9DE314CFFAF0B,,04/03/2018,15,19.00,,A,,,,,,,PR100091700,,7145,30047002,,,,,,,,HC,,,,,,,,,,,,,
level1,"",VO,,,08/31/2016,998C3216A9F24094ADF9,,08/31/2016,15,17.98,,A,,,,,,,NP,,7115,,,,,,,,,HC,,,,,,,,,,,,,
'ControlMacroType: VBAComplete
' VBComponent: ThisScreen, ComponentType: 100 **********************************************************
'03010 Control Macro
Sub ProcessImportLine( LevelNumber%, Retval% )
select Case LevelNumber
case TI_Start
call AliasConstant( "Level0", "Batch" )
call AliasConstant( "Level1", "Document" )
call AliasConstant( "Level4", "Transaction" )
call AliasConstant( "Level5", "Duplicate" )
call AliasConstant( "Level6", "TranDetail" )
call AliasConstant( "Level7", "DocTerms" )
call AliasConstant( "Level8", "PORecipt" )
case 0 ' 0 of 8
'Level 0 if of Type N
' cbatnbrb is a key field for level 0
' Field mask is UUUUUU
serr = SetObjectValue( "cbatnbrb", ImportField(1) )
' cperpost is a Period Field
' NOTE -- This field is a required field
serr = SetObjectValue( "cperpost", ImportField(2) )
'Currently Disabled cstatus
' cbatchandling is an Combo Box
' Values are H;Hold,B;Release Later,R;Release Now,N;No Action
' NOTE -- This field is a required field
serr = SetObjectValue( "cbatchandling", ImportField(3) )
'Currently Disabled cdrtot
serr = SetObjectValue( "cctrltot", ImportField(4) )
'Currently Disabled cdispcpny
case 1 ' 1 of 8
'Level 1 if of Type N
' crefnbrh is a key field for level 1
' Field mask is UUUUUU
serr = SetObjectValue( "crefnbrh", ImportField(1) )
' cdoctype is an Combo Box
' Values are VO;Voucher,AD;Debit Adjustment,AC;Credit Adjustment
' NOTE -- This field is a required field
serr = SetObjectValue( "cdoctype", ImportField(2) )
' Field mask is UUUUUUUUUU
' NOTE -- This field is a required field
serr = SetObjectValue( "cvendid", ImportField(3) )
' Field mask is XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
serr = SetObjectValue( "xuser1", ImportField(4) )
' cdocdate is a Date Field Type
' NOTE -- This field is a required field
serr = SetObjectValue( "cdocdate", ImportField(5) )
' Field mask is XXXXXXXXXXXXXXX
serr = SetObjectValue( "cinvcnbr", ImportField(6) )
' Field mask is UUUUUUUUUUUUUUUU
serr = SetObjectValue( "cSubContract", ImportField(7) )
' cinvcdate is a Date Field Type
serr = SetObjectValue( "cinvcdate", ImportField(8) )
'Currently Disabled cdocbal
' Field mask is UU
serr = SetObjectValue( "cterms", ImportField(9) )
serr = SetObjectValue( "corigdocamt", ImportField(10) )
serr = SetObjectValue( "cdiscbal", ImportField(11) )
' cstatusd is an Combo Box
' Values are A;Active ,H;Hold
' NOTE -- This field is a required field
serr = SetObjectValue( "cstatusd", ImportField(12) )
' Field mask is MMMMMMMMMM
serr = SetObjectValue( "cponbr", ImportField(13) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "cporcptnbr", ImportField(14) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "cPPRefNbr", ImportField(15) )
' cdiscdate is a Date Field Type
serr = SetObjectValue( "cdiscdate", ImportField(16) )
' cduedate is a Date Field Type
serr = SetObjectValue( "cduedate", ImportField(17) )
' cpaydate is a Date Field Type
' NOTE -- This field is a required field
serr = SetObjectValue( "cpaydate", ImportField(18) )
' Field mask is UU-999999-UUUU
serr = SetObjectValue( "cProjectId_Hdr", ImportField(19) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "cDflt_LCCode", ImportField(20) )
'Currently Disabled cmasterdoctype
'Currently Disabled cmasterdocnbr
'Currently Disabled capcpny3
' Field mask is UUUUUUUUUU
' NOTE -- This field is a required field
serr = SetObjectValue( "capacct", ImportField(21) )
' Field mask is 999-99-999
' NOTE -- This field is a required field
serr = SetObjectValue( "capsub", ImportField(22) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "capcheckacct", ImportField(23) )
' cExcludeFreight is an Check Box
' Values are 1 for ON and 0 for OFF
' Values are CHECKED for ON and UNCHECKED for OFF
serr = SetObjectValue( "cExcludeFreight", ImportField(24) )
' Field mask is 999-99-999
serr = SetObjectValue( "capchecksub", ImportField(25) )
' Field mask is UUUUUU
serr = SetObjectValue( "cchknbr", ImportField(26) )
' ccheckdate is a Date Field Type
serr = SetObjectValue( "ccheckdate", ImportField(27) )
serr = SetObjectValue( "cchkamt", ImportField(28) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "capplyrefnbr", ImportField(29) )
' SafComboDocType is an Combo Box
' Values are HC;Hand Check,EP;Electronic Payment
serr = SetObjectValue( "SafComboDocType", ImportField(30) )
'Currently Disabled cBWAmt
' cdfltdetail(0) is an Option Button
' Value is 0 to select button with caption " &Do not default"
' cdfltdetail(1) is an Option Button
' Value is 1 to select button with caption " Default and &Append to current detail"
' cdfltdetail(2) is an Option Button
' Value is 2 to select button with caption " Default and &Replace current detail"
serr = SetObjectValue( "cdfltdetail", ImportField(31) )
'Currently Disabled ccpny04
'Currently Disabled crefnbrh04
'Currently Disabled cdocreftype
'Currently Disabled cvendid04
'Currently Disabled cinvcnbr04
'Currently Disabled cinvcdate04
'Currently Disabled cdocbal04
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "Tx_cdoctaxid", ImportField(32) )
serr = SetObjectValue( "Tx_cdoctaxable", ImportField(33) )
serr = SetObjectValue( "Tx_cdoctax", ImportField(34) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "Tx_cdoctaxid(1)", ImportField(35) )
serr = SetObjectValue( "Tx_cdoctaxable(1)", ImportField(36) )
serr = SetObjectValue( "Tx_cdoctax(1)", ImportField(37) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "Tx_cdoctaxid(2)", ImportField(38) )
serr = SetObjectValue( "Tx_cdoctaxable(2)", ImportField(39) )
serr = SetObjectValue( "Tx_cdoctax(2)", ImportField(40) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "Tx_cdoctaxid(3)", ImportField(41) )
serr = SetObjectValue( "Tx_cdoctaxable(3)", ImportField(42) )
serr = SetObjectValue( "Tx_cdoctax(3)", ImportField(43) )
'Currently Disabled Tx_cdoctaxtot
case 4 ' 4 of 8
'Level 4 if of Type D
'Currently Disabled ccpny
' clinetype is an Combo Box
' Values are N;Invoice,C;Misc Charge,F;Freight,S;PO,D;Drop Ship,R;Receipt,P;PPV,T;Tax
' NOTE -- This field is a required field
serr = SetObjectValue( "clinetype", ImportField(1) )
' Field mask is UUUUUUUUUU
' NOTE -- This field is a required field
serr = SetObjectValue( "cacct", ImportField(2) )
' Field mask is UU-999999-UUUU
serr = SetObjectValue( "cprojectid", ImportField(3) )
' Field mask is UUUUUU-UUUUUU
serr = SetObjectValue( "ctaskid", ImportField(4) )
' Field mask is 999-99-999
' NOTE -- This field is a required field
serr = SetObjectValue( "csub", ImportField(5) )
serr = SetObjectValue( "cqty", ImportField(6) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "cunitdesc", ImportField(7) )
serr = SetObjectValue( "cunitprice", ImportField(8) )
serr = SetObjectValue( "ctranamt", ImportField(9) )
'Currently Disabled cInvtID
' Field mask is XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
serr = SetObjectValue( "ctrandesc", ImportField(10) )
' Field mask is XXXXXXXXXXXXXXX
serr = SetObjectValue( "cextrefnbr", ImportField(11) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "ctaxcat", ImportField(12) )
' Field mask is MMMMMMMMMM
serr = SetObjectValue( "ctaxiddflt", ImportField(13) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "cemployeeid", ImportField(14) )
' Field mask is UUUU
serr = SetObjectValue( "claborclass", ImportField(15) )
' cBillable is an Combo Box
' Values are ;Yes,N;No
serr = SetObjectValue( "cBillable", ImportField(16) )
' cboxnbr is an Combo Box
' Values are 1;1 - Rents,2;2 - Royalties,3;3 - Other Income,4;4 - Federal Income Tax Withheld,5;5 - Fishing Boat Proceeds,6;6 - Medical and Health Care Payments,7;7 - Nonemployee Compensation,8;8 - Payments in Lieu of Dividends/Interest,10;10 - Crop Insurance Proceeds,13;13 - Excess Golden Parachute Payments,14;14 - Gross Proceeds Paid to an Attorney, 15;15a - Section 409A Deferrals,25;15b - Section 409A Income,;<None>
serr = SetObjectValue( "cboxnbr", ImportField(17) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "cLCcode", ImportField(18) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "Tx_cdettaxid", ImportField(19) )
serr = SetObjectValue( "Tx_cdettaxable", ImportField(20) )
serr = SetObjectValue( "Tx_cdettax", ImportField(21) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "Tx_cdettaxid(1)", ImportField(22) )
serr = SetObjectValue( "Tx_cdettaxable(1)", ImportField(23) )
serr = SetObjectValue( "Tx_cdettax(1)", ImportField(24) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "Tx_cdettaxid(2)", ImportField(25) )
serr = SetObjectValue( "Tx_cdettaxable(2)", ImportField(26) )
serr = SetObjectValue( "Tx_cdettax(2)", ImportField(27) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "Tx_cdettaxid(3)", ImportField(28) )
serr = SetObjectValue( "Tx_cdettaxable(3)", ImportField(29) )
serr = SetObjectValue( "Tx_cdettax(3)", ImportField(30) )
'Currently Disabled Tx_cdetrow
case 5 ' 5 of 8
'Level 5 if of Type D
' Field mask is UUUUUUUUUU
' NOTE -- This field is a required field
serr = SetObjectValue( "cvendid", ImportField(1) )
' Field mask is UU
serr = SetObjectValue( "cterms", ImportField(2) )
'Currently Disabled crefnbrdupinv
'Currently Disabled cdocdatedupinv
'Currently Disabled cdoctypedupinv
'Currently Disabled cinvcnbrdupinv
'Currently Disabled ccuryid
'Currently Disabled cperentdupinv
'Currently Disabled cponbrdupinv
'Currently Disabled cvendiddupinv
'Currently Disabled cstatusdupinv
'Currently Disabled corigdocamtdupinv
case 6 ' 6 of 8
'Level 6 if of Type C
'Currently Disabled cExpCpnyID
'Currently Disabled clinetype04
'Currently Disabled cunitdesc04
serr = SetObjectValue( "cinvcqty04", ImportField(1) )
serr = SetObjectValue( "cinvcunitcost04", ImportField(2) )
'Currently Disabled cinvcextcost04
'Currently Disabled cinvtid04
'Currently Disabled cAltID
'Currently Disabled cponbr04
'Currently Disabled cpolineref
'Currently Disabled cqty04
'Currently Disabled cunitcost04
'Currently Disabled cextcost04
'Currently Disabled crcptnbr
'Currently Disabled crcptlineref
'Currently Disabled crcptqty
'Currently Disabled cqtyvar04
'Currently Disabled cextcostvar04
'Currently Disabled csiteID04
' cfinalvoucher is an Check Box
' Values are 1 for ON and 0 for OFF
' Values are CHECKED for ON and UNCHECKED for OFF
serr = SetObjectValue( "cfinalvoucher", ImportField(3) )
case 7 ' 7 of 8
'Level 7 if of Type D
serr = SetObjectValue( "cinstallnbr", ImportField(1) )
serr = SetObjectValue( "cnbrdays", ImportField(2) )
' cinstalldate is a Date Field Type
serr = SetObjectValue( "cinstalldate", ImportField(3) )
serr = SetObjectValue( "cinstallamt", ImportField(4) )
' Field mask is UUUUUUUUUU
' NOTE -- This field is a required field
serr = SetObjectValue( "crefnbrdt", ImportField(5) )
'Currently Disabled cinstallmnttot
case 8 ' 8 of 8
'Level 8 if of Type D
' cCurrReceiptSelected is an Check Box
' Values are 1 for ON and 0 for OFF
' Values are CHECKED for ON and UNCHECKED for OFF
serr = SetObjectValue( "cCurrReceiptSelected", ImportField(1) )
' Field mask is UUUUUUUUUU
serr = SetObjectValue( "creceiptnbr", ImportField(2) )
case TI_Finish
End Select
End Sub
' The following shows the correct syntax to
' PRESS a button
' These object names are specific to this screen.
' Button object name cbuttondupinv, Caption &OK
' serr = SetObjectValue( "cbuttondupinv", "PRESS" )
' Button object name cbutton_ReviseDetail, Caption &OK
' serr = SetObjectValue( "cbutton_ReviseDetail", "PRESS" )
' Button object name cmdOK07, Caption &OK
' serr = SetObjectValue( "cmdOK07", "PRESS" )
' Button object name bPrevious, Caption &<
' serr = SetObjectValue( "bPrevious", "PRESS" )
' Button object name bNext, Caption &>
' serr = SetObjectValue( "bNext", "PRESS" )
' Button object name Command6, Caption &OK
' serr = SetObjectValue( "Command6", "PRESS" )
' Button object name Tx_ButtonOK1, Caption &OK
' serr = SetObjectValue( "Tx_ButtonOK1", "PRESS" )
' Button object name cTermsDetOK, Caption OK
' serr = SetObjectValue( "cTermsDetOK", "PRESS" )
' Button object name TemplateFormBtnPaste, Caption Paste
' serr = SetObjectValue( "TemplateFormBtnPaste", "PRESS" )
' Button object name TemplateFormBtnSave, Caption Save
' serr = SetObjectValue( "TemplateFormBtnSave", "PRESS" )
' Button object name TemplateFormBtnDelete, Caption Delete
' serr = SetObjectValue( "TemplateFormBtnDelete", "PRESS" )
' Button object name TemplateFormBtnClose, Caption Close
' serr = SetObjectValue( "TemplateFormBtnClose", "PRESS" )
' Button object name Button_Tax, Caption Ta&x...
' serr = SetObjectValue( "Button_Tax", "PRESS" )
' Button object name bMultPrePay, Caption Multiple Pre-Payments...
' serr = SetObjectValue( "bMultPrePay", "PRESS" )
' End VBComponent **********************************************************
*This post is locked for comments