Update system prompt and create D300 migration script
- Enhanced system_prompt.md with mandatory initial questions, explicit examples, operation types, error handling, and BEGIN/END structure requirements - Created ff_2025_09_10_01_CONTABILITATE_D300.sql migration script for DECONTTVA table with DELETE/INSERT approach - Removed obsolete files: CLAUDE.md, README.md, CSV input files - Updated input/scrie_jc_2007.sql 🤖 Generated with [Claude Code](https://claude.ai/code) Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
Marius
@@ -3,13 +3,13 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
tnScrie number) IS
|
||||
|
||||
lcSql clob;
|
||||
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;
|
||||
'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;
|
||||
lcTabelSursa VARCHAR2(100);
|
||||
lcCondSucursala VARCHAR2(1000);
|
||||
begin
|
||||
@@ -21,17 +21,13 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
pack_contafin.GET_ID_SUCURSALA();
|
||||
end if;
|
||||
|
||||
if tnScrie in (pack_contafin.nScriere, pack_contafin.nStergere) then
|
||||
lcTabelSursa := 'act_temp'; -- scriere, stergere
|
||||
else
|
||||
lcTabelSursa := 'act'; -- refacere
|
||||
end if;
|
||||
-- lcTabelSursa := 'act'; -- refacere (tnScrie nu este in nScriere/nStergere)
|
||||
|
||||
-- COMPLETARE JC2007 CU ID_SET 10616 STORNARE PLATA/INCASARE
|
||||
pack_contafin.completeaza_jc_2007(tnAn,
|
||||
tnLuna,
|
||||
lcTabelSursa,
|
||||
lcCondSucursala);
|
||||
pack_contafin.completeaza_jc_2007(2025,
|
||||
8,
|
||||
'act',
|
||||
NULL);
|
||||
|
||||
MERGE INTO JC2007 J
|
||||
USING (SELECT ID_SUCURSALA,
|
||||
@@ -1343,7 +1339,7 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
A.ID_PARTD,
|
||||
(CASE
|
||||
WHEN A.SCC IN
|
||||
(lcContTvaColectat, lcContTvaNeexigibil) OR
|
||||
('4427', '4428') OR
|
||||
SUBSTR(A.SCC, 1, 1) = '5' OR
|
||||
ID_JTVA_COLOANA in (1001, 1004, 1005) THEN
|
||||
-9999999999
|
||||
@@ -1355,8 +1351,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(lcContDebitRegularizare, A.scd) > 0 and
|
||||
INSTR(lcContCreditRegularizare, A.scc) > 0 THEN
|
||||
WHEN INSTR('408', A.scd) > 0 and
|
||||
INSTR('401,404,4511,462', A.scc) > 0 THEN
|
||||
1
|
||||
ELSE
|
||||
0
|
||||
@@ -1383,11 +1379,11 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
ID_JTVA_COLOANA,
|
||||
STERS
|
||||
FROM ACT_TEMP
|
||||
WHERE lcTabelSursa = 'act_temp'
|
||||
AND AN = tnAn
|
||||
AND LUNA = tnLuna
|
||||
WHERE 1 = 0
|
||||
AND AN = 2025
|
||||
AND LUNA = 8
|
||||
AND STERS = 0
|
||||
AND (ID_JTVA_COLOANA BETWEEN lnIdMinJtvaColoana AND lnIdMaxJtvaColoana
|
||||
AND (ID_JTVA_COLOANA BETWEEN 101 AND 500
|
||||
OR ID_JTVA_COLOANA in (1001, 1004, 1005, 1011, 1012, 1013, 1014, 1015))
|
||||
AND ID_SET <> 10622
|
||||
UNION ALL
|
||||
@@ -1410,11 +1406,11 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
ID_JTVA_COLOANA,
|
||||
STERS
|
||||
FROM ACT
|
||||
WHERE lcTabelSursa = 'act'
|
||||
AND AN = tnAn
|
||||
AND LUNA = tnLuna
|
||||
WHERE 1 = 1
|
||||
AND AN = 2025
|
||||
AND LUNA = 8
|
||||
AND STERS = 0
|
||||
AND (ID_JTVA_COLOANA BETWEEN lnIdMinJtvaColoana AND lnIdMaxJtvaColoana
|
||||
AND (ID_JTVA_COLOANA BETWEEN 101 AND 500
|
||||
OR ID_JTVA_COLOANA in (1001, 1004, 1005, 1011, 1012, 1013, 1014, 1015))
|
||||
AND ID_SET <> 10622
|
||||
) A
|
||||
@@ -1434,11 +1430,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 = tnAn
|
||||
and A.LUNA = tnLuna
|
||||
WHERE A.AN = 2025
|
||||
and A.LUNA = 8
|
||||
and A.STERS = 0
|
||||
AND (A.ID_JTVA_COLOANA BETWEEN lnIdMinJtvaColoana AND
|
||||
lnIdMaxJtvaColoana OR
|
||||
AND (A.ID_JTVA_COLOANA BETWEEN 101 AND
|
||||
500 OR
|
||||
A.ID_JTVA_COLOANA in
|
||||
(1001,
|
||||
1004,
|
||||
@@ -1452,10 +1448,10 @@ procedure SCRIE_JC_2007(tnAn JC2007.AN%TYPE,
|
||||
-- SAU COMPENSARI 409 CU EXPLICATIE TVA
|
||||
AND A.ID_SET <> 10622
|
||||
AND NOT (TRIM(NVL(A.SCC, 'X')) =
|
||||
lcContDebitRegularizare OR
|
||||
'408' OR
|
||||
(TRIM(NVL(A.SCD, 'X')) =
|
||||
lcContDebitRegularizare AND
|
||||
INSTR(lcContCreditRegularizare,
|
||||
'408' AND
|
||||
INSTR('401,404,4511,462',
|
||||
TRIM(NVL(A.SCC, 'X'))) = 0))
|
||||
AND nvl2(pack_contafin.GET_ID_SUCURSALA(),
|
||||
A.ID_SUCURSALA,
|
||||
@@ -1707,8 +1703,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 tnScrie = pack_contafin.nStergere
|
||||
J.RORTD5 = J.RORTD5 + S.RORTD5
|
||||
DELETE WHERE 0 = 1
|
||||
AND J.TOTCTVA = 0
|
||||
AND J.TOTFTVATAX = 0
|
||||
AND J.TOTTVATAX = 0
|
||||
|
||||
Reference in New Issue
Block a user