diff --git a/CWTD/Once/CWTD#14550.sql b/CWTD/Once/CWTD#14550.sql index a14b52560..ef296ad47 100644 --- a/CWTD/Once/CWTD#14550.sql +++ b/CWTD/Once/CWTD#14550.sql @@ -1,6 +1,6 @@ SET ECHO ON SPOOL xcwtd#14550.lst -PROMPT $Revision: 1 $ +PROMPT $Revision: 2 $ @@ -15,7 +15,7 @@ CREATE TABLE CWTD_IMP_FACTUUR INCL_BTW VARCHAR2(11 BYTE), BTW_BEDRAG VARCHAR2(11 BYTE), OMSCHRIJVING VARCHAR2(60 BYTE) -) +); diff --git a/CWTD/cwtd.sql b/CWTD/cwtd.sql index e34c9c432..1d88c58ad 100644 --- a/CWTD/cwtd.sql +++ b/CWTD/cwtd.sql @@ -1,7 +1,7 @@ -- Script containing customer specific configuration sql statements for CWTD -- (c) 2008 Facilitor --- $Revision: 4 $ --- $Modtime: 11-11-08 17:17 $ +-- $Revision: 5 $ +-- $Modtime: 17-11-08 11:48 $ -- -- Support: +31 53 4800700 @@ -1179,10 +1179,11 @@ AS v_factuurdatum VARCHAR2 (100); v_aantal VARCHAR2 (100); v_kostprijs VARCHAR2 (100); - v_btw VARCHAR2 (100); + v_incl_btw VARCHAR2 (100); v_btw_bedrag VARCHAR2 (100); v_omschrijving VARCHAR2 (100); v_check_dec_sign NUMBER(5,2); + v_index NUMBER; CURSOR cfactuur IS @@ -1224,21 +1225,29 @@ BEGIN fac.imp_getfield (v_newline, v_fielddelimitor, v_factuurnr); fac.imp_getfield (v_newline, v_fielddelimitor, v_factuurdatum); fac.imp_getfield (v_newline, v_fielddelimitor, v_ordernr); - fac.imp_getfield (v_newline, v_fielddelimitor, v_omschrijving); - fac.imp_getfield (v_newline, v_fielddelimitor, v_aantal); - fac.imp_getfield (v_newline, v_fielddelimitor, v_kostprijs); -- bedrag excl btw + fac.imp_getfield (v_newline, v_fielddelimitor, v_incl_btw); -- incl btw fac.imp_getfield (v_newline, v_fielddelimitor, v_btw_bedrag); -- totaal incl btw - fac.imp_getfield (v_newline, v_fielddelimitor, v_btw); -- btw + fac.imp_getfield (v_newline, v_fielddelimitor, v_kostprijs); -- bedrag excl btw + + v_kostprijs := LTRIM(RTRIM(v_kostprijs)); + v_btw_bedrag := LTRIM(RTRIM(v_btw_bedrag)); + v_incl_btw := LTRIM(RTRIM(v_incl_btw)); IF v_check_dec_sign IS NULL THEN v_kostprijs := REPLACE (SUBSTR (v_kostprijs, 1, 11), ',', '.'); v_btw_bedrag := REPLACE (SUBSTR (v_btw_bedrag, 1, 11), ',', '.'); - v_btw := REPLACE (SUBSTR (v_btw, 1, 11), ',', '.'); + v_incl_btw := REPLACE (SUBSTR (v_incl_btw, 1, 11), ',', '.'); ELSE v_kostprijs := SUBSTR (v_kostprijs, 1, 11); v_btw_bedrag := SUBSTR (v_btw_bedrag, 1, 11); - v_btw := SUBSTR (v_btw, 1, 11); + v_incl_btw := SUBSTR (v_incl_btw, 1, 11); END IF; + v_ordernr := LTRIM(RTRIM(v_ordernr)); + v_index := instr(v_ordernr, ' '); + IF (v_index > 0) THEN + v_ordernr := substr(v_ordernr, 1, v_index -1); + END IF; + INSERT INTO cwtd_imp_factuur (ordernr, leveranciernr, @@ -1246,17 +1255,17 @@ BEGIN factuurdatum, aantal, kostprijs, - btw, + incl_btw, btw_bedrag, omschrijving ) VALUES (SUBSTR (v_ordernr, 1, 13), - UPPER(SUBSTR (v_leveranciernr, 1, 10)), - SUBSTR (v_factuurnr, 1, 10), - SUBSTR (v_factuurdatum, 1, 8), + UPPER(SUBSTR (LTRIM(RTRIM(v_leveranciernr)), 1, 10)), + SUBSTR (LTRIM(RTRIM(v_factuurnr)), 1, 10), + SUBSTR (LTRIM(RTRIM(v_factuurdatum)), 1, 8), 1, v_kostprijs, - v_btw, + v_incl_btw, v_btw_bedrag, SUBSTR ('Factuur: '|| v_factuurnr, 1, 60) ); @@ -1295,8 +1304,7 @@ AS SUBSTR (factuurdatum, 3, 2) fmaand, SUBSTR (factuurdatum, 1, 2) fdag, SUM (aantal) aantal, - omschrijving, - SUM (btw_bedrag) btw_bedrag + omschrijving FROM cwtd_imp_factuur GROUP BY ordernr, leveranciernr,