-- limpieza de código de mandar idcta de contpaq

Compras/RepRembolsoComprobaciones.aspx.vb

@@ -83,15 +83,16 @@ Partial Class Compras_RepRembolsoComprobaciones
     End Sub
 
     Protected Sub DdlTipoPago_SelectedIndexChanged(sender As Object, e As EventArgs)
-        ViewState("CveCajaChica") = -2
-        ViewState("CvePersonal") = -2
+        ViewState("CveCajaChica") = -1
+        ViewState("CvePersonal") = -1
 
         LtTituloPago.Text = ""
-
-        If DdlTipoPago.SelectedValue = "1" Then
+        If DdlTipoPago.SelectedValue = "1" Then 'personal
             DdlPersonal.Visible = True
-            DdlPersonal.SelectedValue = "-2"
+            DdlPersonal.SelectedValue = "-1"
             LtTituloPago.Text = "F / E:"
+            DdlCajaChica.Visible = False
+            DdlCajaChica.SelectedValue = "-1"
 
             'Valida Proceso 120 para ROL Administrador de obra - para FyE solo puede ver los del UsuarioActual
             If UsuarioActual.TienePermisoProceso(120) Then
@@ -102,20 +103,12 @@ Partial Class Compras_RepRembolsoComprobaciones
                 DdlPersonal.Enabled = False
             End If
 
-        Else
-            DdlPersonal.Visible = False
-            DdlPersonal.SelectedValue = "-2"
-
-            DdlPersonal.Enabled = True
-        End If
-
-        If DdlTipoPago.SelectedValue = "2" Then
+        ElseIf DdlTipoPago.SelectedValue = "2" Then ' caja chica
             DdlCajaChica.Visible = True
-            DdlCajaChica.SelectedValue = "-2"
+            DdlCajaChica.SelectedValue = "-1"
             LtTituloPago.Text = "Caja Chica:"
-        Else
-            DdlCajaChica.Visible = False
-            DdlCajaChica.SelectedValue = "-2"
+            DdlPersonal.Visible = False
+            DdlPersonal.SelectedValue = "-1"
         End If
 
     End Sub
@@ -133,16 +126,6 @@ Partial Class Compras_RepRembolsoComprobaciones
             If e.Row.RowIndex = 0 Then
                 e.Row.BackColor = Drawing.Color.LightGray
             End If
-            'If e.Row.RowIndex = 1 Then
-            '    e.Row.Cells(0).Width = Unit.Pixel(100)
-            '    e.Row.Cells(1).Width = Unit.Pixel(300)
-            '    e.Row.Cells(2).Width = Unit.Pixel(70)
-            '    e.Row.Cells(3).Width = Unit.Pixel(70)
-            '    e.Row.Cells(4).Width = Unit.Pixel(80)
-            '    e.Row.Cells(5).Width = Unit.Pixel(40)
-            '    e.Row.Cells(6).Width = Unit.Pixel(60)
-            '    e.Row.Cells(7).Width = Unit.Pixel(60)
-            'End If
 
             e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
             e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
@@ -237,23 +220,11 @@ Partial Class Compras_RepRembolsoComprobaciones
 
 #Region " CARGA DATOS "
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
-        CargaCxP()
+        CargaDatos()
         UPFiltros.Update()
     End Sub
-    Private Sub CargaDatos(tCveIE As Integer)
-        Dim ObjIE As New ClsBancos()
 
-        If ObjIE.GetBancosIE(tCveIE, UsuarioActual.CveEmpresa) Then
-            If ObjIE.DtResultados.Rows.Count > 0 Then
-
-            Else
-                Alert("El Documento solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
-            End If
-        End If
-        ObjIE.Dispose()
-
-    End Sub
-    Protected Sub CargaCxP()
+    Protected Sub CargaDatos()
         Dim ObjMovtos As New ClsMovimientos
 
         GvCxP.Visible = True
@@ -261,6 +232,10 @@ Partial Class Compras_RepRembolsoComprobaciones
         Dim FechaI As DateTime = If(String.IsNullOrEmpty(txtFechaI.Text.Trim()), ModExtensiones.MinFecha, txtFechaI.Text.ToDateTime())
         Dim FechaF As DateTime = If(String.IsNullOrEmpty(txtFechaF.Text.Trim()), ModExtensiones.MaxFecha, txtFechaF.Text.ToDateTime())
 
+        If DdlTipoPago.SelectedValue = "1" Then ViewState("CveCajaChica") = -2
+        If DdlTipoPago.SelectedValue = "2" Then ViewState("CvePersonal") = -2
+
+
         ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1)
         DtDatos = ObjMovtos.DtResultados
         GvCxP.DataSource = DtDatos