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

mld2sap incompatibel met 5.2.1

Browse Source 
svn path=/Customer/trunk/; revision=15161
This commit is contained in:
Peter Koerhuis
2012-03-12 08:17:22 +00:00
parent 492701cbc7
commit 7baea1c11a
1 changed files with 16 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
AKZA/AKZA.SQL
View File

@@ -3,8 +3,8 @@
-- Facilitor inrichting voor Akzo Nobel Arnhem
-- (c) 1999-2010 SG|facilitor bv
--
-- $Revision: 119 $
-- $Modtime: 8-03-12 13:52 $
-- $Revision: 120 $
-- $Modtime: 12-03-12 10:11 $
--
SPOOL xAKZA.LST
SET ECHO ON
@@ -4720,23 +4720,6 @@ CREATE OR REPLACE PACKAGE AKZA_P_MLD2SAP AS
/* Formatted on 30-6-2010 7:11:00 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PACKAGE BODY akza_p_mld2sap
AS
FUNCTION bepaal_statusopdr_key (status_omschrijving CHAR)
RETURN NUMBER
IS
return_key NUMBER (10);
BEGIN
SELECT mld_statusopdr_key
INTO return_key
FROM mld_statusopdr
WHERE UPPER (mld_statusopdr_upper) = UPPER (status_omschrijving);
RETURN return_key;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
RETURN NULL;
END;
FUNCTION printreplicate (ckarakter IN VARCHAR2, nlengte IN NUMBER)
RETURN VARCHAR2
IS
@@ -4899,8 +4882,6 @@ AS
opdrkostenchar VARCHAR2 (10);
leveranciernr prs_bedrijf.prs_leverancier_nr%TYPE;
opdrachten NUMBER (10);
statusafgemeld NUMBER (10);
statusverwerkt NUMBER (10);
defcompcode VARCHAR (6) := '080100';
dummy BOOLEAN;
regelnr NUMBER (10);
@@ -4917,8 +4898,6 @@ AS
-- INIT
ldebug := FALSE;
regelnr := 0;
statusafgemeld := bepaal_statusopdr_key ('MLD_AFGEMELD');
statusverwerkt := bepaal_statusopdr_key ('MLD_VERWERKT');
FOR meldingenrec IN sap_meldingen
LOOP
@@ -5261,10 +5240,10 @@ AS
FOR opdrrec
IN (SELECT mld_opdr_key
FROM mld_opdr
WHERE mld_statusopdr_key = statusafgemeld
WHERE mld_statusopdr_key = 6
AND mld_melding_key = meldingenrec.mld_melding_key)
LOOP
mld.setopdrachtstatus (opdrrec.mld_opdr_key, statusverwerkt, NULL);
mld.setopdrachtstatus (opdrrec.mld_opdr_key, 7, NULL);
END LOOP;
END IF;
@@ -5275,7 +5254,7 @@ AS
SELECT NVL (COUNT ( * ), 0)
INTO opdrachten
FROM mld_opdr
WHERE mld_melding_key = meldingenrec.mld_melding_key AND mld_statusopdr_key <> statusverwerkt;
WHERE mld_melding_key = meldingenrec.mld_melding_key AND mld_statusopdr_key <> 7;
--lgn(TO_CHAR(Opdrachten)||' niet-AV opdracht(en)');
IF opdrachten = 0
@@ -5302,12 +5281,11 @@ AS
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog ('AKZA_P_MLD2SAP',
'SAP_Exporteren',
'E',
'AKZA_P_MLD2SAP (error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 100) || ')',
'Fout in aanpassen meldingstatus'
);
fac.writelog ('AKZA_P_MLD2SAP',
'E',
'AKZA_P_MLD2SAP (error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 100) || ')',
'Fout in aanpassen meldingstatus'
);
ROLLBACK;
END;
END IF;
@@ -5462,12 +5440,11 @@ AS
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog ('AKZA_P_RES2SAP',
'SAPRES_Exporteren',
'E',
'AKZA_P_RES2SAP (error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 100) || ')',
'Fout bij aanpassen status in AV'
);
fac.writelog ('AKZA_P_RES2SAP',
'E',
'AKZA_P_RES2SAP (error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 100) || ')',
'Fout bij aanpassen status in AV'
);
COMMIT; -- tbv logging
END;
END LOOP;
@@ -6109,7 +6086,7 @@ AS
AND so.mld_statusopdr_key(+) = o.mld_statusopdr_key;
BEGIN adm.systrackscript('$Workfile: AKZA.SQL $', '$Revision: 119 $', 0); END;
BEGIN adm.systrackscript('$Workfile: AKZA.SQL $', '$Revision: 120 $', 0); END;
/
BEGIN fac.registercustversion('AKZA', 23); END;
/