Posts: 336

Joined: Wed May 16, 2007 09:40 PM

XML, CON ARCHIVO ADJUNTO PDF
Posted: Thu Sep 28, 2023 10:01 PM

Estoy tratando de recuperar un archivo PDF, que se encuentra dentro de un XML,,, pero no he podido , ya que al visualizarlo en Adobe me lo muestra en blanco, donde el XML trae una marca donde empieza el PDF y Finaliza,, estas son

%PDF-1.4 dfhaskfhhuiahakjabv,cxzngiajfmknvjsfjgsdlnl %%EOF

TRY

oHttp := CreateObject( 'MSXML2.XMLHTTP.6.0' )

CATCH

oHttp := CreateObject( 'Microsoft.XMLHTTP' )

END

doc = CreateObject("MSXML2.DOMDocument.6.0")

oHttp:Open( "POST" , ts_servidor , .F. )

oHttp:SetRequestHeader( "SOAPAction" , "token" )

oHttp:SetRequestHeader("Content-Type", "text/xml; charset=UTF-8" )

oHttp:SetRequestHeader( "Connection:", "Keep-Alive" )

doc:LoadXML( cXmlbody )

TRY

ohttp:Send( doc:xml ) //ENVIO XML

CATCH

cErrorMsg:='No Se Pudo Enviar Documento XML...'+CRLF+CRLF+;

         'Sin Conexion a Internet o Servidor Con Problemas'

msginfo(cErrorMsg,"Intente Nuevamente")

return .t.

END

response = ohttp:responseText //RESPUESTA DEL WS

//BUSCAR PRINCIPIO Y FINAL

pdfin:=at("%PDF-1.4",response)

pdfend:=At("%EOF",response)

largo:=pdfend-pdfin

resp:=substr(response,pdfin,largo+4)

cFilename:="texto.pdf"

Grabo el Archivo PDF

ferase(cfilename)

oText:= TTxtFile():New( cfilename )

if oText:Open()

oText:add(alltrim(resp))

endif

oText:close()

Fivewin-Xharbour 24.09, Iquique, Chile

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Thu Sep 28, 2023 10:35 PM

Hola buenas tardes como estas?

Creo que el problema tiene que ver con los caracteres especiales en los que se codifican los archivos pdf, generan error, normalmente la data del archivo pdf debe venir encriptada en base64 dentro del xml, luego que descargues el xml, recuperas el nodo en donde viene el pdf y grabas el archivo en el disco local.

Eso nos sucedió alguna vez, y fue la forma de solucionarlo. Cabe aclarar que teníamos el control del lado del servidor y fue fácil encriptar el archivo en base64, antes de descargarlo.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Fri Sep 29, 2023 02:50 PM

leandro wrote:Hola buenas tardes como estas?

Creo que el problema tiene que ver con los caracteres especiales en los que se codifican los archivos pdf, generan error, normalmente la data del archivo pdf debe venir encriptada en base64 dentro del xml, luego que descargues el xml, recuperas el nodo en donde viene el pdf y grabas el archivo en el disco local.

Eso nos sucedió alguna vez, y fue la forma de solucionarlo. Cabe aclarar que teníamos el control del lado del servidor y fue fácil encriptar el archivo en base64, antes de descargarlo.

Hola,, lo intente de esa forma grabar completo el XML en el disco y luego extraer el pdf,, pero no igual me lo muestra en blanco,,, lo he grabado de diferentes formas y me sigue mostrando el pdf en blanco, algo debo estar haciendo mal y no se que es ????, aca dejo el XML de respuesta,, se supone que el PDF empieza don esta el %PDF-1.4 y termina en %%EOF...

Code (fw): Select all Collapse

------=_Part_2_792699545.1695998776732
Content-Type: application/xop+xml; charset=utf-8; type="text/xml"
Content-Transfer-Encoding: 8bit
Content-ID: <soapPart>

<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"><env:Header xmlns:work="http://bea.com/2004/06/soap/workarea/"><cl:token xmlns:cl="cl.zofri.sve">ba2f0d062320c0362--9a10b889-74-5-a214-9b4d dd61-2219-b:b494c076087:7e31a-a1fad2623008026b-39-1-b580-2495ea-10-2b5d9dc6 -c219bb1be9:c0740f76793:a</cl:token><cl:respuesta xmlns:cl="cl.zofri.sve"><java:resCodigo xmlns:java="java:cl.zofri.sve.utl.bo">0</java:resCodigo><java:resMensaje xmlns:java="java:cl.zofri.sve.utl.bo">Se ejecutó correctamente el servicio. </java:resMensaje><java:resSeveridad xmlns:java="java:cl.zofri.sve.utl.bo">O</java:resSeveridad></cl:respuesta><work:WorkContext xmlns:wsu="http://schemas.xmlsoap.org/ws/2002/07/utility" xmlns:work="http://bea.com/2004/06/soap/workarea/"><java class="java.beans.XMLDecoder"> 
 <string>weblogic.app.svePerfilacionEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.2</string> 
 <string>weblogic.app.sveProcDocEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.2</string> 
 <string>weblogic.app.knaEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.0</string> 
 <string>weblogic.app.sveAplicacionEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.0</string> 
 <string>weblogic.app.sveAuditoriaEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.0</string> 
 <string/> 
</java></work:WorkContext></env:Header><env:Body><m:emisionBorradoresResponse xmlns:m="http://cl/zofri/sve/prd/wsn"><m:return><Include xmlns="http://www.w3.org/2004/08/xop/include" href="cid:return=850b77a9-a0da-422b-9cc7-eb2dfbc87be8@http://cl/zofri/sve/prd/wsn"/></m:return></m:emisionBorradoresResponse></env:Body></env:Envelope>
------=_Part_2_792699545.1695998776732
Content-Type: application/octet-stream
Content-Transfer-Encoding: binary
Content-ID: <return=850b77a9-a0da-422b-9cc7-eb2dfbc87be8@http://cl/zofri/sve/prd/wsn>

%PDF-1.4
%??5 0 obj
<</Length 1808/Filter/FlateDecode>>stream
x?????@???Q??;?%?CI???'??`????????8vT?t?????Tu
?#3?:???????/;??????~?{?wqYe
dUdUy+?\??T??????????W??0?b2u?I??3?j???@????u0h|t??z?g?F?j???ux???<??Z?w?i?X?????+EVCU??]$??D?/?Q??aF??x??g]?????3?a??R%
>8e
_,?    '?{;?X?-?4/??I,?[-??Z???^?[?!)??5?X?@?#??d??$1BP?O?]??t??Qf??W?3?E?\Yd??2??C??f????t?E?7?????^7e?M???S???%;a?????K?????c!??r]??p'??py???0!?????J??^??P??i:??????7X???????????9E????Z????
?]?Ns?ax??a?]?????7???????+  ???.???8?????????3?^ %??,E?l?5v R?a ?2?1??J0?eE??4?"(y
?m??? ?Bu?ZK]n???????na??u>?? ??~}Ns[??C;????_?Q?_JY\A??)??<h?Vz}??crs??Z'???h^?g?)??Q?i???2???R^???OA?4yK????I??`z\?????~?A%?*?y7????PN?A??D??KA??{???iJ??66?m?v?E?????L+G??m¾d????M-?S.?r?^?q?Zk????i?x???Nz?????I?NX?h??Va??)??? pE??????SR?!??\?=\Z?c???$?EJq????Wc?VL?y??????y???C???Xe??{?}cc??B??
??b?>/???<??????????????Qfz?O?UP?J?q?klo?????z??*??;?????~t'??
ez;:??????????$????I?????L???n????'???']E???????i??&0??o:3-{G?f?RX??&?^Il???P*??7Lf0??=?8\??6h?;?r?
6f#T???+  ?:Sl??????~???a??????????^?5?r?lC?'?y???'jYG?N?????b+#??????s>????o?z?D_2???????t??4?A?a???Z????)??????8'R*.?;??,'?QL6???%?4OD?B`?4?R   Ln?????v8z??=&?S??(RS
endstream
endobj
1 0 obj
<</Group<</Type/Group/CS/DeviceRGB/S/Transparency>>/Parent 6 0 R/Contents 5 0 R/Type/Page/Resources<</ProcSet [/PDF /Text /ImageB /ImageC /ImageI]/ColorSpace<</CS/DeviceRGB>>/Font<</F1 2 0 R/F2 3 0 R/F3 4 0 R>>>>/MediaBox[0 0 612 935]>>
endobj
7 0 obj
[1 0 R/XYZ 0 945 0]
endobj
2 0 obj
<</BaseFont/Helvetica/Type/Font/Encoding/WinAnsiEncoding/Subtype/Type1>>
endobj
3 0 obj
<</BaseFont/Courier/Type/Font/Encoding/WinAnsiEncoding/Subtype/Type1>>
endobj
4 0 obj
<</BaseFont/Courier-Bold/Type/Font/Encoding/WinAnsiEncoding/Subtype/Type1>>
endobj
6 0 obj
<</ITXT(2.1.7)/Type/Pages/Count 1/Kids[1 0 R]>>
endobj
8 0 obj
<</Names[(JR_PAGE_ANCHOR_0_1) 7 0 R]>>
endobj
9 0 obj
<</Dests 8 0 R>>
endobj
10 0 obj
<</Names 9 0 R/Type/Catalog/ViewerPreferences<</PrintScaling/AppDefault>>/Pages 6 0 R>>
endobj
11 0 obj
<</Creator(JasperReports \(docIngreso_Borrador\))/Producer(iText 2.1.7 by 1T3XT)/ModDate(D:20230929114616-03'00')/CreationDate(D:20230929114616-03'00')>>
endobj
xref
0 12
0000000000 65535 f 
0000001891 00000 n 
0000002178 00000 n 
0000002266 00000 n 
0000002352 00000 n 
0000000015 00000 n 
0000002443 00000 n 
0000002143 00000 n 
0000002506 00000 n 
0000002560 00000 n 
0000002592 00000 n 
0000002696 00000 n 
trailer
<</Root 10 0 R/ID [<ab932da16982b1c3acd6ccb3e9409e1b><953cfe49375ad41fbbe6bab7a3bbb99a>]/Info 11 0 R/Size 12>>
startxref
2866
%%EOF

------=_Part_2_792699545.1695998776732--

Fivewin-Xharbour 24.09, Iquique, Chile

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Fri Sep 29, 2023 02:53 PM

Si quieres enviame el xml a mi correo e intentamos ayudarte.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Fri Sep 29, 2023 08:34 PM

leandro wrote:Si quieres enviame el xml a mi correo e intentamos ayudarte.

Enviado a tu email,,,, envie el XML de salida donde se encuentra el PDF y el programa que hace el llamado al ws ,,, agradeceria tu ayuda

de principio se ve bien,, pero no se donde esta el problema, si en el archivo de respuesta o en la programacion

saludos
Elmo

Fivewin-Xharbour 24.09, Iquique, Chile

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Sat Sep 30, 2023 06:11 PM

Publico el codigo, para ver si alguien encuentra un error, ya que se me fueron todas las ideas,,,, el tema es que cuando me entrega la respuesta el WS,,. el XML no viene completo, como debiera ser,,, en soapui lo probe y funciona,,,, otro programador en Windev lo probo y le funciona

aca dejo el codigo fuente

Code (fw): Select all Collapse

#include "Fivewin.ch"
#include "Xml.ch"
#include "hbxml.ch"
#include "common.ch"
#Include "winapi.ch"
#Include "objects.ch"

///----------------------------------------------------------------------------
///----------------------------------------------------------------------------
///RECUPERA DOCUMENTO ADJUNTO A IMPRIMIR
///----------------------------------------------------------------------------
FUNCTION RDOCLPT()
 LOCAL oHttp,Doc,cxmLbody,oIni,nHandle
 LOCAL ts_token:="",ts_exit:=.t.,tw_servidor:='',ts_mj1:='',ts_modulo:=.f.
 LOCAL ts_servidor:="http://sve.zofri.cl/sveProcDocWSN/Emision?WSDL"
 LOCAL ts_etapa:="101"


 if .NOT.FILE("\QASVE\config\config.ini")
  msgstop('No Existe Token Valido, Obtenga uno Valido','Verifique')
  return .f.
 else
  INI oIni File "\QASVE\config\config.ini"
  GET ts_modulo SECTION "WEBSERVICE" ENTRY "Modulo "+ts_etapa OF oIni
  if ts_modulo
   GET ts_token SECTION "TOKEN SESION QA "+e_rutemp ENTRY "Token" OF oIni
   GET tw_servidor SECTION "WEBSERVICE" ENTRY "Serverqa" OF oIni
  else
   GET ts_token SECTION "TOKEN SESION "+e_rutemp ENTRY "Token" OF oIni
   GET tw_servidor SECTION "WEBSERVICE" ENTRY "Servidor" OF oIni
  endif
 endif
 if empty(ts_token)
  msginfo('Debe Obtener un Token de Inicio para Autentificarse en Web Service','Token de Sesion')
  return .f.
 endif
 ts_servidor:=tw_servidor+ts_servidor

 cXmlBody:= '' +;
  '<?xml version="1.0" encoding="utf-8"?>' + ;
  '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:cl="cl.zofri.sve" xmlns:wsn="http://cl/zofri/sve/prd/wsn">'+;
  ' <soapenv:Header>'+;
  '  <cl:token>'+ts_token+'</cl:token>'+;
  ' </soapenv:Header>'+;
  ' <soapenv:Body>'+;
  '  <wsn:emisionDocumento>'+;
  '   <wsn:codigoAduaneroDoc>101-23-042489</wsn:codigoAduaneroDoc>'+;
  '  <wsn:tipoEmision>E</wsn:tipoEmision>'+;
  '  </wsn:emisionDocumento>'+;
  ' </soapenv:Body>'+;
  '</soapenv:Envelope>'


   ?cxmlbody
 TRY
  oHttp := CreateObject( 'MSXML2.XMLHTTP' )
 CATCH
  oHttp := CreateObject( 'Microsoft.XMLHTTP' )
 END
 doc = CreateObject("MSXML2.DOMDocument.6.0")

 oHttp:Open( "POST" , ts_servidor+' HTTP/1.1' , .F. )
 oHttp:SetRequestHeader( "Accept-Encoding","gzip,deflate" )
 oHttp:SetRequestHeader( "Content-Type", "text/xml;charset=UTF-8" )
 oHttp:SetRequestHeader( "SOAPAction" , "" )
 oHttp:SetRequestHeader( "Content-Length", "622")
 ohttp:setrequestHeader( "Host", "sve.zofri.cl:80" )
 oHttp:SetRequestHeader( "Connection:", "Keep-Alive" )
 oHttp:SetReQuestHeader( "User-Agent" , "Apache-HttpClient/4.5.5 (java 16.0.1)")

 doc:LoadXML( cXmlbody )

 TRY
  // ohttp:Send( doc:xml )
  ohttp:send(cxmlbody)
 CATCH
  cErrorMsg:='No Se Pudo Enviar Documento XML...'+CRLF+CRLF+;
             'Sin Conexion a Internet o Servidor Con Problemas'
  msginfo(cErrorMsg,"Intente Nuevamente")
  return .t.
 END

 response = ohttp:responseText

 //crear un archivo para leer tag
 cFilename:="texto.xml"
  MEMOWRIT( cfilename, response, .F. )

 //leer archivo para extraer el factura pdf
  CTXT:=MEMOREAD(CFILENAME)

  pdfin:=at("%PDF-1.4",CTXT)
  pdfend:=At("%EOF",CTXT)
  largo:=pdfend-pdfin
  Cresp:=substr(CTXT,pdfin,largo+4)

  CPDF:="TEXTO.PDF"
  MEMOWRIT( cPdf, CRESP, .F. )

RETURN .T.

XML CON ERROR FIVEWIN

Code (fw): Select all Collapse

------=_Part_2382_1164276092.1696025213279
Content-Type: application/xop+xml; charset=utf-8; type="text/xml"
Content-Transfer-Encoding: 8bit
Content-ID: <soapPart>

<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"><env:Header xmlns:work="http://bea.com/2004/06/soap/workarea/"><cl:token xmlns:cl="cl.zofri.sve">c72599064c208f3f2--48404ce9-44-c-9211-9973 f851-2793-4:94608e6670d:3765b-72589267c002f2f0-34-4-4ce0-a49cf9-13-29439fc5 -a713d49986:8b6076d63d6:b</cl:token><cl:respuesta xmlns:cl="cl.zofri.sve"><java:resCodigo xmlns:java="java:cl.zofri.sve.utl.bo">0</java:resCodigo><java:resMensaje xmlns:java="java:cl.zofri.sve.utl.bo">Se ejecutó correctamente el servicio. </java:resMensaje><java:resSeveridad xmlns:java="java:cl.zofri.sve.utl.bo">O</java:resSeveridad></cl:respuesta><work:WorkContext xmlns:wsu="http://schemas.xmlsoap.org/ws/2002/07/utility" xmlns:work="http://bea.com/2004/06/soap/workarea/"><java class="java.beans.XMLDecoder"> 
 <string>weblogic.app.sveParametrosEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.0</string> 
 <string>weblogic.app.sveCoexistenciaEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.0</string> 
 <string>weblogic.app.svePerfilacionEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.0</string> 
 <string>weblogic.app.sveProcDocEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.1</string> 
 <string>weblogic.app.knaEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.0</string> 
 <string>weblogic.app.sveAplicacionEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.0</string> 
 <string>weblogic.app.sveReglasEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.0</string> 
 <string>weblogic.app.sveAuditoriaEAR</string> 
 <int>214</int> 
 <string>weblogic.workarea.StringWorkContext</string> 
 <string>1.61.0</string> 
 <string/> 
</java></work:WorkContext></env:Header><env:Body><m:emisionDocumentoResponse xmlns:m="http://cl/zofri/sve/prd/wsn"><m:return><Include xmlns="http://www.w3.org/2004/08/xop/include" href="cid:return=aa27c5a6-f005-40d4-a43b-f901af0d963e@http://cl/zofri/sve/prd/wsn"/></m:return></m:emisionDocumentoResponse></env:Body></env:Envelope>
------=_Part_2382_1164276092.1696025213279
Content-Type: application/octet-stream
Content-Transfer-Encoding: binary
Content-ID: <return=aa27c5a6-f005-40d4-a43b-f901af0d963e@http://cl/zofri/sve/prd/wsn>

%PDF-1.4
%??4 0 obj
<</Type/XObject/ColorSpace[/Indexed/DeviceRGB 255(

Fivewin-Xharbour 24.09, Iquique, Chile

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Sat Sep 30, 2023 06:22 PM

XML CORRECTO WINDEV,, ASI DEBIERA SALIR O VERSE

------=_Part_214_1180907984.1695820569260

Content-Type: application/xop+xml; charset=utf-8; type="text/xml"

Content-Transfer-Encoding: 8bit

Content-ID: <soapPart>

<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"><env:Header xmlns:work="http://bea.com/2004/06/soap/workarea/"><cl:token xmlns:cl="cl.zofri.sve">ab279406842379312--60005329-b4-7-1209-780e 2111-db0e-f:043161169f4:e2301-b87842684036921c-36-0-5c20-e497e1-0c-281e72c1 -4b1e5f00e3:63119046e83:1</cl:token><cl:respuesta xmlns:cl="cl.zofri.sve"><java:resCodigo xmlns:java="java:cl.zofri.sve.utl.bo">0</java:resCodigo><java:resMensaje xmlns:java="java:cl.zofri.sve.utl.bo">Se ejecutÃ³ correctamente el servicio. </java:resMensaje><java:resSeveridad xmlns:java="java:cl.zofri.sve.utl.bo">O</java:resSeveridad></cl:respuesta><work:WorkContext xmlns:wsu="http://schemas.xmlsoap.org/ws/2002/07/utility" xmlns:work="http://bea.com/2004/06/soap/workarea/"><java class="java.beans.XMLDecoder">

<string>weblogic.app.sveParametrosEAR</string>

<string>weblogic.workarea.StringWorkContext</string>

<string>weblogic.app.sveCoexistenciaEAR</string>

<string>weblogic.workarea.StringWorkContext</string>

<string>weblogic.app.svePerfilacionEAR</string>

<string>weblogic.workarea.StringWorkContext</string>

<string>weblogic.app.sveProcDocEAR</string>

<string>weblogic.workarea.StringWorkContext</string>

<string>weblogic.app.knaEAR</string>

<string>weblogic.workarea.StringWorkContext</string>

<string>weblogic.app.sveAplicacionEAR</string>

<string>weblogic.workarea.StringWorkContext</string>

<string>weblogic.app.sveReglasEAR</string>

<string>weblogic.workarea.StringWorkContext</string>

<string>weblogic.app.sveAuditoriaEAR</string>

<string>weblogic.workarea.StringWorkContext</string>

</java></work:WorkContext></env:Header><env:Body><m:emisionDocumentoResponse xmlns:m="http://cl/zofri/sve/prd/wsn"><m:return><Include xmlns="http://www.w3.org/2004/08/xop/include" href="cid:return=a6a6877f-9091-400a-9ea7-e096b9307ca7@http://cl/zofri/sve/prd/wsn"/></m:return></m:emisionDocumentoResponse></env:Body></env:Envelope>

------=_Part_214_1180907984.1695820569260

Content-Type: application/octet-stream

Content-Transfer-Encoding: binary

Content-ID: <return=a6a6877f-9091-400a-9ea7-e096b9307ca7@http://cl/zofri/sve/prd/wsn>

%PDF-1.4

%âãÏÓ

5 0 obj

<</Type/XObject/ColorSpace[/Indexed/DeviceRGB 255( € € €€ €€ € €€€€€ü ÀÀÀÿ ÿ ÿÿ ÿÿ ÿ ÿÿÿÿÿ)]/Subtype/Image/BitsPerComponent 8/Width 1/Length 9/Height 1/Filter/FlateDecode/Mask [8 8 ]>>stream

xœã

endstream

endobj

6 0 obj

<</Length 950/Filter/FlateDecode>>stream

xœ½˜]nã6€ßuŠAŸ¶€Íÿ)å‰–åIt$9»I§´@P¤'ëz†^¨#9Ùl²‘Ü†naÃ²…á|œáüÉÉªO¤—¦Ðß&EŸœ'Î†»^Ãg*5ô÷ÉÉ†Gè¿$~ìdŸE~¾ÿv‘œipJ1©ökÅãZ%~¿K>”ç;zƒ.„»7ô]ßÐõvÜÏ4IZq„6¢” FL®‹Ïý

}¶¾9+Úk•<h”KL—…n3‘DgGÓ9¢Fgx¬eüe$ÂàaSb¤ÚjËŒŒîzÚž"b¼4p 5t[¬˜dn}çÏ

¨Ê&—6ÀPÑ‘?:SÎ™z}µi)ø¯BãaCñŸÇ[9@-…äLN§K”cøGÂD ¸2::^äPÖ3k™¢ÍcqÈÁâìšËX‡Ê·°ëbLq²M‘¿Æˆ{IËCÓ3XÛÐ•}€M‘ÿä3@¾DqŒ3ùFþc~óG©M•&º5hë¦ÑÔ(ï» ´È}½mv«2÷yùWs~*¦ùUÈ}U®ýš¨]_6!ƒãt^=&)&ådµ~hR¨Ä

Ô¾¹òT!0…¾Ú’3èöâiOJSGJM:ÏzÚ"/:7_ïZ_U~Û_•ãægÓ>–aÿk'o¥àœaú¹8ó‰ð£˜«‹6§ò\ú.¶fêá”L:e ÆÚfÍ@âck$çv±‹M1Z0süŠ <‚J‹ ®Žá.…„qlzâé‹:ãCS¦šÎQ-Å)Õ¼Ìiá4çüt,{,{õ£n§Ð¼Ìû§šA5î©f _À÷åàôMJ3%^jlB½j‹¬/ªâ¢ìBJþp

uXUÈòvÙ_(™êOËUÿ¶JÌ}½IÊ*Z>5dlX³mÖ¯tAÙlØ›

…`\¾Tè×ƒº“a

i,7°kÊžeÂâBk¡ŽÖ¶Ç

cj2 š‹´ÒXíª>t

Ø5A± éWQ×þ-Ëtj˜{UÇ·mYÐ¹ŠjxNbGÈ0ÎÝÌdú/3lxÑ²Ç{3~s)õj¢ãrÅŒ±Œ;=Ç‰!·§I=lúKðíÙ®ïjŠïu|ªþ¿K'gý.™£IH8³Œ(•™#…Ž³veGÅ½xWN>$€Œ[¤‘nD>~çN‘£%IÃÉç/Ö¿ÁyrNÂÜìwF{þVæ—û;Ü½Ý½ Ùµ_Öß&Ë¯ßfÿÓÓMíØÿ8½×

endstream

endobj

1 0 obj

<</Group<</Type/Group/CS/DeviceRGB/S/Transparency>>/Parent 7 0 R/Contents 6 0 R/Type/Page/Resources<</XObject<</img0 5 0 R/Xf1 4 0 R>>/ProcSet [/PDF /Text /ImageB /ImageC /ImageI]/ColorSpace<</CS/DeviceRGB>>/Font<</F1 2 0 R/F2 3 0 R>>>>/MediaBox[0 0 612 935]>>

endobj

8 0 obj

[1 0 R/XYZ 0 945 0]

endobj

2 0 obj

<</BaseFont/Helvetica/Type/Font/Encoding/WinAnsiEncoding/Subtype/Type1>>

endobj

3 0 obj

<</BaseFont/Courier/Type/Font/Encoding/WinAnsiEncoding/Subtype/Type1>>

endobj

4 0 obj

<</Type/XObject/Resources<</ProcSet [/PDF /Text /ImageB /ImageC /ImageI]>>/Subtype/Form/BBox[0 0 725 270]/Matrix [1 0 0 1 0 0]/Length 2367/FormType 1/Filter/FlateDecode>>stream

xœ½šËŽäÖD÷õý>«êþ‚/´ÒBÐN°¡Ó€¼ñï›ÍŒ|D

0 Ì¢y†‘gØ=

Æ%ëþù˜>–×ôaÇ×éãóñZöüúõ÷Ÿß??þõ˜?þóX>þv¤þxÌÓÇß¿ü:}üöøóøó

þ·ñ¿èŸ‰ÔkÙ~Œ§ Ói]ç×ñóü×Ÿÿó¸†åù>DûëÇçñg¯_ñ¥¾žç~üãñÜ"{\À\s8>óÈôãœ½kþ½×9Ÿ3ÈôãœKÍQçp|Î Ós~^¦Ìûñ¯¾q6à‹AIžKÌ’çh€Ï!FP’×³IÞk“ |1‚’Œ©$Ër|/œ

ð9ÄR²¬#æÉ¾6 À

(Ésj’ç«I >‡AI^[“¼ç&øb)Yçã‡ô„d]§€Ï„s.b%ÙßMò<~–{H >‡AIÆsöØ¦WI|1‚”lóÖ$k»’€s.b%ÙïoÉk

øLð9ÄJòz•dŸö:àsˆ¤dŸ—&™G“ Î¹ˆ”d9.m

Éº|&øb%Ù¦&y¾›àsˆ”d´+ynÇ!î–>7ú•¹’ç¾ÄÜ!ÙG“ ü^ŠAIÞS“¼_g7¸àsˆ”dl1wÜß§¹$>‡AÝãç½I–¥I ~kGŒ nç £Bòãù¸§OóÙKíÐ¢Îé^K~œ#,K•Q9ùqŽyL°,UEÆ5hÌc‚eimdÒS9‰¤rSU'™¶Õ`•'•›ªšÉ¤³jÔ“ÊM5^¥Zæ~«w¨QO*—ªµ”ÝEýÎxR¹©ªs¾Ú¨Ýé5úæ«¤¶:Ucé£N¦¥•†CzR¹T·LÍ!G‘Tnªj¯CõZZ9ÔèÎß0õ^¯ºSµMSë"‡õ¤r©Z7štœCŽ"©ÜT[¶ˆÝ–[zR¹©ªÕŒûP£žT.Uë6ÓÖ4Š¤rSUÃ™tŸCzR¹©¶WSí[S9Ô¨'•›j´«¢Ôè«rUóLÛp

Iå¦ªæ3íÄjÔ“ÊMUýgÜŒ€õ¤rë™jA“~t¨nñ¤r»ÉÄ9Ó¦ÿQœí0BÕ©‘ÊÆ,Â‚]GíhÚÀ˜GX°ë¨&íR¢ƒæì:.Ë£Ã¶™»ŠÈ+“s{7‡]œä•ÉIMl7M=Ø¼29©’¿J÷Í

NòÊÝÉ…jñxWNpþî!¯LNx,§–88È+““Ö®½ NòÊÝ¹®/vn;Ááˆ¼29©tíÒ¤Áé@^¹;¹2-žË Gä•É¹¼Ùyß¥å@^™œÏµ9ò™µ•êÄNä•ÉIÅ|8ÇÌNp:W&çx“SÁé@^¹;¹õífU0ÈyerÒr ŸwË NòÊä¤ò¶K¹§ye jq»iùAÎÈ+““êÜnêÞ9È+““zÝ.½œä•©-©àíº gC"¯L÷º8mº ÏÓâv¡¶&,€1‹°×QÍ›.€1°×QÍÛe0haÁ®ãŽ?ºvÝ¸÷À¡ˆ¼29iaßv~:W&'#òù»œàt ¯LN<[‡sYégçt ¯ÜÜñùz¹œàüÝC^™œ´Ž°o;?È+““Öùò¹œàt ¯Üë4Zk‚eå~‡#òÊä¤Ž·|šN'8È+w'¯#ìº ‡#òÊä\fv~Óùé@^™œ´Ž°ë œä•ÉI8ß;Áé@^™œ´Ž°o;?È+w'¯#ìÛ~Gä•É‰çø*ˆàt ¯LNêx»¬‚Ó¼2u¼Ý¬9#¯LNêx»Y8§yerRÇÛe

œä•©-©ãíº gC"¯L÷º8mºp<Zë€:ÊH[„D– Ž1êY&’QÅ›. cÜ³L$£‚·Ký>îY&’q·ÛµûÃ€¸ ©Ùí¦ùßdô¸ ©×-ŸËÓèœ

²‘ZýhÂIšÎ9$#wºÝôó«dã»·šåySáqA2Æ»ò0^ºÙ9ˆ²OôiÄ€4:§Âã‚lÜù»Æ'ÑetNÅNßµ®N#^ó‡ñÒôÎ©ð¸ ¹Çí¦çß]¸ ×ÛV?9+ýxš;?o‚÷]™

’1ž¸Ó8ó5‚C¸ —Þ‹ö]÷¦Âã‚l|Îl|/ltN…ÇÙ8øµÛÁ©|ãzÜÜvÓì£d#õ¶ÝôúÉ©ð¸ ©µíÒêàTx\:Û®îœµçqA¾?â¬I£;m_;ÃÎV¯£HT½‡ëÜ)æ<ÉÔM½¯MºÜ)f=ÉÔM½¬M‹|ôYO2uÕ´]+÷ÄGXt½Q-Þµ§Î1ç=,H:—ŸºÛvÍyv•u~´žEè˜¿$]¯æC·=Iç˜ó$?ü§îë»×ô‰9ïaAÒõš·Ë"À1ç=,ØuTùù)AôÔç$ÝNW§eí˜ó;]TyûÀ=txÏ’rÌyvÞë§î¶—caAÒõÎ'õªÐs~¥ï]¼5vÞÔ¸ 9ïaÁ®£þµk;>° ézùægç©sÌy’Î_Å×|'cÎ{Xtƒ®NJ˜óƒ¯n\®Ž:×®<ºaAÒõÂµkŸ˜ó$]o[Ó.æ¼‡©¿zÕÚ¥ˆ³´<,H7(œ4)bìq‹.Îƒ8_¥ó\ÃØåÖ[˜ {zÑš”0ö¹õ&èž^³¦<Ú¨ º‡6?ƒÏJs\¨~™HÖÛÛ¾©Û÷,Éz»Zl›NvQSõ2‘¬7w¾Z¯n<1Æ±§¨Ë¨Yí›fŒß"ìj»íäö6=eþ0ž2lÞš®ÔeØÍ2¼ÁÎÞq\‚–+‘ÌŸªS&‹o Ï2‘¬7ª]ú›º©n™Hö5mßÔkŒ{–©Ëð²û6Äxlì&"™ïkK™4-6{ƒ°!Žˆd½Ióóò”9Æ8v¹Ývpû¤<ï€\Ú±£.Ôï+uu´Å¶ì”a—v4öh2i÷ö¼îÍÜ°Ž1Ž½nD$ë

jÚ¯±Žê•‰nú½?íÚ®£Éb¿Ûmó¶ªM™v«oˆ£je"YïNÓf-qT¬LÔI½9íÒ«ØGµÊÔe?µ?ÿV!—

endstream

endobj

7 0 obj

<</ITXT(2.1.7)/Type/Pages/Count 1/Kids[1 0 R]>>

endobj

9 0 obj

<</Names[(JR_PAGE_ANCHOR_0_1) 8 0 R]>>

endobj

10 0 obj

<</Dests 9 0 R>>

endobj

11 0 obj

<</Names 10 0 R/Type/Catalog/ViewerPreferences<</PrintScaling/AppDefault>>/Pages 7 0 R>>

endobj

12 0 obj

<</Creator(JasperReports (docTraspasoVendedor_Electronico))/Producer(iText 2.1.7 by 1T3XT)/ModDate(D:20230925094216-03'00')/CreationDate(D:20230925094216-03'00')>>

endobj

xref

0 13

0000000000 65535 f

0000001986 00000 n

0000002297 00000 n

0000002385 00000 n

0000002471 00000 n

0000000015 00000 n

0000000969 00000 n

0000005041 00000 n

0000002262 00000 n

0000005104 00000 n

0000005158 00000 n

0000005191 00000 n

0000005296 00000 n

trailer

<</Root 11 0 R/ID [<c180ff39daf302e10978e630dd222557><5b79c04840413d755743e0c67d00611c>]/Info 12 0 R/Size 13>>

startxref

5478

%%EOF

------=_Part_214_1180907984.1695820569260--

Fivewin-Xharbour 24.09, Iquique, Chile

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Sun Oct 01, 2023 11:05 PM

Amigo como vas?

Pues intente al menos de manera manual revisar el pdf que viene en el xml, pero ni siquiera así se puede mirar de manera correcta.

Creo que tambien se hace difícil leer el xml que publicaste, parece no tener la estructura correcta.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Tue Oct 03, 2023 01:08 PM

leandro wrote:Amigo como vas?

Pues intente al menos de manera manual revisar el pdf que viene en el xml, pero ni siquiera así se puede mirar de manera correcta.

Creo que tambien se hace difícil leer el xml que publicaste, parece no tener la estructura correcta.

Hola Leandro,, gracias por contestar,,, puede ser que al ser copiado a foro no lleve algun caracter de control oculto dentro del archivo,,, te envio el original que si funciona que es de un colega que trabaja en otro lenguaje,,, y veras que si se puede.... a mi no me funciona para nada,,, mas encima no lo trae completo.... te lo envio a tu email,,, ambos xml para que veas la diferencia

agradeceria tu ayuda

Salduos
Elmo

Fivewin-Xharbour 24.09, Iquique, Chile

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Tue Oct 03, 2023 02:54 PM

Creo que de esta manera lo puedes solucionar, aunque primero debes descargar el xml en el disco local

Code (fw): Select all Collapse

#include "fivewin.ch"

function main()
Local oHandle
Local cIni := "%PDF-1.4"
Local cFin := "%%EOF"
Local cRuta := "c:\ayuda\elarchivo.pdf"
Local cText := MemoRead("c:\ayuda\textoWinDev.xml")

Local cResu := extract(cText, cIni, cFin )

cResu := cIni+CRLF+cResu+CRLF+cFin

oHandle := FCreate(cRuta)
FWrite(oHandle,cResu,Len(cResu))
FClose(oHandle)

Return nil 


Function extract(cToSearch, cBeginDelim, cEndDelim )
LOCAL cValue, nPos
cValue = cToSearch

nPos = AT(cBeginDelim, cValue)
IF nPos = 0
    RETURN ""
ENDIF

cValue = SUBS(cValue, nPos + LEN(cBeginDelim))
nPos = AT(cEndDelim,cValue)
IF nPos = 0
    RETURN ""
ENDIF

cValue = LEFT(cValue,nPos - 1)

RETURN cValue

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Tue Oct 03, 2023 03:39 PM

leandro wrote:Creo que de esta manera lo puedes solucionar, aunque primero debes descargar el xml en el disco local

Code (fw): Select all Collapse

#include "fivewin.ch"

function main()
Local oHandle
Local cIni := "%PDF-1.4"
Local cFin := "%%EOF"
Local cRuta := "c:\ayuda\elarchivo.pdf"
Local cText := MemoRead("c:\ayuda\textoWinDev.xml")

Local cResu := extract(cText, cIni, cFin )

cResu := cIni+CRLF+cResu+CRLF+cFin

oHandle := FCreate(cRuta)
FWrite(oHandle,cResu,Len(cResu))
FClose(oHandle)

Return nil 


Function extract(cToSearch, cBeginDelim, cEndDelim )
LOCAL cValue, nPos
cValue = cToSearch

nPos = AT(cBeginDelim, cValue)
IF nPos = 0
    RETURN ""
ENDIF

cValue = SUBS(cValue, nPos + LEN(cBeginDelim))
nPos = AT(cEndDelim,cValue)
IF nPos = 0
    RETURN ""
ENDIF

cValue = LEFT(cValue,nPos - 1)

RETURN cValue

Hola Leandro

Si efectivamente es asi como tu dices, pero el xml que me muestras no es el que yo recupero,, ese es uno de muestra que me envio otro programador,, el mio es el TEXTOFW, es es que no logro recuperarlo completo, solo una parte,,, viene incompleto,,, te envio el ejecutable y los programas fuentes por email,,, a ver si tu le encuentras un error,,, de antemano gracias

Fivewin-Xharbour 24.09, Iquique, Chile

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Tue Oct 03, 2023 03:52 PM

No te puedo enviar un adjunto por email,,,se devuelve por el attach,,, aca coloco el fuente que trabaja hace lallamda ,,se comunica y recibe la respuesta iincompleta

Code (fw): Select all Collapse

#include "Fivewin.ch"
#include "Xml.ch"
#include "hbxml.ch"
#include "common.ch"
#Include "winapi.ch"
#Include "objects.ch"

FUNCTION OTWS()  //Obtener Token Web Service
 LOCAL oHttp,Doc,cxmLbody,oIni,oDlg2,oSay,oText,response,res
 LOCAL ts_token:="",cErrormsg:=""
 LOCAL ts_exit:=.f.,tw_servidor:='',ts_mente:=.t.
 LOCAL ts_servidor:="http://sve.zofri.cl/svePerfilacionWSN/Sesion?WSDL"
 LOCAL ts_usuario:="nilce.navarrete"
 LOCAL ts_clave:="5700masa"
 LOCAL ts_nro:="99511570"
 LOCAL ts_dig:="0"

 if !isinternet()
  msgalert('Computador Sin Conexion a Internet','Verifique')
  return .f.
 endif

 //CONSTRUYE XML, PARA SOLICITAR TOKEN DE SESION
 cXmlBody := '' + ;
 '<?xml version="1.0" encoding="utf-8"?>' + ;
 '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:cl="cl.zofri.sve" xmlns:wsn="http://cl/zofri/sve/prf/wsn" xmlns:java="java:cl.zofri.sve.app.eo">'+;
 ' <soapenv:Header>'+;
 ' <cl:token></cl:token>'+;
 ' </soapenv:Header>'+;
 ' <soapenv:Body>'+;
 ' <wsn:login>'+;
 ' <wsn:usuario>'+alltrim(ts_usuario)+'</wsn:usuario>'+;
 ' <wsn:clave>'+alltrim(ts_clave)+'</wsn:clave>'+;
 ' <wsn:rutEmpresa>'+;
 ' <java:Dv>'+ts_dig+'</java:Dv>'+;
 ' <java:Nro>'+ts_nro+'</java:Nro>'+;
 ' </wsn:rutEmpresa>'+;
 ' <wsn:rutAgencia></wsn:rutAgencia>'+;
 ' </wsn:login>'+;
 ' </soapenv:Body>'+;
 '</soapenv:Envelope>'


 ohttp:=tipclienthttp():new(ts_servidor)
 if .not. ohttp:open()
  msgstop('Servidor Web '+ts_servidor,'Fuera de Servicio')
  return .f.
 endif

 doc   = CreateObject( "MSXML2.DOMDocument" )
 ohttp = CreateObject( "MSXML2.XMLHTTP" )
 ohttp:Open( "POST" , ts_servidor , .F. )
 ohttp:SetRequestHeader( "SOAPAction" , "token" )
 ohttp:SetRequestHeader( "Content-Type" , "text/xml; charset=utf-8" )

 doc:LoadXML( cXmlBody )

 TRY
  ohttp:Send( doc:xml )
 CATCH
  cErrorMsg:='No Se Pudo Enviar Documento XML...'+CRLF+CRLF+;
             'Sin Conexion a Internet o Servidor Con Problemas'
  msginfo(cErrorMsg,"Intente Nuevamente")
  return .t.
 END
 response = ohttp:responseText

 If .Not. Empty( Alltrim( response ) )
  res = CreateObject( "MSXML2.DOMDocument" )
  res:LoadXML( ohttp:responseText )
  txt = res:selectSingleNode( "//cl:token" )
  if txt != NIL
   ts_token := txt:Text
   txt = res:selectSingleNode( "//java:resMensaje" )
   cRetorno := txt:Text
  else
   ts_token:=""
   cRetorno = "### Hubo un Problema Con El Servidor, Mensaje No Pudo Ser Entregado ###"
  endif
  if empty(alltrim(ts_token))
   cRetorno = "### No Fue Posible Generar Proceso ###"
  Endif
 endif
 msginfo(cretorno,'Resultado del Proceso')
 Release doc
 Release ohttp
 Release res
 Release response
 RDOCLPT(TS_TOKEN)
RETURN .T.
//-----------------------------------------------------------------------------


///----------------------------------------------------------------------------
///----------------------------------------------------------------------------
///RECUPERA DOCUMENTO ADJUNTO A IMPRIMIR
///----------------------------------------------------------------------------
FUNCTION RDOCLPT(TS_TOKEN)
 LOCAL oHttp,Doc,cxmLbody,oIni,nHandle
 LOCAL ts_exit:=.t.,tw_servidor:='',ts_mj1:='',ts_modulo:=.f.
 LOCAL ts_servidor:="http://sve.zofri.cl/sveProcDocWSN/Emision?WSDL"


 if empty(ts_token)
  msginfo('Debe Obtener un Token de Inicio para Autentificarse en Web Service','Token de Sesion')
  return .f.
 endif

 cXmlBody:= '' +;
  '<?xml version="1.0" encoding="utf-8"?>' + ;
  '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:cl="cl.zofri.sve" xmlns:wsn="http://cl/zofri/sve/prd/wsn">'+;
  ' <soapenv:Header>'+;
  '  <cl:token>'+ts_token+'</cl:token>'+;
  ' </soapenv:Header>'+;
  ' <soapenv:Body>'+;
  '  <wsn:emisionDocumento>'+;
  '   <wsn:codigoAduaneroDoc>101-23-042489</wsn:codigoAduaneroDoc>'+;
  '  <wsn:tipoEmision>E</wsn:tipoEmision>'+;
  '  </wsn:emisionDocumento>'+;
  ' </soapenv:Body>'+;
  '</soapenv:Envelope>'

 TRY
  oHttp := CreateObject( 'MSXML2.XMLHTTP' )
 CATCH
  oHttp := CreateObject( 'Microsoft.XMLHTTP' )
 END
 doc = CreateObject("MSXML2.DOMDocument.6.0")

 oHttp:Open( "POST" , ts_servidor+' HTTP/1.1' , .F. )
 oHttp:SetRequestHeader( "Accept-Encoding","gzip,deflate" )
 oHttp:SetRequestHeader( "Content-Type", "text/xml;charset=UTF-8" )
 oHttp:SetRequestHeader( "SOAPAction" , "" )
 oHttp:SetRequestHeader( "Content-Length", "622")
 ohttp:setrequestHeader( "Host", "sve.zofri.cl:80" )
 oHttp:SetRequestHeader( "Connection:", "Keep-Alive" )
 oHttp:SetReQuestHeader( "User-Agent" , "Apache-HttpClient/4.5.5 (java 16.0.1)")

 doc:LoadXML( cXmlbody )

 TRY
  // ohttp:Send( doc:xml )
  ohttp:send(cxmlbody)
 CATCH
  cErrorMsg:='No Se Pudo Enviar Documento XML...'+CRLF+CRLF+;
             'Sin Conexion a Internet o Servidor Con Problemas'
  msginfo(cErrorMsg,"Intente Nuevamente")
  return .t.
 END

 response = ohttp:responseText

 //crear un archivo para leer tag
 cFilename:="texto.xml"
  MEMOWRIT( cfilename, response, .F. )
 ?'PAUSA'
 //leer archivo para extraer el factura pdf
  CTXT:=MEMOREAD(CFILENAME)

  pdfin:=at("%PDF-1.4",CTXT)
  pdfend:=At("%EOF",CTXT)
  largo:=pdfend-pdfin
  Cresp:=substr(CTXT,pdfin,largo+4)

  //SE CREA EL ARCHIVO PDF
  CPDF:="TEXTO.PDF"
  MEMOWRIT( cPdf, CRESP, .F. )

RETURN .T.

Fivewin-Xharbour 24.09, Iquique, Chile

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Tue Oct 03, 2023 03:56 PM

En ese caso nos tocaría mirar la forma como recuperas el xml, por que realmente no viene completo, y creo que eso tiene que ver con los caracteres especiales que componen el archivo pdf

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Tue Oct 03, 2023 04:01 PM

leandro wrote:En ese caso nos tocaría mirar la forma como recuperas el xml, por que realmente no viene completo, y creo que eso tiene que ver con los caracteres especiales que componen el archivo pdf

Envie el programa fuente,,, con el cual recupero ese XML,,, pero como le dije a antonio,,, no se si es por version antigua o error de programacion,,, no se si puedes compilar el fuente enviado y probarlo a ver que resultado te da,,, si el mismo mio o diferente

gracias por tu tiempo

Fivewin-Xharbour 24.09, Iquique, Chile

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: XML, CON ARCHIVO ADJUNTO PDF
Posted: Tue Oct 03, 2023 04:19 PM

Ok vale, en la tarde le pego la revisada al código que enviaste.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums

(Ésj’ç«I >‡AI^[“¼ç&øb)Yçã‡ô„d]§€Ï„s.b%ÙßMò<~–{H >‡AIÆsöØ¦WI|1‚”lóÖ$k»’€s.b%ÙïoÉk

(Ésj’ç«I >‡AI^[“¼ç&øb)Yçã‡ô„d]§€Ï„s.b%ÙßMò<~–{H >‡AIÆsöØ¦WI|1‚”lóÖ$k»’€s.b%ÙïoÉk