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

LOGC#75610 Coördinaten bij bedrijven

Browse Source 
svn path=/Database/trunk/; revision=58217
This commit is contained in:
Peter Feij
2022-12-02 11:58:17 +00:00
parent fb93a6c062
commit 8cbda89ed1
2 changed files with 21 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
FAC/FAC_PACX.SRC
View File

@@ -1870,6 +1870,8 @@ AS
v_bes_limiet prs_bedrijf.prs_bedrijf_bes_limiet%TYPE;
v_bes_kosten prs_bedrijf.prs_bedrijf_bes_kosten%TYPE;
v_relatietype_key prs_bedrijf.prs_relatietype_key%TYPE;
v_x prs_bedrijf.prs_bedrijf_x%TYPE;
v_y prs_bedrijf.prs_bedrijf_y%TYPE;
CURSOR c1
IS
@@ -1916,7 +1918,9 @@ AS
prs_bedrijf_xmldetails_loc,
prs_bedrijf_bes_limiet,
prs_bedrijf_bes_kosten,
prs_relatietype_key
prs_relatietype_key,
prs_bedrijf_x,
prs_bedrijf_y
INTO v_naam,
v_post_adres,
v_post_postcode,
@@ -1951,7 +1955,9 @@ AS
v_xmldetails_loc,
v_bes_limiet,
v_bes_kosten,
v_relatietype_key
v_relatietype_key,
v_x,
v_y
FROM prs_bedrijf
WHERE prs_bedrijf_key = p_bedrijf_key;
@@ -1991,6 +1997,8 @@ AS
create_prs_kenmerken (p_bedrijf_key, 'B');
createxmltagvalue ('beslimiet', v_bes_limiet);
createxmltagvalue ('beskosten', v_bes_kosten);
createxmltagvalue ('x', v_x);
createxmltagvalue ('y', v_y);
FOR rec1 IN c1
LOOP