From d1705f67eb05ae80d430745af43ed23309ce707c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 21 Feb 2024 11:15:51 -0700
Subject: [PATCH] =?UTF-8?q?--=20ESPECIFICACI=C3=93N=20PARA=20TIMBRAR=20PAC?=
 =?UTF-8?q?=204?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/Timbres.vb                 | 4 ++--
 Inventarios/TraspasoAlmacen.aspx.vb | 7 +++----
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb
index 9770f9d03..dd3934601 100644
--- a/App_Code/Timbres.vb
+++ b/App_Code/Timbres.vb
@@ -626,13 +626,13 @@ Public Class Timbres
         Return Retorno
 
     End Function
-    Public Function Timbrar() As Boolean
+    Public Function Timbrar(Optional CvePACEspecifico As Integer = -1) As Boolean
 
         Dim Respuesta As Boolean = False
 
         Dim ObjTimbrado As New Timbrado
 
-        If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then
+        If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePACEspecial:=CvePACEspecifico) Then
             Respuesta = True
         Else
             Respuesta = False
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index e63644c9a..25ce02ad1 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1006,9 +1006,8 @@ Partial Class Inventarios_TraspasoAlmacen
         CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
                                                           Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
                                                           CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDecimal > 0, TxtGastoIndirecto.Text, "-1").ToDecimal,
-                                                          CveChofer:=If(ChkTransitorio.Checked, DdlChofer.SelectedValue.ToEntero, -1), Placa:="", FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:="",
-                                                          ResponsableCarga:="", ResponsableRecibio:="", Identificacion:="", Domicilio:="",
-                                                          Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2", CveFolioGarantia:=CveFolioGarantia)
+                                                          ResponsableCarga:="", ResponsableRecibio:="",
+                                                          Modulo:="TA/G2", CveFolioGarantia:=CveFolioGarantia)
         FolioSalida = ObjInventario.Folio
         Folio = ObjInventario.Folio
         If CveMovimientoSalida <= 0 Then
@@ -2745,7 +2744,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         MensajeAlert.Append("<br/><br/>")
 
-        If ObjTimbres.Timbrar() Then
+        If ObjTimbres.Timbrar(CvePACEspecifico:=4) Then
 
             Try
                 PdfFactura(ObjTimbres.ObjFactura)