limpieza de código

Bancos/IE.aspx

@@ -247,10 +247,8 @@
                                             <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" Visible="false" Onselectedindexchange="DdlProveedores_selectedindexchange"></ADS:Dropdownlost>
                                             <asp:DropDownList ID="DdlPersonal" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm input-medium select2me" Visible="false" Width="100%" OnSelectedIndexChanged="DdlPersonal_SelectedIndexChanged" AutoPostBack="true">
                                             </asp:DropDownList>
-
                                             <asp:Label runat="server" ID="LblPagarA" Visible="false"></asp:Label>
 
-
                                         </div>
                                         <div class="col-md-2">
                                             <asp:CheckBox ID="ChkAbonoCuenta" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Abono en Cuenta"></asp:CheckBox>

Bancos/IE.aspx.vb

@@ -606,7 +606,6 @@ Partial Class Bancos_IE
 
             CargaTipoTransaccion()
             CargaCuenta()
-            CargaDDLPersonal()
 
             DdlProveedores.setEsWebService(True)
             DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
@@ -628,11 +627,9 @@ Partial Class Bancos_IE
 
             If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
                 CveProveedor = Request("CveProveedor").ToEntero
-
                 CargaProveedor(CveProveedor, "-1")
             End If
 
-
             If Request("Opcion") IsNot Nothing AndAlso Request("Opcion") = "DevDinC" AndAlso Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
                 If Masivonotas Then
                     'CargaNotas()
@@ -719,7 +716,6 @@ Partial Class Bancos_IE
                 DdlProveedores.Enabled = False
                 DdlPersonal.Visible = False
 
-
                 CargaDatos()
 
                 BtnGuardar.Visible = False
@@ -784,8 +780,6 @@ Partial Class Bancos_IE
 
             'End If
 
-
-
             DdlMotivoCancelacion.DataSource = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion IN (2,3)")
             DdlMotivoCancelacion.DataBind()
             DdlMotivoCancelacion.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -794,7 +788,6 @@ Partial Class Bancos_IE
                 DvFolioACCondiciones.Visible = True
             End If
 
-
             If UsuarioActual.CveEmpresa.Contiene(13, 1) Then
                 TRImporteDeduccionesPago.Visible = True
             End If
@@ -816,7 +809,6 @@ Partial Class Bancos_IE
 
                 End Try
 
-
                 CveIEDeposito = ObjIE.DtResultados(0)("CveIEDepositoPadre").ToString.ToEntero
                 CuentaDepositoPadre = ObjIE.DtResultados(0)("CuentaDepositoPadre").ToString
                 Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
@@ -1404,15 +1396,7 @@ Partial Class Bancos_IE
         DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
         DdlPersonal.DataBind()
         DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1"))
-        'Dim ObjPersonal As New ClsRH
+
-        'If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-        '    If ObjPersonal.DtResultados.Rows.Count > 0 Then
-        '        DdlPersonal.DataSource = ObjPersonal.DtResultados
-        '        DdlPersonal.DataBind()
-        '        DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1"))
-        '    End If
-        'End If
-        'ObjPersonal.Dispose()
     End Sub
 
     Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -3601,7 +3585,7 @@ Partial Class Bancos_IE
         ChkAplicaViatico.Visible = False
         If RBL.SelectedValue = "FE" Then
             If UsuarioActual.CveRol = 1 Then ChkAplicaViatico.Visible = True
-
+            If DdlPersonal.Items.Count = 0 Then CargaDDLPersonal()
             DdlPersonal.Visible = True
             DdlProveedores.Visible = False
             DdlCliente.Visible = False
@@ -4301,24 +4285,16 @@ Partial Class Bancos_IE
                 If Not ErrorCompra Then
 
                     If ObjAC IsNot Nothing Then ObjAC.Commit()
-
                     If Banc.ExisteConexion Then
                         Banc.Commit()
                         Alert($"El documento bancario quedó eliminado. {MsgEliminar}", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
                     End If
-
                 Else
-
                     Alert($"El documento no ha sido eliminado. {If(UsuarioActual.CveRol = 1, MsgEliminar, "")}", TipoMensaje.MsgAdvertencia)
-
                     If ObjAC IsNot Nothing Then ObjAC.RollBack()
-
                     If Banc.ExisteConexion Then
                         Banc.RollBack()
-
-
                     End If
-
                 End If
 
                 If ObjAC IsNot Nothing Then ObjAC.Dispose()