Reg Egresos sin comprobante cuentas, ClsContabilidad funsion ordenamiento de prepoliza, comprobaciones correcino cuenta concepto 78

Contabilidad/RegPrePolizaS.aspx.vb

@@ -493,7 +493,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
 
                 ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
-                DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+                DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+
+
+                'DtMovimientos.DefaultView.Sort = "OrdenPP"
+                'DtMovimientos = DtMovimientos.DefaultView.ToTable
+
                 GvPrePoliza.DataSource = DtMovimientos
 
 
@@ -2971,23 +2976,28 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
             Catch ex As Exception
                 MsgError = "Error"
-            End Try
+            End Try
+
+            If MsgError = "" Then
+                If Not ObjMov.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                    MsgError = "Orror al  ordenar polzia"
+                End If
+            End If
 
             If MsgError = "" Then
 
 
-
                 Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} <br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""")
 
 
 
-                ObjIE.Commit()
-                If Conta IsNot Nothing Then Conta.Commit()
-
-                UPPDocumento.Update()
-
-                TxtConcepto.Text = ""
-                GvMov.DataBind()
+                ObjIE.Commit()
+                If Conta IsNot Nothing Then Conta.Commit()
+
+                UPPDocumento.Update()
+
+                TxtConcepto.Text = ""
+                GvMov.DataBind()
                 TxtFechaDocumento.Text = ""
 
             Else