PIVP#74972 -- Fase 2 Exact export mld/res
svn path=/Customer/trunk/; revision=58411
This commit is contained in:
Norbert Wassink
172
PIVP/PIVP.sql
172
PIVP/PIVP.sql
@@ -2383,6 +2383,7 @@ END;
|
||||
/
|
||||
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE PIVP_IMPORT_RELATIES(p_import_key IN NUMBER)
|
||||
AS
|
||||
BEGIN
|
||||
@@ -3007,15 +3008,14 @@ AS
|
||||
AND fac_usrdata_key=aok.alg_onrgoedkenmerk_waarde
|
||||
AND pb.prs_bedrijf_naam=fac_usrdata_omschr
|
||||
and ak.alg_kenmerk_verwijder IS NULL) relatie_code,
|
||||
(SELECT fud.fac_usrdata_code
|
||||
(SELECT DECODE(fud.fac_usrdata_code,'Verhuurbaar','1','0')
|
||||
FROM alg_onrgoedkenmerk aok, alg_kenmerk ak, fac_usrdata fud
|
||||
WHERE aok.alg_onrgoed_key =alg.alg_ruimte_key
|
||||
AND aok.alg_kenmerk_key=ak.alg_kenmerk_key
|
||||
AND UPPER(ak.alg_kenmerk_omschrijving)='VERHUURBAAR'
|
||||
AND fud.fac_usrdata_key=fac.safe_to_number(aok.alg_onrgoedkenmerk_waarde)
|
||||
and ak.alg_kenmerk_verwijder IS NULL) verhuurbaar,
|
||||
and ak.alg_kenmerk_verwijder IS NULL) verhuurbaar,
|
||||
alg.alg_srtruimte_omschrijving soort_ruimte,
|
||||
-- alg.alg_ruimte_bruto_vloeropp wo2,
|
||||
(SELECT aok.alg_onrgoedkenmerk_waarde from alg_onrgoedkenmerk aok, alg_kenmerk ak
|
||||
WHERE aok.alg_onrgoed_key=alg.alg_ruimte_key
|
||||
AND ak.alg_kenmerk_key=aok.alg_kenmerk_key
|
||||
@@ -3029,7 +3029,7 @@ AS
|
||||
AND UPPER(ak.alg_kenmerk_omschrijving)='VERHUURTYPE'
|
||||
AND fud.fac_usrdata_key=fac.safe_to_number(aok.alg_onrgoedkenmerk_waarde)
|
||||
and ak.alg_kenmerk_verwijder IS NULL) ruimte_type_verhuur
|
||||
FROM alg_v_ruimte_gegevens alg, alg_gebouw agb, alg_kenmerk akm, alg_onrgoedkenmerk aokm
|
||||
FROM alg_v_ruimte_gegevens alg, alg_gebouw agb
|
||||
WHERE agb.alg_gebouw_key = alg.alg_gebouw_key
|
||||
AND alg.alg_ruimte_nr NOT LIKE '_000';
|
||||
|
||||
@@ -3237,7 +3237,7 @@ BEGIN
|
||||
v_count:=v_count+1;
|
||||
IF v_count=1 THEN
|
||||
pivp.add_xml_row (v_bestand, '<?xml version="1.0" encoding="windows-1252"?>');
|
||||
pivp.add_xml_row (v_bestand, '<eExact>');
|
||||
pivp.add_xml_row (v_bestand, '<eExact xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="eExact-Schema.xsd">');
|
||||
pivp.add_xml_row (v_bestand, '<GLEntries>');
|
||||
END IF;
|
||||
|
||||
@@ -3246,17 +3246,28 @@ BEGIN
|
||||
LOOP
|
||||
v_sub_count:=v_sub_count+1;
|
||||
IF v_sub_count=1 THEN
|
||||
pivp.add_xml_row (v_bestand, '<GLEntry>');
|
||||
pivp.add_xml_row (v_bestand, '<GLEntry entry="">');
|
||||
pivp.add_xml_element (v_bestand, 'Description', 'Geleverder diensten van '||TO_CHAR(v_startDate,'DD-MM-YYYY')||' tot '||TO_CHAR(v_endDate,'DD-MM-YYYY')||'.');
|
||||
pivp.add_xml_element (v_bestand, 'Date', SYSDATE);
|
||||
pivp.add_xml_element (v_bestand, 'DocumentDate', TO_CHAR(SYSDATE, 'YYYY-MM-DD') );
|
||||
pivp.add_xml_row (v_bestand, '<Journal code="' || v_dagboek || '"/>');
|
||||
pivp.add_xml_row (v_bestand, '<Division code="003"/>');
|
||||
pivp.add_xml_row (v_bestand, '<Journal code="' || v_dagboek || '" type="V"/>');
|
||||
pivp.add_xml_row (v_bestand, '<Amount>');
|
||||
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
|
||||
pivp.add_xml_element (v_bestand, 'Value', '0');
|
||||
pivp.add_xml_row (v_bestand, '</Amount>');
|
||||
pivp.add_xml_row (v_bestand, '<ForeignAmount>');
|
||||
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
|
||||
pivp.add_xml_element (v_bestand, 'Value', '0');
|
||||
pivp.add_xml_row (v_bestand, '</ForeignAmount>');
|
||||
|
||||
|
||||
END IF;
|
||||
|
||||
|
||||
pivp.add_xml_row (v_bestand, '<FinEntryLine number="' || v_sub_count || '>');
|
||||
pivp.add_xml_row (v_bestand, '<FinEntryLine number="' || v_sub_count || '" type="N" subtype="N">');
|
||||
|
||||
pivp.add_xml_row (v_bestand, '<GLAccount code="' || rec_regel.dienstencode || '"/>');
|
||||
pivp.add_xml_row (v_bestand, '<GLAccount code="' || SUBSTR(rec_regel.dienstencode,3) || '"/>');
|
||||
pivp.add_xml_element (v_bestand, 'Description', rec_regel.melding_key||' - '||rec_regel.onderwerp);
|
||||
pivp.add_xml_row (v_bestand, '<Costcenter code="' || xml.char_to_html('003.OPS') || '"/>');
|
||||
-- pivp.add_xml_row (v_bestand, '<Costunit code="' || xml.char_to_html('999999') || '"/>');
|
||||
@@ -3331,7 +3342,7 @@ AS
|
||||
BEGIN
|
||||
|
||||
v_dagboek:='70';
|
||||
v_dienstencode:='FM221';
|
||||
v_dienstencode:='221';
|
||||
v_leverancier:=0;
|
||||
v_sub_count:=0;
|
||||
v_count:=0;
|
||||
@@ -3374,7 +3385,7 @@ BEGIN
|
||||
v_count:=v_count+1;
|
||||
IF v_count=1 THEN
|
||||
pivp.add_xml_row (v_bestand, '<?xml version="1.0" encoding="windows-1252"?>');
|
||||
pivp.add_xml_row (v_bestand, '<eExact>');
|
||||
pivp.add_xml_row (v_bestand, '<eExact xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="eExact-Schema.xsd">');
|
||||
pivp.add_xml_row (v_bestand, '<GLEntries>');
|
||||
END IF;
|
||||
|
||||
@@ -3384,18 +3395,35 @@ BEGIN
|
||||
v_sub_count:=v_sub_count+1;
|
||||
IF v_sub_count=1 THEN
|
||||
pivp.add_xml_row (v_bestand, '<GLEntry>');
|
||||
pivp.add_xml_element (v_bestand, 'Description', 'Zaalreserveringen van '||TO_CHAR(v_startDate,'DD-MM-YYYY')||' tot '||TO_CHAR(v_endDate,'DD-MM-YYYY')||'.');
|
||||
-- pivp.add_xml_element (v_bestand, 'Description', 'Zaalreserveringen van '||TO_CHAR(v_startDate,'DD-MM-YYYY')||' tot '||TO_CHAR(v_endDate,'DD-MM-YYYY')||'.');
|
||||
pivp.add_xml_element (v_bestand, 'Date', SYSDATE);
|
||||
pivp.add_xml_element (v_bestand, 'DocumentDate', TO_CHAR(SYSDATE, 'YYYY-MM-DD') );
|
||||
pivp.add_xml_row (v_bestand, '<Journal code="' || v_dagboek || '"/>');
|
||||
pivp.add_xml_row (v_bestand, '<Division code="003"/>');
|
||||
pivp.add_xml_row (v_bestand, '<Journal code="' || v_dagboek || '" type="V"/>');
|
||||
pivp.add_xml_row (v_bestand, '<Amount>');
|
||||
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
|
||||
pivp.add_xml_element (v_bestand, 'Value', '0');
|
||||
pivp.add_xml_row (v_bestand, '</Amount>');
|
||||
pivp.add_xml_row (v_bestand, '<ForeignAmount>');
|
||||
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
|
||||
pivp.add_xml_element (v_bestand, 'Value', '0');
|
||||
pivp.add_xml_row (v_bestand, '</ForeignAmount>');
|
||||
|
||||
|
||||
|
||||
END IF;
|
||||
pivp.add_xml_row (v_bestand, '<FinEntryLine number="' || v_sub_count || '>');
|
||||
pivp.add_xml_row (v_bestand, '<FinEntryLine number="' || v_sub_count || '" type="N" subtype="N">');
|
||||
pivp.add_xml_element (v_bestand, 'Date', TO_CHAR(SYSDATE, 'YYYY-MM-DD') );
|
||||
pivp.add_xml_row (v_bestand, '<FinYear number="'||TO_CHAR(SYSDATE, 'YYYY')||'"/>' );
|
||||
pivp.add_xml_row (v_bestand, '<FinPeriod number="'||TO_CHAR(SYSDATE, 'MM')||'"/>' );
|
||||
|
||||
|
||||
pivp.add_xml_row (v_bestand, '<GLAccount code="' || v_dienstencode || '"/>');
|
||||
pivp.add_xml_element (v_bestand, 'Description', 'Zaal '||rec_regel.ruimte_nr||' op '||TO_CHAR(rec_regel.datum,'DD-MM-YYYY')||' van '||rec_regel.van||' tot '||rec_regel.tot);
|
||||
pivp.add_xml_row (v_bestand, '<Costcenter code="' || xml.char_to_html('003.OPS') || '"/>');
|
||||
|
||||
pivp.add_xml_row (v_bestand, '<Debitor number="' || xml.char_to_html(rec_regel.debiteurnr) || '"/>');
|
||||
pivp.add_xml_row (v_bestand, '<Item code=""/>');
|
||||
-- pivp.add_xml_row (v_bestand, '<Item code=""/>');
|
||||
pivp.add_xml_row (v_bestand, '<Amount>');
|
||||
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
|
||||
pivp.add_xml_element (v_bestand, 'Debit', rec_regel.bedrag);
|
||||
@@ -3407,18 +3435,18 @@ BEGIN
|
||||
pivp.add_xml_element (v_bestand, 'DocumentDate', TO_CHAR(rec_regel.datum, 'YYYY-MM-DD') );
|
||||
pivp.add_xml_row (v_bestand, '</FinReferences>');
|
||||
pivp.add_xml_row (v_bestand, '</FinEntryLine>');
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
END LOOP;
|
||||
IF v_sub_count>1 THEN
|
||||
pivp.add_xml_row (v_bestand, '</GLEntry>');
|
||||
IF v_sub_count>=1 THEN
|
||||
pivp.add_xml_row (v_bestand, '</GLEntry>');
|
||||
END IF;
|
||||
v_sub_count:=0;
|
||||
END LOOP;
|
||||
IF v_sub_count>0 THEN
|
||||
IF v_count>0 THEN
|
||||
pivp.add_xml_row (v_bestand, '</GLEntries>');
|
||||
pivp.add_xml_row (v_bestand, '</eExact>');
|
||||
END IF;
|
||||
@@ -3430,18 +3458,9 @@ END;
|
||||
/
|
||||
|
||||
|
||||
CREATE OR REPLACE PROCEDURE PIVP_SELECT_EXACT_MLDRES (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2
|
||||
)
|
||||
AS
|
||||
BEGIN
|
||||
pivp_select_exact_mld (p_applname, p_applrun);
|
||||
pivp_select_exact_res (p_applname, p_applrun);
|
||||
END;
|
||||
/
|
||||
|
||||
|
||||
CREATE OR REPLACE VIEW PIVP_V_EXPORT_EXACT_MLDRES (
|
||||
CREATE OR REPLACE VIEW PIVP_V_EXPORT_EXACT_MLD (
|
||||
result,
|
||||
result_order,
|
||||
exact_exp
|
||||
@@ -3449,7 +3468,21 @@ CREATE OR REPLACE VIEW PIVP_V_EXPORT_EXACT_MLDRES (
|
||||
AS
|
||||
SELECT fac_rapport_regel ,fac_rapport_volgnr, fac_rapport_node
|
||||
FROM fac_rapport
|
||||
WHERE fac_rapport_node LIKE 'EX%_%'
|
||||
WHERE fac_rapport_node LIKE 'EXM_%'
|
||||
ORDER BY fac_rapport_node,fac_rapport_volgnr;
|
||||
|
||||
|
||||
|
||||
|
||||
CREATE OR REPLACE VIEW PIVP_V_EXPORT_EXACT_RES (
|
||||
result,
|
||||
result_order,
|
||||
exact_exp
|
||||
)
|
||||
AS
|
||||
SELECT fac_rapport_regel ,fac_rapport_volgnr, fac_rapport_node
|
||||
FROM fac_rapport
|
||||
WHERE fac_rapport_node LIKE 'EXR_%'
|
||||
ORDER BY fac_rapport_node,fac_rapport_volgnr;
|
||||
|
||||
|
||||
@@ -3472,11 +3505,9 @@ BEGIN
|
||||
v_bestand := 'EXA_CONTACT';
|
||||
v_counter :=0;
|
||||
v_relatie_code :='--------';
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
DELETE FROM fac_rapport where fac_rapport_node='EXA_CONTACT';
|
||||
COMMIT;
|
||||
|
||||
pivp.add_xml_row (v_bestand, '<?xml version="1.0" encoding="windows-1252"?>');
|
||||
pivp.add_xml_row (v_bestand, '<eExact xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="eExact-Schema.xsd">');
|
||||
@@ -3559,15 +3590,80 @@ AS
|
||||
-- EINDE EXPORT CONTACTEN
|
||||
|
||||
|
||||
/*
|
||||
|
||||
|
||||
-- EXPORT RUIMTES
|
||||
|
||||
CREATE OR REPLACE PROCEDURE pivp_select_exact_ruimte_exp(p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2
|
||||
)
|
||||
AS
|
||||
CURSOR ruimtes IS
|
||||
SELECT *
|
||||
FROM pivp_v_ruimteexport
|
||||
WHERE verhuurbaar='1' AND ruimte_nr='RE-2218';
|
||||
|
||||
v_bestand VARCHAR2(100);
|
||||
v_counter NUMBER;
|
||||
v_relatie_code VARCHAR2(10);
|
||||
|
||||
BEGIN
|
||||
v_bestand := 'EXA_RUIMTE';
|
||||
v_counter :=0;
|
||||
v_relatie_code :='--------';
|
||||
|
||||
DELETE FROM fac_rapport where fac_rapport_node='EXA_RUIMTE';
|
||||
COMMIT;
|
||||
|
||||
pivp.add_xml_row (v_bestand, '<?xml version="1.0" encoding="windows-1252"?>');
|
||||
pivp.add_xml_row (v_bestand, '<eExact xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="eExact-Schema.xsd">');
|
||||
pivp.add_xml_row (v_bestand, '<Items>');
|
||||
|
||||
FOR rec IN ruimtes
|
||||
LOOP
|
||||
v_counter:=v_counter+1;
|
||||
pivp.add_xml_row (v_bestand, '<Item code="'||rec.ruimte_nr||'" searchcode="'||rec.ruimte_nr||'">');
|
||||
pivp.add_xml_element (v_bestand, 'Description', rec.gebouw_code);
|
||||
pivp.add_xml_row (v_bestand, '<FreeFields>');
|
||||
pivp.add_xml_row (v_bestand, '<FreeNumbers>');
|
||||
pivp.add_xml_row (v_bestand,'<FreeNumber number="1" label="Oppervlakte WO (m2)">'||rec.wo||'</FreeNumber>');
|
||||
pivp.add_xml_row (v_bestand,'<FreeNumber number="1" label="Oppervlakte VVO (m2)">'||REPLACE(rec.vvo,',','.')||'</FreeNumber>');
|
||||
pivp.add_xml_row (v_bestand, '</FreeNumber>');
|
||||
pivp.add_xml_row (v_bestand, '<FreeYesNo>');
|
||||
pivp.add_xml_row (v_bestand, '<FreeYesNo number="1" label="Verhuurbaar">'||rec.verhuurbaar||'</FreeYesNo>');
|
||||
pivp.add_xml_row (v_bestand, '<FreeYesNo number="2" label="Vergaderruimte">0</FreeYesNo>');
|
||||
pivp.add_xml_row (v_bestand, '</FreeYesNo>');
|
||||
pivp.add_xml_row (v_bestand, '</FreeFields>');
|
||||
pivp.add_xml_row (v_bestand, '</Item>');
|
||||
|
||||
END LOOP;
|
||||
pivp.add_xml_row (v_bestand, '</Items>');
|
||||
pivp.add_xml_row (v_bestand, '</eExact>');
|
||||
fac.writelog (p_applname, 'S', 'Exact ruimte export uitgevoerd.','Aantal geexporteerde verhuubare ruimtes is: '||v_counter);
|
||||
END;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE PIVP_SELECT_EXACT_RUIMTE (p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2
|
||||
)
|
||||
AS
|
||||
BEGIN
|
||||
pivp_select_exact_ruimte_exp (p_applname, p_applrun);
|
||||
END;
|
||||
/
|
||||
|
||||
|
||||
|
||||
CREATE OR REPLACE VIEW PIVP_V_EXPORT_EXACT_RUIMTE (
|
||||
result,
|
||||
result_order
|
||||
)
|
||||
AS
|
||||
SELECT *
|
||||
FROM PIVP_V_RUIMTEXPORT;
|
||||
*/
|
||||
SELECT fac_rapport_regel ,fac_rapport_volgnr
|
||||
FROM fac_rapport
|
||||
WHERE fac_rapport_node LIKE 'EXA_RUIMTE%'
|
||||
ORDER BY fac_rapport_node,fac_rapport_volgnr;
|
||||
|
||||
|
||||
|
||||
--END EXPORTS
|
||||
|
||||
Reference in New Issue
Block a user