-- actualización de librería de carta porte 3.1

-- objeto de envío de correo

App_Code/Timbrado.vb

@@ -1949,7 +1949,7 @@ Public Class Timbrado
             End If
 
             Dim nsComp As New System.Xml.Serialization.XmlSerializerNamespaces()
-            nsComp.Add("cartaporte20", "http://www.sat.gob.mx/CartaPorte20")
+            nsComp.Add("cartaporte31", "http://www.sat.gob.mx/CartaPorte31")
             Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComCartaPorte, GetType(ProfactCartaPorte.CartaPorte), nsComp)
             Dim docComp As New XmlDocument()
             docComp.LoadXml(xmlComp)
@@ -2554,13 +2554,14 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
             ''DATOS GENERALES
             cfdi.CartaPorte31("", Carta.TranspInternac, Carta.EntradaSalidaMercancia, Carta.PaisOrigenDestino, Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
+
+            If Carta.RegimenAduanero <> "" Then cfdi.CartaPorte31RegimenAduaneroCCP(Carta.RegimenAduanero)
             'UBICACIONES
             If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
                     For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
-                        'origen
-                        cfdi.CartaPorte31Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
-                        'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
-                        cfdi.CartaPorte31Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
+                    'origen
+                    cfdi.CartaPorte31Ubicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
+                    cfdi.CartaPorte31Domicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
                     Next
                 End If
 

App_Code/Timbres.vb

@@ -307,7 +307,7 @@ Public Class Timbres
                                                                    .ClaveUnidad = drr("SATClaveUM").ToString,
                                                                    .Unidad = drr("UM").ToString,
                                                                    .Dimensiones = drr("Dimensiones").ToString,
-                                                                   .PesoenKg = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal,
+                                                                   .PesoenKg = (drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal).RoundSQL(3),
                                                                    .MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", ""),
                                                                    .ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
                                                                    .Embalaje = drr("ClaveEmbalaje").ToString,
@@ -337,7 +337,7 @@ Public Class Timbres
                                                                    .TipoMateriaDescripcion = drr("TipoMateria").ToString
                                                                    }
 
-                        Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToEntero}
+                        Dim  DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = (drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal).RoundSQL(3), .NumPiezas = drr("Cantidad").ToString.ToEntero}
                         conceptoCarta.DetalleMercancia = DetalleMercancia
 
                         Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR000001", .IDDestino = "DE000001"}