Dynamics Community Forum Thread Details

Problems about Transaction Import

When I import the SO Orders to Solomon
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

Quick Links

Leaderboard