SELECT STSTOCKSLIPDET.STORE_ID,
STSTOCKSLIP.SLIPTYPE_CODE,
STSTOCKSLIPDET.SLIP_NO, STSTOCKSLIP.SLIP_DATE,
STPRODUCTTYPE.PRODUCTTYPE_CODE,
STPRODUCTTYPE.PRODUCTTYPE_DESC,
STSTOCKSLIPDET.ITEM_AMT,
STSTOCKSLIPDET.VAT_AMT,
STSTOCKSLIPDET.ITEMNET_AMT,
STPRODUCTTYPE.ACCID_CASH,
STPRODUCTTYPE.ACCID_BUY,
STPRODUCTTYPE.ACCID_SALE,
STPRODUCTTYPE.ACCID_RECEIVE,
STPRODUCTTYPE.ACCID_SENT
FROM STSTOCKSLIPDET , STPRODUCTMASTER , STPRODUCTTYPE , STSTOCKSLIP
WHERE ( STSTOCKSLIPDET.COOP_ID = STPRODUCTMASTER.COOP_ID ) and
( STPRODUCTTYPE.PRODUCTTYPE_CODE = STPRODUCTMASTER.PRODUCTTYPE_CODE ) and
( STPRODUCTTYPE.COOP_ID = STPRODUCTMASTER.COOP_ID ) and
( STSTOCKSLIPDET.PRODUCT_NO = STPRODUCTMASTER.PRODUCT_NO ) and
( STSTOCKSLIP.SLIP_NO = STSTOCKSLIPDET.SLIP_NO ) and
( STSTOCKSLIP.COOP_ID = STSTOCKSLIPDET.COOP_ID ) and
( STSTOCKSLIP.STORE_ID = STSTOCKSLIPDET.STORE_ID ) and
( STSTOCKSLIP.SLIP_STATUS = 1 ) And
( STSTOCKSLIP.EXPENSE_CODE = 'CSH' ) and
( STSTOCKSLIP.SLIPTYPE_CODE in ('001','002','003','004') )
DELETE FROM "STPOSTTOFIN" WHERE (("COOP_ID" = :Original_COOP_ID) AND ("SLIP_NO" = :Original_SLIP_NO))
INSERT INTO "STPOSTTOFIN" ("COOP_ID", "SLIP_NO", "ENTRY_ID", "ENTRY_DATE", "OPERATE_DATE", "CASH_TYPE", "STORE_ID", "PRODUCTTYPE_CODE", "PAYMENT_DESC", "ITEM_COUNT", "ITEMPAY_AMT", "VAT_AMT", "ITEM_AMTNET", "ACCOUNT_ID", "TOFROM_ACCID", "POSTTOFIN_STATUS") VALUES (:COOP_ID, :SLIP_NO, :ENTRY_ID, :ENTRY_DATE, :OPERATE_DATE, :CASH_TYPE, :STORE_ID, :PRODUCTTYPE_CODE, :PAYMENT_DESC, :ITEM_COUNT, :ITEMPAY_AMT, :VAT_AMT, :ITEM_AMTNET, :ACCOUNT_ID, :TOFROM_ACCID, :POSTTOFIN_STATUS)
SELECT * FROM STPOSTTOFIN
UPDATE "STPOSTTOFIN" SET "COOP_ID" = :COOP_ID, "SLIP_NO" = :SLIP_NO, "ENTRY_ID" = :ENTRY_ID, "ENTRY_DATE" = :ENTRY_DATE, "OPERATE_DATE" = :OPERATE_DATE, "CASH_TYPE" = :CASH_TYPE, "STORE_ID" = :STORE_ID, "PRODUCTTYPE_CODE" = :PRODUCTTYPE_CODE, "PAYMENT_DESC" = :PAYMENT_DESC, "ITEM_COUNT" = :ITEM_COUNT, "ITEMPAY_AMT" = :ITEMPAY_AMT, "VAT_AMT" = :VAT_AMT, "ITEM_AMTNET" = :ITEM_AMTNET, "ACCOUNT_ID" = :ACCOUNT_ID, "TOFROM_ACCID" = :TOFROM_ACCID, "POSTTOFIN_STATUS" = :POSTTOFIN_STATUS WHERE (("COOP_ID" = :Original_COOP_ID) AND ("SLIP_NO" = :Original_SLIP_NO))