Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/Ventas.aspx.vb

@@ -10215,7 +10215,11 @@ Partial Class Ventas
 
             If ObjConta.ValidacionPrePolizaCuadre(ObjFactura.CvePrePoliza, 2) Then
                 If ObjConta.ValorPolizaDescuadre > 0 Then
-                    'ErrorPrepoliza = True
+                    If ObjConta.ValorPolizaDescuadre = 2 Then
+                        ErrorPrepoliza = True
+                        Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
+                    End If
+                    'ErrorPrepoliza = True
                     GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{ObjFactura.CvePrePoliza}", "LogPrePolizas")
 
                     'SIRVE PARA VER LA PREPOLIZA QUE SE VALIDA
@@ -15669,6 +15673,15 @@ Partial Class Ventas
             End If
         End If
 
+        If ObjConta.ValidacionPrePolizaCuadre(-1, 2, CveVenta) Then
+            If ObjConta.ValorPolizaDescuadre > 0 Then
+                If ObjConta.ValorPolizaDescuadre = 2 Then
+                    OcurrioError = True
+                    ErrorList.Add(ObjConta.MensajePolizaDescuadre)
+                End If
+            End If
+        End If
+
         If Not OcurrioError Then
             If RegeneracionPolizas(ObjVentas, ObjAC) Then
                 OcurrioError = True
@@ -21650,6 +21663,7 @@ Partial Class Ventas
 
         Dim ObjVentas As New ClsVentas
         Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())
+        Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
         Dim OcurrioError = False
         Dim MensajeError = ""
 
@@ -21703,6 +21717,15 @@ Partial Class Ventas
             End If
         End If
 
+        If ObjConta.ValidacionPrePolizaCuadre(-1, 2, CveVenta) Then
+            If ObjConta.ValorPolizaDescuadre > 0 Then
+                If ObjConta.ValorPolizaDescuadre = 2 Then
+                    OcurrioError = True
+                    MensajeError = ObjConta.MensajePolizaDescuadre
+                End If
+            End If
+        End If
+
         If OcurrioError Then
             ObjVentas.RollBack()
             Alert($"{MensajeError}. Por favor vuelva a intentar.", TipoMensaje.MsgError)
@@ -21721,6 +21744,8 @@ Partial Class Ventas
         End If
 
         ObjVentas.Dispose()
+        ObjConta.Dispose()
+        ObjCGame.Dispose()
     End Sub
 
 #End Region