The process Screen(98.500.00) show process 100% but the Screen Hold and Sale Orders Screen (40.100.00) also.
I close the Sale Orders Screen (40.100.00)
the process Screen(98.500.00) show Complete
The Orders had import correct,
but the detail line get wrong.
Only the last line item had import to the order.(only itemC had import in the sample below.)
DTA file
Level0,CPN,,SO,Cust1,,C,Cust1,default,0,01,1,5,01,5/20/2010,5/20/2011
level1,itemA,Site1,30,PCS,10,0,5/20/2010,5/20/2010,0,001,itemA
level1,itemB,Site1,20,PCS,10,0,5/20/2010,5/20/2010,0,001,itemB
level1,itemC,Site1,50,PCS,10,0,5/20/2010,5/20/2010,0,001,itemC
CTL File
'$include: "bsl.dh"
'40100 Control Macro
Sub ProcessImportLine( LevelNumber%, Retval% )
select Case LevelNumber
case TI_Start
call AliasConstant( "Level0", "Header" )
call AliasConstant( "Level1", "Lines" )
case 0 ' 0 of 1
'Level 0 if of Type N
serr = SetObjectValue( "cCpnyID_0", ImportField(1) )
serr = SetObjectValue( "cordnbr_0", ImportField(2) )
serr = SetObjectValue( "csotypeid_0", ImportField(3) )
serr = SetObjectValue( "ccustid_0", ImportField(4) )
serr = SetObjectValue( "ccustordnbr_0", ImportField(5) )
serr = SetObjectValue( "cshiptotype_0", ImportField(6) )
serr = SetObjectValue( "cShipCustID_0", ImportField(7) )
serr = SetObjectValue( "cshiptoid_0", ImportField(8) )
serr = SetObjectValue( "cDropShip_0", ImportField(9) )
serr = SetObjectValue( "cshipviaid_0", ImportField(10) )
serr = SetObjectValue( "cshipcmplt_0", ImportField(11) )
serr = SetObjectValue( "cpriority_0", ImportField(12) )
serr = SetObjectValue( "ctermsid_0", ImportField(13) )
serr = SetObjectValue( "corddate_0", ImportField(14) )
serr = SetObjectValue( "ccanceldate_0", ImportField(15) )
case 1 ' 1 of 1
'Level 1 if of Type D
serr = SetObjectValue( "cinvtid_1", ImportField(1) )
serr = SetObjectValue( "csiteid_1", ImportField(2) )
serr = SetObjectValue( "cqtyord_1", ImportField(3) )
serr = SetObjectValue( "cunitdesc_1", ImportField(4) )
serr = SetObjectValue( "ccuryslsprice_1", ImportField(5) )
serr = SetObjectValue( "cdiscpct_1", ImportField(6) )
serr = SetObjectValue( "creqdate_1", ImportField(7) )
serr = SetObjectValue( "cpromdate_1", ImportField(8) )
serr = SetObjectValue( "cDropShip_1", ImportField(9) ))
serr = SetObjectValue( "cTaxCat_1", ImportField(10) )
serr = SetObjectValue( "cdisp_1", ImportField(11) )
case TI_Finish
End Select
End Sub