From 049e24faab943ba2a87a9695edb60f67b40f7bae Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 20 Mar 2022 07:22:25 -0700 Subject: [PATCH] -- mejora en peso neto y peso bruto --- App_Code/Timbres.vb | 18 ++++-------------- 1 file changed, 4 insertions(+), 14 deletions(-) diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index d087b4392..4f8d15dc4 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -124,6 +124,8 @@ Public Class Timbres Timbre.Receptor.RFC = drT("DestinatarioRFC").ToString Timbre.Receptor.Nombre = drT("DestinatarioNombre").ToString + Timbre.Receptor.DomicilioFiscalReceptor = drT("DirDesCP").ToString + Timbre.Receptor.RegimenFiscalReceptor = drT("CodigoRegimenFiscalReceptor").ToString CveMovimiento = drT("CveMovimientoAlmacen").ToString.ToEntero FechaSalida = drT("FechaEntrega").ToString.ToDateTime @@ -182,18 +184,6 @@ Public Class Timbres CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) End If - - If drT("ClaveTipoRemolque1").ToString <> "" Then - Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1"), .Placa = drT("PlacaRemolque1")} - CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem1) - End If - - If drT("ClaveTipoRemolque2").ToString <> "" Then - Dim Rem2 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque2"), .Placa = drT("PlacaRemolque2")} - CartaPorte.FiguraTransporte.AutoTransporte.Remolques.Add(Rem2) - End If - - Dim DomOrigen As CFDICartaPorteDomicilio = Nothing DomOrigen = New CFDICartaPorteDomicilio With {.Calle = drT("DirOriCalle").ToString, .Colonia = drT("DirOriClaveSATColonia").ToString, @@ -283,7 +273,7 @@ Public Class Timbres .ClaveUnidad = drr("SATClaveUM").ToString, .Unidad = drr("UM").ToString, .Dimensiones = drr("Dimensiones").ToString, - .PesoenKg = drr("PesoKg").ToString.ToDecimal, + .PesoenKg = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""), .ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString, .Embalaje = drr("ClaveEmbalaje").ToString, @@ -294,7 +284,7 @@ Public Class Timbres .UUIDComercioExt = "" } - Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal} + Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToDecimal} conceptoCarta.DetalleMercancia = DetalleMercancia Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"}