AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- agregado de campos Carta Porte 3.0

Browse Source
This commit is contained in:
rrene
2023-12-02 14:40:06 -07:00
parent 8c72bfecc0
commit 30f318c99e
2 changed files with 29 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
App_Code/CFDITimbre.vb
View File

@@ -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
<Serializable>

11
App_Code/Timbres.vb
View File

@@ -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}