********************/ packing list Report/*********************** Procedure grow_packing_report(lcPacking_uq As String) As String Local m.lcReturn As String Local loXMLAdapter As Xmladapter Local lcXmlPackRepo As String Try Set Textmerge On Set Console Off TEXT TO lcsql_calls execute sp_flower_ws_packing_report '<<lcPacking_uq>>' ENDTEXT m.lnNewHandle = SQLConnect('Melody','sa','gandalf',.T.) If m.lnNewHandle > 0 m.lnRet = SQLEXEC(m.lnNewHandle, lcsql_calls, 'vr_Packing_repo') If lnRet < 0 = Aerror(aErrorArray) lcReturn = This.odbc_error(@aErrorArray) Throw lcReturn Endif SQLDISCONNECT(m.lnNewHandle) Select vr_Packing_repo m.lcPDF = "c:\eisvisualsystems\web_services\grow_reports\" m.lcFRX = "c:\eisvisualsystems\reportes\ventas\ws_packing_grower.frx" oPDF = Newobject('pdfrun.print2pdf') oPDF.cReport = m.lcFRX oPDF.cPhysicalPath = m.lcPDF lcXmlPackRepo =oPDF.GetOutput() Else Throw 'No hay conección con la base de datos.' Endif Catch To loError lcXmlPackRepo = This.Exception_Error(loError) Finally oPDF = .Null. Release oPDF Endtry Return lcXmlPackRepo EndprocThank you for your help.