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

-- PAC 5. metricas de tiempo de timbrado y guardado

Browse Source
This commit is contained in:
rrene
2021-07-16 11:27:53 -07:00
parent 409f2063cb
commit 232b3eafad
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/Timbrado.vb
View File

@@ -2924,12 +2924,22 @@ Public Class Timbrado
OnError("Ocurrió un error al obtener los resultados", ex) OnError("Ocurrió un error al obtener los resultados", ex)
End Try End Try
sw.Stop()
swTiempo.AppendFormat("Timbrado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
swmili = sw.ElapsedMilliseconds
sw.Start()
If result IsNot Nothing Then If result IsNot Nothing Then
If result.timbradoOk Then If result.timbradoOk Then
Dim FolioFiscal As String = result.UUID Dim FolioFiscal As String = result.UUID
'GUARDA EL XML RETORNADO POR EL PAC 'GUARDA EL XML RETORNADO POR EL PAC
cfdi.EscribirXML(result.xmlBase64.ToBase64Decode(), RutaArchivo, NombreArchivoXML) cfdi.EscribirXML(result.xmlBase64.ToBase64Decode(), RutaArchivo, NombreArchivoXML)
sw.Stop()
swTiempo.AppendFormat("Guardado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
swmili = sw.ElapsedMilliseconds
sw.Start()
If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
'Actualiza Estatus Factura 'Actualiza Estatus Factura
@@ -2989,6 +2999,10 @@ Public Class Timbrado
OnError("Ocurrió un error al generar el QR", ex) OnError("Ocurrió un error al generar el QR", ex)
End Try End Try
Retorno = "" Retorno = ""
sw.Stop()
swTiempo.AppendFormat("Actualizado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
swmili = sw.ElapsedMilliseconds
sw.Start()
Else Else
If String.IsNullOrEmpty(result.mensaje) Then If String.IsNullOrEmpty(result.mensaje) Then
Retorno = Respuesta + msgErrorGeneracion Retorno = Respuesta + msgErrorGeneracion