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

BAMG#73770 -- Koppeling met Lyreco

Browse Source 
svn path=/Customer/trunk/; revision=59688
This commit is contained in:
Arthur Egberink
2023-03-22 09:28:58 +00:00
parent a91f78aeee
commit c71438b7b4
1 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
BAMG/bamg.sql
View File

@@ -1618,6 +1618,10 @@ AS
v_tracking VARCHAR2 (2048);
v_lyreco_key NUMBER;
v_aantal NUMBER;
v_bes_bestellevr_key NUMBER;
v_bes_bestellevr_pakbon VARCHAR2 (100);
v_bes_bestellevr_datum_txt VARCHAR2 (100);
v_bes_bestellevr_datum DATE;
BEGIN
v_tracking := '';
v_count_tot := 0;
@@ -1641,6 +1645,8 @@ BEGIN
fac.imp_getfield (v_newline, c_delim, v_bes_srtdeel_nr);
fac.imp_getfield (v_newline, c_delim, v_bes_srtdeel_omschrijving);
fac.imp_getfield (v_newline, c_delim, v_bes_bestelopdr_item_aantal);
fac.imp_getfield (v_newline, c_delim, v_bes_bestellevr_pakbon);
fac.imp_getfield (v_newline, c_delim, v_bes_bestellevr_datum_txt);
IF (header_is_valid = 0)
THEN
@@ -1700,7 +1706,17 @@ BEGIN
AND bes_srtdeel_nr = v_bes_srtdeel_nr;
v_errormsg := 'Fout bij bepalen aantal';
v_aantal := FAC.safe_to_number (v_bes_bestelopdr_item_aantal);
v_aantal := TO_NUMBER (v_bes_bestelopdr_item_aantal);
v_errormsg := 'Fout bij bepalen datum';
v_bes_bestellevr_datum := TO_DATE(SUBSTR(v_bes_bestellevr_datum_txt, 1,10), 'yyyy-mm-dd');
INSERT INTO bes_bestellevr(bes_bestellevr_datum, bes_bestellevr_pakbon, prs_perslid_key)
VALUES (v_bes_bestellevr_datum, SUBSTR(v_bes_bestellevr_pakbon,1,50), v_lyreco_key)
RETURNING bes_bestellevr_key INTO v_bes_bestellevr_key;
INSERT INTO bes_bestellevr_item ( bes_bestellevr_key , bes_bestelopdr_item_key , bes_bestellevr_item_aantal )
VALUES (v_bes_bestellevr_key, v_bes_bestelopdr_item_key, v_aantal);
v_errormsg := 'Fout bij aanpassen aantal bestelopdrachtregel [' || v_bes_bestelopdr_item_key || ']';