From 00afd382280e8b15d129ffd6ca9df8dc1d3bc698 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 3 May 2022 06:17:31 -0700
Subject: [PATCH] tipo poliza E140

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

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 521472341..1c5732c3b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12030,13 +12030,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
+        Dim tCveTipoPoliza As Integer = -1
 
         If UsuarioActual.CveEmpresa = 140 Then
-            tCvePlantillaPoliza = 1 ' que sea siempre ingreso.
+            tCveTipoPoliza = 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)
+        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, CveTipoPoliza:=tCveTipoPoliza)
 
         Dim RFCReceptor As String = ""