diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index c5fe74c5b..654f5ae7f 100644 --- a/App_Code/Timbres.vb +++ b/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