UWVA#35268 backport (was al in trunk doorgevoerd, moet eerder geleverd worden)

svn path=/Database/branches/DB27/; revision=28360

FAC/FAC_PAC.SRC

@@ -1034,6 +1034,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
    -- 'Uiteraard' is deze functie gebaseerd op imp_getfield!
    -- Verschil is dat p_parseline hier alleen IN-parameter is (en niet IN-OUT), en natuurlijk de extra parameter p_nr.
    -- En de gelezen waarde wordt itt imp_getfield gewoon getrimd (weg met die overbodige spaties die alleen voor de rommel zorgen): VOD D'R MET!
+   -- Gebaseerd op het gebruik in de importfuncties is de lengte van een line 4000 posities (chars of bytes, daar wil ik van af zijn)
    PROCEDURE imp_getfield_nr (
        p_parseline        IN       VARCHAR2,
        p_fielddelimitor   IN       VARCHAR2,
@@ -1041,9 +1042,9 @@ CREATE OR REPLACE PACKAGE BODY fac AS
        p_field            OUT      VARCHAR2
    )
    AS
-        l_parseline VARCHAR2(1024);
+        l_parseline VARCHAR2(4000);
         l_nr        NUMBER(10);
-        l_field     VARCHAR2(1024);
+        l_field     VARCHAR2(4000);
    BEGIN
         l_parseline :=p_parseline;
         l_nr        :=p_nr;

FAC/FAC_PACF.SRC

@@ -13475,7 +13475,7 @@ BEGIN
                    VALUES   (   v_rec.fac_import_key,
                                 v_count,
                                 UPPER (SUBSTR (v_leveranciernr, 1, 20)),
-                                SUBSTR (REPLACE(v_ordernr,' ',''), 1, 15),
+                                SUBSTR (REPLACE(v_ordernr,' ',''), 1, 31),
                                 SUBSTR (v_factuurnr, 1, 30),
                                 SUBSTR (v_factuurdatum, 1, 10),
                                 SUBSTR (v_aantal, 1, 10),

FAC/FAC_TAB.SRC

@@ -1392,7 +1392,7 @@ CREATE_TABLE(fac_code2label, 0)
 CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
 (
    leveranciernr        VARCHAR2 (20),      -- prs_bedrijf.overeenkomstnr
-   ordernr              VARCHAR2 (15),      -- de code van de BROC
+   ordernr              VARCHAR2 (31),      -- de code van de BROC (optionally even prefixed although unsupported with standard import)
    factuurnr            VARCHAR2 (30),
    factuurdatum         VARCHAR2 (10),
    aantal               VARCHAR2 (10),      -- aantal geleverd (info)

FCLT.NMK

@@ -62,7 +62,7 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 CURRENTVERSION=26
 NEXTVERSION=27
-FILEVERSION=
+FILEVERSION=D
 NEXTCAREVERSION=29
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)

FIN/FIN_PAC.SRC

@@ -670,7 +670,7 @@ AS
          SELECT   DISTINCT COALESCE (btw.fin_btwtabel_key, fin.getdefaultbtwtabelkey ()) btwtabel_key
            FROM   cnt_contract c, prs_bedrijf bd, fin_btwtabel btw
           WHERE       btw.fin_btwtabel_key(+) = bd.fin_btwtabel_key
-                  AND bd.prs_bedrijf_key = c.cnt_prs_bedrijf_key
+                  AND bd.prs_bedrijf_key(+) = c.cnt_prs_bedrijf_key
                   AND c.cnt_contract_key = p_ckey;
 
       CURSOR mld_btwtabel

_UP/DB27TO27a.sql

@@ -0,0 +1,20 @@
+--
+-- FACILITOR Upgade script for DB27to27a
+-- $Id$
+--
+column fcltlogfile new_value fcltlogfile NOPRINT;
+select 'DB27TO27a' || '_' || UPPER(USER || '_' || sys_context('USERENV', 'SERVICE_NAME') || '_' || sys_context('USERENV', 'SERVER_HOST')) || '_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
+spool &fcltlogfile
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#35360
+ALTER TABLE fac_imp_factuur MODIFY ordernr VARCHAR2 (31);
+
+BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
+/
+
+@@RECRE27B.sql
+
+BEGIN adm.systrackscriptId('$Id$', 1); END;
+/
+
+SPOOL OFF