'System Message 8011: ========Begin Processing of a billings Data Line========
'billings,2,000,06/02/2014,90.01,no2
'System Message 8005: New Record Requested
'System Message 8012: ========Successful Processing of a billings Data Line========
'System Message 8011: ========Begin Processing of a billings Data Line========
'billings,3,000,08/04/2014,90.01,no3
'System Message 8005: New Record Requested
'System Message 8012: ========Successful Processing of a billings Data Line========
'PC Message Number 0462: Billings schedule amount of 269.97 does not match the total amount of 270.00 entered for this schedule
' number.
schedule,UK3000058,000001,Original,270
billings,1,000,03/10/2014,90.00,no1
billings,2,000,06/02/2014,90.00,no2
billings,3,000,08/04/2014,90.00,no3
'System Message 8030: The Number of Errors detected was 1
'System Message 8001: Completed Processing 14:17:56
The TI process appears to be processing the individual line values as 89.99 instead of 90
There is nothing unusual about the CTL file enclosed for completeness
Any ideas?
'$include: "bsl.dh" 'BISBE Control Macro Sub ProcessImportLine( LevelNumber%, Retval% ) select Case LevelNumber case TI_Start
call AliasConstant( "Level0", "schedule" )
call AliasConstant( "Level1", "billings" )
call AliasConstant( "Level2", "revenue" )
call AliasConstant( "Level3", "desc" )
case 0 ' 0 of 3
'Level 0 if of Type N ' cproject is a key field for level 0 ' Field mask is UU-U-WWWWWW-WW ' NOTE -- This field is a required field serr = SetObjectValue( "cproject", ImportField(1) )
' cschednbr is a key field for level 0 ' Field mask is 999999 ' NOTE -- This field is a required field serr = SetObjectValue( "cschednbr", ImportField(2) )
' Field mask is XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ' NOTE -- This field is a required field serr = SetObjectValue( "csched_desc", ImportField(3) )
' csched_type is an Combo Box ' Values are B;Both,L;Billings,R;Revenue serr = SetObjectValue( "csched_type", "L" )
' capproval_sw is an Check Box ' Values are Y for ON and N for OFF ' Values are CHECKED for ON and UNCHECKED for OFF ' serr = SetObjectValue( "capproval_sw", "N" )
' cdraft_flag is an Check Box ' Values are Y for ON and N for OFF ' Values are CHECKED for ON and UNCHECKED for OFF ' serr = SetObjectValue( "cdraft_flag", "Y" )
' Field mask is UUUU ' serr = SetObjectValue( "cinv_format_cd", "STD" )
'Currently Disabled cFormatDesc
' Field mask is UUUUUUUUUUUUUUUU ' NOTE -- This field is a required field serr = SetObjectValue( "cacct", "DEFERRED REVENUE" )
'Currently Disabled cacct_desc
' cStartDate is a Date Field Type ' serr = SetObjectValue( "cStartDate", ImportField(9) )
' cEndDate is a Date Field Type ' serr = SetObjectValue( "cEndDate", ImportField(10) )
serr = SetObjectValue( "ctotal_amount", ImportField(4) )
' serr = SetObjectValue( "ctotal_units", ImportField(12) )
case 1 ' 1 of 3
'Level 1 if of Type D ' clinenbr is a key field for level 1 ' NOTE -- This field is a required field serr = SetObjectValue( "clinenbr", ImportField(1) )
'Currently Disabled crel_status
' Field mask is UUU ' NOTE -- This field is a required field serr = SetObjectValue( "cpjt_entity", ImportField(2) )
' Field mask is UUUUUUUUUUUUUUUU ' NOTE -- This field is a required field ' serr = SetObjectValue( "cacctDet", "DEFERRED REVENUE" )
' cpost_date is a Date Field Type serr = SetObjectValue( "cpost_date", ImportField(3) )
' cpost_date_estDet is a Date Field Type serr = SetObjectValue( "cpost_date_estDet", ImportField(3) )
' serr = SetObjectValue( "cunits", ImportField(6) )
' serr = SetObjectValue( "cfee_rate", ImportField(7) )
' serr = SetObjectValue( "cpercent", ImportField(8) )
serr = SetObjectValue( "camountDET", ImportField(4) )
' Field mask is XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX serr = SetObjectValue( "ccomment", ImportField(5) )
'Currently Disabled cemp_name
'Currently Disabled ctaskdesc
'Currently Disabled cbillingsamt
'Currently Disabled ctotal_amountDET
'Currently Disabled cbillingsunits
'Currently Disabled ctotal_unitsDET
case 2 ' 2 of 3
'Level 2 if of Type D ' clinenbrREV is a key field for level 2 ' NOTE -- This field is a required field serr = SetObjectValue( "clinenbrREV", ImportField(1) )
'Currently Disabled crel_statusREV
' Field mask is UUU ' NOTE -- This field is a required field serr = SetObjectValue( "cpjt_entityREV", ImportField(2) )
' Field mask is UUUUUUUUUU ' NOTE -- This field is a required field serr = SetObjectValue( "cgl_acct", ImportField(3) )
' Field mask is NNNN-NN ' NOTE -- This field is a required field serr = SetObjectValue( "cgl_subacctREV", ImportField(4) )
' Field mask is XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX serr = SetObjectValue( "cgl_comment", ImportField(5) )
' cpost_dateREV is a Date Field Type serr = SetObjectValue( "cpost_dateREV", ImportField(6) )
' cpost_date_estREV is a Date Field Type serr = SetObjectValue( "cpost_date_estREV", ImportField(7) )
serr = SetObjectValue( "cpercentREV", ImportField(8) )
serr = SetObjectValue( "camountREV", ImportField(9) )
'Currently Disabled ctaskdescREV
'Currently Disabled crevenueamt
'Currently Disabled ctotal_amountREV
case 3 ' 3 of 3
'Level 3 if of Type C 'Currently Disabled cproject_desc
'Currently Disabled clinenbrDUPE
' cPerType is an Combo Box ' Values are W;Weekly,M;Monthly,Q;Quarterly,N;None serr = SetObjectValue( "cPerType", ImportField(1) )
serr = SetObjectValue( "cdupnum", ImportField(2) )
serr = SetObjectValue( "cnextlinenbr", ImportField(3) )
serr = SetObjectValue( "cIncrementBy", ImportField(4) )
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 cmdDuplicate, Caption &Duplicate ' serr = SetObjectValue( "cmdDuplicate", "PRESS" )
' Button object name cmdCancel, Caption &Cancel ' serr = SetObjectValue( "cmdCancel", "PRESS" )
' Button object name cmdDupeBillings, Caption &Duplicate/Create Periodic... ' serr = SetObjectValue( "cmdDupeBillings", "PRESS" )
' Button object name cmdDupeRevenue, Caption &Duplicate/Create Periodic... ' serr = SetObjectValue( "cmdDupeRevenue", "PRESS" )
The log file indicates
*This post is locked for comments