DEFINE TEMP-TABLE CUS NO-UNDO FIELD BRANCH_ID AS CHARACTER FIELD CUSTOMER_ID AS CHARACTER FIELD PAYER_ID AS CHARACTER FIELD CUSTOMER_NAME_1 AS CHARACTER FIELD CUSTOMER_NAME_2 AS CHARACTER FIELD CUSTOMER_TYPE AS CHARACTER FIELD COUNTRY_ID AS CHARACTER FIELD CITY AS CHARACTER FIELD POSTAL_CODE AS CHARACTER FIELD STREET AS CHARACTER FIELD APT_NUMBER AS CHARACTER FIELD TIN AS CHARACTER FIELD ACTIVITY AS INTEGER FIELD LATITUDE AS CHARACTER INITIAL ? FIELD LONGITUDE AS CHARACTER INITIAL ? FIELD REGION_1 AS CHARACTER INITIAL ? FIELD REGION_2 AS CHARACTER INITIAL ? FIELD REGION_3 AS CHARACTER INITIAL ? FIELD REGION_4 AS CHARACTER INITIAL ? . DEFINE TEMP-TABLE PRO FIELD BRANCH_ID AS CHARACTER FIELD PRODUCT_ID AS CHARACTER FIELD PRODUCER_PRODUCT_ID AS CHARACTER FIELD EAN AS CHARACTER FIELD PRODUCT_NAME_1 AS CHARACTER FIELD PRODUCT_NAME_2 AS CHARACTER FIELD MEASURE_UNIT_ID AS CHARACTER FIELD MEASURE_UNIT AS CHARACTER FIELD PRODUCER_ID AS CHARACTER FIELD PRODUCER_NAME AS CHARACTER FIELD ACTIVITY AS INTEGER FIELD MULTIPLIER AS DECIMAL FIELD MULTIPLIER_VOL AS DECIMAL . DEFINE TEMP-TABLE SAL_HEADER NO-UNDO SERIALIZE-NAME '' FIELD FROM_DATE AS CHARACTER XML-NODE-TYPE "ATTRIBUTE" FIELD TO_DATE AS CHARACTER XML-NODE-TYPE "ATTRIBUTE" FIELD TYPE_DATE AS CHARACTER XML-NODE-TYPE "ATTRIBUTE" FIELD SAL_HEADER_ID AS RECID SERIALIZE-HIDDEN XML-NODE-TYPE "HIDDEN" . DEFINE TEMP-TABLE SAL NO-UNDO FIELD SAL_HEADER_ID AS RECID SERIALIZE-HIDDEN XML-NODE-TYPE "HIDDEN" FIELD TYPE_ID AS CHARACTER FIELD BRANCH_ID AS CHARACTER FIELD DOC_ID AS CHARACTER FIELD ISSUE_DATE AS CHARACTER FIELD SALE_DATE AS CHARACTER FIELD CUSTOMER_ID AS CHARACTER FIELD COR_DOC_ID AS CHARACTER INITIAL ? FIELD COR_DOC_DATE AS CHARACTER INITIAL ? FIELD TYPE_SALE_ID AS CHARACTER FIELD FIELD_1 AS CHARACTER INITIAL ? FIELD FIELD_2 AS CHARACTER INITIAL ? FIELD FIELD_3 AS CHARACTER INITIAL ? FIELD SAL_ID AS RECID SERIALIZE-HIDDEN XML-NODE-TYPE "HIDDEN" . DEFINE TEMP-TABLE SAL_ITEM NO-UNDO FIELD SAL_ID AS RECID SERIALIZE-HIDDEN XML-NODE-TYPE "HIDDEN" FIELD ITEM AS INTEGER FIELD PRODUCT_ID AS CHARACTER FIELD MEASURE_UNIT_ID AS CHARACTER FIELD PRODUCER_ID AS CHARACTER FIELD QUANTITY AS DECIMAL FIELD QUANTITY_VOL AS DECIMAL FIELD QUANTITY_WAS AS DECIMAL FIELD QUANTITY_VOL_WAS AS DECIMAL FIELD PURCHASE_ORDER AS CHARACTER FIELD FIELD_1 AS CHARACTER FIELD FIELD_2 AS CHARACTER FIELD FIELD_3 AS CHARACTER INDEX SALE_ITEM-K1 IS PRIMARY SAL_ID ITEM . DEFINE DATASET dsSALE SERIALIZE-NAME '' FOR SAL_HEADER, SAL, SAL_ITEM PARENT-ID-RELATION RELATION1 FOR SAL_HEADER, SAL PARENT-ID-FIELD SAL_HEADER_ID PARENT-ID-RELATION RELATION2 FOR SAL, SAL_ITEM PARENT-ID-FIELD SAL_ID . DEFINE TEMP-TABLE tControlList NO-UNDO FIELD BRANCH_ID AS CHARACTER FIELD CUSTOMER_ID AS CHARACTER FIELD PRODUCT_ID AS CHARACTER FIELD PRODUCT_NAME AS CHARACTER FIELD DOCUMENT_TYPE AS CHARACTER FIELD DOCUMENT_NUMBER AS CHARACTER FIELD DOCUMENT_ISSUE_DATE AS CHARACTER FIELD QUANTITY_SOLD AS DECIMAL .