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

AAIT#67042 -- Factuurverwerking via Mareonplatform - Puntjes op de i voor morgen TESTDAG 2

Browse Source 
svn path=/Customer/; revision=53450
This commit is contained in:
Jos Migo
2021-10-20 09:49:10 +00:00
parent 971b719cf1
commit ff2a1eb1d0
1 changed files with 124 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

124
onces/AA/AAXX/AAXX#67042_kenmerken_controle.sql Normal file
View File

@@ -0,0 +1,124 @@
--
-- $Id$
--
-- ONCESCRIPT om de MAREON-Factuur-koppeling voor ALLE HeyDay-omgeving goed in te richten:
---- 3. Aanmaken factuurkenmerken - controle-kenmerken
DEFINE thisfile = 'AAXX#67042_kenmerken_controle.SQL'
DEFINE dbuser = 'AAXX'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
WHENEVER SQLERROR CONTINUE;
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
SPOOL &fcltlogfile
WHENEVER SQLERROR EXIT;
SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
WHENEVER SQLERROR CONTINUE;
PROMPT &fcltcusterr
SET DEFINE OFF
------ payload begin ------
DECLARE
v_errormsg VARCHAR (200);
v_errorhint VARCHAR (200);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (150);
currentversion fac_module.fac_module_version%TYPE;
v_aanduiding VARCHAR (100);
v_count NUMBER;
-- Per klantomgeving te vullen
v_cust_code VARCHAR2 (100) := 'xxxx' ;
-- v_api_key VARCHAR2 (1000) := 'L4PbaQBA0DT6fn-yay7HePzWTn23eGZx' ; -- DBMS_RANDOM.string('a', 32)
v_api_user VARCHAR2 (1000) := 'API-user MAREON-koppeling' ;
v_inlognaam VARCHAR2 (1000) := '_API-USER MAREON-KOPPELING' ;
v_folderpad_1 VARCHAR2 (1000) := 'd:\Apps\Facilitor\AAFM_A\CUST' || CHR(92) ;
v_folderpad_2 VARCHAR2 (1000) := '\import\Mareon' ;
--- Overige
v_afdeling_key NUMBER (10);
v_functie_key NUMBER (10);
v_facilitor_key NUMBER (10);
v_prs_perslid_key NUMBER (10);
v_fac_groep_key NUMBER (10);
v_fac_functie_key NUMBER (10);
v_fac_import_app_key NUMBER (10);
v_kenmerk_key_contr NUMBER (10);
BEGIN
-- klantcode
SELECT upper(fac_version_cust)
INTO v_cust_code
FROM fac_version;
-- Toelichting - 12 klantomgeving in totaal - WEL/NIET nog meenemen in AAXX ?
---- Naar PROD totaalscript: 'AADS', 'RABO', 'AAES', 'SMKA', 'AAAR', 'EXPO', 'INLO', 'AAVG', 'NMMS', 'AAIT', 'AASA'
---- Voor AAGN: Doe ik HANDMATIG via voorkant want deze heeft al een Mareon-koppeling (voor Opdrachtverstrekking)
---- T.o.v. acceptatie-testen zijn dus AADO + AAAH komen te vervallen...
IF v_cust_code IN ('AAES', 'SMKA', 'AAAR', 'EXPO', 'INLO', 'AAVG', 'NMMS', 'AAIT', 'AASA', 'AAGN') THEN
-- 3. Aanmaken factuurkenmerk - Ter controle? + Gecontroleerd
INSERT INTO fin_kenmerk (fin_kenmerk_volgnr,
fin_kenmerk_omschrijving,
fin_kenmerk_hint,
fin_kenmerk_kenmerktype,
fin_kenmerk_type,
fin_kenmerk_verplicht,
fin_kenmerk_groep,
fin_kenmerk_toonbaar,
fin_kenmerk_systeem)
VALUES (130,
'Extra controle?',
'Ps. Vanuit Mareon-koppeling/spelregels moet deze factuur voordat hij voor de inkoopinterface wordt klaargezet eerst nog gecontroleerd worden.',
'V',
'F',
NULL,
0,
1,
0)
RETURN fin_kenmerk_key
INTO v_kenmerk_key_contr;
INSERT INTO fin_kenmerk (fin_kenmerk_volgnr,
fin_kenmerk_omschrijving,
fin_kenmerk_kenmerktype,
fin_kenmerk_type,
fin_kenmerk_verplicht,
fin_kenmerk_groep,
fin_kenmerk_toonbaar,
fin_kenmerk_systeem,
fin_kenmerk_show_expr)
VALUES (131,
'Gecontroleerd',
'V',
'F',
NULL,
0,
1,
0,
'##SHOW## CASE WHEN :flex' || v_kenmerk_key_contr || '=1 THEN 1 ELSE 0 END');
END IF;
END;
/
------ payload end ------
SET DEFINE OFF
BEGIN adm.systrackscriptId ('$Id$', 1); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile