>********************/ 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 '<>'
>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
> Endproc
>
>
>Thank you for your help.