-- ESPECIFICACIÓN PARA TIMBRAR PAC 4

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

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)