--ECONO. Timbrado de traslados

App_Code/ClsPaginas.vb

@@ -6960,9 +6960,12 @@ Public Class ClsPaginas
             End If
 
             params.Add(New ReportParameter("CFDIVersion", Vta.Version))
+
+            If Vta.Cliente IsNot Nothing Then
                 If Vta.Cliente.CodigoRegimenFiscal.ToString.Length > 0 Then
                     params.Add(New ReportParameter("RegimenFiscalCodigo", $"{Vta.Cliente.CodigoRegimenFiscal}-{Vta.Cliente.RegimenFiscal}"))
                 End If
+            End If
 
             'CLIENTE 
             If Vta.CveCliente.ToEntero > 0 Or Vta.CveEmpresaCRM.ToEntero > 0 Then

App_Code/Timbrado.vb

@@ -2886,6 +2886,13 @@ concep.DescripcionesEspecificas.NumeroSerie)
             ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key"
             ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.cer"
 
+            If Ventas.Timbre.Comprobante.TipoComprobante = "T" Then
+                Ventas.Timbre.Receptor.RFC = "EKU9003173C9"
+                Ventas.Timbre.Receptor.Nombre = "ESCUELA KEMPER URGATE"
+                Ventas.Timbre.Receptor.DomicilioFiscalReceptor = "42501"
+                Ventas.Timbre.Receptor.RegimenFiscalReceptor = "601"
+            End If
+
             Clave = "12345678a"
             TimbraProduccion = False
             UsuarioServicio = "UserTest"
@@ -3124,6 +3131,13 @@ concep.DescripcionesEspecificas.NumeroSerie)
             Clave = "12345678a"
             TimbraProduccion = False
 
+            If Ventas.Timbre.Comprobante.TipoComprobante = "T" Then
+                Ventas.Timbre.Receptor.RFC = "EKU9003173C9"
+                Ventas.Timbre.Receptor.Nombre = "ESCUELA KEMPER URGATE"
+                Ventas.Timbre.Receptor.DomicilioFiscalReceptor = "42501"
+                Ventas.Timbre.Receptor.RegimenFiscalReceptor = "601"
+            End If
+
         End If
 
 #Region "Valida"

App_Code/Timbres.vb

@@ -395,6 +395,10 @@ Public Class Timbres
                         _MsgError.AppendLine("timbrado son detalle de productos")
                     End If
 
+                    If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                        Timbre.Receptor.UsoCFDI = "CP01"
+                    End If
+
                 End If
 
             Else

Compras/PopUpVerFactura.aspx.vb

@@ -2449,19 +2449,26 @@ Partial Class PopUpVerFactura
             Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten)
             Dim Archivo As New System.IO.FileInfo(Path)
             Dim cvetimbre As Integer = IfNull(Parametros("CVETIMBRE"), "0").ToString.ToEntero
-
+            Dim CveMovimiento As Integer = IfNull(Parametros("CVEMOVIMIENTO"), "0").ToString.ToEntero
             If Archivo.Exists Then
                 DescargarArchivoPDFTraslado(Archivo, Path)
             Else
                 If Exten = "pdf" Then
                     Dim ObjTimbres As New Timbres(Parametros("TIPODOCTO").ToString, cvetimbre, UsuarioActual)
 
+                    If ObjTimbres IsNot Nothing AndAlso ObjTimbres.ObjFactura IsNot Nothing Then
+                        'OBTENER LA INFORMACION DEL MOVIMIENTO DE ALMACEN
+                        ObjTimbres.ObjFactura.Inv_CveMovimiento = CveMovimiento
+
                         GeneraPDFFactura(ObjTimbres.ObjFactura)
                         Archivo = New System.IO.FileInfo(Path)
+
                         If Archivo.Exists Then
                             DescargarArchivoPDFTraslado(Archivo, Path)
                         End If
                     End If
+
+                End If
             End If
             Archivo = Nothing
         End If
@@ -3712,6 +3719,7 @@ Partial Class PopUpVerFactura
 
                 End If
 
+
                 If CveContrato > 0 Then
                     Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
                     NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2776,6 +2776,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             Try
                 PdfFactura(ObjTimbres.ObjFactura)
+                ObjTimbres.ObjFactura.Inv_CveMovimiento = CveMovimientoTimbrado
             Catch ex As Exception
 
             End Try
@@ -2794,9 +2795,13 @@ Partial Class Inventarios_TraspasoAlmacen
 
             If ChkEmitirCartaPorte.Checked Then
                 MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", CveTimbre)))
+            Else
+                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                    MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Traslado</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}&CVETIMBRE={4}", CveMovimientoTimbrado, "PDF", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto, CveTimbre)))
                 Else
                     MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Traslado</a></li></ul>", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimientoTimbrado)))
                 End If
+            End If
 
         Else
             MensajeAlert.AppendFormat("<ul><li>{0}</li></ul>", ObjTimbres.MsgError.ToString)