UWVA#28209 lcl miste bij aanmaken (abonnement vanuit) contract

svn path=/Database/branches/DB19/; revision=20014

FAC/FAC_INI.SRC

@@ -2404,6 +2404,26 @@ INSERT INTO fac_usrrap
                WHERE fac_functie_code = 'WEB_PRSSYS'),
              0
             );
+
+INSERT INTO fac_usrrap
+            (fac_usrrap_omschrijving, fac_usrrap_view_name,
+             fac_usrrap_in_huidige_locatie,
+             fac_usrrap_template, fac_usrrap_macro,
+             fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
+             fac_usrrap_functie,
+             fac_usrrap_info,
+             fac_functie_key, fac_usrrap_autorefresh
+            )
+     VALUES ('TRANSPORT: Flexkenmerken Contracten', 'fac_v_exp_flex_cnt',
+             NULL,
+             NULL, NULL,
+             0, 0,
+             0,
+             'Exporteren van flexkenmerken voor CNT (per contractsoort)',
+             (SELECT fac_functie_key FROM fac_functie
+               WHERE fac_functie_code = 'WEB_PRSSYS'),
+             0
+            );
 COMMIT;
 
 INSERT INTO fac_qlikview

FAC/FAC_LCLASP.SRC

@@ -1365,8 +1365,8 @@ FACXSL_LCL('lcl_No', 'Nee', 'No', 'Nein', 'Non')
 FACXSL_LCL('lcl_unknown', 'Onbekend', 'Unknown', 'Unbekannt', 'Inconnu')
 FACXSL_LCL('lcl_check_1', 'Ja', 'Yes', 'Ja', 'Oui')
 FACXSL_LCL('lcl_check_0', 'Nee', 'No', 'Nein', 'Non')
-//FACXSL_LCL('lcl_check_xml_1', 'Ja', 'Yes', 'Ja', 'Oui')
-//FACXSL_LCL('lcl_check_xml_0', 'Nee', 'No', 'Nein', 'Non')
+FACXSL_LCL('lcl_check_xml_1', 'Ja', 'Yes', 'Ja', 'Oui')
+FACXSL_LCL('lcl_check_xml_0', 'Nee', 'No', 'Nein', 'Non')
 FACXSL_LCL('lcl_empty', 'Leeg', 'Empty', 'Leer', 'Vide')
 FACXSL_LCL('lcl_bes_frame_algemeen', 'Bestellinggegevens', 'Purchase order details', 'Bestelldaten', 'Donn<6E>es de la commande')
 FACXSL_LCL('lcl_bes_frame_algemeen_actie', 'Bestellinggegevens voor geplande actie', 'Purchase order details for planned action', 'Bestelldaten f<>r geplante Aktion', 'Donn<6E>es de la commande pour l''action prevue')
@@ -1461,6 +1461,7 @@ FACXSL_LCL('lcl_bes_Price', 'Prijs', 'Price', 'Preis', 'Prix')
 FACXSL_LCL('lcl_bes_subtotal', 'Subtotaal', 'Subtotal', 'Zwischensumme', 'Sous-total')
 FACXSL_LCL('lcl_bes_aantontv_mess', 'Er is/zijn {0} artikel(en) ontvangen. Het aantal kan niet lager zijn.', '{0} Article(s) has/have been received. The amount cannot be lower', '{0} Artikel(en) ist/sind erhalten. Die Menge kan nicht weniger sein.', 'Le nombre ne peut <20>tre inf<6E>rieur')
 FACXSL_LCL('lcl_bes_verhogen_mess', 'Aantal mag niet verhoogd worden', 'Amount may not be increased', 'Anzahl darf nicht erh<72>ht werden', 'Nombre ne peut <20>tre augment<6E>')
+FACXSL_LCL('lcl_bes_cnt_insert', 'Contract aangemaakt door bestelling ', 'Contract created by purchase order ', 'Vertr<74>ge erstellt durch Bestellung ', 'Contrat cr<63><72>s par Commande ')
 END_FACXSL_LCL()
 
 START_FACXSL_LCL('ASP', NULL)

FAC/FAC_SET.SRC

@@ -277,6 +277,7 @@ DEFINE_SETTING('FAC', 0003, 'menu_photo_size'                       , 'string'
 DEFINE_SETTING('FAC', 0003, 'fac_like_bad'                          , 'number'                      , '3'                           , 'Rating for bad service')
 DEFINE_SETTING('FAC', 0003, 'fac_like_normal'                       , 'number'                      , '6'                           , 'Rating for normal service')
 DEFINE_SETTING('FAC', 0003, 'fac_like_good'                         , 'number'                      , '9'                           , 'Rating for good service')
+DEFINE_SETTING('FAC', 0003, 'facilities_flike_past'                 , 'number'                      , '7'                           , 'Number of days in the past to show (my) facilities for rating')
 DEFINE_SETTING('FIN', 0003, 'fin_btw_default'                       , 'number'                      , '3'                           , 'Standaard btw tarief (1=NL|Nul, 2=NL|Laag, 3=NL|Hoog, enz.)')
 DEFINE_SETTING('FIN', 0001, 'fin_defaultboekmaand'                  , 'number'                      , '1'                           , 'How to determine default "boekmaand" for entered invoice: 1=sysdate, 2=orderdate')
 DEFINE_SETTING('FIN', 0003, 'fin_new_after_save'                    , 'number'                      , '0'                           , 'Na het opslaan terugkomen met de factuur in de showmode of met nieuw leeg invulformulier (0=showmode || 1=nieuw formulier)')

FAC/FAC_VIE.SRC

@@ -2047,6 +2047,44 @@ AS
                       AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
                       AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key);
 
+CREATE_VIEW(fac_v_exp_flex_cnt, 0)
+AS
+   SELECT   fac_kenmerkdomein_omschrijving,
+            fac_kenmerkdomein_objectnaam,
+            fac_kenmerkdomein_kolomnaam,
+            fac_kenmerkdomein_kolomtxt,
+            fac_usrtab_naam,
+            kms.cnt_srtkenmerk_omschrijving srtkenmerk_omschrijving,
+            kms.cnt_srtkenmerk_kenmerktype srtkenmerk_kenmerktype,
+            kms.cnt_srtkenmerk_systeem srtkenmerk_systeem,
+            kms.cnt_srtkenmerk_lengte srtkenmerk_lengte,
+            kms.cnt_srtkenmerk_dec srtkenmerk_dec,
+            kms.cnt_srtkenmerk_nmin srtkenmerk_nmin,
+            kms.cnt_srtkenmerk_nmax srtkenmerk_nmax,
+            kms.cnt_srtkenmerk_dimensie srtkenmerk_dimensie,
+            NULL kenmerk_type,
+            km.cnt_kenmerk_niveau kenmerk_niveau,
+            km.cnt_kenmerk_verplicht kenmerk_verplicht,
+            km.cnt_kenmerk_volgnummer kenmerk_volgnummer,
+            km.cnt_kenmerk_default kenmerk_default,
+            km.cnt_kenmerk_toonbaar kenmerk_toonbaar,
+            km.cnt_kenmerk_uniek kenmerk_uniek,
+            km.cnt_kenmerk_hint kenmerk_hint,
+            km.cnt_kenmerk_regexp kenmerk_regexp,
+            TO_CHAR (km.cnt_kenmerk_verwijder, 'YYYY-MM-DD HH24:MI:SS')
+               kenmerk_verwijder,
+            cd.ins_discipline_omschrijving fclt_f_contractsoort
+     FROM   cnt_kenmerk km,
+            cnt_srtkenmerk kms,
+            fac_kenmerkdomein kmd,
+            fac_usrtab fut,
+            cnt_discipline cd
+    WHERE       km.cnt_srtkenmerk_key = kms.cnt_srtkenmerk_key
+            AND kms.fac_kenmerkdomein_key = kmd.fac_kenmerkdomein_key(+)
+            AND kmd.fac_usrtab_key = fut.fac_usrtab_key(+)
+            AND km.cnt_srtcontract_key = cd.ins_discipline_key
+            AND cd.ins_discipline_verwijder IS NULL;
+
 -- Rapporten worden niet standaard aangemaakt bij gebruikerrs
 CREATE_VIEW(fac_v_rap_lcl_lang, 0) AS
   SELECT nl.fac_locale_xsl_label FCLT_F_LABEL,

FCLT.NMK

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

FIN/FIN_PAC.SRC

@@ -291,10 +291,10 @@ AS
       factuurbedrag NUMBER (12, 2);
       bestelbedrag NUMBER (12, 2);                                        -- van de opdracht waar deze factuur over gaat
       totaalgefactureerd NUMBER (12, 2);               -- met deze factuur erbij eerder gefactureerd van dezelfde B(R)OC
+      totaalgefactureerdbtw NUMBER (12, 2);
       opdrstatus mld_opdr.mld_statusopdr_key%TYPE;
       retval NUMBER := 0;
       inclbtw NUMBER := 0;
-      lperc fin_btwtabelwaarde.fin_btwtabelwaarde_perc%TYPE;
    -- Bepaal te tolerantie van de vakgroep
    -- waarschijnlijk in procenten of zo?
    -- of geven we de factuurwaarde mee en leveren we true/false op?
@@ -372,86 +372,46 @@ AS
             -- Voor bestellingen nemen we de INKOOPPRIJS (het is immers een factuur die wij ontvangen)
             -- Maar als die niet gevuld is (ook bv bij punchout), dan de enige andere prijs die we weten
             -- de verkoopprijs
-            -- Als pbestelbedrag excl. btw is dan omrekenen naar inct. BTW.
-            --   doen we namelijk bij de factuur verderop ook
-            -- BTW tarief kan per srtdeel verschillend zijn.
             CASE
                WHEN factmatchmode = 2
                THEN
-                  SELECT SUM(boi.bes_bestelopdr_item_aantal * COALESCE (boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)
-                             * CASE
-                                  WHEN inclbtw = 1 THEN 1
-                                  ELSE 1 + bsd.bes_srtdeel_btw / 100
-                               END),
-                         MAX(COALESCE (
-                                bo.bes_bestelopdr_korting
-                                * CASE
-                                     WHEN inclbtw = 1 THEN 1
-                                     ELSE 1 + bsd.bes_srtdeel_btw / 100
-                                  END,
-                                0)),
-                         MAX(COALESCE (
-                                bo.bes_bestelopdr_levkosten
-                                * CASE
-                                     WHEN inclbtw = 1 THEN 1
-                                     ELSE 1 + bsd.bes_srtdeel_btw / 100
-                                  END,
-                                0))
+                  SELECT SUM(boi.bes_bestelopdr_item_aantal * COALESCE (boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)),
+                         MAX(COALESCE (bo.bes_bestelopdr_korting, 0)),
+                         MAX(COALESCE (bo.bes_bestelopdr_levkosten, 0))
                     INTO bestelbedrag, korting, levkosten
-                    FROM bes_bestelopdr_item boi,
-                         bes_bestelling_item bbi,
-                         bes_bestelopdr bo,
-                         bes_srtdeel bsd
-                   WHERE boi.bes_bestelopdr_item_key =
-                            bbi.bes_bestelopdr_item_key
+                    FROM bes_bestelopdr_item boi, bes_bestelling_item bbi, bes_bestelopdr bo
+                   WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
                          AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
-                         AND bbi.bes_srtdeel_key = bsd.bes_srtdeel_key
                          AND bo.bes_bestelopdr_status NOT IN (1, 3, 8) -- als die maar niet afgewezen/geannuleerd is
                          AND boi.bes_bestelopdr_key = b_key;
                WHEN factmatchmode = 3
                THEN
-                  SELECT SUM(boi.bes_bestelopdr_item_aantal * COALESCE (boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)
-                             * CASE
-                                  WHEN inclbtw = 1 THEN 1
-                                  ELSE 1 + bsd.bes_srtdeel_btw / 100
-                               END),
-                         MAX(COALESCE (
-                                bo.bes_bestelopdr_korting
-                                * CASE
-                                     WHEN inclbtw = 1 THEN 1
-                                     ELSE 1 + bsd.bes_srtdeel_btw / 100
-                                  END,
-                                0)),
-                         MAX(COALESCE (
-                                bo.bes_bestelopdr_levkosten
-                                * CASE
-                                     WHEN inclbtw = 1 THEN 1
-                                     ELSE 1 + bsd.bes_srtdeel_btw / 100
-                                  END,
-                                0))
+                  SELECT SUM(boi.bes_bestelopdr_item_aantal * COALESCE (boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)),
+                         MAX(COALESCE (bo.bes_bestelopdr_korting, 0)),
+                         MAX(COALESCE (bo.bes_bestelopdr_levkosten, 0))
                     INTO bestelbedrag, korting, levkosten
-                    FROM bes_bestelopdr_item boi,
-                         bes_bestelling_item bbi,
-                         bes_bestelopdr bo,
-                         bes_srtdeel bsd
-                   WHERE boi.bes_bestelopdr_item_key =
-                            bbi.bes_bestelopdr_item_key
+                    FROM bes_bestelopdr_item boi, bes_bestelling_item bbi, bes_bestelopdr bo
+                   WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
                          AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
-                         AND bbi.bes_srtdeel_key = bsd.bes_srtdeel_key
                          AND boi.bes_bestelopdr_item_status IN (6, 7) -- alleen de geleverde regels meetellen
                          AND boi.bes_bestelopdr_key = b_key;
             END CASE;
 
             bestelbedrag := bestelbedrag - korting + levkosten;                                           -- Bedragen zijn excl. BTW?
 
-            SELECT   SUM (fin_factuur_totaal + fin_factuur_totaal_btw) -- Reken incl. BTW
-              INTO   totaalgefactureerd
+            SELECT   SUM (fin_factuur_totaal), SUM(fin_factuur_totaal_btw)
+              INTO   totaalgefactureerd, totaalgefactureerdbtw
               FROM   fin_factuur
              WHERE   bes_bestelopdr_key = b_key
                AND   fin_factuur_statuses_key <> 1
                AND   fin_factuur_verwijder IS NULL
                AND   fin_factuur_datum <= factuurdatum;
 
+            IF inclbtw = 1 -- Artikelen zijn al inclusief, dan ook maar factuur inclusief matchen
+            THEN
+                totaalgefactureerd := totaalgefactureerd + totaalgefactureerdbtw;
+            END IF;
+
             IF fin.tolerantiematch (discipline, ftype, totaalgefactureerd, bestelbedrag) = 1
             THEN
                retval := 1;

MLD/MLD_PAC.SRC

@@ -1023,7 +1023,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
        THEN
            v_actual_uitvoertijd := enddate - startdate;
        END IF;
-       IF v_uitvoertijdtype = 'UREN'
+       -- Indien 24/7 dan wordt de tijd al in hele dagen bepaald, anders nog maar even omrekenen.
+       IF v_uitvoertijdtype = 'UREN' AND v_mld_stdmelding_regime <> 3
        THEN
             v_actual_uitvoertijd := v_actual_uitvoertijd / 24;
        END IF;

_UP/DB18to19.src

@@ -67,8 +67,7 @@ CREATE_TABLE(mld_afmeldtekst, 0)
 CREATE SEQUENCE mld_s_mld_afmeldtekst_key      MINVALUE 1;
 
 DEF_MENUITEM(2, 'lcl_menu_mld_afmeldteksten'    , '', 'MLD', 'appl/facmgtVB/mld_afmeldtekstgrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1');
-MENU_INS_AFTER('lcl_menu_mld_afmeldteksten', 'lcl_menu_mld_dienst_niveaus', 2) ;
-/
+MENU_INS_AFTER('lcl_menu_mld_afmeldteksten', 'lcl_menu_mld_dienst_niveaus', 2);
 
 /////////////////////////////////////////////////////////////////////////////////////////// FSN#26580
 ALTER TABLE mld_stdmelding ADD mld_stdmelding_kanverwijzen NUMBER(4) DEFAULT 0;
@@ -294,6 +293,26 @@ ALTER TABLE fac_imp_cnt ADD flex23 VARCHAR2(255);
 ALTER TABLE fac_imp_cnt ADD flex24 VARCHAR2(255);
 ALTER TABLE fac_imp_cnt ADD flex25 VARCHAR2(255);
 
+CREATE VIEW fac_v_exp_flex_cnt AS SELECT 'dummy' XX FROM DUAL;
+INSERT INTO fac_usrrap
+            (fac_usrrap_omschrijving, fac_usrrap_view_name,
+             fac_usrrap_in_huidige_locatie,
+             fac_usrrap_template, fac_usrrap_macro,
+             fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
+             fac_usrrap_functie,
+             fac_usrrap_info,
+             fac_functie_key, fac_usrrap_autorefresh
+            )
+     VALUES ('TRANSPORT: Flexkenmerken Contracten', 'fac_v_exp_flex_cnt',
+             NULL,
+             NULL, NULL,
+             0, 0,
+             0,
+             'Exporteren van flexkenmerken voor CNT (per contractsoort)',
+             (SELECT fac_functie_key FROM fac_functie
+               WHERE fac_functie_code = 'WEB_PRSSYS'),
+             0
+            );
 /////////////////////////////////////////////////////////////////////////////////////////// AALB#27395
 ALTER TABLE fac_imp_flex ADD cnt_discipline VARCHAR2(255);