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

PIVP#74972 -- Fase 2 implementatie

Browse Source 
svn path=/Customer/trunk/; revision=60392
This commit is contained in:
Norbert Wassink
2023-05-11 14:53:10 +00:00
parent c9a8fa25fb
commit 929c614f45
1 changed files with 40 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
PIVP/PIVP.sql
View File

@@ -3660,6 +3660,7 @@ BEGIN
v_startmonth:='12';
END IF;
v_startdate := TO_DATE('01-'||v_startmonth||'-'||v_currentyear,'DD-MM-YYYY');
v_enddate := LAST_DAY(v_startdate);
v_factuurdatum:=v_enddate;
-- IF v_currentmonth=1 OR v_currentmonth=4 OR v_currentmonth=7 OR v_currentmonth=10
@@ -3812,6 +3813,8 @@ AS
v_startDate DATE;
v_endDate DATE;
v_currentmonth NUMBER;
v_startmonth NUMBER;
v_currentyear VARCHAR2(10);
v_currenthuurder VARCHAR2(10);
v_factuurdatum DATE;
v_factuurregel VARCHAR2(120);
@@ -3832,27 +3835,42 @@ BEGIN
-- eerst controlerene of we de eerste van een nieuw kwartaal zijn.
v_currentmonth := TO_NUMBER(TO_CHAR(SYSDATE,'MM'));
v_startmonth := TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'MM'))-1);
v_currentyear := TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')));
IF v_startmonth = '0' THEN
v_currentyear := TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))-1);
v_startmonth:='12';
END IF;
IF v_currentmonth = 5 THEN
v_startDate := TO_DATE('01-01-2023','DD-MM-YYYY');
ELSE
v_startDate := TO_DATE('01-'||v_startmonth||'-'||v_currentyear,'DD-MM-YYYY');
END IF;
v_endDate := LAST_DAY(v_startDate);
v_factuurdatum:=v_enddate;
-- v_currentmonth :=10;
IF v_currentmonth=1 OR v_currentmonth=4 OR v_currentmonth=7 OR v_currentmonth=10
THEN
CASE v_currentmonth
WHEN 1 THEN
v_startDate:= TO_DATE('01-10-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY');
v_endDate:= TO_DATE('31-12-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY');
v_factuurdatum:=TO_DATE('31-12-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY');
WHEN 4 THEN
v_startDate:= TO_DATE('01-01-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
v_endDate:= TO_DATE('30-03-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
v_factuurdatum:=TO_DATE('31-03-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))),'DD-MM-YYYY');
WHEN 7 THEN
v_startDate:= TO_DATE('01-04-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
v_endDate:= TO_DATE('30-06-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
v_factuurdatum:=TO_DATE('30-06-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))),'DD-MM-YYYY');
ELSE
v_startDate:= TO_DATE('01-07-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
v_endDate:= TO_DATE('30-09-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
v_factuurdatum:=TO_DATE('30-09-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))),'DD-MM-YYYY');
END CASE;
--IF v_currentmonth=1 OR v_currentmonth=4 OR v_currentmonth=7 OR v_currentmonth=10
--THEN
-- CASE v_currentmonth
-- WHEN 1 THEN
-- v_startDate:= TO_DATE('01-10-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY');
-- v_endDate:= TO_DATE('31-12-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY');
-- v_factuurdatum:=TO_DATE('31-12-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY')-1)),'DD-MM-YYYY');
-- WHEN 4 THEN
-- v_startDate:= TO_DATE('01-01-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
-- v_endDate:= TO_DATE('30-03-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
-- v_factuurdatum:=TO_DATE('31-03-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))),'DD-MM-YYYY');
-- WHEN 7 THEN
-- v_startDate:= TO_DATE('01-04-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
-- v_endDate:= TO_DATE('30-06-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
-- v_factuurdatum:=TO_DATE('30-06-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))),'DD-MM-YYYY');
-- ELSE
-- v_startDate:= TO_DATE('01-07-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
-- v_endDate:= TO_DATE('30-09-'||TO_CHAR(SYSDATE,'YYYY'),'DD-MM-YYYY');
-- v_factuurdatum:=TO_DATE('30-09-'||TO_CHAR(TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))),'DD-MM-YYYY');
-- END CASE;
-- PUUR OM EENVOUDIGER TE KUNNEN TESTEN
@@ -3950,8 +3968,8 @@ BEGIN
END IF;
fac.writelog (p_applname, 'S', 'Exact reservering export uitgevoerd. Aantal Klanten :'||v_count,'Periode :('||v_currentmonth||') '||v_startDate||'-'||v_enddate);
END IF;
fac.writelog (p_applname, 'S', 'Exact reservering export uitgevoerd. Aantal Klanten :'||v_count,'Periode :('||v_startDate||'-'||v_enddate);
--END IF;
END;
/