| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677 |
- /*------------------------------------------------------------------------
- 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 *************************** */
|
