-- rfc receptor

App_Code/Timbres.vb

@@ -85,12 +85,8 @@ Public Class Timbres
         Timbre.Comprobante.Descuentos = Obj.Descuento
         Timbre.Comprobante.Moneda = "XXX"
         Timbre.Comprobante.TipoCambio = "" ' CONDICIÓN SI LA MONEDA ES 'XXX'
-
-        Timbre.Receptor.RFC = UsuarioActual.Empresa.RFC
-        Timbre.Receptor.Nombre = UsuarioActual.Empresa.Empresa
         Timbre.Receptor.UsoCFDI = "P01"
 
-
         Dim totSubTotal As Decimal = Obj.SubTotal
         Dim totIVA As Decimal = Obj.IVA
         Dim totRetIVA As Decimal = Obj.RetIVA
@@ -124,9 +120,11 @@ Public Class Timbres
 
             If ObjGrales.DtResultados.Rows.Count = 1 Then
                 Dim DtMovimientos As DataTable = Nothing
-
                 Dim drT As DataRow = ObjGrales.DtResultados.Rows(0)
 
+                Timbre.Receptor.RFC = drT("DestinatarioRFC").ToString
+                Timbre.Receptor.Nombre = drT("DestinatarioNombre").ToString
+
                 CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero
                 FechaSalida = drT("FechaEntrega").ToString.ToDateTime
                 FechaLlegada = drT("FechaLlegada").ToString.ToDateTime