-- mejora en acomodo con conta = 1

Contabilidad/RegPrePolizaS.aspx.vb

@@ -279,7 +279,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
                 DivTipoGasto.Visible = True
-                ThTipoGasto.Visible = True
                 CargaTiposGasto()
             End If
 
@@ -377,7 +376,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         DtMovimientos = New DataTable("Movimientos")
         Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
         With DtMovimientos.Columns
-            .Add("CodigoCuenta", Type.GetType("System.String"))
             .Add("Cuenta", Type.GetType("System.String"))
             .Add("Referencia", Type.GetType("System.String"))
             .Add("Concepto", Type.GetType("System.String"))
@@ -662,9 +660,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("  -  ", "-1"))
-        DdlSubProyectoFiltroMov.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyectoFiltroMov.DataBind()
-        DdlSubProyectoFiltroMov.Items.Insert(0, New ListItem("Todos", "-1"))
+
     End Sub
 
     Private Sub CargaCuentasContables()
@@ -790,27 +786,15 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
 
-        'Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla, UsuarioActual.CveEmpresa)
-        Dim Cuenta As String = ""
-        Dim IdCuenta As Integer = 0
-        Dim CodigoCuenta As String = ""
-        Dim NombreCuenta As String = ""
         Dim EsComodin As Integer = 0
         DtMovimientos.Clear()
 
         For Each drt As DataRow In Dt.Rows
 
-            Cuenta = drt("ConceptoContable").ToString
-            IdCuenta = 0
-            CodigoCuenta = ""
-            NombreCuenta = ""
-
-
             Dim dr As DataRow = DtMovimientos.NewRow
 
-            dr("CodigoCuenta") = drt("Codigo").ToString & "<br>" & drt("Nombre").ToString
             dr("CodigoNombreCuenta") = drt("Codigo").ToString & "<br>" & drt("Nombre").ToString
-            dr("Cuenta") = Cuenta  'TxtCuentaContable.Text
+            dr("Cuenta") = drt("ConceptoContable").ToString
             dr("Referencia") = If(drt("CveConceptoContable").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
             dr("Concepto") = TxtConcepto.Text
             dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)
@@ -826,6 +810,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             dr("CveCuenta") = drt("CveCuenta")
             dr("EsComplementaria") = drt("EsComplementaria")
             dr("EsMonedaExtranjera") = drt("EsMonedaExtranjera")
+            dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
 
             DtMovimientos.Rows.Add(dr)
         Next
@@ -1736,7 +1721,6 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim dr As DataRow = DtMovimientos.NewRow
             dr("IdCtaContable") = IdCtaContable
             dr("CveCuenta") = DdlCuentaContableE.SelectedValue
-            'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
             dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
             dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
             dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
@@ -1913,7 +1897,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     End If
                 End If
 
-                dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
+                dr("CodigoNombreCuenta") = CodigoCuenta & "<br>" & NombreCuenta
                 dr("Cuenta") = DdlConceptosContables.SelectedItem
                 dr("Referencia") = TxtReferencia.Text
                 dr("Concepto") = TxtConcepto.Text
@@ -1984,7 +1968,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     End If
                 End If
 
-                dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
+                dr("CodigoNombreCuenta") = CodigoCuenta & "<br>" & NombreCuenta
                 dr("Cuenta") = DdlConceptosContables.SelectedItem.Text
                 dr("Referencia") = TxtReferencia.Text
                 dr("Concepto") = TxtConcepto.Text
@@ -2172,23 +2156,23 @@ Partial Class ContabilidadC_RegPrePolizaS
         RegistraScript("calculateCargo()", "abono")
         RegistraScript("comparar()", "compara")
     End Sub
-    Protected Sub DdlSubProyectoFiltroMov_SelectedIndexChanged(sender As Object, e As EventArgs)
-        For Each Gvr As GridViewRow In GvMov.Rows
-            If DdlSubProyectoFiltroMov.SelectedValue.ToEntero > 0 Then
-                If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero = DdlSubProyectoFiltroMov.SelectedValue.ToEntero Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero > 0 Then
-                    Gvr.Visible = True
-                Else
-                    Gvr.Visible = False
-                End If
-            Else
-                Gvr.Visible = True
-            End If
-        Next
-        UpPrePoliza.Update()
-        RegistraScript("calculateAbono()", "cargo")
-        RegistraScript("calculateCargo()", "abono")
-        RegistraScript("comparar()", "compara")
-    End Sub
+    'Protected Sub DdlSubProyectoFiltroMov_SelectedIndexChanged(sender As Object, e As EventArgs)
+    '    For Each Gvr As GridViewRow In GvMov.Rows
+    '        If DdlSubProyectoFiltroMov.SelectedValue.ToEntero > 0 Then
+    '            If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero = DdlSubProyectoFiltroMov.SelectedValue.ToEntero Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero > 0 Then
+    '                Gvr.Visible = True
+    '            Else
+    '                Gvr.Visible = False
+    '            End If
+    '        Else
+    '            Gvr.Visible = True
+    '        End If
+    '    Next
+    '    UpPrePoliza.Update()
+    '    RegistraScript("calculateAbono()", "cargo")
+    '    RegistraScript("calculateCargo()", "abono")
+    '    RegistraScript("comparar()", "compara")
+    'End Sub
 
     Private Sub GvMov_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvMov.RowEditing
         Actualizar = True
@@ -2552,9 +2536,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     End If
 
                     Dim dr As DataRow = DtMovimientos.NewRow
-                    Dim CodigoCuenta As String = ""
 
-                    dr("CodigoCuenta") = NombreCuenta
                     dr("CodigoNombreCuenta") = NombreCuenta
                     dr("Cuenta") = ConceptoAdministrativo
                     dr("Referencia") = Row("Referencia").ToString