-- cambio en contabilizacion, primero se caudra y luego se contabiliza

Bancos/PagoDeudor.aspx.cs

@@ -842,6 +842,17 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                         MsgError = "No se pudo insertar concepto de bancos complementaria";
                     }
                 }
+
+                if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 10))
+                {
+                    if (ObjMov.ValorPolizaDescuadre > 0)
+                    {
+                        MsgError = ObjMov.MensajePolizaDescuadre;
+                        $"Bancos/IE PAGO Deudor | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}".GuardaLogAD("LogPrePolizas");
+                    }
+                }
+
+
                 bool AutoConta = UsuarioActual.Empresa.Funcionalidad(200).Equals("1");
                 //if (UsuarioActual.CveEmpresa == 119) AutoConta = false;
 
@@ -881,15 +892,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
             MsgError = "No se pudo insertar la póliza";
         }
 
-        if (ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 10))
+       
-        {
-            if (ObjMov.ValorPolizaDescuadre > 0)
-            {
-                MsgError = ObjMov.MensajePolizaDescuadre;
-                $"Bancos/IE PAGO Deudor | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}".GuardaLogAD("LogPrePolizas");
-            }
-        }
-
         if (MsgError.Equals(""))
         {
             if (Msg.ToString().Equals(""))

Bancos/PolizaCheque.aspx.vb

@@ -849,7 +849,8 @@ Partial Class Bancos_PolizaCheque
             'Dim Conta As ClsContPAQi = Nothing
             Dim IDPoliza As Integer = 0
             Dim CveIE As Integer
-            Dim MsgError As String = ""
+            Dim MsgError As String = ""
+            Dim idCuentaContabilizacion As Long = 1
 
             'If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then
             '    Conta = New ClsContPAQi(UsuarioActual.Empresa)
@@ -875,7 +876,8 @@ Partial Class Bancos_PolizaCheque
                         Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
                         If dr IsNot Nothing Then
                             CveMoneda = dr("CveMoneda").ToString.ToEntero
-                        End If
+                        End If
+
                         Dim TC As Decimal = If(CveMoneda > 1, GlobalTipoCambio(TxtFechaDocumento.Text.ToDate), 1)
                         Dim CveTipoPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla).FiltroPrimeroValor("TipoPoliza", String.Format("CvePlantillaPoliza={0}", DdlPlantilla.SelectedValue)).ToEntero
                         CvePrePoliza = ObjMov.AddPrePolizas("PolizaCheque/Guardar", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=CveTipoPoliza)
@@ -886,8 +888,8 @@ Partial Class Bancos_PolizaCheque
 
 
                             If CvePrePoliza > 0 Then
-                                Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
+                                Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
-                                Dim idCuentaContabilizacion As Long = 1
+
                                 Dim Importe As Double = 0
                                 Dim TipoMovto As Boolean = False
                                 Dim IdCtaContable As Integer = 0
@@ -958,20 +960,6 @@ Partial Class Bancos_PolizaCheque
                                 End If
 
 
-                                'El movimiento 2 es el de Pago
-                                If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
-                                    If idCuentaContabilizacion > 0 Then
-                                        If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                            'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
-                                            IDPoliza = ObjMov.ContaIdPoliza
-                                        Else
-                                            Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
-                                        End If
-                                    Else
-                                        Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas", TipoMensaje.MsgError)
-                                    End If
-                                End If
-
                                 If CvePeriodo > 0 Then
                                     If Not ObjNom.UpdatePagoNomina(CvePeriodo, CveIE, CvePrePoliza, UsuarioActual.CveEmpresa) Then
                                         MsgError = "No se pudo actualizar el periodo de la nómina"
@@ -1008,8 +996,25 @@ Partial Class Bancos_PolizaCheque
                         Else
                             MsgError = "No se pudo validar la prepoliza de cuadre."
                         End If
+                    End If
+
+
+                    'El movimiento 2 es el de Pago
+                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
+                        If idCuentaContabilizacion > 0 Then
+                            If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                                'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
+                                IDPoliza = ObjMov.ContaIdPoliza
+                            Else
+                                MsgError = "Error al contabilizar"
+                                Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+                            End If
+                        Else
+                            Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas", TipoMensaje.MsgError)
+                        End If
                     End If
 
+
                     If MsgError = "" Then
 
                         ObjIE.Commit()