• Domingo 22 de Diciembre de 2024, 04:07

Autor Tema:  Reportes...  (Leído 1113 veces)

ManDraK3

  • Nuevo Miembro
  • *
  • Mensajes: 15
    • Ver Perfil
Reportes...
« en: Lunes 13 de Octubre de 2008, 17:29 »
0
Bueno he creado este tema por razones obvias...
se que he posteado esto en otros temas espero no lo tomen como span...
Describire primero lo que tengo y luego lo que necesito:
Tengo una base de datos con las tablas:
Facturas(IdInterno, Codfactura(pk), CodCliente, etc)
Recibos (idrecibo (pk), codFactura, CodBanco, etc)
Clientes(IdInterno(pk), etc)
Bancos(IdInterno(pk), etc)

Con esta sentencia en un rs lleno un msflexgrid (voy a poner toda la sentencia)

*CD=variable que guarda un campo que especifico antes de la busqueda
*campo=variable que guarda un campo por el cual se va a hacer la busqueda

SQL = "SELECT dbo.Bancos.NombreBanco, dbo.Clientes.NombreEmp, dbo.Facturas.CodFactura, dbo.Recibos.ReciboNo, dbo.Recibos.Monto, dbo.Recibos.CK, dbo.Recibos.NoCK, dbo.Recibos.CC, dbo.Recibos.NoCC, dbo.Recibos.EfectivoC, dbo.Recibos.EfectivoD, dbo.Recibos.TipoCambio * dbo.Recibos.Efectivo AS Total, dbo.Recibos.Fecha, dbo.Recibos.Cash, dbo.Recibos.IdInterno,"
SQL = SQL + " dbo.Recibos.Efectivo, dbo.Recibos.TipoCambio"
SQL = SQL + " FROM dbo.Bancos INNER JOIN"
SQL = SQL + " dbo.Recibos ON dbo.Bancos.IdBanco = dbo.Recibos.CodBanco INNER JOIN"
SQL = SQL + " dbo.Facturas ON dbo.Recibos.CodFactura = dbo.Facturas.CodFactura INNER JOIN"
SQL = SQL + " dbo.Clientes ON dbo.Facturas.CodCliente = dbo.Clientes.IdCliente"
SQL = SQL + " Where "
SQL = SQL + "dbo.Recibos." + CD + " = " & "'True'" & " And " & ""
SQL = SQL + Campo
SQL = SQL + " GROUP BY dbo.Bancos.NombreBanco, dbo.Clientes.NombreEmp, dbo.Facturas.CodFactura, dbo.Recibos.ReciboNo, dbo.Recibos.Monto,"
SQL = SQL + " dbo.Recibos.CK, dbo.Recibos.NoCK, dbo.Recibos.CC, dbo.Recibos.NoCC, dbo.Recibos.EfectivoC, dbo.Recibos.EfectivoD,"
SQL = SQL + " dbo.Recibos.Fecha, dbo.Recibos.Cash, dbo.Recibos.IdInterno,"
SQL = SQL + " dbo.Recibos.Efectivo, dbo.Recibos.TipoCambio"

con eso en un rs lleno bien el flexgrid
luego paso el rs al dtenv asi: Set DTEnvReporte.rsCommand.DataSource = RSSs
aveces me sale conflicto con otros datos
despues me sale que no se pudieron cargar en conjunto de datos

pero ese error me pasa cuando quiero hacer un reporte agrupado...
con uno sencillo no me da error y me muestra bien todo