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

TMGP#89670 -- AiAi op rapport view TMGP_V_PROJECTMELDINGEN

Browse Source 
svn path=/Customer/trunk/; revision=70086
This commit is contained in:
Norbert Wassink
2025-08-25 08:55:38 +00:00
parent bcd61824e9
commit f73aa4b47d
1 changed files with 399 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
TMGP/TMGP.sql
View File

@@ -94,6 +94,13 @@ BEGIN
END;
SELECT COUNT(*)
INTO v_Count
FROM fac_imp_perslid
WHERE fac_import_key=p_import_key;
IF v_count> 1000
THEN
FOR rec IN c(p_import_key)
LOOP
@@ -111,7 +118,7 @@ BEGIN
v_prs_perslid_key:=-1;
END;
IF v_prs_perslid_key < 0
IF v_prs_perslid_key = -1
THEN
v_errormsg:='Fout bij ophalen persoon via medewerker initialen'|| SUBSTR(rec.prs_perslid_email,1,INSTR(rec.prs_perslid_email,'@')-1);
BEGIN
@@ -129,7 +136,6 @@ BEGIN
WHERE prs_perslid_oslogin=UPPER(SUBSTR(rec.prs_perslid_email,1,INSTR(rec.prs_perslid_email,'@')-1))
AND prs_perslid_verwijder IS NULL;
v_action:= 'UPDATE';
EXCEPTION
WHEN NO_DATA_FOUND THEN
-- We kennen de persoon echt niet dus gaan we hem toevoegen
@@ -226,10 +232,17 @@ BEGIN
FOR rec_del IN c_del(p_import_key)
LOOP
prs.delete_perslid (p_import_key, rec_del.prs_perslid_key);
prs.delete_perslid(p_import_key, rec_del.prs_perslid_key);
END LOOP;
ELSE
fac.imp_writelog (p_import_key,
'E',
'Fout besatand',
'Het aangeleverde bestand heeft maar '||v_count||' regels terwijl er meer dan 1000 worden verwacht. ');
END IF;
COMMIT;
@@ -252,7 +265,7 @@ END;
CREATE OR REPLACE PROCEDURE TMGP_IMPORT_PATDATA(p_import_key NUMBER)
AS
BEGIN
fac_import_genericcsv(p_import_key);
NULL;
END;
/
@@ -273,7 +286,7 @@ CREATE OR REPLACE PROCEDURE TMGP_IMPORT_TAKEN_OVERIG(p_import_key IN NUMBER)
AS
BEGIN
fac_import_genericcsv(p_import_key);
NULL;
END;
/
@@ -500,7 +513,7 @@ CREATE OR REPLACE PROCEDURE TMGP_IMPORT_TAKEN_MJOB(p_import_key IN NUMBER)
AS
BEGIN
fac_import_genericcsv(p_import_key);
NULL;
END;
/
@@ -990,7 +1003,7 @@ AS
WHERE mk.mld_kenmerk_code = 'PROJECTSTATUS'
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND mkm.mld_melding_key=m.mld_melding_key
AND fud.fac_usrdata_key=mkm.mld_kenmerkmelding_waarde) projectstatus,
AND fud.fac_usrdata_key=fac.safe_to_number(mkm.mld_kenmerkmelding_waarde)) projectstatus,
(SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mk.mld_kenmerk_code = 'BEDRAG'
@@ -1019,13 +1032,13 @@ AS
WHERE mk.mld_kenmerk_code = 'GEPLAND'
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND mkm.mld_melding_key=m.mld_melding_key
AND fud.fac_usrdata_key=mkm.mld_kenmerkmelding_waarde) gepland_huidgjaar,
AND fud.fac_usrdata_key=fac.safe_to_number(mkm.mld_kenmerkmelding_waarde)) gepland_huidgjaar,
(SELECT fud.fac_usrdata_omschr
FROM mld_kenmerkmelding mkm, mld_kenmerk mk, fac_usrdata fud
WHERE mk.mld_kenmerk_code = 'BEGROOT'
AND mkm.mld_kenmerk_key = mk.MLD_kENMERK_KEY
AND mkm.mld_melding_key=m.mld_melding_key
AND fud.fac_usrdata_key=mkm.mld_kenmerkmelding_waarde) begroot
AND fud.fac_usrdata_key=fac.safe_to_number(mkm.mld_kenmerkmelding_waarde)) begroot
FROM mld_melding m,
mld_stdmelding sm,
mld_statuses stat