OT: Consulta SQL ADO / Agrupar reporte

HMG en Español

Moderator: Rathinagiri

Post Reply
jparada
Posts: 248
Joined: Fri Jan 23, 2009 5:18 pm
Been thanked: 1 time

OT: Consulta SQL ADO / Agrupar reporte

Post by jparada » Thu Apr 11, 2019 12:04 am

Hola,

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()
Todo esto funciona correctamente, lo que no sé y es lo que estoy solicitando ayuda, es cuál sería el proceso para generar una impresión parecida a esto:
reporte.png
reporte.png (43.57 KiB) Viewed 216 times
O sea, lo relevante y que no sé manejar es hacer el encabezado y corte por cada cliente, alguna idea?.

Gracias.

Saludos,
Javier

User avatar
dragancesu
Posts: 638
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia
Has thanked: 19 times
Been thanked: 125 times

Post by dragancesu » Thu Apr 11, 2019 6:31 am

In the SQL query add ORDER BY

See one demo attached, program rep_b,
The data is in DBF, the principle is the same
Attachments
budget.zip
(32.08 KiB) Downloaded 36 times

jparada
Posts: 248
Joined: Fri Jan 23, 2009 5:18 pm
Been thanked: 1 time

Post by jparada » Fri Apr 12, 2019 6:01 pm

Hi,
Thanks for answering, please let me take a look at this.

I appreciate your help.

Regards,
Javier

Post Reply