carta porte

App_Code/CFDITimbre.vb

@@ -587,7 +587,7 @@ End Class
 <Serializable>
 Public Class CFDICartaPorteUbicaciones
     Public Property TipoEstacion As String = ""
-    Public Property DistanciaRecorrida As Double = 0
+    Public Property DistanciaRecorrida As Decimal = 0
     'Public Property Ubicacion As New CFDICartaPorteUbicacion
     Public Property Origen As New CFDICartaPorteUbicacionOrigen
     Public Property Destino As New CFDICartaPorteUbicacionDestino
@@ -680,8 +680,8 @@ Public Class CFDICartaPorteMercancia
     Public Property MaterialPeligroso As String = ""
     Public Property Embalaje As String = ""
     Public Property DescripEmbalaje As String = ""
-    Public Property PesoenKg As Double
-    Public Property ValorMercancia As Double
+    Public Property PesoenKg As Decimal
+    Public Property ValorMercancia As Decimal
     Public Property Moneda As String = ""
     Public Property FraccionArrancelaria As String = ""
     Public Property UUIDComercioExt As String = ""

App_Code/ClsProductosServicios.vb

@@ -92,6 +92,7 @@ Public Class ClsProductosServicios
     Public Property CveMaterialPeligroso As Integer
     Public Property CveEmbalaje As Integer
     Public Property PesoKg As Decimal
+    Public Property Dimensiones As String
 
     'Nuevo Raul: 10/08/2018
     Public Property CveUsuarioModifico As Integer
@@ -301,6 +302,7 @@ Public Class ClsProductosServicios
                 CveMaterialPeligroso = Data.Rows(0)("CveMaterialPeligroso").ToString.ToEntero
                 CveEmbalaje = Data.Rows(0)("CveEmbalaje").ToString.ToEntero
                 PesoKg = Data.Rows(0)("PesoKg").ToString.ToDecimal
+                Dimensiones = Data.Rows(0)("Dimensiones").ToString
 
                 'Nuevo Raul: 10/08/2018
                 CveUsuarioModifico = Data.Rows(0)("CveUsuarioModifico").ToString.ToEntero
@@ -416,7 +418,7 @@ Public Class ClsProductosServicios
                           Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                           Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False,
                           Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
-                          Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1) As Integer
+                          Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "") As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -503,6 +505,7 @@ Public Class ClsProductosServicios
             .Add("@CveMaterialPeligroso", SqlDbType.Int).Value = CveMaterialPeligroso
             .Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje
             .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg
+            .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones
 
         End With
 
@@ -651,7 +654,7 @@ Public Class ClsProductosServicios
                              Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                              Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
                              Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
-                             Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1) As Boolean
+                             Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "") As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -740,6 +743,7 @@ Public Class ClsProductosServicios
             .Add("@CveMaterialPeligroso", SqlDbType.Int).Value = CveMaterialPeligroso
             .Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje
             .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg
+            .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones
 
         End With