-cleanup

Bancos/PopIECompras.aspx.vb

@@ -5,7 +5,7 @@ Imports System.Data
 Imports Extensiones
 
 Partial Class Bancos_PopIECompras
-    Inherits ClsPaginas
+    Inherits ClsPaginas
 #Region "Propiedades"
     Private Property DtDeudores As DataTable
         Get
@@ -515,8 +515,8 @@ Partial Class Bancos_PopIECompras
             End If
             UpDatos.Update()
         End If
-    End Sub
-
+    End Sub
+
 #Region "C A M B  I A R  P A N E L"
     Private Sub RBLContado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLContado.SelectedIndexChanged
         Select Case RBLContado.SelectedValue
@@ -573,9 +573,9 @@ Partial Class Bancos_PopIECompras
                 CargaVentas(CveMoneda)
                 TxtImporte.Text = "0.00"
         End Select
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "C A R G A R  I N F O R M A C I O N"
     Private Sub CargaCompra(pCveCompra As Integer)
         Dim ObjCompra As New ClsCompras()
@@ -1008,9 +1008,9 @@ Partial Class Bancos_PopIECompras
         'RecargaGlobalCuentasBancarias()
         UpCuentaDeposito.Update()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "DDL'S CHANGED"
     Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
         Dim valor As Integer = DirectCast(sender, DropDownList).SelectedValue.ToEntero
@@ -1104,11 +1104,11 @@ Partial Class Bancos_PopIECompras
 
     Private Sub DdlAcreedor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAcreedor.SelectedIndexChanged
         CambieAcreedor()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "CHK TIPO CAMBIO"
-
+
 #Region "PAGAR CON PESOS"
     Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs)
         If ChkPagarPesos.Checked Then
@@ -1165,9 +1165,9 @@ Partial Class Bancos_PopIECompras
         Else
             args.IsValid = False
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "PAGAR CON DOLARES"
     Protected Sub ChkPagarDolares_CheckedChanged(sender As Object, e As EventArgs)
         If ChkPagarDolares.Checked Then
@@ -1224,9 +1224,9 @@ Partial Class Bancos_PopIECompras
         Else
             args.IsValid = False
         End If
-    End Sub
+    End Sub
 #End Region
-
+
     Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs)
         CambiaTipoMoneda()
     End Sub
@@ -1244,10 +1244,10 @@ Partial Class Bancos_PopIECompras
         End If
 
         UpDatos.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "GV ROW DATA BOUND"
     Private Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvIngresos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then