From 0a0d3f2e4dfe39841b562d27f9e3c1d0ffbbeeaf Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 21 Feb 2024 20:43:37 -0700 Subject: [PATCH] timbrado pac4 carta porte --- App_Code/Modelos.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index a389e480f..4b82eabb7 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1024,9 +1024,11 @@ Namespace Modelos Dim ObjTimbrado As New Timbrado 'DOCUMENTO ACTUAL If DebeTimbrar Then + Dim CvePAC As Integer = -1 If Me.EmitirCartaPorte AndAlso CveTimbreCartaPorte > 0 Then Dim RespCartaPorte As Timbres.MMensajeCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorte, UsuarioActual) If Not RespCartaPorte.TieneError Then + CvePAC = 4 'código temporal. para que se timbre PAC 4 Me.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte Else DebeTimbrar = False @@ -1034,7 +1036,7 @@ Namespace Modelos End If End If - SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, Me) + SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, Me, CvePACEspecial:=CvePAC) 'NOTA DE CREDITO - REFACTURADA - CASO ESPECIAL, TIMBRADO E IMPRESION If Not IsNothing(Obj2) AndAlso Obj2.Count > 0 Then