- cartaporte pac 3- profact
This commit is contained in:
@@ -9,7 +9,7 @@ Imports System.Xml
|
||||
Imports System.Data
|
||||
Imports System.Xml.Serialization
|
||||
Imports System.Net
|
||||
Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte10
|
||||
Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20
|
||||
|
||||
Public Class Timbrado
|
||||
|
||||
@@ -471,7 +471,7 @@ Public Class Timbrado
|
||||
objCan.CancelacionCfdi = True
|
||||
objCan.FechaCancelacion = System.DateTime.Now.AddMinutes(-120) ' operación requerida para que no se presente problemas con fechas adelantadas del PAC
|
||||
MsgCancelacion.AppendFormat("4.3-")
|
||||
objCan.GeneraCancelacionB64(certBase64, llaveBase64, Clave, FolioFiscal)
|
||||
objCan.GeneraCancelacionB64(certBase64, llaveBase64, Clave, FolioFiscal, "", "")
|
||||
If (objCan.MensajeError = "") Then
|
||||
MsgCancelacion.AppendFormat("4.4-")
|
||||
objCan.CancelaCfdi(UsuarioServicio, ClaveServicio, UrlServicio, Empresa.FacturaProduccion)
|
||||
@@ -3241,7 +3241,7 @@ Public Class Timbrado
|
||||
ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key"
|
||||
ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.cer"
|
||||
|
||||
UrlServicio = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL" '"http://108.60.211.43/rvltimbrado/service1.asmx"
|
||||
UrlServicio = "https://pruebas.timbracfdi33.mx/Timbrado.asmx"
|
||||
End If
|
||||
|
||||
|
||||
@@ -3813,49 +3813,46 @@ Public Class Timbrado
|
||||
|
||||
If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
|
||||
|
||||
Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
|
||||
|
||||
''DATOS GENERALES
|
||||
Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
|
||||
Dim ComCartaPorte = New ProfactCartaPorte.CartaPorte()
|
||||
ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac)
|
||||
ComCartaPorte.EntradaSalidaMercSpecified = False
|
||||
ComCartaPorte.ViaEntradaSalidaSpecified = False
|
||||
ComCartaPorte.TotalDistRecSpecified = 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 ProfactCartaPorte.CartaPorteUbicacion(Carta.Ubicaciones.Count - 1) {}
|
||||
For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
|
||||
'origen
|
||||
|
||||
ComCartaPorte.Ubicaciones(i) = New ProfactCartaPorte.CartaPorteUbicacion
|
||||
ComCartaPorte.Ubicaciones(i).TipoUbicacion = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteUbicacionTipoUbicacion), ubica.TipoUbicacion), ProfactCartaPorte.CartaPorteUbicacionTipoUbicacion)
|
||||
ComCartaPorte.Ubicaciones(i).TipoEstacionSpecified = False
|
||||
ComCartaPorte.Ubicaciones(i).IDUbicacion = ubica.IDUbicacion
|
||||
ComCartaPorte.Ubicaciones(i).RFCRemitenteDestinatario = ubica.RFCRemitenteDestinatario
|
||||
ComCartaPorte.Ubicaciones(i).NombreRemitenteDestinatario = ubica.NombreRemitenteDestinatario
|
||||
ComCartaPorte.Ubicaciones(i).NumRegIdTrib = ubica.NumRegIdTrib
|
||||
'ComCartaPorte.Ubicaciones(i).ResidenciaFiscal = ubica.ResidenciaFiscal
|
||||
'ComCartaPorte.Ubicaciones(i).NumEstacion = ubica.NumEstacion
|
||||
'ComCartaPorte.Ubicaciones(i).NavegacionTrafico = ubica.NavegacionTrafico
|
||||
ComCartaPorte.Ubicaciones(i).FechaHoraSalidaLlegada = ubica.FechaHoraSalidaLlegada.ToDate
|
||||
ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorrida
|
||||
'ComCartaPorte.Ubicaciones(i).Origen = New ProfactCartaPorte.CartaPorteUbicacion With {.IDOrigen = ubica.IDOrigen,
|
||||
' .RFCRemitente = ubica.RFCRemitenteDestinatario,
|
||||
' .NombreRemitente = ubica.NombreRemitenteDestinatario,
|
||||
' .FechaHoraSalida = ubica.FechaHoraSalida.ToDate}
|
||||
'ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Domicilio.Calle,
|
||||
' .NumeroExterior = ubica.Domicilio.NumeroExterior,
|
||||
' .NumeroInterior = ubica.Domicilio.NumeroInterior,
|
||||
' .Colonia = ubica.Domicilio.Colonia,
|
||||
' .Localidad = ubica.Domicilio.Localidad,
|
||||
' .Referencia = ubica.Domicilio.Referencia,
|
||||
' .Municipio = ubica.Domicilio.Municipio,
|
||||
' .Estado = ubica.Domicilio.Estado,
|
||||
' .CodigoPostal = ubica.Domicilio.CP}
|
||||
''falta pais
|
||||
|
||||
ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Domicilio.Calle,
|
||||
.NumeroExterior = ubica.Domicilio.NumeroExterior,
|
||||
.NumeroInterior = ubica.Domicilio.NumeroInterior,
|
||||
.Colonia = ubica.Domicilio.Colonia,
|
||||
.Localidad = ubica.Domicilio.Localidad,
|
||||
.Referencia = ubica.Domicilio.Referencia,
|
||||
.Municipio = ubica.Domicilio.Municipio,
|
||||
.Estado = ubica.Domicilio.Estado,
|
||||
.CodigoPostal = ubica.Domicilio.CP,
|
||||
.Pais = CType([Enum].Parse(GetType(ProfactCartaPorte.c_Pais), ubica.Domicilio.Pais), ProfactCartaPorte.c_Pais)}
|
||||
|
||||
|
||||
|
||||
'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
|
||||
@@ -3877,16 +3874,10 @@ Public Class Timbrado
|
||||
|
||||
If concep.BienesTransp <> "" Then
|
||||
ComCartaPorte.Mercancias.Mercancia(i).BienesTransp = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ClaveProdServCP), "Item" & concep.BienesTransp), ProfactCartaPorte.c_ClaveProdServCP)
|
||||
ComCartaPorte.Mercancias.Mercancia(i).BienesTranspSpecified = True
|
||||
End If
|
||||
If concep.ClaveSTCC <> "" Then
|
||||
ComCartaPorte.Mercancias.Mercancia(i).ClaveSTCCSpecified = True
|
||||
ComCartaPorte.Mercancias.Mercancia(i).ClaveSTCC = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ClaveProdSTCC), "Item" & concep.ClaveSTCC), ProfactCartaPorte.c_ClaveProdSTCC)
|
||||
End If
|
||||
|
||||
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
|
||||
If concep.ClaveMaterialPeligroso <> "" Then
|
||||
@@ -3898,48 +3889,108 @@ Public Class Timbrado
|
||||
|
||||
End If
|
||||
|
||||
|
||||
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
|
||||
|
||||
Dim j As Integer = 0
|
||||
ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta = New ProfactCartaPorte.CartaPorteMercanciasMercanciaCantidadTransporta(Carta.Mercancias.Mercancias.Count - 1) {}
|
||||
For Each transp In concep.MercanciasCantidadTransporta
|
||||
ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta(j) = New ProfactCartaPorte.CartaPorteMercanciasMercanciaCantidadTransporta
|
||||
ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta(j).Cantidad = transp.Cantidad
|
||||
ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta(j).IDOrigen = transp.IDOrigen
|
||||
ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta(j).IDDestino = transp.IDDestino
|
||||
'ComCartaPorte.Mercancias.Mercancia(i).CantidadTransporta(1).CvesTransporte = transp.CvesTransportes
|
||||
Next
|
||||
|
||||
i += 1
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'If Carta.FiguraTransporte IsNot Nothing Then
|
||||
|
||||
' If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
|
||||
|
||||
' cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
|
||||
|
||||
' cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
|
||||
|
||||
' cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
|
||||
' Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
|
||||
' Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
|
||||
' Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
|
||||
|
||||
' If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
|
||||
' For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.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
|
||||
' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
|
||||
' cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
|
||||
' If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
|
||||
' cfdi.CartaPortePartesTransporte("PT01")
|
||||
' cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
|
||||
'End If
|
||||
|
||||
'
|
||||
If Carta.FiguraTransporte IsNot Nothing Then
|
||||
|
||||
If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
|
||||
ComCartaPorte.FiguraTransporte = New ProfactCartaPorte.CartaPorteFiguraTransporte
|
||||
|
||||
ComCartaPorte.FiguraTransporte.CveTransporte = ProfactCartaPorte.c_CveTransporte.Item02
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal = New ProfactCartaPorte.CartaPorteMercanciasAutotransporteFederal
|
||||
|
||||
'ComCartaPorte.FiguraTransporte(1). = ProfactCartaPorte.c_CveTransporte.Item02
|
||||
ComCartaPorte.Mercancias.Autotransporte = New ProfactCartaPorte.CartaPorteMercanciasAutotransporte
|
||||
If Carta.FiguraTransporte.AutoTransporte.PermisoSCT <> "" Then
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.PermSCT = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoPermiso), Carta.FiguraTransporte.AutoTransporte.PermisoSCT), ProfactCartaPorte.c_TipoPermiso)
|
||||
ComCartaPorte.Mercancias.Autotransporte.PermSCT = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoPermiso), Carta.FiguraTransporte.AutoTransporte.PermisoSCT), ProfactCartaPorte.c_TipoPermiso)
|
||||
End If
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.NumPermisoSCT = Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT
|
||||
ComCartaPorte.Mercancias.Autotransporte.NumPermisoSCT = Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT
|
||||
'pendiente RMF
|
||||
'ComCartaPorte.Mercancias.AutotransporteFederal.NombreAseg = Carta.FiguraTransporte.AutoTransporte.NombreAseg
|
||||
'ComCartaPorte.Mercancias.AutotransporteFederal.NumPolizaSeguro = Carta.FiguraTransporte.AutoTransporte.NumPolizaSeguro
|
||||
|
||||
Dim ConfigVehicular As New ProfactCartaPorte.CartaPorteMercanciasAutotransporteFederalIdentificacionVehicular
|
||||
Dim ConfigVehicular As New ProfactCartaPorte.CartaPorteMercanciasAutotransporteIdentificacionVehicular
|
||||
ConfigVehicular.ConfigVehicular = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ConfigAutotransporte), Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular), ProfactCartaPorte.c_ConfigAutotransporte)
|
||||
ConfigVehicular.AnioModeloVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM
|
||||
ConfigVehicular.PlacaVM = Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM
|
||||
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.IdentificacionVehicular = ConfigVehicular
|
||||
ComCartaPorte.Mercancias.Autotransporte.IdentificacionVehicular = ConfigVehicular
|
||||
|
||||
Dim ConfigVehicularSeguros As New ProfactCartaPorte.CartaPorteMercanciasAutotransporteSeguros
|
||||
ConfigVehicularSeguros.AseguraRespCivil = Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil
|
||||
ConfigVehicularSeguros.PolizaRespCivil = Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil
|
||||
ConfigVehicularSeguros.AseguraMedAmbiente = Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente
|
||||
ConfigVehicularSeguros.PolizaMedAmbiente = Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente
|
||||
ConfigVehicularSeguros.AseguraCarga = Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga
|
||||
ConfigVehicularSeguros.PolizaCarga = Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga
|
||||
|
||||
If Carta.FiguraTransporte.AutoTransporte.PrimaSeguro > 0 Then
|
||||
ConfigVehicularSeguros.PrimaSeguro = Carta.FiguraTransporte.AutoTransporte.PrimaSeguro
|
||||
ConfigVehicularSeguros.PrimaSeguroSpecified = True
|
||||
End If
|
||||
|
||||
If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
|
||||
Dim i As Integer = 0
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.Remolques = New ProfactCartaPorte.CartaPorteMercanciasAutotransporteFederalRemolque(Carta.FiguraTransporte.AutoTransporte.Remolques.Count - 1) {}
|
||||
ComCartaPorte.Mercancias.Autotransporte.Remolques = New ProfactCartaPorte.CartaPorteMercanciasAutotransporteRemolque(Carta.FiguraTransporte.AutoTransporte.Remolques.Count - 1) {}
|
||||
For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.Remolques(i) = New ProfactCartaPorte.CartaPorteMercanciasAutotransporteFederalRemolque
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.Remolques(i).SubTipoRem = CType([Enum].Parse(GetType(ProfactCartaPorte.c_SubTipoRem), concep.SubTipoRemolque), ProfactCartaPorte.c_SubTipoRem)
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.Remolques(i).Placa = concep.Placa
|
||||
ComCartaPorte.Mercancias.Autotransporte.Remolques(i) = New ProfactCartaPorte.CartaPorteMercanciasAutotransporteRemolque
|
||||
ComCartaPorte.Mercancias.Autotransporte.Remolques(i).SubTipoRem = CType([Enum].Parse(GetType(ProfactCartaPorte.c_SubTipoRem), concep.SubTipoRemolque), ProfactCartaPorte.c_SubTipoRem)
|
||||
ComCartaPorte.Mercancias.Autotransporte.Remolques(i).Placa = concep.Placa
|
||||
i += 1
|
||||
Next
|
||||
'
|
||||
@@ -3948,25 +3999,25 @@ Public Class Timbrado
|
||||
|
||||
If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
|
||||
Dim i As Integer = 0
|
||||
ComCartaPorte.FiguraTransporte.Operadores = New ProfactCartaPorte.CartaPorteFiguraTransporteOperadoresOperador(Carta.FiguraTransporte.Operadores.Count - 1) {}
|
||||
ComCartaPorte.FiguraTransporte = New ProfactCartaPorte.CartaPorteTiposFigura(Carta.FiguraTransporte.Operadores.Count - 1) {}
|
||||
For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i) = New ProfactCartaPorte.CartaPorteFiguraTransporteOperadoresOperador
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).RFCOperador = concep.RFCFigura
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).NumLicencia = concep.NumLicencia
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).NombreOperador = concep.NombreFigura
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).NumRegIdTribOperador = concep.NumRegidTribFigura
|
||||
|
||||
ComCartaPorte.FiguraTransporte(i) = New ProfactCartaPorte.CartaPorteTiposFigura
|
||||
ComCartaPorte.FiguraTransporte(i).RFCFigura = concep.RFCFigura
|
||||
ComCartaPorte.FiguraTransporte(i).NumLicencia = concep.NumLicencia
|
||||
ComCartaPorte.FiguraTransporte(i).NombreFigura = concep.NombreFigura
|
||||
ComCartaPorte.FiguraTransporte(i).NumRegIdTribFigura = concep.NumRegidTribFigura
|
||||
'OComCartaPorte.FiguraTransporte.Operadores(i)(0) = concep.ResidenciaFiscalOperador 'falta
|
||||
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio = New ProfactCartaPorte.CartaPorteFiguraTransporteOperadoresOperadorDomicilio()
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Calle = concep.Domicilio.Calle
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.CodigoPostal = "25350" 'concep.Domicilio.CP
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Colonia = "0347"
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Estado = "COA"
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Localidad = "23"
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Municipio = "004"
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.NumeroExterior = "728"
|
||||
ComCartaPorte.FiguraTransporte.Operadores(i).Domicilio.Pais = ProfactCartaPorte.c_Pais.MEX
|
||||
|
||||
ComCartaPorte.FiguraTransporte(i).Domicilio = New ProfactCartaPorte.CartaPorteTiposFiguraDomicilio()
|
||||
ComCartaPorte.FiguraTransporte(i).Domicilio.Calle = concep.Domicilio.Calle
|
||||
ComCartaPorte.FiguraTransporte(i).Domicilio.CodigoPostal = concep.Domicilio.CP
|
||||
ComCartaPorte.FiguraTransporte(i).Domicilio.Colonia = concep.Domicilio.Colonia
|
||||
ComCartaPorte.FiguraTransporte(i).Domicilio.Estado = concep.Domicilio.Estado
|
||||
ComCartaPorte.FiguraTransporte(i).Domicilio.Localidad = concep.Domicilio.Localidad
|
||||
ComCartaPorte.FiguraTransporte(i).Domicilio.Municipio = concep.Domicilio.Municipio
|
||||
ComCartaPorte.FiguraTransporte(i).Domicilio.NumeroExterior = concep.Domicilio.NumeroExterior
|
||||
ComCartaPorte.FiguraTransporte(i).Domicilio.Pais = ProfactCartaPorte.c_Pais.MEX
|
||||
|
||||
i += 1
|
||||
Next
|
||||
|
||||
Reference in New Issue
Block a user