AAIT#78367 -- toevoegen kenmerkveld aan mareon-factuurverwerking om bron uit MARX in op te nemen (xml, pdf..)

svn path=/Customer/; revision=61799
2023-09-14 10:22:50 +00:00
parent 04e716f2ed
commit 93d85c8414
1 changed files with 124 additions and 0 deletions
--- a/onces/AA/AAXX/AAXX#78367_kenmerk_bron_mareon.sql
+++ b/onces/AA/AAXX/AAXX#78367_kenmerk_bron_mareon.sql
@@ -0,0 +1,124 @@
+--
+-- $Id$
+--
+-- ONCESCRIPT om binnen de klantomgevingen die mareon-factuur-scanning gebruiken een kenmerkveld toe te voegen waarmee de bron wordt weergegeven uit MARX (xml, pdf..)
+
+DEFINE thisfile = 'AAXX#78367_kenmerk_bron_mareon.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;
+    
+    -- Klantomgevingen met fac_api_name = 'MARX_FIN_FACTUUR' zijn: 'AAAR', 'AADS', 'AAES', 'AAGN', 'AAIT', 'AASA', 'EXPO', 'INLO', 'NMMS', 'RABO', 'REME', 'SMKA' 
+   
+    IF v_cust_code IN ('AAAR', 'AADS', 'AAES', 'AAGN', 'AAIT', 'AASA', 'EXPO', 'INLO', 'NMMS', 'RABO', 'REME', 'SMKA') THEN
+    
+
+     -- Aanmaken factuurkenmerk - Factuurbron (Mareon)  
+     INSERT INTO fin_kenmerk (fin_kenmerk_volgnr,
+                         fin_kenmerk_omschrijving,
+                         fin_kenmerk_hint,
+                         fin_kenmerk_dimensie,
+                         fin_kenmerk_kenmerktype,
+                         fin_kenmerk_type,
+                         fin_kenmerk_verplicht,
+                         fin_kenmerk_groep,
+                         fin_kenmerk_toonbaar,
+                         fin_kenmerk_systeem,
+                         fin_kenmerk_inlijst,
+                         fin_kenmerk_lengte,
+                         fin_kenmerk_dec,
+                         fin_kenmerk_nmin,
+                         fin_kenmerk_nmax,
+                         fac_kenmerkdomein_key,
+                         fin_kenmerk_default,
+                         fin_kenmerk_show_expr,
+                         fin_kenmerk_regexp,
+                         fin_kenmerk_code,
+                         fac_functie_key)
+     VALUES (105,
+             'Factuurbron (Mareon)',
+             'Mogelijke waarden:' || CHR(10) || '- Mareon Factuurscanning (PDF)' || CHR(10) || '- Mareon E-invoicing (XML)' || CHR(10) || '- Mareon Portaal of Mareon Premium (vanuit Marion opdracht-koppeling)',
+             NULL,
+             'C',
+             'F',
+             NULL,
+             0,
+             1,
+             0,
+             0,
+             50,
+             NULL,
+             NULL,
+             NULL,
+             NULL,
+             NULL,
+             NULL,
+             NULL,
+             'MAREON_BRON',
+             NULL) ;
+
+
+    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