Transaction Import into Purchase Orders Maintenance screen (042500)

Hello,

I am tyring to do the Transaction Import into Purchase Orders Maintenance screen (042500), and I am not able to save
the data into the screen 0425007 (Purchases for Sales Order). It is the
screen where you enter the Sales Orders. I am able to see that the data is
being populated in screen 0425007 as well as 0425000 during the Transaction
Import, and for some reason it is not being saved in the 0425007 screen. At
the end of the process, it says there were 0 errors.

Here's my control file:

'$include: "bsl.dh"
'04250 Control Macro


Sub ProcessImportLine( LevelNumber%, Retval% )
  select Case LevelNumber
    case TI_Start

      Call AliasConstant( "Level0", "Order" )

      Call AliasConstant( "Level1", "Detail" )
     
      Call AliasConstant( "Level3", "POAlloc" )

    case 0 ' 0 of 4

      ' Field mask is UUUUUUUUUU
      serr = SetObjectValue( "cvendid", ImportField(2) )

      'serr = SetObjectValue( "xuser11", ImportField(2) )

      Call SetBufferValue("bPurchOrd.User2",ImportField(1))


    case 1 ' 1 of 4

       serr = SetObjectValue( "cpurchtype", "GS")
      
       serr = SetObjectValue( "cinvtid", ImportField(1) ) 


      ' Field mask is UUUUUUUUUU
      ' NOTE  -- This field is a required field

       serr = SetObjectValue( "csiteid", ImportField(2) )

       'serr = SetObjectValue( "cqtyord", "" )

       'serr = SetObjectValue( "cunitcost", ImportField(5) )

       serr = SetObjectValue( "xuser1", ImportField(6) )

    
   case 3 ' 3 of 3

    'Level 3 if of Type D
      ' csonbr is a key field for level 3
      ' Field mask is UUUUUUUUUUUUUUU
      ' NOTE  -- This field is a required field
      serr = SetObjectValue( "csonbr", ImportField(1) )

      ' csolineref is a key field for level 3
      ' Field mask is 99999
      ' NOTE  -- This field is a required field
      serr = SetObjectValue( "csolineref", ImportField(2) )

     serr = SetObjectValue( "cmdOK07", "PRESS" )

   case TI_Finish
   
   End Select

End Sub


I really appreciate if you could help me. I have never worked on SL before.

Thank you for your time.

Regards,

Hande Aksac

Related
Recommended