Dynamics Community Forum Thread Details

Thanks for the reply. I'd certainly be interested in hearing more about your friend's solution.

You mention TI and I've been trying to use that to move data from a text file into the Transfer screen (10040) for some time now without much success. I could sure use some onsight if you want to jump in. Here are my DTA, CTL and Log File:

DTA

"level0","","",H,"",""
"Level1","",JBD1A,"",1,"",DEFAULT,"",TEST,""
"Level2",CO10050105,"","",4.0000,"","",""
"Level2",CO10050115,"","",2.0000,"","",""
"Level2",CO10100105,"","",1.0000,"","",""

CTL

'$include: "bsl.dh"
'10040 Control Macro
Sub ProcessImportLine( LevelNumber%, Retval% )
select Case LevelNumber
case TI_Start

call AliasConstant( "Level0", "Batch" )

call AliasConstant( "Level1", "Doc" )

call AliasConstant( "Level2", "Trans" )

' call AliasConstant( "Level3", "LotSer" )

case 0 ' 0 of 3

    'Level 0 if of Type N
      ' cBatNbrh is a key field for level 0
      ' Field mask is UUUUUU
      serr = SetObjectValue( "cBatNbrh", ImportField(1) )

      ' cPerPost is a Period Field
      ' NOTE -- This field is a required field
      serr = SetObjectValue( "cPerPost", ImportField(2) )

'Currently Disabled cStatus

      ' cBatchHandling is an Combo Box
      ' Values are H;Hold,B;Release Later,R;Release Now,N;No Action
      serr = SetObjectValue( "cBatchHandling", ImportField(3) )

' Field mask is WWWWWWWWWWWW
serr = SetObjectValue( "cLotSerFxdVal", ImportField(4) )

' Field mask is 9999999999999999999999999
serr = SetObjectValue( "cLotSerNumVal", ImportField(5) )

'Currently Disabled INxtLSNbr

case 1 ' 1 of 3

    'Level 1 if of Type C
      ' cTrnsfrDocNbr is a key field for level 1
      ' Field mask is UUUUUU
      serr = SetObjectValue( "cTrnsfrDocNbr", ImportField(1) )

      ' Field mask is UUUUUUUUUU
      ' NOTE -- This field is a required field
      serr = SetObjectValue( "cSiteId", ImportField(2) )

      ' Field mask is UUUUUUUUUU
      ' NOTE -- This field is a required field
      serr = SetObjectValue( "cToSiteId", ImportField(3) )

      ' cTransferType is an Combo Box
      ' Values are 1;1-Step,2:2-Step
      serr = SetObjectValue( "cTransferType", ImportField(4) )

' Field mask is XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
serr = SetObjectValue( "cComment", ImportField(5) )

' Field mask is UUUUUUUUUUUUUUU
' serr = SetObjectValue( "cShipViaId", ImportField(6) )

' cExpectedDate is a Date Field Type
serr = SetObjectValue( "cExpectedDate", ImportField(7) )

      ' Field mask is UUUUUUUUUU
      ' NOTE -- This field is a required field
      serr = SetObjectValue( "cRefNbr", ImportField(8) )

      ' cTranDate is a Date Field Type
      ' NOTE -- This field is a required field
      serr = SetObjectValue( "cTranDate", ImportField(9) )

'Currently Disabled cRcptNbr

'Currently Disabled cRcptDate

'Currently Disabled cTrnsfrdocStatus

case 2 ' 2 of 3

    'Level 2 if of Type D
      ' Field mask is UUUUUUUUUUUUUUUUUUUU
      ' NOTE -- This field is a required field
      serr = SetObjectValue( "cInvtId", ImportField(1) )

      ' Field mask is XXXXXXXXXX
      ' NOTE -- This field is a required field
      serr = SetObjectValue( "cWhseLoc", ImportField(2) )

      ' Field mask is XXXXXXXXXX
      ' NOTE -- This field is a required field
      serr = SetObjectValue( "cToWhseLoc", ImportField(3) )

serr = SetObjectValue( "cQty", ImportField(4) )

      ' Field mask is UUUUUU
      ' NOTE -- This field is a required field
      serr = SetObjectValue( "cunitdesc", ImportField(5) )

      ' Field mask is MMMMMMMMMMMMMMMMMMMMMMMMM
      ' NOTE -- This field is a required field
      serr = SetObjectValue( "cSpecLotSer", ImportField(6) )

' Field mask is UUUUUUUUUUUUUUUUUUUU
serr = SetObjectValue( "cSpecificCostId", ImportField(7) )

'case 3 ' 3 of 3

    'Level 3 if of Type D
      ' Field mask is XXXXXXXXXXXXXXXXXXXXXXXXX
      ' NOTE -- This field is a required field
      'serr = SetObjectValue( "LS_cLotSerNbr", ImportField(1) )

' NOTE -- This field is a required field
' serr = SetObjectValue( "LS_cQty", ImportField(2) )

' Field mask is UUUUUUUUUUUUUUUUUUUUUUUUU
' serr = SetObjectValue( "LS_cMfgrLotSerNbr", ImportField(3) )

' cls_expiredate is a Date Field Type
' serr = SetObjectValue( "cls_expiredate", ImportField(4) )

' Field mask is UUUUUUUUUUUUUUUUUUUU
' serr = SetObjectValue( "LS_cShipContCode", ImportField(5) )

'Currently Disabled LS_cInvtID

'Currently Disabled LS_cSiteID

'Currently Disabled LS_cWhseLoc

'Currently Disabled LS_cToSiteID

'Currently Disabled LS_cToWhseLoc

' Field mask is UUUUU
' serr = SetObjectValue( "LS_cLotSerRef", ImportField(6) )

' serr = SetObjectValue( "LS_cLineNbr", ImportField(7) )

'Currently Disabled LS_cbatnbr

'Currently Disabled LS_cRefNbr

'Currently Disabled cls_remaining

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 LS_ButtonDefaults, Caption Create &New Numbers...
' serr = SetObjectValue( "LS_ButtonDefaults", "PRESS" )

' Button object name LS_ButtonFinished, Caption &OK
' serr = SetObjectValue( "LS_ButtonFinished", "PRESS" )

' Button object name LS_ButtonCancel, Caption &Cancel
' serr = SetObjectValue( "LS_ButtonCancel", "PRESS" )

' Button object name Button01OK, Caption &OK
' serr = SetObjectValue( "Button01OK", "PRESS" )

' Button object name LS_ButtonCancel1, Caption &Cancel
' serr = SetObjectValue( "LS_ButtonCancel1", "PRESS" )

' Button object name cmdFindItem, Caption
' serr = SetObjectValue( "cmdFindItem", "PRESS" )

' Button object name cmdLotSerial, Caption &Lot/Serial
' serr = SetObjectValue( "cmdLotSerial", "PRESS" )

LOG

'System Message 8000: Start Processing 12:40:07

'System Message 8043: Transaction Import Processing Update after Successful Edit mode

'System Message 8040: Database Name TestFosbelApp

'System Message 8011: ========Begin Processing of a level0 Data Line========

'"level0","","",H,"",""