AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

timbrado pac4 carta porte

Browse Source
This commit is contained in:
rrene
2024-02-21 20:43:37 -07:00
parent 115f82159a
commit 0a0d3f2e4d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/Modelos.vb
View File

@@ -1024,9 +1024,11 @@ Namespace Modelos
Dim ObjTimbrado As New Timbrado Dim ObjTimbrado As New Timbrado
'DOCUMENTO ACTUAL 'DOCUMENTO ACTUAL
If DebeTimbrar Then If DebeTimbrar Then
Dim CvePAC As Integer = -1
If Me.EmitirCartaPorte AndAlso CveTimbreCartaPorte > 0 Then If Me.EmitirCartaPorte AndAlso CveTimbreCartaPorte > 0 Then
Dim RespCartaPorte As Timbres.MMensajeCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorte, UsuarioActual) Dim RespCartaPorte As Timbres.MMensajeCartaPorte = Timbres.PreParaCartaPorteFactura(CveTimbreCartaPorte, UsuarioActual)
If Not RespCartaPorte.TieneError Then If Not RespCartaPorte.TieneError Then
CvePAC = 4 'código temporal. para que se timbre PAC 4
Me.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte Me.Timbre.Complementos.CartaPorte = RespCartaPorte.CartaPorte
Else Else
DebeTimbrar = False DebeTimbrar = False
@@ -1034,7 +1036,7 @@ Namespace Modelos
End If End If
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 'NOTA DE CREDITO - REFACTURADA - CASO ESPECIAL, TIMBRADO E IMPRESION
If Not IsNothing(Obj2) AndAlso Obj2.Count > 0 Then If Not IsNothing(Obj2) AndAlso Obj2.Count > 0 Then