CALORDR

This will recalculate an order

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            IDBUYR            'ID Buyer'                       5A
BOTH            IDLOCN            'ID location'                    5A
BOTH            IDSUPL            'ID supplier'                   10A
BOTH            IDSUPLSUB         'ID sub supplier'               10A
BOTH            IDPROD            'ID product'                    25A
BOTH            IDSOQSEQN         'ID sugg order sequence #'       5 0
BOTH            IDKEEPQTY         'ID keep overriden qtys'         1A
BOTH            IDUSEDEAL         'ID use deals'                   1A
BOTH            NEWSOQSEQN        'New sugg order sequence #'      5 0

Comments