admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

YASK#85687 Import tabel uitbreiden met begin en eindtijdstip

Browse Source 
svn path=/Customer/trunk/; revision=67530
This commit is contained in:
Arthur Egberink
2025-01-07 15:28:58 +00:00
parent 3450efdc5e
commit 2cd3e2c528
1 changed files with 25 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
YASK/yask.sql
View File

@@ -4825,8 +4825,10 @@ AS
oracle_err_mes VARCHAR2 (200);
v_skipfield VARCHAR2 (100);
-- De importvelden
v_datum_txt VARCHAR2 (1000);
v_datum DATE;
v_startdatum_txt VARCHAR2 (1000);
v_einddatum_txt VARCHAR2 (1000);
v_startdatum DATE;
v_einddatum DATE;
v_id VARCHAR2 (1000);
v_omschrijving VARCHAR2 (1000);
v_kostenplaats_id VARCHAR2 (1000);
@@ -4855,7 +4857,8 @@ BEGIN
v_error_count := 0;
fac.imp_getfield (v_newline, v_fielddelimitor, v_omschrijving);
fac.imp_getfield (v_newline, v_fielddelimitor, v_datum_txt);
fac.imp_getfield (v_newline, v_fielddelimitor, v_startdatum_txt);
fac.imp_getfield (v_newline, v_fielddelimitor, v_einddatum_txt);
fac.imp_getfield (v_newline, v_fielddelimitor, v_id);
fac.imp_getfield (v_newline, v_fielddelimitor, v_kostenplaats_id);
fac.imp_getfield (v_newline, v_fielddelimitor, v_kostenplaats_oms);
@@ -4867,7 +4870,7 @@ BEGIN
-- voeg nieuwe records toe
-- en wijzig bestaande records
v_aanduiding := v_datum_txt
v_aanduiding := v_startdatum_txt
|| ' | '
|| v_id
|| ' | '
@@ -4889,11 +4892,17 @@ BEGIN
v_errorhint := 'Controleer datum';
v_datum := FAC.safe_to_date(v_datum_txt, 'yyyy-mm-dd');
IF (v_datum IS NULL)
v_startdatum := FAC.safe_to_date(replace(replace(v_startdatum_txt, 'T', ' '), 'Z'), 'yyyy-mm-dd hh:mi:ss');
IF (v_startdatum IS NULL)
THEN
fac.imp_writelog (p_import_key, 'E', 'Geen geldige datum', v_datum_txt);
fac.imp_writelog (p_import_key, 'E', 'Geen geldige startdatum', v_startdatum_txt);
v_error_count := v_error_count + 1;
END IF;
v_einddatum := FAC.safe_to_date(replace(replace(v_einddatum_txt, 'T', ' '), 'Z'), 'yyyy-mm-dd hh:mi:ss');
IF (v_einddatum IS NULL)
THEN
fac.imp_writelog (p_import_key, 'E', 'Geen geldige einddatum', v_einddatum_txt);
v_error_count := v_error_count + 1;
END IF;
@@ -4942,6 +4951,7 @@ BEGIN
THEN
INSERT INTO yask_imp_rabo_catering (datum,
einddatum,
id,
omschrijving,
kostenplaats_id,
@@ -4951,7 +4961,8 @@ BEGIN
bedrag_nul,
gebouw_key,
leverancier)
VALUES (v_datum,
VALUES (v_startdatum,
v_einddatum,
v_id,
v_omschrijving,
v_kostenplaats_id,
@@ -4995,7 +5006,6 @@ AS
v_kostenplaatsgrp_key NUMBER;
v_kostenplaats_key NUMBER;
v_ruimte_key NUMBER;
v_levering DATE;
v_kenmerk_key NUMBER;
v_discipline_key NUMBER;
@@ -5097,8 +5107,6 @@ BEGIN
INSERT INTO res_reservering (res_reservering_aanmaak) VALUES (SYSDATE)
RETURNING res_reservering_key INTO v_reservering_key;
v_levering := rec.datum + 8/24;
v_errorhint := 'Voeg de deelreservering toe';
INSERT INTO res_rsv_ruimte (res_reservering_key,
res_rsv_ruimte_volgnr,
@@ -5121,8 +5129,8 @@ BEGIN
v_ruimte_key,
1,
150,
v_levering,
rec.datum + 9/24,
rec.datum,
rec.einddatum,
2)
RETURNING res_rsv_ruimte_key INTO v_rsv_ruimte_key;
@@ -5148,9 +5156,9 @@ BEGIN
-- Nu nog de catering toevoegen
v_errorhint := 'Voeg de catering toe';
add_catering (v_rsv_ruimte_key, 'RABOCATHOOG', v_levering, rec.bedrag_hoog);
add_catering (v_rsv_ruimte_key, 'RABOCATLAAG', v_levering, rec.bedrag_laag);
add_catering (v_rsv_ruimte_key, 'RABOCATNUL', v_levering, rec.bedrag_nul);
add_catering (v_rsv_ruimte_key, 'RABOCATHOOG', rec.datum, rec.bedrag_hoog);
add_catering (v_rsv_ruimte_key, 'RABOCATLAAG', rec.datum, rec.bedrag_laag);
add_catering (v_rsv_ruimte_key, 'RABOCATNUL', rec.datum, rec.bedrag_nul);
END LOOP;
EXCEPTION