admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CWTD#14550

Browse Source 
svn path=/Customer/trunk/; revision=13735
This commit is contained in:
Arthur Egberink
2008-11-17 09:54:24 +00:00
parent a2c7db8ab1
commit 3e85da7884
2 changed files with 26 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
CWTD/Once/CWTD#14550.sql
View File

@@ -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)
)
);

40
CWTD/cwtd.sql
View File

@@ -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,