scrie jtva
This commit is contained in:
Marius
@@ -3,13 +3,13 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
tnScrie number) IS
|
||||
|
||||
lcSql clob;
|
||||
'4426' ACT.SCD%TYPE := '4426';
|
||||
'4427' ACT.SCD%TYPE := '4427';
|
||||
'4428' ACT.SCD%TYPE := '4428';
|
||||
'408' VARCHAR2(100) := '408';
|
||||
'401,404,4511,462' VARCHAR2(100) := '401,404,4511,462';
|
||||
101 JTVA_COLOANE.ID_JTVA_COLOANA%TYPE := 101;
|
||||
500 JTVA_COLOANE.ID_JTVA_COLOANA%TYPE := 500;
|
||||
lcContTvaDeductibil ACT.SCD%TYPE := '4426';
|
||||
lcContTvaColectat ACT.SCD%TYPE := '4427';
|
||||
lcContTvaNeexigibil ACT.SCD%TYPE := '4428';
|
||||
lcContDebitRegularizare VARCHAR2(100) := '408';
|
||||
lcContCreditRegularizare VARCHAR2(100) := '401,404,4511,462';
|
||||
lnIdMinJtvaColoana JTVA_COLOANE.ID_JTVA_COLOANA%TYPE := 101;
|
||||
lnIdMaxJtvaColoana JTVA_COLOANE.ID_JTVA_COLOANA%TYPE := 500;
|
||||
lcTabelSursa VARCHAR2(100);
|
||||
lcCondSucursala VARCHAR2(1000);
|
||||
begin
|
||||
@@ -21,13 +21,17 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
pack_contafin.GET_ID_SUCURSALA();
|
||||
end if;
|
||||
|
||||
-- lcTabelSursa := 'act'; -- refacere (tnScrie nu este in nScriere/nStergere)
|
||||
if tnScrie in (pack_contafin.nScriere, pack_contafin.nStergere) then
|
||||
lcTabelSursa := 'act_temp'; -- scriere, stergere
|
||||
else
|
||||
lcTabelSursa := 'act'; -- refacere
|
||||
end if;
|
||||
|
||||
-- COMPLETARE JC2007 CU ID_SET 10616 STORNARE PLATA/INCASARE
|
||||
pack_contafin.completeaza_jc_2007(2025,
|
||||
8,
|
||||
'act',
|
||||
NULL);
|
||||
pack_contafin.completeaza_jc_2007(tnAn,
|
||||
tnLuna,
|
||||
lcTabelSursa,
|
||||
lcCondSucursala);
|
||||
|
||||
MERGE INTO JC2007 J
|
||||
USING (SELECT ID_SUCURSALA,
|
||||
@@ -60,7 +64,10 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
DECODE(RO20NB, 0, 0, RO20B) -
|
||||
DECODE(RO19NB, 0, 0, RO19BCB + RO19BVB + RO19BFB) -
|
||||
DECODE(RO9NB, 0, 0, RO09BCB + RO09BVB + RO09BFB) -
|
||||
DECODE(RO5NB, 0, 0, RO05B) - DECODE(RO24NT, 0, 0, RO24T) -
|
||||
DECODE(RO5NB, 0, 0, RO05B) -
|
||||
DECODE(RO21NT, 0, 0, RO21T) -
|
||||
DECODE(RO11NT, 0, 0, RO11T) -
|
||||
DECODE(RO24NT, 0, 0, RO24T) -
|
||||
DECODE(RO20NT, 0, 0, RO20T) -
|
||||
DECODE(RO19NT, 0, 0, RO19BCT + RO19BVT + RO19BFT) -
|
||||
DECODE(RO9NT, 0, 0, RO09BCT + RO09BVT + RO09BFT) -
|
||||
@@ -1339,7 +1346,7 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
A.ID_PARTD,
|
||||
(CASE
|
||||
WHEN A.SCC IN
|
||||
('4427', '4428') OR
|
||||
(lcContTvaColectat, lcContTvaNeexigibil) OR
|
||||
SUBSTR(A.SCC, 1, 1) = '5' OR
|
||||
ID_JTVA_COLOANA in (1001, 1004, 1005) THEN
|
||||
-9999999999
|
||||
@@ -1351,8 +1358,8 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
DECODE(E.EXCEPTIE, 1, -A.SUMA, A.SUMA) AS SUMA,
|
||||
-- MARCA REGULARIZARE FACTURI NESOSITE
|
||||
(CASE
|
||||
WHEN INSTR('408', A.scd) > 0 and
|
||||
INSTR('401,404,4511,462', A.scc) > 0 THEN
|
||||
WHEN INSTR(lcContDebitRegularizare, A.scd) > 0 and
|
||||
INSTR(lcContCreditRegularizare, A.scc) > 0 THEN
|
||||
1
|
||||
ELSE
|
||||
0
|
||||
@@ -1379,12 +1386,12 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
ID_JTVA_COLOANA,
|
||||
STERS
|
||||
FROM ACT_TEMP
|
||||
WHERE 1 = 0
|
||||
AND AN = 2025
|
||||
AND LUNA = 8
|
||||
WHERE lcTabelSursa = 'act_temp'
|
||||
AND AN = tnAn
|
||||
AND LUNA = tnLuna
|
||||
AND STERS = 0
|
||||
AND (ID_JTVA_COLOANA BETWEEN 101 AND 500
|
||||
OR ID_JTVA_COLOANA in (1001, 1004, 1005, 1011, 1012, 1013, 1014, 1015))
|
||||
AND (ID_JTVA_COLOANA BETWEEN lnIdMinJtvaColoana AND lnIdMaxJtvaColoana
|
||||
OR ID_JTVA_COLOANA in (1001, 1004, 1005, 1011, 1012, 1013, 1014, 1015,1018,1019))
|
||||
AND ID_SET <> 10622
|
||||
UNION ALL
|
||||
SELECT ID_SUCURSALA,
|
||||
@@ -1406,12 +1413,12 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
ID_JTVA_COLOANA,
|
||||
STERS
|
||||
FROM ACT
|
||||
WHERE 1 = 1
|
||||
AND AN = 2025
|
||||
AND LUNA = 8
|
||||
WHERE lcTabelSursa = 'act'
|
||||
AND AN = tnAn
|
||||
AND LUNA = tnLuna
|
||||
AND STERS = 0
|
||||
AND (ID_JTVA_COLOANA BETWEEN 101 AND 500
|
||||
OR ID_JTVA_COLOANA in (1001, 1004, 1005, 1011, 1012, 1013, 1014, 1015))
|
||||
AND (ID_JTVA_COLOANA BETWEEN lnIdMinJtvaColoana AND lnIdMaxJtvaColoana
|
||||
OR ID_JTVA_COLOANA in (1001, 1004, 1005, 1011, 1012, 1013, 1014, 1015,1018,1019))
|
||||
AND ID_SET <> 10622
|
||||
) A
|
||||
LEFT JOIN (SELECT DISTINCT 1 AS EXCEPTIE,
|
||||
@@ -1430,11 +1437,11 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
AND A.SCC = E.SCC
|
||||
LEFT JOIN DOCUMENTE D
|
||||
ON A.ID_FACT = D.ID_DOC
|
||||
WHERE A.AN = 2025
|
||||
and A.LUNA = 8
|
||||
WHERE A.AN = tnAn
|
||||
and A.LUNA = tnLuna
|
||||
and A.STERS = 0
|
||||
AND (A.ID_JTVA_COLOANA BETWEEN 101 AND
|
||||
500 OR
|
||||
AND (A.ID_JTVA_COLOANA BETWEEN lnIdMinJtvaColoana AND
|
||||
lnIdMaxJtvaColoana OR
|
||||
A.ID_JTVA_COLOANA in
|
||||
(1001,
|
||||
1004,
|
||||
@@ -1443,15 +1450,17 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
1012,
|
||||
1013,
|
||||
1014,
|
||||
1015))
|
||||
1015,
|
||||
1018,
|
||||
1019))
|
||||
-- IN JURNALUL DE CUMPARARI NU INTRA FACTURILE NESOSITE + INCASARILE
|
||||
-- SAU COMPENSARI 409 CU EXPLICATIE TVA
|
||||
AND A.ID_SET <> 10622
|
||||
AND NOT (TRIM(NVL(A.SCC, 'X')) =
|
||||
'408' OR
|
||||
lcContDebitRegularizare OR
|
||||
(TRIM(NVL(A.SCD, 'X')) =
|
||||
'408' AND
|
||||
INSTR('401,404,4511,462',
|
||||
lcContDebitRegularizare AND
|
||||
INSTR(lcContCreditRegularizare,
|
||||
TRIM(NVL(A.SCC, 'X'))) = 0))
|
||||
AND nvl2(pack_contafin.GET_ID_SUCURSALA(),
|
||||
A.ID_SUCURSALA,
|
||||
@@ -1703,8 +1712,8 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
J.RORTD20 = J.RORTD20 + S.RORTD20,
|
||||
J.RORTD19 = J.RORTD19 + S.RORTD19,
|
||||
J.RORTD9 = J.RORTD9 + S.RORTD9,
|
||||
J.RORTD5 = J.RORTD5 + S.RORTD5
|
||||
DELETE WHERE 0 = 1
|
||||
J.RORTD5 = J.RORTD5 + S.RORTD5 DELETE
|
||||
WHERE tnScrie = pack_contafin.nStergere
|
||||
AND J.TOTCTVA = 0
|
||||
AND J.TOTFTVATAX = 0
|
||||
AND J.TOTTVATAX = 0
|
||||
|
||||
Reference in New Issue
Block a user