From 73b92861b096fafb83abde90ea1dc5e1b0a82f34 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 26 Apr 2022 21:17:43 -0700
Subject: [PATCH] -- E140, que todas sean de tipopoliza, ingreso

---
 Ventas/Ventas.aspx.vb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9c62cc0e1..308a2f093 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11975,8 +11975,13 @@ Partial Class Ventas
             factura.Alfa3 = "DEV"
             factura.DevolucionImportePagado = ObjFacturaNC.Total / ObjFacturaNC.PagadoBancos 'falta tomar el dato 
         End If
+        Dim tCvePlantillaPoliza As Integer = factura.CvePlantillaPoliza
 
-        factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, If(CveEmpresaCRM > 0, LblEmpresaCRM.Text, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa)
+        If UsuarioActual.CveEmpresa = 140 Then
+            tCvePlantillaPoliza = 1 ' que sea siempre ingreso.
+        End If
+
+        factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", tCvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, If(CveEmpresaCRM > 0, LblEmpresaCRM.Text, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa)
 
         Dim RFCReceptor As String = ""