********************/ 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('DSN','sa','password',.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.Carlos A. Miranda
E.I.S.lnc
President