diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 625017e87..eb7963a0e 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -3658,6 +3658,7 @@ Public Class Timbrado + End If #Region "Complemento Pago" @@ -3780,6 +3781,159 @@ Public Class Timbrado End If #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" If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then Dim Nom = New Profact.TimbraCFDI33.Complementos.Nomina12.Nomina()