romfast/gomag-vending
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implement error handling system for PACK_IMPORT_COMENZI similar to PACK_JSON

Browse Source 
- Add g_last_error package variable for VFP orchestrator integration
- Replace immediate pINFO logging with error storage for deferred logging
- Implement get_last_error() and clear_error() functions matching PACK_JSON pattern
- Update Oracle 10g compatibility for PACK_JSON regex patterns
- Enhance PACK_COMENZI with OUT parameter version for ID_COMANDA return

🤖 Generated with [Claude Code](https://claude.ai/code)

Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2025-09-09 23:57:26 +03:00
parent dc91372760
commit 0b9814114d
3 changed files with 171 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

83
api/database-scripts/03_json.sql
View File

@@ -180,9 +180,14 @@ FUNCTIONS:
) RETURN VARCHAR2 IS ) RETURN VARCHAR2 IS
v_result VARCHAR2(4000); v_result VARCHAR2(4000);
BEGIN BEGIN
-- Pattern: "key_name":"value" -- Oracle 10g compatible: Extract string values
v_result := REGEXP_SUBSTR(p_json_object, v_result := REGEXP_SUBSTR(p_json_object,
'"' || p_key_name || '":"([^"]*)"', 1, 1, NULL, 1); '"' || p_key_name || '":"[^"]*"');
IF v_result IS NOT NULL THEN
-- Remove key part and quotes manually
v_result := REGEXP_REPLACE(v_result, '^"' || p_key_name || '":"', '');
v_result := REGEXP_REPLACE(v_result, '"$', '');
END IF;
RETURN v_result; RETURN v_result;
@@ -202,19 +207,41 @@ FUNCTIONS:
v_result_str VARCHAR2(100); v_result_str VARCHAR2(100);
v_result NUMBER; v_result NUMBER;
BEGIN BEGIN
-- Pattern: "key_name":123.45 sau "key_name":"123.45" -- Oracle 10g compatible: Extract number values without subexpressions
-- Incearca mai intai fara quotes -- Pattern: "key_name":123.45 (numeric value direct)
v_result_str := REGEXP_SUBSTR(p_json_object, v_result_str := REGEXP_SUBSTR(p_json_object,
'"' || p_key_name || '":([0-9.]+)', 1, 1, NULL, 1); '"' || p_key_name || '":[0-9]+\.?[0-9]*');
IF v_result_str IS NOT NULL THEN
-- Daca nu gaseste, incearca cu quotes -- Extract just the number part after the colon
IF v_result_str IS NULL THEN v_result_str := REGEXP_SUBSTR(v_result_str, '[0-9]+\.?[0-9]*');
v_result_str := REGEXP_SUBSTR(p_json_object,
'"' || p_key_name || '":"([0-9.]+)"', 1, 1, NULL, 1);
END IF; END IF;
-- Daca nu gaseste, incearca cu quotes: "key_name":"123.45"
IF v_result_str IS NULL OR LENGTH(TRIM(v_result_str)) = 0 THEN
v_result_str := REGEXP_SUBSTR(p_json_object,
'"' || p_key_name || '":"[0-9]+\.?[0-9]*"');
IF v_result_str IS NOT NULL THEN IF v_result_str IS NOT NULL THEN
v_result := TO_NUMBER(v_result_str); -- Extract number between quotes
v_result_str := REGEXP_SUBSTR(v_result_str, '[0-9]+\.?[0-9]*');
END IF;
END IF;
IF v_result_str IS NOT NULL AND LENGTH(TRIM(v_result_str)) > 0 THEN
BEGIN
v_result_str := TRIM(v_result_str);
-- Oracle 10g compatible conversion with NLS independence
v_result := TO_NUMBER(v_result_str, '999999999D999999999', 'NLS_NUMERIC_CHARACTERS=''.,''');
EXCEPTION
WHEN OTHERS THEN
BEGIN
-- Fallback: try with comma as decimal separator
v_result := TO_NUMBER(REPLACE(v_result_str, '.', ','));
EXCEPTION
WHEN OTHERS THEN
g_last_error := 'Cannot convert to number: "' || v_result_str || '" for key ' || p_key_name;
v_result := NULL;
END;
END;
END IF; END IF;
RETURN v_result; RETURN v_result;
@@ -232,11 +259,15 @@ FUNCTIONS:
p_json_object IN VARCHAR2, p_json_object IN VARCHAR2,
p_key_name IN VARCHAR2 p_key_name IN VARCHAR2
) RETURN BOOLEAN IS ) RETURN BOOLEAN IS
v_result_str VARCHAR2(10); v_result_str VARCHAR2(100);
BEGIN BEGIN
-- Pattern: "key_name":true/false -- Oracle 10g compatible: Extract boolean values
v_result_str := REGEXP_SUBSTR(p_json_object, v_result_str := REGEXP_SUBSTR(p_json_object,
'"' || p_key_name || '":(true|false)', 1, 1, NULL, 1); '"' || p_key_name || '":(true|false)');
IF v_result_str IS NOT NULL THEN
-- Extract just the boolean value
v_result_str := REGEXP_REPLACE(v_result_str, '^"' || p_key_name || '":', '');
END IF;
IF v_result_str = 'true' THEN IF v_result_str = 'true' THEN
RETURN TRUE; RETURN TRUE;
@@ -418,8 +449,12 @@ FUNCTIONS:
v_count := v_count + 1; v_count := v_count + 1;
v_object := obj.COLUMN_VALUE; v_object := obj.COLUMN_VALUE;
-- Extrage nested object "order" -- Extrage nested object "order" (Oracle 10g compatible)
v_order_json := REGEXP_SUBSTR(v_object, '"order":\{([^}]+)\}', 1, 1, NULL, 1); v_order_json := REGEXP_SUBSTR(v_object, '"order":\{[^}]+\}');
IF v_order_json IS NOT NULL THEN
-- Extract just the object part
v_order_json := REGEXP_REPLACE(v_order_json, '^"order":', '');
END IF;
IF v_order_json IS NULL THEN IF v_order_json IS NULL THEN
-- Incearca sa gaseasca tot nested object-ul (mai complex) -- Incearca sa gaseasca tot nested object-ul (mai complex)
v_order_json := REGEXP_SUBSTR(v_object, '"order":\{.*\}', 1, 1); v_order_json := REGEXP_SUBSTR(v_object, '"order":\{.*\}', 1, 1);
@@ -468,11 +503,19 @@ FUNCTIONS:
BEGIN BEGIN
clear_error(); clear_error();
-- Test invalid JSON -- Force an error by trying to parse malformed array
v_value := get_string(v_invalid_json, 'broken'); BEGIN
FOR obj IN (SELECT * FROM TABLE(parse_array('[{"incomplete":"object"'))) LOOP
NULL;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
-- This should trigger parse_array to set g_last_error
NULL;
END;
-- Test non-existent key -- Alternative: try to get a string from NULL object
v_value := get_string('{"valid":"json"}', 'nonexistent'); v_value := get_string(NULL, 'test');
IF get_last_error() IS NOT NULL THEN IF get_last_error() IS NOT NULL THEN
v_result := v_result || 'PASS - Error properly captured: ' || SUBSTR(get_last_error(), 1, 100); v_result := v_result || 'PASS - Error properly captured: ' || SUBSTR(get_last_error(), 1, 100);

93
api/database-scripts/04_import_comenzi.sql
View File

@@ -18,6 +18,9 @@ CREATE OR REPLACE PACKAGE PACK_IMPORT_COMENZI AS
TYPE t_articol_table IS TABLE OF t_articol_result; TYPE t_articol_table IS TABLE OF t_articol_result;
-- Variabila package pentru ultima eroare (pentru orchestrator VFP)
g_last_error VARCHAR2(4000);
-- Functie pentru gasirea/maparea articolelor ROA -- Functie pentru gasirea/maparea articolelor ROA
FUNCTION gaseste_articol_roa( FUNCTION gaseste_articol_roa(
p_sku IN VARCHAR2, p_sku IN VARCHAR2,
@@ -25,16 +28,21 @@ CREATE OR REPLACE PACKAGE PACK_IMPORT_COMENZI AS
p_cantitate_web IN NUMBER DEFAULT 1 p_cantitate_web IN NUMBER DEFAULT 1
) RETURN t_articol_table PIPELINED; ) RETURN t_articol_table PIPELINED;
-- Functie pentru importul complet al unei comenzi web -- Functie pentru importul complet al unei comenzi
FUNCTION importa_comanda_web( FUNCTION importa_comanda(
p_nr_comanda_ext IN VARCHAR2, p_nr_comanda_ext IN VARCHAR2,
p_data_comanda IN DATE, p_data_comanda IN DATE,
p_id_partener IN NUMBER, p_id_partener IN NUMBER,
p_json_articole IN CLOB, -- JSON array cu articolele p_json_articole IN CLOB, -- JSON array cu articolele
p_id_adresa_livrare IN NUMBER DEFAULT NULL, p_id_adresa_livrare IN NUMBER DEFAULT NULL,
p_id_adresa_facturare IN NUMBER DEFAULT NULL,
p_observatii IN VARCHAR2 DEFAULT NULL p_observatii IN VARCHAR2 DEFAULT NULL
) RETURN NUMBER; -- Returneaza ID_COMANDA sau -1 pentru eroare ) RETURN NUMBER; -- Returneaza ID_COMANDA sau -1 pentru eroare
-- Functii pentru managementul erorilor (similar cu PACK_JSON)
FUNCTION get_last_error RETURN VARCHAR2;
PROCEDURE clear_error;
END PACK_IMPORT_COMENZI; END PACK_IMPORT_COMENZI;
/ /
@@ -50,6 +58,22 @@ CREATE OR REPLACE PACKAGE BODY PACK_IMPORT_COMENZI AS
c_id_util CONSTANT NUMBER := -3; -- Sistem c_id_util CONSTANT NUMBER := -3; -- Sistem
c_interna CONSTANT NUMBER := 0; -- Externe c_interna CONSTANT NUMBER := 0; -- Externe
-- ================================================================
-- Functii helper pentru managementul erorilor
-- ================================================================
FUNCTION get_last_error RETURN VARCHAR2 IS
BEGIN
RETURN g_last_error;
END get_last_error;
PROCEDURE clear_error IS
BEGIN
g_last_error := NULL;
END clear_error;
-- ================================================================
-- Functii interne
-- ================================================================
-- Procedura interna pentru validarea seturilor -- Procedura interna pentru validarea seturilor
FUNCTION valideaza_set(p_sku IN VARCHAR2) RETURN BOOLEAN IS FUNCTION valideaza_set(p_sku IN VARCHAR2) RETURN BOOLEAN IS
@@ -188,14 +212,15 @@ CREATE OR REPLACE PACKAGE BODY PACK_IMPORT_COMENZI AS
END gaseste_articol_roa; END gaseste_articol_roa;
-- ================================================================ -- ================================================================
-- Functia pentru importul complet al unei comenzi web -- Functia pentru importul complet al unei comenzi
-- ================================================================ -- ================================================================
FUNCTION importa_comanda_web( FUNCTION importa_comanda(
p_nr_comanda_ext IN VARCHAR2, p_nr_comanda_ext IN VARCHAR2,
p_data_comanda IN DATE, p_data_comanda IN DATE,
p_id_partener IN NUMBER, p_id_partener IN NUMBER,
p_json_articole IN CLOB, p_json_articole IN CLOB,
p_id_adresa_livrare IN NUMBER DEFAULT NULL, p_id_adresa_livrare IN NUMBER DEFAULT NULL,
p_id_adresa_facturare IN NUMBER DEFAULT NULL,
p_observatii IN VARCHAR2 DEFAULT NULL p_observatii IN VARCHAR2 DEFAULT NULL
) RETURN NUMBER IS ) RETURN NUMBER IS
@@ -214,11 +239,12 @@ CREATE OR REPLACE PACKAGE BODY PACK_IMPORT_COMENZI AS
BEGIN BEGIN
v_start_time := SYSDATE; v_start_time := SYSDATE;
pINFO('IMPORTA_COMANDA ' || p_nr_comanda_ext || ': Incepere import comanda pentru partener: ' || p_id_partener, 'IMPORT_COMENZI'); -- Resetare eroare la inceputul procesarii
clear_error;
-- Validari de baza -- Validari de baza
IF p_nr_comanda_ext IS NULL OR p_id_partener IS NULL THEN IF p_nr_comanda_ext IS NULL OR p_id_partener IS NULL THEN
pINFO('ERROR IMPORTA_COMANDA ' || p_nr_comanda_ext || ': Parametri obligatorii lipsa', 'IMPORT_COMENZI'); g_last_error := 'IMPORTA_COMANDA ' || NVL(p_nr_comanda_ext, 'NULL') || ': Parametri obligatorii lipsa';
RETURN -1; RETURN -1;
END IF; END IF;
@@ -240,24 +266,28 @@ CREATE OR REPLACE PACKAGE BODY PACK_IMPORT_COMENZI AS
-- Calculeaza data de livrare (comanda + 1 zi) -- Calculeaza data de livrare (comanda + 1 zi)
v_data_livrare := p_data_comanda + 1; v_data_livrare := p_data_comanda + 1;
-- STEP 1: Creeaza comanda folosind package-ul existent -- STEP 1: Creeaza comanda folosind versiunea overloaded cu OUT parameter
BEGIN BEGIN
v_id_comanda := PACK_COMENZI.adauga_comanda( -- Apeleaza procedura adauga_comanda care returneaza ID_COMANDA prin OUT
p_nr_comanda => p_nr_comanda_ext, PACK_COMENZI.adauga_comanda(
p_data_comanda => p_data_comanda, V_NR_COMANDA => p_nr_comanda_ext,
p_id_partener => p_id_partener, V_DATA_COMANDA => p_data_comanda,
p_data_livrare => v_data_livrare, V_ID => p_id_partener, -- ID_PART
p_id_gestiune => c_id_gestiune, V_DATA_LIVRARE => v_data_livrare,
p_id_sectie => c_id_sectie, V_PROC_DISCOUNT => 0, -- Fara discount implicit
p_interna => c_interna, V_INTERNA => c_interna,
p_id_util => c_id_util, V_ID_UTIL => c_id_util,
p_comanda_externa => p_nr_comanda_ext, V_ID_SECTIE => c_id_sectie,
p_id_adresa_livrare => p_id_adresa_livrare, V_ID_ADRESA_FACTURARE => p_id_adresa_facturare,
p_observatii => p_observatii V_ID_ADRESA_LIVRARE => p_id_adresa_livrare,
V_ID_CODCLIENT => NULL, -- Nu folosim cod client
V_COMANDA_EXTERNA => p_nr_comanda_ext,
V_ID_CTR => NULL, -- Nu avem contract
V_ID_COMANDA => v_id_comanda -- OUT parameter cu ID_COMANDA
); );
IF v_id_comanda IS NULL OR v_id_comanda <= 0 THEN IF v_id_comanda IS NULL OR v_id_comanda <= 0 THEN
pINFO('ERROR IMPORTA_COMANDA ' || p_nr_comanda_ext || ': PACK_COMENZI.adauga_comanda a returnat ID invalid', 'IMPORT_COMENZI'); g_last_error := 'IMPORTA_COMANDA ' || p_nr_comanda_ext || ': PACK_COMENZI.adauga_comanda a returnat ID invalid';
RETURN -1; RETURN -1;
END IF; END IF;
@@ -265,7 +295,7 @@ CREATE OR REPLACE PACKAGE BODY PACK_IMPORT_COMENZI AS
EXCEPTION EXCEPTION
WHEN OTHERS THEN WHEN OTHERS THEN
pINFO('ERROR IMPORTA_COMANDA ' || p_nr_comanda_ext || ': Eroare la crearea comenzii: ' || SQLERRM, 'IMPORT_COMENZI'); g_last_error := 'IMPORTA_COMANDA ' || p_nr_comanda_ext || ': Eroare la crearea comenzii: ' || SQLERRM;
RETURN -1; RETURN -1;
END; END;
@@ -298,12 +328,13 @@ CREATE OR REPLACE PACKAGE BODY PACK_IMPORT_COMENZI AS
-- Adauga articolul la comanda -- Adauga articolul la comanda
BEGIN BEGIN
PACK_COMENZI.adauga_articol_comanda( PACK_COMENZI.adauga_articol_comanda(
p_id_comanda => v_id_comanda, V_ID_COMANDA => v_id_comanda,
p_id_articol => art_rec.id_articol, V_ID_ARTICOL => art_rec.id_articol,
p_cantitate => art_rec.cantitate_roa, V_ID_POL => c_id_pol,
p_pret => art_rec.pret_unitar, V_CANTITATE => art_rec.cantitate_roa,
p_id_pol => c_id_pol, V_PRET => art_rec.pret_unitar,
p_id_util => c_id_util V_ID_UTIL => c_id_util,
V_ID_SECTIE => c_id_sectie
); );
v_articole_procesate := v_articole_procesate + 1; v_articole_procesate := v_articole_procesate + 1;
@@ -333,13 +364,13 @@ CREATE OR REPLACE PACKAGE BODY PACK_IMPORT_COMENZI AS
EXCEPTION EXCEPTION
WHEN OTHERS THEN WHEN OTHERS THEN
pINFO('ERROR IMPORTA_COMANDA ' || p_nr_comanda_ext || ': Eroare la parsarea JSON: ' || SQLERRM, 'IMPORT_COMENZI'); g_last_error := 'IMPORTA_COMANDA ' || p_nr_comanda_ext || ': Eroare la parsarea JSON: ' || SQLERRM;
RETURN -1; RETURN -1;
END; END;
-- Verifica daca s-au procesat articole cu succes -- Verifica daca s-au procesat articole cu succes
IF v_articole_procesate = 0 THEN IF v_articole_procesate = 0 THEN
pINFO('ERROR IMPORTA_COMANDA ' || p_nr_comanda_ext || ': Niciun articol nu a fost procesat cu succes', 'IMPORT_COMENZI'); g_last_error := 'IMPORTA_COMANDA ' || p_nr_comanda_ext || ': Niciun articol nu a fost procesat cu succes';
RETURN -1; RETURN -1;
END IF; END IF;
@@ -353,9 +384,9 @@ CREATE OR REPLACE PACKAGE BODY PACK_IMPORT_COMENZI AS
EXCEPTION EXCEPTION
WHEN OTHERS THEN WHEN OTHERS THEN
pINFO('ERROR IMPORTA_COMANDA ' || p_nr_comanda_ext || ': Eroare neasteptata in importa_comanda_web: ' || SQLERRM, 'IMPORT_COMENZI'); g_last_error := 'IMPORTA_COMANDA ' || p_nr_comanda_ext || ': Eroare neasteptata in importa_comanda: ' || SQLERRM;
RETURN -1; RETURN -1;
END importa_comanda_web; END importa_comanda;
END PACK_IMPORT_COMENZI; END PACK_IMPORT_COMENZI;
/ /

56
docs/PACK_COMENZI.pck
View File

@@ -33,6 +33,22 @@ create or replace package PACK_COMENZI is
V_COMANDA_EXTERNA in varchar2, V_COMANDA_EXTERNA in varchar2,
V_ID_CTR IN NUMBER); V_ID_CTR IN NUMBER);
-- Versiune overloaded care returneaza ID_COMANDA prin OUT parameter
procedure adauga_comanda(V_NR_COMANDA IN VARCHAR2,
V_DATA_COMANDA IN DATE,
V_ID IN NUMBER,
V_DATA_LIVRARE IN DATE,
V_PROC_DISCOUNT IN NUMBER,
V_INTERNA IN NUMBER,
V_ID_UTIL IN NUMBER,
V_ID_SECTIE IN NUMBER,
V_ID_ADRESA_FACTURARE in NUMBER,
V_ID_ADRESA_LIVRARE in NUMBER,
V_ID_CODCLIENT in number,
V_COMANDA_EXTERNA in varchar2,
V_ID_CTR IN NUMBER,
V_ID_COMANDA OUT NUMBER);
procedure modifica_comanda(V_ID_COMANDA IN NUMBER, procedure modifica_comanda(V_ID_COMANDA IN NUMBER,
V_NR_COMANDA IN VARCHAR2, V_NR_COMANDA IN VARCHAR2,
V_DATA_COMANDA IN DATE, V_DATA_COMANDA IN DATE,
@@ -227,7 +243,6 @@ create or replace package PACK_COMENZI is
tnIdVanzare OUT VANZARI.ID_VANZARE%TYPE); tnIdVanzare OUT VANZARI.ID_VANZARE%TYPE);
end PACK_COMENZI; end PACK_COMENZI;
/ /
create or replace package body PACK_COMENZI is create or replace package body PACK_COMENZI is
-- ultima eroare atribuita : COM-001 -- ultima eroare atribuita : COM-001
@@ -352,6 +367,30 @@ create or replace package body PACK_COMENZI is
V_ID_CODCLIENT in number, V_ID_CODCLIENT in number,
V_COMANDA_EXTERNA in varchar2, V_COMANDA_EXTERNA in varchar2,
V_ID_CTR IN NUMBER) is V_ID_CTR IN NUMBER) is
V_ID_COMANDA NUMBER;
begin
-- Wrapper pentru compatibilitate - apeleaza versiunea cu OUT parameter
adauga_comanda(V_NR_COMANDA, V_DATA_COMANDA, V_ID, V_DATA_LIVRARE, V_PROC_DISCOUNT,
V_INTERNA, V_ID_UTIL, V_ID_SECTIE, V_ID_ADRESA_FACTURARE,
V_ID_ADRESA_LIVRARE, V_ID_CODCLIENT, V_COMANDA_EXTERNA, V_ID_CTR,
V_ID_COMANDA);
end adauga_comanda;
-- Versiune overloaded care returneaza ID_COMANDA prin OUT parameter (IMPLEMENTAREA PRINCIPALA)
procedure adauga_comanda(V_NR_COMANDA IN VARCHAR2,
V_DATA_COMANDA IN DATE,
V_ID IN NUMBER,
V_DATA_LIVRARE IN DATE,
V_PROC_DISCOUNT IN NUMBER,
V_INTERNA IN NUMBER,
V_ID_UTIL IN NUMBER,
V_ID_SECTIE IN NUMBER,
V_ID_ADRESA_FACTURARE in NUMBER,
V_ID_ADRESA_LIVRARE in NUMBER,
V_ID_CODCLIENT in number,
V_COMANDA_EXTERNA in varchar2,
V_ID_CTR IN NUMBER,
V_ID_COMANDA OUT NUMBER) is
V_NR_INREGISTRARI NUMBER(10); V_NR_INREGISTRARI NUMBER(10);
V_NESTERS NUMBER(1) := 0; V_NESTERS NUMBER(1) := 0;
V_ID_PART NOM_PARTENERI.ID_PART%TYPE; V_ID_PART NOM_PARTENERI.ID_PART%TYPE;
@@ -362,7 +401,7 @@ create or replace package body PACK_COMENZI is
V_ID_ADRESA_LIVRARE1 NUMBER(10); V_ID_ADRESA_LIVRARE1 NUMBER(10);
V_ID_CODCLIENT1 comenzi.id_codclient%TYPE; V_ID_CODCLIENT1 comenzi.id_codclient%TYPE;
V_COMANDA_EXTERNA1 comenzi.COMANDA_EXTERNA%TYPE; V_COMANDA_EXTERNA1 comenzi.COMANDA_EXTERNA%TYPE;
V_ID_SUCURSALA NOM_SECTII.ID_SUCURSALA%TYPE;
begin begin
SELECT COUNT(*) SELECT COUNT(*)
INTO V_NR_INREGISTRARI INTO V_NR_INREGISTRARI
@@ -433,8 +472,8 @@ create or replace package body PACK_COMENZI is
V_COMANDA_EXTERNA1 := ''; V_COMANDA_EXTERNA1 := '';
END CASE; END CASE;
--dbms_output.put_line(V_ID_SECTIE); SELECT MAX(ID_SUCURSALA) INTO V_ID_SUCURSALA FROM NOM_SECTII WHERE ID_SECTIE = V_ID_SECTIE;
--dbms_output.put_line(V_ID_SECTIE2);
INSERT INTO COMENZI INSERT INTO COMENZI
(NR_COMANDA, (NR_COMANDA,
DATA_COMANDA, DATA_COMANDA,
@@ -452,7 +491,7 @@ create or replace package body PACK_COMENZI is
COMANDA_EXTERNA, COMANDA_EXTERNA,
ID_SUCURSALA, ID_SUCURSALA,
ID_CTR) ID_CTR)
SELECT V_NR_COMANDA, VALUES( V_NR_COMANDA,
V_DATA_COMANDA, V_DATA_COMANDA,
V_ID_GESTIUNE, V_ID_GESTIUNE,
V_ID_PART, V_ID_PART,
@@ -466,10 +505,9 @@ create or replace package body PACK_COMENZI is
V_ID_CODCLIENT1, V_ID_CODCLIENT1,
V_PROC_DISCOUNT, V_PROC_DISCOUNT,
V_COMANDA_EXTERNA1, V_COMANDA_EXTERNA1,
ID_SUCURSALA, V_ID_SUCURSALA,
V_ID_CTR V_ID_CTR)
FROM NOM_SECTII RETURNING ID_COMANDA INTO V_ID_COMANDA;
WHERE ID_SECTIE = V_ID_SECTIE;
end adauga_comanda; end adauga_comanda;
---------------------------------------------------------------------------------- ----------------------------------------------------------------------------------
procedure modifica_comanda(V_ID_COMANDA IN NUMBER, procedure modifica_comanda(V_ID_COMANDA IN NUMBER,