PRTR - Product Transfers

Apr 22, 2024

APIs For This Group

• TRFPRTR - Transfer Product From
• DELPRTR - Delete Transfer Product From
• UPDPRTR - Update Transfer Product From
• CSTPRTR - Get Product Cost

TRFPRTR - Transfer Product From

BOTH    K3SOBJ         'K3S Object Library'         10A
BOTH    COMP           'Company'                     1A
BOTH    COMPCOD        'Company Code                 3A
BOTH    USER           'User calling the program'   10A
BOTH    ERRORS         'Error indicator'             1A
BOTH    ERRMSG         'Error message'             100A
BOTH    ERRFIELD       'Field in error'             20A
BOTH    IDBUYRF        'Buy group ID'                5A
BOTH    IDLOCNF        'From Location ID'            5A
BOTH    IDLOCNT        'To Location ID'              5A
BOTH    IDSUPLF        'Supplier ID'                10A
BOTH    IDSUPLSUBF     'Sub supplier ID'            10A 
BOTH    IDSOQSEQN      'Sequence ID'                 5 0
BOTH    IDPROD         'Product ID'                 25A 
BOTH    SBSOQACT       'Qty to Transfer'             7 0 
BOTH    SBREQUEST      'Request Date'               10A 
BOTH    SBBUYRT        'Buyer To'                    5A
BOTH    SBSUPLT        'Supplier ID To'             10A
BOTH    SBSUPLSUBT     'Sub Supplier id To'         10A
BOTH    SBPOMESG1      'Message 1 '                 50A
BOTH    SBPOMESG2      'Message 2 '                 50A
BOTH    SBPOMESG3      'Message 3 '                 50A
BOTH	SBFRMEXCS	   'From Location Excess'        7 0 

DELPRTR - Delete Transfer Product From

BOTH    K3SOBJ         'K3S Object Library'         10A
BOTH    COMP           'Company'                     1A
BOTH    COMPCOD        'Company Code                 3A
BOTH    USER           'User calling the program'   10A
BOTH    ERRORS         'Error indicator'             1A
BOTH    ERRMSG         'Error message'             100A
BOTH    ERRFIELD       'Field in error'             20A
BOTH    IDBUYRF        'Buy group ID'                5A
BOTH    IDLOCNF        'From Location ID'            5A
BOTH    IDLOCNT        'To Location ID'              5A
BOTH    IDSUPLF        'Supplier ID'                10A
BOTH    IDSUPLSUBF     'Sub supplier ID'            10A 
BOTH    IDBUYRT        'Buyer To'                    5A
BOTH    IDSUPLT        'Supplier ID To'             10A
BOTH    IDSUPLSUBT     'Sub Supplier id To'         10A
BOTH    IDSOQSEQN      'Sequence ID'                 5 0
BOTH    IDPROD         'Product ID'                 25A
BOTH    IDREQUEST      'Request Date'               10A 

UPDPRTR - Update Transfer Product From

BOTH    K3SOBJ         'K3S Object Library'         10A
BOTH    COMP           'Company'                     1A
BOTH    COMPCOD        'Company Code                 3A
BOTH    USER           'User calling the program'   10A
BOTH    ERRORS         'Error indicator'             1A
BOTH    ERRMSG         'Error message'             100A
BOTH    ERRFIELD       'Field in error'             20A
BOTH    IDBUYRF        'Buy group ID'                5A
BOTH    IDLOCNF        'From Location ID'            5A
BOTH    IDLOCNT        'To Location ID'              5A
BOTH    IDSUPLF        'Supplier ID'                10A
BOTH    IDSUPLSUBF     'Sub supplier ID'            10A 
BOTH    IDBUYRT        'Buyer To'                    5A
BOTH    IDSUPLT        'Supplier ID To'             10A
BOTH    IDSUPLSUBT     'Sub Supplier id To'         10A
BOTH    IDSOQSEQN      'Sequence ID'                 5 0
BOTH    IDPROD         'Product ID'                 25A 
BOTH    SBSOQACT       'Qty to Transfer'             7 0 
BOTH    SBREQUEST      'Request Date'               10A
BOTH    SBPOMESG1      'Message 1'                  50A
BOTH    SBPOMESG2      'Message 2'                  50A
BOTH    SBPOMESG3      'Message 3'                  50A 
BOTH	SBFRMEXCS	   'From Location Excess'	     7 0

CSTPRTR - Get Product Cost

BOTH    K3SOBJ         'K3S Object Library'         10A
BOTH    COMP           'Company'                     1A
BOTH    COMPCOD        'Company Code                 3A
BOTH    USER           'User calling the program'   10A
BOTH    ERRORS         'Error indicator'             1A
BOTH    ERRMSG         'Error message'             100A
BOTH    ERRFIELD       'Field in error'             20A
BOTH    IDLOCNF        'From Location ID'            5A
BOTH    IDSUPLF        'From Supplier ID'           10A
BOTH    IDSUBF         'From Sub supplier ID'       10A 
BOTH    IDLOCNT        'To Location ID'              5A
BOTH    IDSUPLT        'To Supplier ID '            10A
BOTH    IDSUBT         'TO Sub Supplier id'         10A
BOTH    IDPROD         'Product ID'                 25A
BOTH    RVCOST         'Requested Cost'             11 4
BOTH	RVAPI		   '1= from API; 0= from Prod'	 1 0 

---