-- limpieza renglones

Bancos/PolizaCheque.aspx.vb

@@ -238,16 +238,8 @@ Partial Class Bancos_PolizaCheque
     Private Sub CargaCuenta()
         DdlCuenta.Items.Clear()
 
-        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
-
-
-
-
-        'If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then
-        '    dt = dt.FiltraParametros("CveTipoCuenta = 7")
-        'End If
-
-        'cuando es layout
+        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
+        'cuando es layout
         If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
             dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
             dt = dt.FiltraParametros("UsaLayout = 1")
@@ -259,9 +251,6 @@ Partial Class Bancos_PolizaCheque
             dt = dt.FiltraParametros("UsaLayoutGrupos = 1")
         End If
 
-
-
-
         DdlCuenta.DataSource = dt 'GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
         DdlCuenta.DataBind()
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -274,23 +263,6 @@ Partial Class Bancos_PolizaCheque
         DdlTipoTransaccion.DataBind()
     End Sub
 
-    'Private Sub CargaProyecto()
-    '    DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
-    '    DdlProyecto.DataBind()
-    'End Sub
-
-    'Private Sub CargaSubProyecto()
-    '    DdlSubProyecto.Items.Clear()
-    '    DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
-    '    DdlSubProyecto.DataBind()
-    '    DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    'End Sub
-
-
-    'Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
-    '    CargaSubProyecto()
-    'End Sub
-
     Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
         'CargaFolio()
         CargaCuenta()
@@ -441,10 +413,9 @@ Partial Class Bancos_PolizaCheque
             IdCuenta = 0
             CveCuenta = 0
             CodigoCuenta = ""
-            NombreCuenta = ""
-
-            If UsuarioActual.Empresa.UsaContabilidad Then
-                If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then
+            NombreCuenta = ""
+
+            If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then
                     Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString))
 
                     If drr IsNot Nothing Then
@@ -492,11 +463,11 @@ Partial Class Bancos_PolizaCheque
                         EsComodin = 0
                     End If
                 End If
-            End If
 
 
 
-            Dim dr As DataRow = DtMovimientos.NewRow
+
+                Dim dr As DataRow = DtMovimientos.NewRow
             dr("IdCuenta") = IdCuenta
             dr("CveCuenta") = CveCuenta
             dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta