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

MARX#37122 SOAPAction ondersteunen in bedrijfadres

Browse Source 
svn path=/Database/trunk/; revision=30240
This commit is contained in:
Jos Groot Lipman
2016-08-09 10:30:13 +00:00
parent a06a8261cc
commit 90dcbcca76
2 changed files with 87 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
FAC/FAC_PACX.SRC
View File

@@ -89,7 +89,7 @@ AS
PROCEDURE create_ins_srtdeel_node (p_key IN NUMBER, p_concise BOOLEAN);
PROCEDURE create_prs_bedrijf_node (p_bedrijf_key IN NUMBER, p_nodename IN VARCHAR2);
PROCEDURE create_prs_bedrijf_node (p_bedrijf_key IN NUMBER, p_nodename IN VARCHAR2, p_concise IN BOOLEAN);
PROCEDURE create_prs_kostenpltsgrp_node (p_key IN NUMBER);
@@ -1248,8 +1248,35 @@ AS
END IF;
END;
PROCEDURE create_prs_bedrijfadres_node (p_key IN NUMBER)
AS
BEGIN
IF p_key IS NOT NULL
THEN
FOR rec IN (SELECT *
FROM prs_bedrijfadres
WHERE prs_bedrijfadres_key = p_key)
LOOP
createopentag ('bedrijfadres');
createxmltagvalue ('key', rec.prs_bedrijfadres_key);
createxmltagvalue ('type', rec.prs_bedrijfadres_type);
createxmltagvalue ('typeopdr', rec.mld_typeopdr_key);
createxmltagvalue ('soapversion', rec.prs_bedrijfadres_soapversion);
createxmltagvalue ('soapaction', rec.prs_bedrijfadres_soapaction);
createxmltagvalue ('authmethod', rec.prs_bedrijfadres_authmethod);
IF rec.prs_bedrijfadres_authmethod = 3
THEN
createxmltagvalue ('username', rec.prs_bedrijfadres_username);
createxmltagvalue ('password', rec.prs_bedrijfadres_password);
END IF;
createclosetag ('bedrijfadres');
END LOOP;
END IF;
END;
PROCEDURE create_prs_bedrijf_node (p_bedrijf_key IN NUMBER,
p_nodename IN VARCHAR2)
p_nodename IN VARCHAR2,
p_concise IN BOOLEAN)
AS
v_naam prs_bedrijf.prs_bedrijf_naam%TYPE;
v_post_adres prs_bedrijf.prs_bedrijf_post_adres%TYPE;
@@ -1413,6 +1440,16 @@ AS
create_prs_contactpersoon_node (rec1.prs_contactpersoon_key);
END LOOP;
IF NOT p_concise
THEN
FOR rec IN (SELECT prs_bedrijfadres_key
FROM prs_bedrijfadres
WHERE prs_bedrijf_key = p_bedrijf_key)
LOOP
create_prs_bedrijfadres_node(rec.prs_bedrijfadres_key);
END LOOP;
END IF;
create_prs_relatietype_node (v_relatietype_key);
createclosetag (p_nodename);
@@ -1488,7 +1525,7 @@ AS
THEN
create_prs_afdeling_node (v_parentkey, 'parent');
ELSE
create_prs_bedrijf_node (v_bedrijf_key, 'bedrijf');
create_prs_bedrijf_node (v_bedrijf_key, 'bedrijf', TRUE);
END IF;
createclosetag (p_nodename);
@@ -1528,7 +1565,7 @@ AS
createxmltagvalue ('omschrijving', v_omschrijving);
createxmltagvalue ('opp', v_opp);
createxmltagvalue ('uurloon', v_uurloon);
create_prs_bedrijf_node (v_bedrijf_key, 'bedrijf');
create_prs_bedrijf_node (v_bedrijf_key, 'bedrijf', TRUE);
createclosetag ('srtperslid');
END IF;
END;
@@ -2237,6 +2274,7 @@ AS
v_einduur alg_gebouw.alg_gebouw_einduur%TYPE;
v_werkdagen alg_gebouw.alg_gebouw_werkdagen%TYPE;
v_verantw_key alg_gebouw.prs_perslid_key_verantw%TYPE;
v_vervaldatum alg_gebouw.alg_gebouw_vervaldatum%TYPE;
CURSOR c1
IS
@@ -2266,7 +2304,8 @@ AS
alg_gebouw_beginuur,
alg_gebouw_einduur,
alg_gebouw_werkdagen,
prs_perslid_key_verantw
prs_perslid_key_verantw,
alg_gebouw_vervaldatum
INTO v_naam,
v_code,
v_omschrijving,
@@ -2285,7 +2324,8 @@ AS
v_beginuur,
v_einduur,
v_werkdagen,
v_verantw_key
v_verantw_key,
v_vervaldatum
FROM alg_gebouw
WHERE alg_gebouw_key = p_gebouw_key;
@@ -2304,6 +2344,7 @@ AS
create_mld_adres_node (v_adres_key, 'afleveradres', TRUE);
create_alg_kenmerken (p_gebouw_key, 'G');
create_alg_srtgebouw_node (v_srtgebouw_key);
mydatetochar ('vervaldatum', v_vervaldatum);
createxmltagvalue ('beginuur', v_beginuur);
createxmltagvalue ('einduur', v_einduur);
createxmltagvalue ('werkdagen', v_werkdagen);
@@ -3517,7 +3558,7 @@ AS
NULL,
NULL,
NULL);
create_prs_bedrijf_node (p_uitvoerende_key, 'bedrijf');
create_prs_bedrijf_node (p_uitvoerende_key, 'bedrijf', FALSE); -- niet concise zodat bedrijfadressen meekomen
END IF;
createclosetag (p_nodename);
@@ -6080,7 +6121,7 @@ AS
mydatetochar ('leverdatum', v_bestelopdr_leverdatum);
createxmltagvalue ('status_key', v_bestelopdr_status);
createxmltagvalue ('status', v_status);
create_prs_bedrijf_node (v_bedrijf_key, 'bedrijf');
create_prs_bedrijf_node (v_bedrijf_key, 'bedrijf', FALSE); -- niet concise zodat bedrijfadressen meekomen
createxmltagvalue ('opmerking', v_bestelopdr_opmerking);
createxmltagvalue ('leveringopmerking',
v_bestelopdr_delivery_opmerk);
@@ -7858,7 +7899,7 @@ AS
END IF;
createxmltagvalue ('uurloon', v_uurloon);
createxmltagvalue ('korting', v_korting);
create_prs_bedrijf_node (v_bedrijf_key, 'bedrijf'); -- uitvoerder/huurder
create_prs_bedrijf_node (v_bedrijf_key, 'bedrijf', FALSE); -- uitvoerder/huurder
create_prs_afdeling_node (v_afdeling_key, 'afdeling');
create_prs_contactpersoon_node (v_contactpersoon_key);
create_prs_dienst_node (v_dienst_key);
@@ -8356,7 +8397,7 @@ AS
createxmltagvalue ('kostensoort', rec1.prs_kostensoort_oms);
createxmltagvalue ('kostensoortopmerking', rec1.prs_kostensoort_opmerking);
createxmltagvalue ('kostensoortrefcode', rec1.prs_kostensoort_refcode);
create_prs_bedrijf_node (rec1.prs_bedrijf_key, 'bedrijf');
create_prs_bedrijf_node (rec1.prs_bedrijf_key, 'bedrijf', TRUE);
createxmltagvalue ('debiteurnaam', rec1.prs_debiteur_naam);
createxmltagvalue ('kostensoortgroep', rec1.prs_kostensoortgrp_oms);
createxmltagvalue ('bedrag', mynumbertochar (rec1.fin_verkoopfactuur_bedrag));
@@ -8437,7 +8478,7 @@ AS
create_bes_bestelopdr_node (p_key, FALSE);
WHEN 'bedrijf'
THEN
create_prs_bedrijf_node (p_key, 'bedrijf');
create_prs_bedrijf_node (p_key, 'bedrijf', FALSE);
WHEN 'melding'
THEN
create_mld_melding_node (p_key, p_extra, TRUE);