
21-10-2004
|
 |
Miembro
|
|
Registrado: may 2004
Posts: 40
Reputación: 0
|
|
Por si sirve de algo, este es el plsql que quisiera "meter" en Delphi:
Código:
DECLARE
vXMLParam VARCHAR2(200) :=
'<?xml version="1.0" encoding="iso-8859-1"?>' ||
'<parametros>' ||
'<PARAMNIF>394002</PARAMNIF>' ||
'</parametros>';
cDoc CLOB;
err VARCHAR2(2000);
vId NUMBER;
BEGIN
SELECT campo3 INTO vId
FROM tabla
WHERE campo1 = 'PRUEBA' AND campo2='PRUEBA';
dbms_LOB.CreateTemporary(cDoc, TRUE);
dbms_LOB.Open(cDoc, dbms_LOB.LOB_READWRITE);
cDoc := Fu_Instancia_XML(vId, vXMLParam);
PrintCLOBOut(cDoc); <== E S T O E S L O Q U E N E C E S I T O
dbms_lob.Close(cDoc);
dbms_lob.freetemporary(cDoc);
END;
Saludos.
Última edición por Tino fecha: 21-10-2004 a las 20:45:00.
|