/*------------------------------------------------------------------------ File : ybm_product.i Purpose : Syntax : Description : Author(s) : walter.riechsteiner Created : Thu Feb 09 20:39:25 CET 2023 Notes : ----------------------------------------------------------------------*/ /* *************************** Definitions ************************** */ DEFINE TEMP-TABLE tProduct SERIALIZE-NAME 'product' FIELD cId AS CHARACTER SERIALIZE-NAME 'id' FIELD eStatus AS CHARACTER SERIALIZE-NAME 'status' FIELD cCategory AS CHARACTER SERIALIZE-NAME 'category' FIELD cName AS CHARACTER SERIALIZE-NAME 'name' FIELD cOrder_by AS CHARACTER SERIALIZE-NAME 'order_by' FIELD iPrice AS INTEGER SERIALIZE-NAME 'price' FIELD cPrice_per AS CHARACTER SERIALIZE-NAME 'price_per' FIELD iMinOrderCount AS INTEGER SERIALIZE-NAME 'min_order_count' FIELD rtProduct AS RECID SERIALIZE-HIDDEN INDEX tProduct-k1 IS PRIMARY cId . DEFINE TEMP-TABLE tVessel SERIALIZE-NAME 'vessel' FIELD Unit AS CHARACTER SERIALIZE-NAME 'unit' FIELD iSize AS INTEGER SERIALIZE-NAME 'size' FIELD rtProduct AS RECID SERIALIZE-HIDDEN FIELD rtVessel AS RECID SERIALIZE-HIDDEN INDEX tVessel-k1 IS PRIMARY rtProduct . DEFINE TEMP-TABLE tBundle SERIALIZE-NAME 'bundle' FIELD eType AS CHARACTER SERIALIZE-NAME 'type' FIELD iSize AS INTEGER SERIALIZE-NAME 'size' FIELD rtProduct AS RECID SERIALIZE-HIDDEN FIELD rtBundle AS RECID SERIALIZE-HIDDEN FIELD iInd AS INTEGER SERIALIZE-HIDDEN INDEX tBundle-k1 IS PRIMARY rtProduct iInd . DEFINE TEMP-TABLE tPalletBundle SERIALIZE-NAME 'pallet_bundle' FIELD eType AS CHARACTER SERIALIZE-NAME 'type' FIELD iSize AS INTEGER SERIALIZE-NAME 'size' FIELD rtBundle AS RECID SERIALIZE-HIDDEN FIELD rtPalletBundle AS RECID SERIALIZE-HIDDEN . DEFINE VARIABLE htProduct AS HANDLE NO-UNDO. htProduct = TEMP-TABLE tProduct:DEFAULT-BUFFER-HANDLE. DEFINE VARIABLE htVessel AS HANDLE NO-UNDO. htVessel = TEMP-TABLE tVessel:DEFAULT-BUFFER-HANDLE. DEFINE VARIABLE htBundle AS HANDLE NO-UNDO. htBundle = TEMP-TABLE tBundle:DEFAULT-BUFFER-HANDLE. DEFINE VARIABLE htPalletBundle AS HANDLE NO-UNDO. htPalletBundle = TEMP-TABLE tPalletBundle:DEFAULT-BUFFER-HANDLE. /* ******************** Preprocessor Definitions ******************** */ /* *************************** Main Block *************************** */