verkeerde node

svn path=/Database/branches/DB23/; revision=23603

CAD/CAD_VIE.SRC

@@ -779,7 +779,7 @@ AS
    SELECT r.alg_ruimte_key,
           DECODE (rr.res_ruimte_key,  -- is dit een vergaderruimte?
                   NULL, '*' || sr.alg_srtruimte_omschrijving,
-                  DECODE (r2a.res_reservering_key, NULL, 0, 2))        -- 0 uit / 1 noshow / 2 aan
+                  DECODE (r2a.res_reservering_key, NULL, 'Uit', 'Aan'))        -- 0 uit / 1 noshow / 2 aan
      FROM alg_v_aanwezigruimte r,
           alg_srtruimte sr,
           (SELECT rr2a.res_reservering_key, rr2a.alg_ruimte_key

FAC/FAC_LCLASP.SRC

@@ -845,7 +845,7 @@ FACXSL_LCL('lcl_res_del_txt_total', 'Verwijder de gehele reservering', 'Delete t
 FACXSL_LCL('lcl_res_kostendoorbelasten', 'Wel kosten doorbelasten', 'Force charging costs', 'Wohl Kosten durchrechnen', 'Imputer co<63>ts')
 FACXSL_LCL('lcl_res_kostendoorbelast', 'Bij verwijderen worden {0}% van de kosten doorbelast', 'When deleting {0}% of the costs will be charged', 'Beim Entfernen werden {0}% der Kosten durchgerechnet', 'En supprimant 10% des co<63>ts sont imput<75>')
 FACXSL_LCL('lcl_res_ruimtekorting', 'Korting', 'Discount', 'Rabatt', 'R<>duction')
-FACXSL_LCL('lcl_res_ruimtetotaal', 'Afgesproken totaal', 'Agreed total', 'Abgesprochen Summe', 'Convenu Total')
+FACXSL_LCL('lcl_res_ruimtetotaal', 'Afgesproken ruimteprijs', 'Agreed roomprice', 'Abgesprochen Raumpreis', 'Prix Convenu Espace')
 FACXSL_LCL('lcl_res_ruimte_kosten', 'Kosten ruimte', 'Costs room', 'Kosten Raum', 'Co<43>ts d''espace')
 FACXSL_LCL('lcl_res_voorzieningen_kosten', 'Kosten voorzieningen', 'Costs equipment', 'Kosten Anlagen', 'Co<43>ts d''equipement')
 FACXSL_LCL('lcl_res_kostendoorberekend', 'Doorberekende kosten', 'Charged costs', 'Durchberechnete Kosten', 'Co<43>ts imput<75>')
@@ -3123,7 +3123,8 @@ FACXSL_LCL('lcl_mld_opdr_aantal', 'Aantal', 'Number', 'Anzahl', 'Nombre')
 FACXSL_LCL('lcl_mld_opdr_prijs', 'Prijs', 'Price', 'Preis', 'Prix')
 FACXSL_LCL('lcl_mld_opdr_totaal', 'Totaalprijs', 'Total', 'Verrechnungssumme', 'Prix total')
 FACXSL_LCL('lcl_mld_opdr_offerte_vereist', 'Voor uitvoeringsopdrachten boven de {0} Euro is een offerte vereist! Doorgaan?', 'Orders above {0) Euro require an offer! Continue?', 'Vor Ausf<73>hrungsauftragen <20>ber die {0} Euro ein Angebot ist erforderlich! Weitergehen?', 'Pour les contrats de performance ci-dessus l''euro {0} est une citation n<>cessaire! Continuer?')
-FACXSL_LCL('lcl_mld_opdr_kosten_verplicht', 'Er moeten eerst opdrachtkosten worden ingvuld voordat afgemeld kan worden.', 'Order cost should be filled in first before order can be closed.', 'Der Auftrag sollte erst eingegeben sein bevor abgemeldet werden kann.', 'Entrez premi<6D>re co<63>ts d''ordre co<63>ts avant termin<69> l''ordre.')
+FACXSL_LCL('lcl_mld_opdr_kosten_verpl_afm', 'Er moeten eerst opdrachtkosten worden ingvuld voordat afgemeld kan worden.', 'Order cost should be filled in first before order can be closed.', 'Der Auftrag sollte erst eingegeben sein bevor abgemeldet werden kann.', 'Entrez premi<6D>re co<63>ts d''ordre co<63>ts avant termin<69> l''ordre.')
+FACXSL_LCL('lcl_mld_opdr_kosten_verpl_afr', 'Er moeten eerst opdrachtkosten worden ingvuld voordat kosten klaar gemeld kan worden.', 'Order cost should be filled in first before order is ready for charging.', 'Der Auftrag sollte erst eingegeben sein bevor die Kosten fertig gemeld werden kann.', 'Entrez premi<6D>re co<63>ts d''ordre co<63>ts avant termin<69> l''ordre.')
 FACXSL_LCL('lcl_mld_vereisdienst', 'Dienst vereist', 'Service required', 'Dienst erforderlich', 'Service requis')
 FACXSL_LCL('lcl_mld_opdrtypevast', 'Verplicht opdrachttype', 'Mandatory order type', 'Zwingend Auftragtyp', 'Type d''ordre obligatoire')
 FACXSL_LCL('lcl_mld_std_typeopdr', 'Standaard opdrachttype', 'Default order type', 'Vorgegeben Auftragtyp', 'Type d''ordre standard')

FAC/FAC_PAC.SRC

@@ -4400,7 +4400,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                   WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
                     AND di.ins_deel_key = xcp.ins_deel_key(+)
                     AND di.ins_deel_key = p_insdeel
-                    AND di.ins_srtcontrole_key = p_srtcontrole);
+                    AND di.ins_srtcontrole_key = p_srtcontrole
+                    AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD')));
 
         RETURN inspdate;
     END;
@@ -4475,7 +4476,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                   WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
                     AND di.ins_deel_key = xcp.ins_deel_key(+)
                     AND di.ins_deel_key = p_insdeel
-                    AND di.ins_srtcontrole_key = p_srtcontrole);
+                    AND di.ins_srtcontrole_key = p_srtcontrole
+                    AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD')));
 
         RETURN lsteps;
     END;

FAC/FAC_PACX.SRC

@@ -6358,7 +6358,6 @@ AS
       v_van                    res_rsv_ruimte.res_rsv_ruimte_van%TYPE;
       v_tot                    res_rsv_ruimte.res_rsv_ruimte_tot%TYPE;
       v_bezoekers              res_rsv_ruimte.res_rsv_ruimte_bezoekers%TYPE;
-      v_prijs                  res_rsv_ruimte.res_rsv_ruimte_prijs%TYPE;
       v_ruimteprijs            res_rsv_ruimte.res_rsv_ruimte_prijs%TYPE;
       v_korting                res_rsv_ruimte.res_rsv_ruimte_korting%TYPE;
       v_totaal                 res_rsv_ruimte.res_rsv_ruimte_totaal%TYPE;
@@ -6498,8 +6497,8 @@ AS
       IF NOT p_concise
       THEN
          createxmltagvalue ('bezoekers', v_bezoekers);
-         createxmltagvalue ('ruimteprijs', v_prijs);
-         createxmltagvalue ('prijs', v_prijs - COALESCE(v_korting, 0)); -- korting al verwerkt
+         createxmltagvalue ('ruimteprijs', v_ruimteprijs);
+         createxmltagvalue ('prijs', v_ruimteprijs - COALESCE(v_korting, 0)); -- korting al verwerkt
          createxmltagvalue ('korting', v_korting);
          createxmltagvalue ('afgesprokentotaal', v_totaal);
          createxmltagvalue ('status_bokey', v_status_bo_key);

FAC/FAC_SET.SRC

@@ -631,7 +631,7 @@ DEFINE_SETTING('PUO', 0001, 'puo_smtpserverport'         , 'number'  , '25'
 DEFINE_SETTING('PUO', 0001, 'puo_smtpauthenticate'       , 'number'  , '0'                                         , 'Authentication when sendusing cdoSendUsingPort 0=cdoAnonymous, 1=cdoBasic, 2=cdoNTLM')
 DEFINE_SETTING('PUO', 0001, 'puo_sendusername'           , 'string'  , ''                                          , 'Username when puo_smtpauthenticate=cdoBasic')
 DEFINE_SETTING('PUO', 0001, 'puo_sendpassword'           , 'string'  , ''                                          , 'Password when puo_smtpauthenticate=cdoBasic')
-DEFINE_SETTING('PUO', 0001, 'puo_flags'                  , 'number'  , '255'                                       , '1=send notifications, 2=send orders, 4=send cust notifications, 7=send all')
+DEFINE_SETTING('PUO', 0001, 'puo_flags'                  , 'number'  , '255'                                       , '+1=send notifications, +2=send orders, +4=all orders Immediate')
 DEFINE_SETTING('PUO', 0001, 'puo_order_flexfiles'        , 'number'  , '0'                                         , 'Include flexfiles with sent orders')
 DEFINE_SETTING('PUO', 0001, 'bdradrfiles_path'           , 'string'  , NULL                                        , 'Technische adressen bijlagen folder')
 DEFINE_SETTING('PUO', 0001, 'puo_lcl_friendly_mailto'    , 'string'  , 'Opdracht per e-mail gestuurd naar {0}'     , 'Friendly text for mail tracking')

MLD/MLD_PAC.SRC

@@ -36,7 +36,9 @@ CREATE OR REPLACE PACKAGE mld AS
                                       stdm_key    IN NUMBER,
                                       prio        IN NUMBER,
                                       alg_key     IN NUMBER,
-                                      ins_key     IN NUMBER) RETURN MLD_T_UITVOERTIJD;
+                                      ins_key     IN NUMBER,
+                                      eenheid     IN VARCHAR2 DEFAULT NULL
+                                      ) RETURN MLD_T_UITVOERTIJD;
   FUNCTION getactualuitvoer          (p_melding_key IN NUMBER) RETURN MLD_T_UITVOERTIJD;
   FUNCTION getstduitvoer             (stdm_key    IN NUMBER,
                                       prio        IN NUMBER,
@@ -1071,7 +1073,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                   m.mld_stdmelding_key,
                                   m.mld_melding_spoed,
                                   m.mld_alg_onroerendgoed_keys,
-                                  v_ins_key_min_uitvoertijd
+                                  v_ins_key_min_uitvoertijd,
+                                  m.mld_melding_t_uitvoertijd.eenheid
                             )
           INTO v_actual_uitvoertijd_object
           FROM mld_melding m
@@ -1084,7 +1087,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                stdm_key    IN NUMBER,
                                prio        IN NUMBER,
                                alg_key     IN NUMBER, -- Altijd gebouw of hoger, locatie niet ondersteund
-                               ins_key     IN NUMBER  -- Object met de laagste uitvoertijd
+                               ins_key     IN NUMBER,  -- Object met de laagste uitvoertijd
+                               eenheid     IN VARCHAR2 DEFAULT NULL
                               )
         RETURN MLD_T_UITVOERTIJD
     AS
@@ -1098,7 +1102,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
        getSLAparams(stdm_key, prio, alg_key, ins_key,
                     v_mld_stdmelding_regime, v_actual_uitvoertijd_object, v_beginuur, v_einduur, v_werkdagen);
 
-       IF v_actual_uitvoertijd_object.eenheid = 'D'
+       IF COALESCE(eenheid, v_actual_uitvoertijd_object.eenheid) = 'D'
        THEN
            v_uitvoertijdtype := 'DAGEN';
        ELSE

MLD/MLD_TYP.SRC

@@ -6,6 +6,6 @@
 /* uitvoertijd, duur en eenheid in uren (U) of dagen (D) */
 CREATE_TYPE (MLD_T_UITVOERTIJD)
 AS
-   OBJECT (tijdsduur NUMBER(8,5), eenheid VARCHAR2(1));     
+   OBJECT (tijdsduur NUMBER(12,5), eenheid VARCHAR2(1));
 /
 #endif // MLD

RES/RES_PAC.SRC

@@ -28,7 +28,7 @@ CREATE OR REPLACE PACKAGE res AS
    FUNCTION res_deel_in_scope (pres_deel_key IN NUMBER, palg_ruimte_key IN NUMBER)  RETURN BOOLEAN;
    FUNCTION res_artikel_in_scope (pres_artikel_key IN NUMBER, palg_ruimte_key IN NUMBER)  RETURN BOOLEAN;
    FUNCTION getalg_ruimte_key (pres_rsv_ruimte_key IN NUMBER)  RETURN NUMBER;
-   FUNCTION getruimteprijs (pres_rsv_ruimte_key IN NUMBER)  RETURN NUMBER;
+   FUNCTION getruimteprijs (pres_rsv_ruimte_key IN NUMBER, ignoretotaal IN NUMBER DEFAULT NULL)  RETURN NUMBER;
    FUNCTION getdeelprijs (pres_rsv_deel_key IN NUMBER)  RETURN NUMBER;
    FUNCTION getartikelprijs (pres_rsv_artikel_key IN NUMBER)  RETURN NUMBER;
    FUNCTION getdeelresprijs (pres_rsv_ruimte_key IN NUMBER)  RETURN NUMBER;
@@ -1018,7 +1018,7 @@ AS
 
        RETURN alg_ruimte_key;
     END;
-   FUNCTION getruimteprijs (pres_rsv_ruimte_key IN NUMBER)
+   FUNCTION getruimteprijs (pres_rsv_ruimte_key IN NUMBER, ignoretotaal IN NUMBER DEFAULT NULL)
       RETURN NUMBER IS
    room_price res_ruimte.res_ruimte_prijs%TYPE;
    room_price_fixed res_ruimte.res_ruimte_prijs_vast%TYPE;
@@ -1027,6 +1027,7 @@ AS
    price_evening res_ruimte.res_ruimte_prijs_avond%TYPE;
    price_allday res_ruimte.res_ruimte_prijs_dag%TYPE;
    room_price_total res_rsv_ruimte.res_rsv_ruimte_prijs%TYPE;
+   afgesprokentotaal res_rsv_ruimte.res_rsv_ruimte_totaal%TYPE;
    prs_kostenplaats_extern prs_kostenplaats.prs_kostenplaats_extern%TYPE;
    ruimte_prijsfactor_intern res_ruimte.res_ruimte_prijsfactor_intern%TYPE;
 
@@ -1055,9 +1056,11 @@ AS
    BEGIN
       -- Is de reservering verwijderd
       SELECT rrr.res_rsv_ruimte_verwijder,
-             rrr.res_status_fo_key
+             rrr.res_status_fo_key,
+             res_rsv_ruimte_totaal
         INTO verwijderdatum,
-             statusfokey
+             statusfokey,
+             afgesprokentotaal
         FROM res_rsv_ruimte rrr
        WHERE rrr.res_rsv_ruimte_key = pres_rsv_ruimte_key;
 
@@ -1090,6 +1093,11 @@ AS
         RETURN 0;
       END IF;
 
+      IF afgesprokentotaal IS NOT NULL AND ignoretotaal IS NULL
+      THEN
+          return afgesprokentotaal; -- dit is simpel
+      END IF;
+
       -- Als Uitgevoerd/verwerkt, dan is de prijs al geregistreerd en bekend
       BEGIN
          SELECT   res_rsv_ruimte_prijs
@@ -1544,7 +1552,6 @@ AS
         artikelprijs NUMBER :=  0;
         deelprijs NUMBER :=  0;
         korting res_rsv_ruimte.res_rsv_ruimte_korting%TYPE;
-        totaal res_rsv_ruimte.res_rsv_ruimte_totaal%TYPE;
         verwijderdatum res_rsv_ruimte.res_rsv_ruimte_verwijder%TYPE;
         statusfokey res_rsv_ruimte.res_status_fo_key%TYPE;
       CURSOR cartikel
@@ -1563,12 +1570,10 @@ AS
         -- Is de reservering verwijderd
         SELECT rrr.res_rsv_ruimte_verwijder,
                rrr.res_status_fo_key,
-               COALESCE(res_rsv_ruimte_korting, 0),
-               res_rsv_ruimte_totaal
+               COALESCE(res_rsv_ruimte_korting, 0)
           INTO verwijderdatum,
                statusfokey,
-               korting,
-               totaal
+               korting
           FROM res_rsv_ruimte rrr
          WHERE rrr.res_rsv_ruimte_key = pres_rsv_ruimte_key;
 
@@ -1576,11 +1581,7 @@ AS
         IF verwijderdatum IS NOT NULL AND statusfokey != 4 -- Verwijderde reservering met FO status die niet is vervallen: 0% korting doorberekenen.
         THEN
             korting := 0;
-        ELSE -- Actuele reservering of verwijderde reservering met FO status is vervallen: 100% korting doorberekenen
-            IF totaal IS NOT NULL
-            THEN
-                return totaal; -- dit is simpel
-            END IF;
+        -- ELSE -- Actuele reservering of verwijderde reservering met FO status is vervallen: 100% korting doorberekenen
         END IF;
 
         ruimteprijs :=  res.getruimteprijs(pres_rsv_ruimte_key);

_UP/DB22to23.src

@@ -299,7 +299,7 @@ ALTER TABLE fac_notificatie ADD fac_notificatie_attachments VARCHAR2(4000);
 /////////////////////////////////////////////////////////////////////////////////////////// FSN#27051
 CREATE_TYPE (MLD_T_UITVOERTIJD)
 AS
-   OBJECT (tijdsduur NUMBER(8,5), eenheid VARCHAR2(1));
+   OBJECT (tijdsduur NUMBER(12,5), eenheid VARCHAR2(1));
 /
 
 /* mld_stdmelding */
@@ -589,6 +589,11 @@ ALTER TABLE res_rsv_ruimte ADD res_rsv_ruimte_totaal
 /////////////////////////////////////////////////////////////////////////////////////////// CLEANUP
 -- mld_melding_uitvoertijd mag nu leeg blijven; het veld verwijderen we later
 ALTER TABLE mld_melding DROP CONSTRAINT mld_c_mld_melding_uitvoertijd2;
+// FSN#30840 AKZA/DEMO had de volgende ook nog?
+BEGIN
+    adm.tryalter('TABLE mld_melding DROP CONSTRAINT mld_c_mld_melding_uitvoertijd1');
+END;
+/
 DROP VIEW mld_v_stdmelding_gegevens;
 -- This cleanup is done with DB23to24
 --ALTER TABLE mld_stdmelding DROP COLUMN mld_stdmelding_urgentie;