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

FSN#19006: Generaliseren factuur import - Nieuwe functie imp_getfield_nr

Browse Source 
svn path=/Database/trunk/; revision=10474
This commit is contained in:
Marcel Bourseau
2010-10-29 14:48:12 +00:00
parent 636ec6f575
commit cef44dbded
1 changed files with 33 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
FAC/FAC_PAC.SRC
View File

@@ -1,5 +1,5 @@
/* $Revision: 196 $
* $Modtime: 14-10-10 17:58 $
/* $Revision: 197 $
* $Modtime: 29-10-10 16:37 $
*/
/*
@@ -385,6 +385,13 @@ CREATE OR REPLACE PACKAGE fac AS
p_fielddelimitor IN VARCHAR2,
p_field OUT VARCHAR2
);
PROCEDURE imp_getfield_nr (p_parseline IN VARCHAR2,
p_fielddelimitor IN VARCHAR2,
p_nr IN NUMBER,
p_field OUT VARCHAR2
);
PROCEDURE imp_writelog( pAppl IN VARCHAR2,
pRun IN VARCHAR2,
pLevel IN VARCHAR2,
@@ -1008,6 +1015,29 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END IF;
END;
-- Retourneert het gegevens uit de kolom met volgnummer 'p_nr', beginnend met kolomnr 1.
-- 'Uiteraard' is deze functie gebaseerd op imp_getfield!
-- Verschil is dat p_parseline hier alleen IN-parameter is (en niet IN-OUT), en natuurlijk de extra parameter p_nr.
PROCEDURE imp_getfield_nr (
p_parseline IN VARCHAR2,
p_fielddelimitor IN VARCHAR2,
p_nr IN NUMBER,
p_field OUT VARCHAR2
)
AS
l_parseline VARCHAR2(1024);
l_nr NUMBER(10);
BEGIN
l_parseline :=p_parseline;
l_nr :=p_nr;
WHILE l_nr >= 1
LOOP
-- look for the next kolom in p_parseline
fac.imp_getfield (l_parseline, p_fielddelimitor, p_field);
l_nr := l_nr -1;
END LOOP;
END;
PROCEDURE imp_writelog (
pappl IN VARCHAR2,
@@ -3045,4 +3075,4 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END fac;
/
REGISTERRUN('$Workfile: FAC_PAC.SRC $','$Revision: 196 $')
REGISTERRUN('$Workfile: FAC_PAC.SRC $','$Revision: 197 $')