-- cambio en valida-contabiliza

Bancos/FluctuacionCambiaria.aspx.vb

@@ -451,7 +451,13 @@ Partial Class Bancos_FluctuacionCambiaria
                 End If
             Next
 
-            Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, CveBitacora, UsuarioActual.CveEmpresa)
+            If Not ErrorRegistrar AndAlso Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, CveBitacora, UsuarioActual.CveEmpresa) Then
+                ErrorRegistrar = True
+            End If
+
+            If Not ErrorRegistrar AndAlso Not Conta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+                ErrorRegistrar = True
+            End If
 
         End If
 
@@ -529,10 +535,11 @@ Partial Class Bancos_FluctuacionCambiaria
                 End If
             Next
 
-            If Not ErrorRegistrar Then
+            If Not ErrorRegistrar AndAlso Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 2, CveBitacora, UsuarioActual.CveEmpresa) Then
-                If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 2, CveBitacora, UsuarioActual.CveEmpresa) Then
+                ErrorRegistrar = True
-                    ErrorRegistrar = True
+            End If
-                End If
+            If Not ErrorRegistrar AndAlso Not Conta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+                ErrorRegistrar = True
             End If
 
         End If
@@ -631,7 +638,10 @@ Partial Class Bancos_FluctuacionCambiaria
 
         Next
 
-        If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 3, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Not ErrorRegistrar AndAlso Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 3, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            ErrorRegistrar = True
+        End If
+        If Not ErrorRegistrar AndAlso Not Conta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
             ErrorRegistrar = True
         End If
 
@@ -723,10 +733,12 @@ Partial Class Bancos_FluctuacionCambiaria
                 ErrorRegistrar = True
                 Exit For
             End If
-
         Next
 
-        If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 4, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Not ErrorRegistrar AndAlso Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 4, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            ErrorRegistrar = True
+        End If
+        If Not ErrorRegistrar AndAlso Not Conta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
             ErrorRegistrar = True
         End If
 
@@ -809,22 +821,13 @@ Partial Class Bancos_FluctuacionCambiaria
             End If
         Next
 
-        Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 5, CveBitacora, UsuarioActual.CveEmpresa)
+        If Not ErrorRegistrar AndAlso Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 5, CveBitacora, UsuarioActual.CveEmpresa) Then
+            ErrorRegistrar = True
+        End If
+        If Not ErrorRegistrar AndAlso Not Conta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+            ErrorRegistrar = True
+        End If
 
-
-        If Not ErrorRegistrar Then
-
-            If Conta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
-                If Conta.ValorPolizaDescuadre > 0 Then
-                    ErrorRegistrar = True
-                    GuardaLogAD($"Banc/FluctuaA | Error:{Conta.MensajePolizaDescuadre} Diferencia:{Conta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                End If
-            Else
-                Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
-            End If
-
-        End If
-
         If Not ErrorRegistrar Then
             Conta.Commit()
             BtnGeneraAcreedores.Visible = False
@@ -896,7 +899,12 @@ Partial Class Bancos_FluctuacionCambiaria
             End If
         Next
 
-        Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 6, CveBitacora, UsuarioActual.CveEmpresa)
+        If Not ErrorRegistrar AndAlso Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 6, CveBitacora, UsuarioActual.CveEmpresa) Then
+            ErrorRegistrar = True
+        End If
+        If Not ErrorRegistrar AndAlso Not Conta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+            ErrorRegistrar = True
+        End If
 
         If Not ErrorRegistrar Then
             Conta.Commit()
@@ -981,32 +989,21 @@ Partial Class Bancos_FluctuacionCambiaria
                     ErrorRegistrar = True
                 End If
             End If
-        Next
+        Next
-
+
-        Dim SeContabilizo As Boolean = False
+        If Not ErrorRegistrar AndAlso Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 7, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
-
+            ErrorRegistrar = True
-        Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+        End If
-        If AutoConta Then
+        If Not ErrorRegistrar AndAlso Not Conta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
-            If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+            ErrorRegistrar = True
-                SeContabilizo = True
-            Else
-                ErrorRegistrar = True
-                Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
-            End If
         End If
 
-        If Not ErrorRegistrar Then
+        If Not ErrorRegistrar Then
-
+            Conta.Commit()
-            If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 7, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
+            ' ObjContPaq.Commit()
-                ErrorRegistrar = True
+            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
-            End If
+            CargaDatosBancosCuentas()
-
+
-            If Not ErrorRegistrar Then
-                Conta.Commit()
-                ' ObjContPaq.Commit()
-                Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
-                CargaDatosBancosCuentas()
-            End If
         Else
             Conta.RollBack()
             ' ObjContPaq.Dispose()
@@ -1145,27 +1142,17 @@ Partial Class Bancos_FluctuacionCambiaria
                 End If
             Else
                 'actualizar el TC del IE, al nuevo TC de la fluctuación
-                Banco.UpdateBancosTipoCambioValuacion(TCCierreFluctuacion, gvr.DataKey("CveIE").ToEntero, UsuarioActual.CveEmpresa)
+                Banco.UpdateBancosTipoCambioValuacion(TCCierreFluctuacion, gvr.DataKey("CveIE").ToEntero, UsuarioActual.CveEmpresa)
-
+
             End If
         Next
 
-        If Not ErrorRegistrar Then
+        If Not ErrorRegistrar AndAlso Not Conta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
-
+            ErrorRegistrar = True
-            'Inicio auto conta
+        End If
-            Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
-            If AutoConta Then
-
-                If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                Else
-                    Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
-                End If
-            End If
-
-            ' If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
-            'Fin autoconta 
-            Conta.Commit()
 
+        If Not ErrorRegistrar Then
+            Conta.Commit()
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
         Else
             Conta.RollBack()