verkeerde node

svn path=/Database/branches/DB23/; revision=23603
NYBU#28781 RES: aparte zaalprijzen voor intern en extern
2014-12-09 08:54:23 +00:00 · 2014-12-09 07:59:21 +00:00 · 2014-11-25 08:14:53 +00:00 · 2014-11-10 16:09:00 +00:00 · 2014-11-10 08:18:30 +00:00 · 2014-11-06 15:42:49 +00:00
9 changed files with 41 additions and 29 deletions
--- a/CAD/CAD_VIE.SRC
+++ b/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
--- a/FAC/FAC_LCLASP.SRC
+++ b/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')
--- a/FAC/FAC_PAC.SRC
+++ b/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;
--- a/FAC/FAC_PACX.SRC
+++ b/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);
--- a/FAC/FAC_SET.SRC
+++ b/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')
--- a/MLD/MLD_PAC.SRC
+++ b/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
--- a/MLD/MLD_TYP.SRC
+++ b/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
--- a/RES/RES_PAC.SRC
+++ b/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);
--- a/_UP/DB22to23.src
+++ b/_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;
Author	SHA1	Message	Date
Erik Groener	045bdc9602	verkeerde node svn path=/Database/branches/DB23/; revision=23603	2014-12-09 08:54:23 +00:00
Erik Groener	639e013900	NYBU#28781 RES: aparte zaalprijzen voor intern en extern svn path=/Database/branches/DB23/; revision=23599	2014-12-09 07:59:21 +00:00
Arthur Egberink	5d41e48cba	AAEN#31034 -- Fout bij infoborden Enexis en AAFM svn path=/Database/branches/DB23/; revision=23440	2014-11-25 08:14:53 +00:00
Jos Groot Lipman	f129fafc3b	FSN#30888 Bevroren SLA eenheid gebruiken voor realisatietijd svn path=/Database/branches/DB23/; revision=23296	2014-11-10 16:09:00 +00:00
Peter Feij	b04b73bc6b	MAYF#30878 Type bleek te kort voor de praktijk svn path=/Database/branches/DB23/; revision=23283	2014-11-10 08:18:30 +00:00
Maykel Geerdink	a82dec2c20	FSN#30838: Afmelden van een gewijzigd schoonmaakprogramma geeft foutmelding. svn path=/Database/branches/DB23/; revision=23275	2014-11-06 15:42:49 +00:00
Jos Groot Lipman	41af27d9f3	NYBU#28790 Afgesproken kosten toch alleen op de ruimte betrekken svn path=/Database/branches/DB23/; revision=23267	2014-11-06 10:56:38 +00:00
Jos Groot Lipman	a28ac7b081	NYBU#28790 Afgesproken kosten toch alleen op de ruimte betrekken svn path=/Database/branches/DB23/; revision=23263	2014-11-06 09:37:28 +00:00
Jos Groot Lipman	3573d80751	FSN#30848 puo_flags commentaar +4 is opdrachten immediate svn path=/Database/branches/DB23/; revision=23261	2014-11-06 09:27:44 +00:00
Jos Groot Lipman	b60c7d4ce6	FSN#30840 MLD_C_MLD_MELDING_UITVOERTIJD1 ook droppen svn path=/Database/branches/DB23/; revision=23257	2014-11-06 08:36:53 +00:00
Jos Groot Lipman	2e73e59bad	NYBU#28790 Afgesproken kosten toch alleen op de ruimte betrekken svn path=/Database/branches/DB23/; revision=23252	2014-11-05 14:53:09 +00:00
Maykel Geerdink	3f1fbd7c74	AAVL#26591: Verschillende wensen Van Lanschot 1/3: kosten verplicht bij afmelden opdracht. svn path=/Database/branches/DB23/; revision=23230	2014-11-04 08:26:35 +00:00
Jos Groot Lipman	2090f7907a	FSN#30812 RES Prijs kwam niet goed in de XML svn path=/Database/branches/DB23/; revision=23228	2014-11-03 16:51:36 +00:00
Jos Groot Lipman	d76a5fad69	Branch DB23 svn path=/Database/branches/DB23/; revision=23227	2014-11-03 16:43:29 +00:00