Resguardo material, permitir consultar con empresa 140

Contabilidad/RepAnexoCatalogo.aspx.vb

@@ -282,7 +282,7 @@ Partial Class AC_RepAnexoCatalogo
                 e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
             End If
 
-            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FI={1}&FF={2}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString)
+            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FI={1}&FF={2}&IdSegNeg={3}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, DdlSegmentoNegocio.SelectedValue.ToEntero)
         End If
     End Sub
 #End Region

Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx

@@ -88,6 +88,12 @@
                             <asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static" style="margin-top:10%; width:140%">
                             </asp:DropDownList>
                         </div>
+
+                          <label class="col-md-1 truncate" style="width: 90px; padding-right: 2px;">Segmento de negocio</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList CssClass="form-control input-sm select2me" ID="DdlSegmentoNegocio" runat="server" DataTextField="Nombre" DataValueField="Id" Width="100%">
+                            </asp:DropDownList>
+                        </div>
                      </div>
                 </div>
             </div>

Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx.vb

@@ -52,6 +52,21 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
             ViewState("IdCuenta") = value
         End Set
     End Property
+
+    Private Property IdSegNeg As Integer
+        Get
+            If ViewState("IdSegNeg") Is Nothing Then
+                ViewState("IdSegNeg") = -1
+            End If
+
+            Return ViewState("IdSegNeg").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IdSegNeg") = value
+        End Set
+    End Property
+
+
     Private Property TotalPadre As Boolean
         Get
             TotalPadre = CBool(ViewState("TotalPadre"))
@@ -78,14 +93,19 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
                 Dim ErrorParametros = True
 
                 CargaTipoCuentas()
+                CargaMoneda()
+                CargaSegmentosNegocio()
+
                 TxtCuenta.Enabled = False
-                DdlMoneda.DataSource = GlobalDTMonedas
-                DdlMoneda.DataBind()
 
                 If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
                     If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
 
+
                         IdCuenta = Request("ID").ToEntero
+
+                        IdSegNeg = If(Request("IdSegNeg") IsNot Nothing AndAlso Request("IdSegNeg").ToString.ToEntero > 0, Request("IdSegNeg").ToString.ToEntero, -1)
+
                         HdnCveCuenta.Value = IdCuenta.ToString
 
                         FechaFin = Request("FF").ToDate
@@ -113,6 +133,8 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
                             End If
                         End If
 
+                        DdlSegmentoNegocio.SelectedValueExist(IdSegNeg)
+
                     End If
                 End If
 
@@ -128,6 +150,27 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
         End If
     End Sub
 
+
+    Private Sub CargaSegmentosNegocio()
+        Dim ObjContpaq As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim strGlobal As String = ""
+
+        If ObjContpaq.GetSegmentosNegocio(-1, "-1") Then
+            DdlSegmentoNegocio.DataSource = ObjContpaq.DtResultados
+            DdlSegmentoNegocio.DataBind()
+        End If
+        ObjContpaq.Dispose()
+        DdlSegmentoNegocio.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSegmentoNegocio.SelectedValue = "-1"
+    End Sub
+
+
+    Private Sub CargaMoneda()
+        DdlMoneda.DataSource = GlobalDTMonedas
+        DdlMoneda.DataBind()
+
+    End Sub
+
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
 
         FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
@@ -178,7 +221,7 @@ Partial Class AC_RepMovimientosAuxiliaresCatalogo
     Private Sub CargaDatos()
         Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa, 60)
 
-        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero) Then
+        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
             'DtTotales = DtDatos.Clone
             DtDatos = ObjConta.DtResultados
             CargaGrid()