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

-- cambio en qr enviado con sellocfdi

Browse Source
This commit is contained in:
rrene
2024-04-16 05:55:25 -07:00
parent e5eaef7789
commit a34c90a88a
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/Timbrado.vb
View File

@@ -3205,7 +3205,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
If result IsNot Nothing Then If result IsNot Nothing Then
If result.timbradoOk Then If result.timbradoOk Then
Dim SelloCfdi As String Dim SelloCfdi As String
SelloCfdi = "" SelloCfdi = cfdi.CfdiInfo.SelloCfdi
UUID = result.UUID UUID = result.UUID
'GUARDA EL XML RETORNADO POR EL PAC 'GUARDA EL XML RETORNADO POR EL PAC
@@ -3224,7 +3224,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
Select Case ObjCFDITimbre.Comprobante.TipoComprobante Select Case ObjCFDITimbre.Comprobante.TipoComprobante
Case "N" Case "N"
Using ObjNomina2 As New ClsNominas() Using ObjNomina2 As New ClsNominas()
If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, UUID, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, UUID, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then
@@ -3233,7 +3232,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
Retorno = "Error" Retorno = "Error"
End If End If
End Using End Using
Case "T" Case "T"
Dim objGrales As New ClsGenerales Dim objGrales As New ClsGenerales
@@ -3252,7 +3250,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
End If End If
End Using End Using
Case Else Case Else
'Actualiza Estatus Factura 'Actualiza Estatus Factura