VSREPORT con 2 tablas. - VB-MUNDO

imported_chiaravel · #1 (**permalink**) 23-05-2005, 15:50:03

Hola,

Estoy empezando a conocer el VSREPORT y esta muy bueno, pero el problema es que veo que el Reporte puede estar asignado a una tabla determinada de una BD, pero yo tengo que hacer un reporte que consta de encabezados y detalle.

Todos los datos del encabezado estan en una tabla y los del detalle estan en otra.

Como hago para que en el reporte esten las 2 tablas ?

Gracias

mensazen · #2 (**permalink**) 23-05-2005, 21:54:40

Hola, no me creo el mas adecuado para responder, pero mientras no te dan otra respuesta te comento que yo utilizo el ReportDesigner para elaborar los reports y pasarlos al fichero HTML. Supongo que los datos de encabezado y pie están relacionados con la tabla principal, o no si son datos de unas tablas genéricas.

En este segundo caso la solución creo que sería crear un subreport en encabezado y pie de página con las tablas que necesites.

Si están relacionadas puedes crear la consulta o también utilizar los subreports creando una dependencia mediante código al paginar.

Espero que pueda servirte de algo :smt017

imported_chiaravel · #3 (**permalink**) 23-05-2005, 23:04:56

Hola,

El problema esta dado si cuando comienza la customizacion uno elige por tablas en lugar de Sentencia SQL.

Tuve que hacer un SELECT * FROM CABECERA, DETALLE para que me traiga todos los campos y no los de uno u otro.

Ahora estoy con otro problema que realmente no entiendo como puede ser que no existan campos RUNNINGSUM y que al pie del detalle me permita ver un total.

Si bien el VSREPORT dice que lo tiene, me estoy volviendo BUDISTA para encontrarlo.

Gracias

mensazen · #4 (**permalink**) 24-05-2005, 09:27:46

Hola Pablo, pues seguiré contestándote mientras no lo haga otro.
del runningsum te copio la ayuda:

Cita:

RunningSum Property

Returns or sets whether to show a running sum for the Field.

Syntax

field.RunningSum[ = RunningSumSettings ]

Remarks

You can use the RunningSum property to calculate record-by-record or group-by-group totals in a report. The RunningSum property specifies whether a calculated field on a report displays a running total and lets you set the range over which values are accumulated.

For example, you can group data by month and show the sum of each month's sales in the group footer section. You can show the running sum of accumulated sales over the entire report (sales for January in the January footer, sales for January plus February in the February footer, and so on) by adding a text box to the footer that shows the sum of sales and setting its RunningSum property to vsrSumOverAll.

The settings for the RunningSum property are described below:

Constant Value Description

vsrNoRunningSum 0 Do not treat field as a running sum.

vsrSumOverGroup 1 Calculate running sum over each group.

vsrSumOverAll 2 Calculate running sum over each the whole report.

Yo, en principio, para hacer la suma simplemente hago Sum(nombrecampo) como te pongo en esta imágen

Espero que te sirva de algo
Un abrazo

imported_chiaravel · #5 (**permalink**) 24-05-2005, 14:45:51

Amigo Menzasen,

ME HAZ SALVADO LA VIDA !!!!!

Gracias a la imagen pude darme cuenta mi error.

Mil Gracias.

PD : No hace falta ser experto para ayudar y servir a alguien y tu lo haz demostrado.

mensazen · #6 (**permalink**) 24-05-2005, 15:43:35

Pues ha sido un placer poder ayudarte. :smt004

¿es posible que intentases poner el subtotal dentro del detalle?

Un abrazo

P.D. Sabes algo de José María :smt017
PD II: Echa un vistazo a tus privados

imported_chiaravel · #7 (**permalink**) 24-05-2005, 15:47:26

Jose Maria en una semana (aprox) estara entre nosotros nuevamente.

Un Abrazo y gracias nuevamente.

PD: Sabes como refresco los datos del reporte ? porque desde VB no me toma los nuevos datos de la BD.

Gracias

mensazen · #8 (**permalink**) 24-05-2005, 16:02:01

Me da vergüenza exponer código :smt009 porque seguro que hay formas mucho mejor de hacerlo y cada poco tiempo intento irlo mejorando, pero te pongo el código del botón ver de mi formulario de impresión genérico (utilizo un formulario genérico desde donde imprimo cualquier report, si lo necesito desde otro formulario, por ejemplo facturas, le paso los datos en vez de seleccionarlos mediante listas desplegables:

Código:

'---------------------------------------------------------------------------------------
' Procedimiento : cmdVer_Click
' Fecha y hora  : 21/04/2004 17:36
' Autor    : Jose Antonio Gonzalez-Diaz
' Proposito   :
'---------------------------------------------------------------------------------------
'
Private Sub cmdVer_Click()
    Dim strNombreReport As String
    'Evita reentrada
    If VSR.IsBusy Then Exit Sub
    ' Comprobar que hay un report seleccionado
    If strFicheroReports <> "" And strReport <> "" Then
        ' Carga report del fichero XML
        If blnMultiuso = True Then
            strNombreReport = strReport
            If intMultiuso = 1 Then
                strReport = strReport + "Castellano"
            ElseIf intMultiuso = 2 Then
                strReport = strReport + "Catalan"
            ElseIf intMultiuso = 3 Then
                strReport = strReport + "Gallego"
            ElseIf intMultiuso = 4 Then
                strReport = strReport + "Euskera"
            End If
        End If
        VSR.Load strFicheroReports, strReport
        ' Coge la cadena de seleccion
        With VSR.DataSource
            .ConnectionString = strConexion
            .RecordSource = strFiltroTabla & " " & strFiltro
        End With
        ' Pasa el focus al control vsprinter
        'VP.SetFocus
        ' Prepara control de tiempo
        t = Timer
        MousePointer = 11
        ' Render del informe
        On Error Resume Next
        VSR.Render VP
        If Err.Number <> 0 Then
            MsgBox "Error " & Err.Number & vbCrLf & Err.Description
        End If
        'Indica el tiempo transcurrido
        Call FinalMedidorTiempo
        cmdPDF.Visible = True
        cmdHTLM.Visible = True
        strReport = strNombreReport
        strNombreReport = ""
    Else
        Call FaltaDocumento
    End If
End Sub

Cada vez que genero un documento hago una nueva renderización y coge el select de la tabla especificada que ya está actualizada por lo que el report no necesita hacerlo.
Como especifidades puedes ver que evito la reentrada, el generar un report en el que no existas datos, genero reports en varios idiomas, a elegir por el usuario y tengo un boton para generar un PDF y un HTLM.
Voy a intentar ponerte la pantalla en el próximo mensaje.

Espero que te guste

mensazen · #9 (**permalink**) 24-05-2005, 16:11:48

Aquí va la imágen del formulario, quería ponértela con datos pero el programa que tengo aquí lo tengo protegido para que solo funcionase durante 28 días y ya han pasado, tengo que hacer una nueva versión y cambiar la fecha, pero para no perder tiempo te lo pongo.

Un abrazo

mensazen · #10 (**permalink**) 24-05-2005, 16:24:11

en esta imágen verás como queda el formulario con datos, desaparecen las listas desplegables que no interesan y se pueden seleccionar todos los datos marcando el check box, los títulos de las listas desplegables, los selects de los combos, la posibilidad de elegir fechas, la posibilidad de elegir idiomas es independiente para cada report está guardado en una base de datos.

Tiene contador de tiempo de generación del report etc.

Espero no haber sido pesado:smt006