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

PCHX#63945 Import xml-factuur uit Scansys, afwijkende kostenplaats wordt nu overgenomen en weer geexporteerd.

Browse Source 
svn path=/Customer/trunk/; revision=50016
This commit is contained in:
Sander Schepers
2021-02-24 05:23:14 +00:00
parent 8c695ed651
commit a66d883485
1 changed files with 30 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
PCHX/pchx.sql
View File

@@ -4559,9 +4559,9 @@ AS
v_seq_of_columns VARCHAR (100);
BEGIN
--In de XSL: Factuurnummer(1);Factuurdatum(2);Ordernummer(3);Omschrijving(4);Aantal(5);Nettobedrag(6);BTWcode(7);BTWBedrag(8);Document(9);Debiteurnummer(10);
-- Opmerking(11);-BtwVerlegd(12);Betalingsconditie(13);Boekperiode(14);Boekstuknummer(15);Kostensoort(16);Kostendrager(17);Grootboekrekening(18);AfwijkendBedrijf(19);Projectcode(20);Administratie(21);Afw.Grootboekrekening(22);Regelnummer(23);
--hulp voor pos : '1;2;3;4;5;6;7;8;9;0;1;2;3 ;4 ;5 ;6 ;7 ;8 ;9 ;0 ;1 ;2 ;3 ;4; 5 '
v_seq_of_columns := '0;1;2;3;0;0;4;5;6;8;7;9;10;11;12;15;16;17;18;19;14;21;20;22;23';
-- Opmerking(11);-BtwVerlegd(12);Betalingsconditie(13);Boekperiode(14);Boekstuknummer(15);Kostensoort(16);Kostendrager(17);Grootboekrekening(18);AfwijkendBedrijf(19);Projectcode(20);Administratie(21);Afw.Grootboekrekening(22);Regelnummer(23);Kostenplaats(24);
--hulp voor pos : '1;2;3;4;5;6;7;8;9;0;1;2;3 ;4 ;5 ;6 ;7 ;8 ;9 ;0 ;1 ;2 ;3 ;4; 5 '
v_seq_of_columns := '0;1;2;3;0;0;4;5;6;8;7;9;10;11;12;15;16;17;18;19;14;21;20;22;23;24';
-- Variabelelijst
-- v_leveranciernr: 1
@@ -4589,6 +4589,7 @@ BEGIN
-- v_kenmerk7: 23 (Projectcode)
-- v_kenmerk8: 24 (Afwijkende grootboekrekening)
-- v_kenmerk9: 25 (Regelnummer)
-- v_kenmerk10: 26 (Kostenplaats)
DELETE FROM fac_imp_factuur;
@@ -4646,6 +4647,7 @@ AS
v_afwbedrijf VARCHAR2 (200);
v_grootboekrekening VARCHAR2 (200);
v_kostendrager VARCHAR2 (200);
v_kostenplaats NUMBER;
BEGIN
-- De kenmerken bij de facturen en factuurregels worden hieronder nog gevuld.
FOR rec IN km_facturen
@@ -4712,6 +4714,14 @@ BEGIN
FOR rec IN km_factuurregels
LOOP
BEGIN
v_kostenplaats := 0;
SELECT MAX (prs_kostenplaats_key)
INTO v_kostenplaats
FROM prs_kostenplaats
WHERE prs_kostenplaats_upper = UPPER (rec.kenmerk10)
AND prs_kostenplaats_verwijder IS NULL;
--Afwijkende grootboekrekening (factuurregel)
INSERT INTO fin_kenmerkfactregel (fin_factuurregel_key,
fin_kenmerk_key,
@@ -4757,6 +4767,20 @@ BEGIN
AND ut.fac_usrtab_key = ud.fac_usrtab_key
AND ud.fac_usrdata_code = rec.kenmerk3));
IF v_kostenplaats <> 0
THEN
--Afw. kostenplaats (factuurregel)
INSERT INTO fin_kenmerkfactregel (fin_factuurregel_key,
fin_kenmerk_key,
fin_kenmerkfactregel_waarde)
VALUES (rec.fin_factuurregel_key,
(SELECT MAX (fin_kenmerk_key)
FROM fin_kenmerk
WHERE fin_kenmerk_verwijder IS NULL
AND fin_kenmerk_upper = 'AFW. KOSTENPLAATS'),
v_kostenplaats);
END IF;
--Kostensoort (factuurregel)
UPDATE fin_factuurregel
SET prs_kostensoort_key =
@@ -4764,11 +4788,11 @@ BEGIN
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_upper = UPPER (rec.kenmerk2))
WHERE fin_factuurregel_key = rec.fin_factuurregel_key;
--Regelnummer (factuurregel)
--Regelnummer (factuurregel)
UPDATE fin_factuurregel
SET fin_factuurregel_nr = rec.kenmerk9
WHERE fin_factuurregel_key = rec.fin_factuurregel_key;
WHERE fin_factuurregel_key = rec.fin_factuurregel_key;
--Eigentabellen zonder code
--Factuurkenmerken moeten nog
END;