From 5e7a47d60f078743be671221a26c112de51ddb68 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 8 Jul 2022 12:38:41 -0700
Subject: [PATCH] =?UTF-8?q?--=20actualizaci=C3=B3n=20de=20timbre=20en=20ca?=
 =?UTF-8?q?rta=20porte.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/Timbrado.vb | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 8c9a35137..fa00d566c 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -3483,6 +3483,14 @@ Public Class Timbrado
                             End If
 
                             If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then
+                                Dim objGrales As New ClsGenerales
+                                If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "3.3") Then
+                                    Retorno = ""
+                                Else
+                                    Retorno = "Error"
+                                End If
+                                objGrales.Dispose()
+
                                 Using ObjInv As New ClsInventarios()
                                     If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
                                         Retorno = ""
@@ -5706,6 +5714,14 @@ Public Class Timbrado
                             End If
 
                             If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then
+                                Dim objGrales As New ClsGenerales
+                                If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
+                                    Retorno = ""
+                                Else
+                                    Retorno = "Error"
+                                End If
+                                objGrales.Dispose()
+
                                 Using ObjInv As New ClsInventarios()
                                     If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
                                         Retorno = ""