Report Control - ReportControl ActiveX it doesn’t show the

Print Page | Close Window

ReportControl ActiveX it doesn’t show the

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Report Control
Forum Description: Topics Related to Codejock Report Control
URL: http://forum.codejock.com/forum_posts.asp?TID=3134
Printed Date: 30 April 2025 at 3:15pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: ReportControl ActiveX it doesn’t show the

Posted By: msoto
Subject: ReportControl ActiveX it doesn’t show the
Date Posted: 31 October 2005 at 12:22pm

i have a problew when use to doking pane and control report activex,

I have a report control and not show the data but :

ie.

Set columnContratos = wndRptContratos.Columns.Add(21, "Contrato", 50, True)
Set columnContratos = wndRptContratos.Columns.Add(22, "Nombre Contrato", 250, True)
Set columnContratos = wndRptContratos.Columns.Add(23, "F.Inicio", 50, True)
Set columnContratos = wndRptContratos.Columns.Add(24, "Monto Contrato", 80, True)
Set columnContratos = wndRptContratos.Columns.Add(25, "Contratista", 200, True)
Set columnContratos = wndRptContratos.Columns.Add(26, "Estado", 80, True)

in a function load the data of the report control and make a populate

wndRptContratos.Populate

however, the reporcontrol shows that he has two line but it doesn't show the data

please any idea

Replies:

Posted By: SuperMario
Date Posted: 31 October 2005 at 12:36pm

Can you post a small sample, or show code to add records?

Posted By: msoto
Date Posted: 31 October 2005 at 12:43pm

Hi

it is this way as I make it

Private Sub Form_Load()
CreateReportContratos

wndRptComputos.Visible = False
wndRptValuaciones.Visible = False
wndRptPresupuestos.Visible = False
wndRptContratos.Visible = True

End Sub

Private Sub CreateReportContratos()
Set columnContratos = wndRptContratos.Columns.Add(21, "Contrato", 50, True)
Set columnContratos = wndRptContratos.Columns.Add(22, "Nombre Contrato", 250, True)
Set columnContratos = wndRptContratos.Columns.Add(23, "F.Inicio", 50, True)
Set columnContratos = wndRptContratos.Columns.Add(24, "Monto Contrato", 80, True)
Set columnContratos = wndRptContratos.Columns.Add(25, "Contratista", 200, True)
Set columnContratos = wndRptContratos.Columns.Add(26, "Estado", 80, True)
carga_datos_contrato (frmFiObras.obra)

wndRptContratos.Populate
wndRptContratos.EditOnClick = False
wndRptContratos.PaintManager.ShadeGroupHeadings = Not wndRptContratos.PaintManager.ShadeGroupHeadings
End Sub

Public Sub carga_datos_contrato(obra)
stSQL = " select c.nu_referencia as contrato, c. nb_contrato, c.fe_inicio, c.mo_contrato, d.nb_proveedor," _
      & " (CASE c.flg_estado" _
      & "       WHEN 0 THEN 'ABIERTO'" _
      & "       WHEN 1 THEN 'CERRADO' " _
      & " END) as estado" _
      & " from oproceso.samaco c" _
      & " left join compras.samapro d on " _
      & " c.id_estado = d.id_estado and " _
      & " c.co_empresa = d.co_empresa and " _
      & " c.co_filial = d.co_filial and " _
      & " c.id_contratista = d.co_proveedor " _
      & " Where " _
      & " c.id_estado = 'SA' and " _
      & " c.co_empresa =" & UserCia & " and " _
      & " c.co_filial =" & UserSede & " and " _
      & " c.id_refobra ='" & Trim(obra) & "'"

Call AbreRS(2, 1, RsGenerico, stSQL)

If Not RsGenerico.EOF Then
   Do While Not RsGenerico.EOF
      AddRecordContratos RsGenerico!contrato, RsGenerico!nb_contrato, RsGenerico!fe_inicio, RsGenerico!mo_contrato, RsGenerico!nb_proveedor, RsGenerico!estado
      RsGenerico.MoveNext
   Loop
End If

Set RsGenerico = Nothing

End Sub

Private Sub AddRecordContratos(Optional contrato As String, Optional nombre As String, Optional fe_inicio As String, _
         &nbs p;         &nbs p;     Optional mo_contrato As Double, Optional contratista As String, Optional estado As String)

    Dim RecordContrato As ReportRecord
    Set RecordContrato = wndRptContratos.Records.Add()

    RecordContrato.AddItem contrato
    RecordContrato.AddItem nombre
    If IsNull(fe_inicio) Then
       RecordContrato.AddItem "00/00/0000"
    Else
       RecordContrato.AddItem fe_inicio
    End If
    RecordContrato.AddItem Format(mo_contrato, "#,##0.00")
    RecordContrato.AddItem contratista
    RecordContrato.AddItem estado

End Sub