Aquí vengo con otra molestia.
Esto es parte del código, para obtener datos de SQL Server:
Code: Select all
if ( oCnn := win_OleCreateObject( "ADODB.Connection" ) ) == NIL
Msginfo( "No es posible crear objeto conexión [" + win_oleErrorText() + "]" )
return NIL
endif
try
oCnn:Open( "Provider=SQLNCLI11;Server=local;Database=DB;Uid=ui;Pwd=pwd;" )
catch oErr
MsgInfo( "Error de conexión: " + oErr:Description, "Error" )
return NIL
end
oRs := win_OleCreateObject( "ADODB.Recordset" )
oQry := "SELECT CAST(docto.cFecha AS DATE) AS Fecha, "
oQry += "docto.cSerieDocumento + CAST(docto.cFolio AS VARCHAR) AS Factura, "
oQry += "cteD.cCodigoCliente AS CodigoCliente, cteD.cRazonsocial AS RazonSocial, "
oRs:Open( oQry , oCnn )
do while !oRs:Eof
fechaFactura := oRs:Fields( "Fecha" ):Value
serieFactura := oRs:Fields( "Factura" ):Value
numeroCliente := oRs:Fields( "CodigoCliente" ):Value
nombreCliente := oRs:Fields( "RazonSocial" ):Value
AADD( aResultVentas, { fechaFactura, serieFactura, numeroCliente, nombreCliente } )
oRs:MoveNext()
enddo
oRs:Close()
oCnn:Close()
Gracias.
Saludos,
Javier