From 305ed85da83fdef0313e4d88cfd7bb41fed8c9fd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 Apr 2024 13:14:31 -0700
Subject: [PATCH] =?UTF-8?q?--=20=20cambio=20en=20tipo=20de=20p=C3=B3liza?=
 =?UTF-8?q?=20y=20plantilla=20prepoliza?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/PVCobranza.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index 7062626f0..556c2c13e 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -353,7 +353,7 @@ Partial Class Ventas_PVCobranza
             Dim ObjIE As New ClsBancos(ObjConta.IniciaTransacSQL())
             Dim ObjVentas2 As New ClsVentas(ObjConta.IniciaTransacSQL())
             Try
-                CvePrePoliza = ObjConta.AddPrePolizas("PVCobranza", 11, 0, 0, 1, Fecha, $"Pago {VentaActual.SerieFolio}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                CvePrePoliza = ObjConta.AddPrePolizas("PVCobranza", 11, 0, 0, 1, Fecha, $"Pago {VentaActual.SerieFolio}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
 
                 If CvePrePoliza > 0 Then