pac 4. reondedo 6 decimales, en cantidad y pu

App_Code/CFDITimbre.vb

@@ -472,7 +472,7 @@ Public Class CFDIComplementoPagosDocsRelacionados
     Public Property Folio As String = ""
     Public Property MonedaDR As String = ""
     Public Property MetodoDePagoDR As String = ""
-    Public Property TipoCambioDR As Double
+    Public Property TipoCambioDR As Decimal
     Public Property NumParcialidad As Integer = 1
     Public Property ImpSaldoAnt As Double
     Public Property ImpPagado As Double

App_Code/Timbrado.vb

@@ -1908,6 +1908,7 @@ Public Class Timbrado
 
         '  cfdi.saltarValidacion("bNtMuvZockPVhEjaPj0E")
         'cfdi.Decimales = 4
+        cfdi.QuitarCerosDecimalDerecha = True ' no limita a 2 decimales, el atributo, de cantidad y precio unitario
 #Region "Certificado"
         cfdi.CertificadoArchivo(ArchivoCertificado)
 #End Region
@@ -1962,7 +1963,7 @@ Public Class Timbrado
 
         If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then
             For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos
-                cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario, concep.Importe, concep.Descuento)
+                cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("#.######"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("#.######"), concep.Importe, concep.Descuento)
                 For Each imp As CFDIConceptosImpuestos In concep.Impuestos
                     If imp.TrasladooRetencion = "T" Then
                         cfdi.ImpuestoConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe)
@@ -2158,8 +2159,8 @@ Public Class Timbrado
                     cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
                     If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
                         For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
-                            cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, concep.Embalaje, concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+                        cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
-                        Next
+                    Next
                     End If
                 End If
 
@@ -2184,8 +2185,9 @@ Public Class Timbrado
 
                     If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
                         For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
-                            cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
+                        cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
-                        Next
+                        cfdi.CartaPorteOperadorDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
+                    Next
                     End If
 
                 End If
@@ -3711,8 +3713,8 @@ Public Class Timbrado
                     End If
                     ComPag.Pago(0).DoctoRelacionado(i).Folio = doc.Folio
                     ComPag.Pago(0).DoctoRelacionado(i).MonedaDR = doc.MonedaDR
-                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDRSpecified = If(doc.TipoCambioDR.ToDecimal = 0, False, True)
+                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDRSpecified = If(doc.TipoCambioDR = 0, False, True)
-                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDR = doc.TipoCambioDR.ToDecimal
+                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDR = doc.TipoCambioDR
                     ComPag.Pago(0).DoctoRelacionado(i).MetodoDePagoDR = doc.MetodoDePagoDR
                     ComPag.Pago(0).DoctoRelacionado(i).NumParcialidad = doc.NumParcialidad.ToString
 
@@ -3784,9 +3786,8 @@ Public Class Timbrado
 
             ''DATOS GENERALES
             Dim ComCartaPorte = New ProfactCartaPorte.CartaPorte()
-                Dim Transp As ProfactCartaPorte.CartaPorteTranspInternac
+            ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac)
-                ComCartaPorte.TranspInternac = If(Carta.TranspInternac = "No", Transp.No, Transp.Sí)
+            ComCartaPorte.EntradaSalidaMercSpecified = False
-                ComCartaPorte.EntradaSalidaMercSpecified = False
                 ComCartaPorte.ViaEntradaSalidaSpecified = False
                 ComCartaPorte.TotalDistRecSpecified = False
 
@@ -3875,11 +3876,13 @@ Public Class Timbrado
                         If concep.ClaveMaterialPeligroso <> "" Then
                             ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = True
                             ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
-                        End If
+                            'si lleva material pelgroso, debe llevar embalaje
-                        If concep.Embalaje <> "" Then
                             ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
                             ComCartaPorte.Mercancias.Mercancia(i).Embalaje = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoEmbalaje), "Item" & concep.Embalaje), ProfactCartaPorte.c_TipoEmbalaje)
+
                         End If
+
+
                         ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje
                         ComCartaPorte.Mercancias.Mercancia(i).PesoEnKg = concep.PesoenKg
                         ComCartaPorte.Mercancias.Mercancia(i).ValorMercanciaSpecified = False