http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 02 May 2026 00:37:00 +0000 Mon, 31 Oct 2005 12:43:45 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=3134 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=3134&PID=9375&title=reportcontrol-activex-it-doesnt-show-the#9375 Author: msoto
Subject: 3134
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
]]> Mon, 31 Oct 2005 12:43:45 +0000 http://forum.codejock.com/forum_posts.asp?TID=3134&PID=9375&title=reportcontrol-activex-it-doesnt-show-the#9375 http://forum.codejock.com/forum_posts.asp?TID=3134&PID=9374&title=reportcontrol-activex-it-doesnt-show-the#9374 Author: SuperMario
Subject: 3134
Posted: 31 October 2005 at 12:36pm

Can you post a small sample, or show code to add records?]]> Mon, 31 Oct 2005 12:36:12 +0000 http://forum.codejock.com/forum_posts.asp?TID=3134&PID=9374&title=reportcontrol-activex-it-doesnt-show-the#9374 http://forum.codejock.com/forum_posts.asp?TID=3134&PID=9373&title=reportcontrol-activex-it-doesnt-show-the#9373 Author: msoto
Subject: 3134
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
]]> Mon, 31 Oct 2005 12:22:33 +0000 http://forum.codejock.com/forum_posts.asp?TID=3134&PID=9373&title=reportcontrol-activex-it-doesnt-show-the#9373