complemento carta porte
This commit is contained in:
@@ -3658,6 +3658,7 @@ Public Class Timbrado
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
#Region "Complemento Pago"
|
#Region "Complemento Pago"
|
||||||
@@ -3780,6 +3781,159 @@ Public Class Timbrado
|
|||||||
End If
|
End If
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
#Region "C O M P L E M E N T O C A R T A P O R T E"
|
||||||
|
|
||||||
|
If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
|
||||||
|
If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
|
||||||
|
|
||||||
|
Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''DATOS GENERALES
|
||||||
|
Dim ComCartaPorte = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorte()
|
||||||
|
Dim Transp As Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteTranspInternac
|
||||||
|
ComCartaPorte.TranspInternac = If(Carta.TranspInternac = "No", Transp.No, Transp.Sí)
|
||||||
|
ComCartaPorte.EntradaSalidaMercSpecified = False
|
||||||
|
ComCartaPorte.ViaEntradaSalidaSpecified = False
|
||||||
|
ComCartaPorte.TotalDistRecSpecified = False
|
||||||
|
|
||||||
|
'UBICACIONES
|
||||||
|
If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
|
||||||
|
Dim i As Integer = 0
|
||||||
|
ComCartaPorte.Ubicaciones = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacion(Carta.Ubicaciones.Count - 1) {}
|
||||||
|
For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones
|
||||||
|
'origen
|
||||||
|
ComCartaPorte.Ubicaciones(i) = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacion
|
||||||
|
ComCartaPorte.Ubicaciones(i).TipoEstacionSpecified = False
|
||||||
|
ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorrida
|
||||||
|
ComCartaPorte.Ubicaciones(i).Origen = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionOrigen With {.IDOrigen = ubica.Origen.IDOrigen,
|
||||||
|
.RFCRemitente = ubica.Origen.RFCRemitente,
|
||||||
|
.NombreRemitente = ubica.Origen.NombreRemitente,
|
||||||
|
.FechaHoraSalida = ubica.Origen.FechaHoraSalida.ToDate}
|
||||||
|
ComCartaPorte.Ubicaciones(i).Domicilio = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDomicilio With {.Calle = ubica.Origen.Domicilio.Calle,
|
||||||
|
.NumeroExterior = ubica.Origen.Domicilio.NumeroExterior,
|
||||||
|
.NumeroInterior = ubica.Origen.Domicilio.NumeroInterior,
|
||||||
|
.Colonia = ubica.Origen.Domicilio.Colonia,
|
||||||
|
.Localidad = ubica.Origen.Domicilio.Localidad,
|
||||||
|
.Referencia = ubica.Origen.Domicilio.Referencia,
|
||||||
|
.Municipio = ubica.Origen.Domicilio.Municipio,
|
||||||
|
.Estado = ubica.Origen.Domicilio.Estado,
|
||||||
|
.CodigoPostal = ubica.Origen.Domicilio.CP}
|
||||||
|
'falta pais
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ComCartaPorte.Ubicaciones(i).Destino = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDestino With {.IDDestino = ubica.Destino.IDDestino,
|
||||||
|
.RFCDestinatario = ubica.Destino.RFCDestinatario,
|
||||||
|
.NombreDestinatario = ubica.Destino.NombreDestinatario,
|
||||||
|
.FechaHoraProgLlegada = ubica.Destino.FechaHoraProgLlegada.ToDate}
|
||||||
|
|
||||||
|
ComCartaPorte.Ubicaciones(i).Domicilio = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDomicilio With {.Calle = ubica.Destino.Domicilio.Calle,
|
||||||
|
.NumeroExterior = ubica.Destino.Domicilio.NumeroExterior,
|
||||||
|
.NumeroInterior = ubica.Destino.Domicilio.NumeroInterior,
|
||||||
|
.Colonia = ubica.Destino.Domicilio.Colonia,
|
||||||
|
.Localidad = ubica.Destino.Domicilio.Localidad,
|
||||||
|
.Referencia = ubica.Destino.Domicilio.Referencia,
|
||||||
|
.Municipio = ubica.Destino.Domicilio.Municipio,
|
||||||
|
.Estado = ubica.Destino.Domicilio.Estado,
|
||||||
|
.CodigoPostal = ubica.Destino.Domicilio.CP}
|
||||||
|
|
||||||
|
|
||||||
|
'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida)
|
||||||
|
'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.Origen.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
|
||||||
|
'cfdi.CartaPorteDomicilio(ubica.Origen.Domicilio.Calle, ubica.Origen.Domicilio.NumeroExterior, ubica.Origen.Domicilio.NumeroInterior, ubica.Origen.Domicilio.Colonia, ubica.Origen.Domicilio.Localidad, ubica.Origen.Domicilio.Referencia, ubica.Origen.Domicilio.Municipio, ubica.Origen.Domicilio.Estado, ubica.Origen.Domicilio.Pais, ubica.Origen.Domicilio.CP)
|
||||||
|
'destino
|
||||||
|
'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida)
|
||||||
|
'cfdi.CartaPorteDestino(ubica.Destino.IDDestino, ubica.Destino.RFCDestinatario, ubica.Destino.NombreDestinatario, ubica.Destino.NumRegIdTrib, ubica.Destino.ResidenciaFiscal, ubica.Destino.NumEstacion, ubica.Destino.NombreEstacion, ubica.Destino.NavegacionTrafico, ubica.Destino.FechaHoraProgLlegada)
|
||||||
|
'cfdi.CartaPorteDomicilio(ubica.Destino.Domicilio.Calle, ubica.Destino.Domicilio.NumeroExterior, ubica.Destino.Domicilio.NumeroInterior, ubica.Destino.Domicilio.Colonia, ubica.Destino.Domicilio.Localidad, ubica.Destino.Domicilio.Referencia, ubica.Destino.Domicilio.Municipio, ubica.Destino.Domicilio.Estado, ubica.Destino.Domicilio.Pais, ubica.Destino.Domicilio.CP)
|
||||||
|
Next
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
'MERCANCIAS
|
||||||
|
If Carta.Mercancias IsNot Nothing Then
|
||||||
|
ComCartaPorte.Mercancias = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercancias
|
||||||
|
ComCartaPorte.Mercancias.PesoBrutoTotal = Carta.Mercancias.PesoBrutoTotal.ToDecimal
|
||||||
|
ComCartaPorte.Mercancias.PesoNetoTotal = Carta.Mercancias.PesoNetoTotal.ToDecimal
|
||||||
|
ComCartaPorte.Mercancias.NumTotalMercancias = Carta.Mercancias.NumTotalMercancias
|
||||||
|
ComCartaPorte.Mercancias.CargoPorTasacion = Carta.Mercancias.CargoporTasacion.ToDecimal
|
||||||
|
' ComCartaPorte.Mercancias.UnidadPeso = Carta.Mercancias.UnidadPeso
|
||||||
|
|
||||||
|
If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
|
||||||
|
Dim i As Integer = 0
|
||||||
|
ComCartaPorte.Mercancias.Mercancia = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercanciasMercancia(Carta.Mercancias.Mercancias.Count - 1) {}
|
||||||
|
For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i) = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercanciasMercancia
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).BienesTranspSpecified = False
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).ClaveSTCCSpecified = False
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).Cantidad = concep.Cantidad
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).ClaveUnidadSpecified = False
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).Unidad = concep.Unidad
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).Dimensiones = concep.Dimensiones
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = False
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = False
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = False
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).PesoEnKg = concep.PesoenKg
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).ValorMercanciaSpecified = False
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).MonedaSpecified = False
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False
|
||||||
|
ComCartaPorte.Mercancias.Mercancia(i).UUIDComercioExt = concep.UUIDComercioExt
|
||||||
|
|
||||||
|
'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)
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
'
|
||||||
|
If Carta.FiguraTransporte IsNot Nothing Then
|
||||||
|
|
||||||
|
If Carta.FiguraTransporte.AutoTransporteFederal IsNot Nothing Then
|
||||||
|
ComCartaPorte.FiguraTransporte = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporte
|
||||||
|
|
||||||
|
ComCartaPorte.FiguraTransporte.CveTransporte = Profact.TimbraCFDI33.Complementos.CartaPorte10.c_CveTransporte.Item02
|
||||||
|
'ComCartaPorte.FiguraTransporte.CveTransporte.
|
||||||
|
|
||||||
|
'cfdi.CartaPorteAutotransporteFederal(Carta.FiguraTransporte.AutoTransporteFederal.PermSCT, Carta.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT, Carta.FiguraTransporte.AutoTransporteFederal.NombreAseg, Carta.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro)
|
||||||
|
|
||||||
|
'cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM)
|
||||||
|
|
||||||
|
'If Carta.FiguraTransporte.AutoTransporteFederal.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporteFederal.Remolques.Count > 0 Then
|
||||||
|
'For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporteFederal.Remolques
|
||||||
|
'cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
|
||||||
|
' Next
|
||||||
|
'
|
||||||
|
'End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
'If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
|
||||||
|
' Dim i As Integer = 0
|
||||||
|
' ComCartaPorte.FiguraTransporte.Operadores = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporteOperadoresOperador(Carta.FiguraTransporte.Operadores.Count - 1)() {}
|
||||||
|
' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
|
||||||
|
' Dim Oper = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporteOperadoresOperador()
|
||||||
|
' Oper.RFCOperador = concep.RFCOperador
|
||||||
|
' Oper.NumLicencia = concep.NumLicencia
|
||||||
|
' Oper.NombreOperador = concep.NombreOperador
|
||||||
|
' Oper.NumRegIdTribOperador = concep.NumRegidTribOperador
|
||||||
|
' 'Oper.ResidenciaFiscalOperador = concep.ResidenciaFiscalOperador
|
||||||
|
' ComCartaPorte.FiguraTransporte.Operadores
|
||||||
|
' 'cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
|
||||||
|
' Next
|
||||||
|
'End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
#Region "Nomina12"
|
#Region "Nomina12"
|
||||||
If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then
|
If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then
|
||||||
Dim Nom = New Profact.TimbraCFDI33.Complementos.Nomina12.Nomina()
|
Dim Nom = New Profact.TimbraCFDI33.Complementos.Nomina12.Nomina()
|
||||||
|
|||||||
Reference in New Issue
Block a user