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

valor para variable MensajeErrorCFDI

Browse Source
This commit is contained in:
rrene
2020-07-24 18:52:02 -07:00
parent aa6b319c3b
commit 9382181d92
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/Timbrado.vb
View File

@@ -9,7 +9,7 @@ Imports System.Data
Public Class Timbrado Public Class Timbrado
#Region "P R O P I E D A D E S" #Region "P R O P I E D A D E S"
Public Property MensajeErrorCFDI As String Public Property MensajeErrorCFDI As String = ""
Public Property UUID As String = "" Public Property UUID As String = ""
Public Property CancelacionAcuse As String Public Property CancelacionAcuse As String
Public Property CancelacionState As Integer Public Property CancelacionState As Integer
@@ -640,6 +640,7 @@ Public Class Timbrado
Case 2 Case 2
'Retorno = TimbrarFacturaRealVirtual(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV) 'Retorno = TimbrarFacturaRealVirtual(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
Dim Ret As String = TimbrarFacturaRealVirtualv33(Ventas, UsuarioActual) Dim Ret As String = TimbrarFacturaRealVirtualv33(Ventas, UsuarioActual)
If Ret <> "" Then MensajeErrorCFDI = Ret
Retorno = If(Ret = "", True, False) Retorno = If(Ret = "", True, False)
Case 3 Case 3
@@ -648,6 +649,7 @@ Public Class Timbrado
Case 4 Case 4
Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual, CvePACEspecial) Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual, CvePACEspecial)
If Ret <> "" Then MensajeErrorCFDI = Ret
Retorno = If(Ret = "", True, False) Retorno = If(Ret = "", True, False)
End Select End Select