1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
CREATE OR REPLACE PROCEDURE p_envoifianet (
p_codsoc IN NUMBER,
p_siteid IN NUMBER -- identifiant de site pour FIA-NET
)
IS
wa_xmldoc CLOB;
wa_url_envoi CLOB;
wa_xmlresponse xmldom.domdocument;
wa_xmltest xmltype;
wa_retval VARCHAR2 (15);
wa_deterror VARCHAR2 (30);
fichier_dbase UTL_FILE.file_type;
w_repertoire VARCHAR2 (15);
fic_dbase VARCHAR2 (15);
BEGIN
wa_xmldoc := f_generexmlfianet (p_codsoc, p_siteid);
wa_url_envoi :='http://secure.fia-net.com/pprod/engine/stacking.cgi?siteid='|| p_siteid|| '&controllcallback='|| wa_xmldoc;
--On récupère le flux xml de validation de format
xml_http.get (wa_url_envoi, wa_xmlresponse);
--On vérifie si FIA-NET a validé le format de notre flux XML
IF xpath.TEST (wa_xmlresponse, 'validstack/result/@avancement="en cours"')
THEN
wa_retval := 'valide';
ELSE
wa_retval := 'error';
wa_deterror :=
xpath.valueof (wa_xmlresponse, 'validstack/result/detail');
END IF;
xmldom.freedocument (wa_xmlresponse);
EXCEPTION
WHEN OTHERS
THEN
xmldom.freedocument (wa_xmlresponse);
END;
/ |
Partager