From 30f318c99ecbd52cbd1e350cc38ab6295eaaa7a3 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 2 Dec 2023 14:40:06 -0700 Subject: [PATCH] -- agregado de campos Carta Porte 3.0 --- App_Code/CFDITimbre.vb | 27 +++++++++++++++++++++++++++ App_Code/Timbres.vb | 11 ++--------- 2 files changed, 29 insertions(+), 9 deletions(-) diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index 4c37e7adf..2342b01f1 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -829,6 +829,10 @@ Public Class CFDICartaPorte Public Property TranspInternac As String = "" Public Property EntradaSalidaMercancia As String = "" Public Property ViaEntradaSalida As String = "" + Public Property RegimenAduanero As String = "" + Public Property RegistroISTMO As String = "" + Public Property UbicacionPoloOrigen As String = "" + Public Property UbicacionPoloDestino As String = "" Public ReadOnly Property TotalDistanciaRecorrida As Decimal Get Return Ubicaciones.Sum(Function(item) item.DistanciaRecorrida) @@ -908,6 +912,8 @@ Public Class CFDICartaPorteMercancias End Get End Property Public Property UnidadPeso As String = "" + Public Property LogisticaInversaRecoleccionDevolucion As String = "" + Public ReadOnly Property PesoNetoTotal As Double Get Return Mercancias.Sum(Function(item) item.DetalleMercancia.PesoNeto) @@ -937,6 +943,26 @@ Public Class CFDICartaPorteMercancia Public Property MaterialPeligroso As String = "" Public Property Embalaje As String = "" Public Property DescripEmbalaje As String = "" + Public Property SectorCOFEPRIS As String = "" + Public Property NombreIngredienteActivo As String = "" + Public Property NomQuimico As String = "" + Public Property DenominacionGenericaProd As String = "" + Public Property DenominacionDistintivaProd As String = "" + Public Property Fabricante As String = "" + Public Property FechaCaducidad As String = "" + Public Property LoteMedicamento As String = "" + Public Property FormaFarmaceutica As String = "" + Public Property CondicionesEspTransp As String = "" + Public Property RegistroSanitarioFolioAutorizacion As String = "" + Public Property PermisoImportacion As String = "" + Public Property FolioImpoVUCEM As String = "" + Public Property NumCAS As String = "" + Public Property RazonSocialEmpImp As String = "" + Public Property NumRegSanPlagCOFEPRIS As String = "" + Public Property DatosFabricante As String = "" + Public Property DatosFormulador As String = "" + Public Property DatosMaquilador As String = "" + Public Property UsoAutorizado As String = "" Public Property PesoenKg As Decimal = 0 Public Property ValorMercancia As Decimal Public Property Moneda As String = "" @@ -981,6 +1007,7 @@ Public Class CFDICartaPorteIdentificacionVehicular Public Property ConfigVehicular As String = "" Public Property PlacaVM As String = "" Public Property AnioModeloVM As Integer = 0 + Public Property PesoBrutoVehicular As Decimal = 0 End Class diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index ceee944a6..074fbbbcb 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -182,6 +182,7 @@ Public Class Timbres CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = drT("ConfigCartaPorte").ToString CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM = drT("Placa").ToString CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = drT("Anio").ToString.ToEntero + CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular = drT("PesoBrutoVehicular").ToString.ToDecimal If drT("ClaveTipoRemolque1").ToString <> "" Then Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1").ToString, .Placa = drT("PlacaRemolque1").ToString} @@ -446,15 +447,6 @@ Public Class Timbres _MsgError.AppendLine("Error al obtener Movimientos") End If - 'ObjFactura.DtDetalle = DtMovimientos - - 'AplicaCP = Boolean.Parse(drT("AplicaCP").ToString) - - 'ObjFactura.CveSubProyecto = drT("CveSubProyecto").ToString.ToEntero - - 'ObjFactura.SetSubProyecto() - 'ObjFactura.SetSubProyectoMatriz() - CartaPorte.FiguraTransporte.AutoTransporte.PermisoSCT = drT("ClaveTipoPermisoSCT").ToString '"TPAF01" CartaPorte.FiguraTransporte.AutoTransporte.NumPermisoSCT = drT("NumPermisoSCT").ToString CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil = drT("NombreAseguradora").ToString @@ -466,6 +458,7 @@ Public Class Timbres CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = drT("ConfigCartaPorte").ToString CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM = drT("Placa").ToString CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = drT("Anio").ToString.ToEntero + CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PesoBrutoVehicular = drT("PesoBrutoVehicular").ToString.ToDecimal If drT("ClaveTipoRemolque1").ToString <> "" Then Dim Rem1 As New CFDICartaPorteRemolque With {.SubTipoRemolque = drT("ClaveTipoRemolque1").ToString, .Placa = drT("PlacaRemolque1").ToString}