-- 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,20 +821,11 @@ 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 Then
+        If Not ErrorRegistrar AndAlso Not Conta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
-
+            ErrorRegistrar = True
-            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
@@ -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()
@@ -983,30 +991,19 @@ Partial Class Bancos_FluctuacionCambiaria
             End If
         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
+            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()
 
-            If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 7, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then
-                ErrorRegistrar = True
-            End If
-
-            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()
@@ -1150,22 +1147,12 @@ Partial Class Bancos_FluctuacionCambiaria
             End If
         Next
 
+        If Not ErrorRegistrar AndAlso Not Conta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+            ErrorRegistrar = True
+        End If
+
         If Not ErrorRegistrar Then
-
-            'Inicio auto conta
-            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()
-
             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()