Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -580,64 +580,62 @@ Public Class CFDICartaPorte
|
||||
Public Property ViaEntradaSalida As String = ""
|
||||
Public ReadOnly Property TotalDistanciaRecorrida As Decimal
|
||||
Get
|
||||
Return Ubicaciones.Sum(Function(item) item.DistanciaRecorridaOrigen) + Ubicaciones.Sum(Function(item) item.DistanciaRecorridaDestino)
|
||||
Return Ubicaciones.Sum(Function(item) item.DistanciaRecorrida)
|
||||
End Get
|
||||
End Property
|
||||
Public Property Ubicaciones As New List(Of CFDICartaPorteUbicaciones)
|
||||
Public Property Ubicaciones As New List(Of CFDICartaPorteUbicacion)
|
||||
Public Property Mercancias As New CFDICartaPorteMercancias
|
||||
Public Property FiguraTransporte As New CFDICartaPorteFiguraTransporte
|
||||
End Class
|
||||
|
||||
<Serializable>
|
||||
Public Class CFDICartaPorteUbicaciones
|
||||
Public Property TipoEstacion As String = ""
|
||||
Public Property DistanciaRecorridaOrigen As Decimal = 0
|
||||
Public Property DistanciaRecorridaDestino As Decimal = 0
|
||||
'Public Property Ubicacion As New CFDICartaPorteUbicacion
|
||||
Public Property Origen As New CFDICartaPorteUbicacionOrigen
|
||||
Public Property Destino As New CFDICartaPorteUbicacionDestino
|
||||
End Class
|
||||
|
||||
|
||||
<Serializable>
|
||||
Public Class CFDICartaPorteAutoTransporteFederal
|
||||
Public Class CFDICartaPorteAutoTransporte
|
||||
Public Property PermSCT As String = ""
|
||||
Public Property NumPermisoSCT As String = ""
|
||||
Public Property NombreAseg As String = ""
|
||||
Public Property NumPolizaSeguro As String = ""
|
||||
Public Property NombreSeguroResponsabilidadCivil As String = ""
|
||||
Public Property PolizaSeguroResponsabilidadCivil As String = ""
|
||||
Public Property NombreSeguroMedioAmbiente As String = ""
|
||||
Public Property PolizaSeguroMedioAmbiente As String = ""
|
||||
Public Property NombreSeguroCarga As String = ""
|
||||
Public Property PolizaSeguroCarga As String = ""
|
||||
Public Property PrimaSeguro As Decimal
|
||||
Public Property Vehiculo As New CFDICartaPorteIdentificacionVehicular
|
||||
Public Property Remolques As New List(Of CFDICartaPorteRemolque)
|
||||
|
||||
End Class
|
||||
|
||||
<Serializable>
|
||||
Public Class CFDICartaPorteUbicacionOrigen
|
||||
Public Property IDOrigen As String = ""
|
||||
Public Property RFCRemitente As String = ""
|
||||
Public Property NombreRemitente As String = ""
|
||||
Public Class CFDICartaPorteUbicacion
|
||||
Public Property TipoUbicacion As String = ""
|
||||
Public Property IDUbicacion As String = ""
|
||||
Public Property RFCRemitenteDestinatario As String = ""
|
||||
Public Property NombreRemitenteDestinatario As String = ""
|
||||
Public Property NumRegIdTrib As String = ""
|
||||
Public Property ResidenciaFiscal As String = ""
|
||||
Public Property TipoEstacion As String = ""
|
||||
Public Property NumEstacion As String = ""
|
||||
Public Property NombreEstacion As String = ""
|
||||
Public Property NavegacionTrafico As String = ""
|
||||
Public Property FechaHoraSalida As String = ""
|
||||
Public Property Domicilio As New CFDICartaPorteDomicilio
|
||||
End Class
|
||||
|
||||
<Serializable>
|
||||
Public Class CFDICartaPorteUbicacionDestino
|
||||
Public Property IDDestino As String = ""
|
||||
Public Property RFCDestinatario As String = ""
|
||||
Public Property NombreDestinatario As String = ""
|
||||
Public Property NumRegIdTrib As String = ""
|
||||
Public Property ResidenciaFiscal As String
|
||||
Public Property NumEstacion As String
|
||||
Public Property NombreEstacion As String
|
||||
Public Property NavegacionTrafico As String
|
||||
Public Property DistanciaRecorrida As Decimal = 0
|
||||
Public Property FechaHoraProgLlegada As String
|
||||
Public Property Domicilio As New CFDICartaPorteDomicilio
|
||||
End Class
|
||||
|
||||
'<Serializable>
|
||||
'Public Class CFDICartaPorteUbicacionDestino
|
||||
' Public Property IDDestino As String = ""
|
||||
' Public Property RFCDestinatario As String = ""
|
||||
' Public Property NombreDestinatario As String = ""
|
||||
' Public Property NumRegIdTrib As String = ""
|
||||
' Public Property ResidenciaFiscal As String
|
||||
' Public Property NumEstacion As String
|
||||
' Public Property NombreEstacion As String
|
||||
' Public Property NavegacionTrafico As String
|
||||
' Public Property FechaHoraProgLlegada As String
|
||||
' Public Property Domicilio As New CFDICartaPorteDomicilio
|
||||
'End Class
|
||||
|
||||
<Serializable>
|
||||
Public Class CFDICartaPorteDomicilio
|
||||
Public Property Calle As String = ""
|
||||
@@ -658,7 +656,7 @@ Public Class CFDICartaPorteMercancias
|
||||
Public Property UnidadPeso As String = ""
|
||||
Public ReadOnly Property PesoNetoTotal As Double
|
||||
Get
|
||||
Return Mercancias.Sum(Function(item) item.PesoenKg)
|
||||
Return Mercancias.Sum(Function(item) item.DetalleMercancia.PesoNeto)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
@@ -685,14 +683,44 @@ Public Class CFDICartaPorteMercancia
|
||||
Public Property MaterialPeligroso As String = ""
|
||||
Public Property Embalaje As String = ""
|
||||
Public Property DescripEmbalaje As String = ""
|
||||
Public Property PesoenKg As Decimal
|
||||
Public Property PesoenKg As Decimal = 0
|
||||
Public Property ValorMercancia As Decimal
|
||||
Public Property Moneda As String = ""
|
||||
Public Property FraccionArrancelaria As String = ""
|
||||
Public Property UUIDComercioExt As String = ""
|
||||
Public Property MercanciasPedimento As New List(Of CFDICartaPorteMercanciaPedimento)
|
||||
Public Property MercanciasCantidadTransporta As New List(Of CFDICartaPorteMercanciaTransporta)
|
||||
Public Property DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia
|
||||
End Class
|
||||
|
||||
|
||||
<Serializable>
|
||||
Public Class CFDICartaPorteMercanciaPedimento
|
||||
Public Property Pedimento As String = ""
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
<Serializable>
|
||||
Public Class CFDICartaPorteMercanciaTransporta
|
||||
Public Property Cantidad As Decimal = 0
|
||||
Public Property IDOrigen As String = ""
|
||||
Public Property IDDestino As String = ""
|
||||
|
||||
End Class
|
||||
|
||||
<Serializable>
|
||||
Public Class CFDICartaPorteMercanciaDetalleMercancia
|
||||
|
||||
Public Property UnidadPesoMercancia As String = ""
|
||||
Public Property NumPiezas As Integer = 0
|
||||
Public Property PesoBruto As Decimal = 0
|
||||
Public Property PesoNeto As Decimal = 0
|
||||
Public Property PesoTara As String = ""
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
<Serializable>
|
||||
Public Class CFDICartaPorteIdentificacionVehicular
|
||||
Public Property ConfigVehicular As String = ""
|
||||
@@ -710,7 +738,7 @@ End Class
|
||||
<Serializable>
|
||||
Public Class CFDICartaPorteFiguraTransporte
|
||||
Public Property ClaveTransporte As String = "01"
|
||||
Public Property AutoTransporteFederal As New CFDICartaPorteAutoTransporteFederal
|
||||
Public Property AutoTransporte As New CFDICartaPorteAutoTransporte
|
||||
Public Property Operadores As New List(Of CFDICartaPorteOperador)
|
||||
End Class
|
||||
|
||||
|
||||
@@ -351,15 +351,15 @@ Public Class ClsVentas
|
||||
.Add("@FolioFact", SqlDbType.Int).Value = FolioFact
|
||||
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
|
||||
.Add("@SubTotal", SqlDbType.Float).Value = SubTotal
|
||||
.Add("@Descuento", SqlDbType.Float).Value = Descuento
|
||||
.Add("@Amortizacion", SqlDbType.Float).Value = Amortizacion
|
||||
.Add("@IVA", SqlDbType.Float).Value = IVA
|
||||
.Add("@IEPS", SqlDbType.Float).Value = IEPS
|
||||
.Add("@RetIVA", SqlDbType.Float).Value = RetIVA
|
||||
.Add("@RetISR", SqlDbType.Float).Value = RetISR
|
||||
.Add("@ImpuestoLocal", SqlDbType.Float).Value = ImpuestoLocal
|
||||
.Add("@Total", SqlDbType.Float).Value = Total
|
||||
.Add("@SubTotal", SqlDbType.Float).Value = SubTotal.RoundSQL
|
||||
.Add("@Descuento", SqlDbType.Float).Value = Descuento.RoundSQL
|
||||
.Add("@Amortizacion", SqlDbType.Float).Value = Amortizacion.RoundSQL
|
||||
.Add("@IVA", SqlDbType.Float).Value = IVA.RoundSQL
|
||||
.Add("@IEPS", SqlDbType.Float).Value = IEPS.RoundSQL
|
||||
.Add("@RetIVA", SqlDbType.Float).Value = RetIVA.RoundSQL
|
||||
.Add("@RetISR", SqlDbType.Float).Value = RetISR.RoundSQL
|
||||
.Add("@ImpuestoLocal", SqlDbType.Float).Value = ImpuestoLocal.RoundSQL
|
||||
.Add("@Total", SqlDbType.Float).Value = Total.RoundSQL
|
||||
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
|
||||
.Add("@TipoCambio", SqlDbType.Float).Value = TipoCambio
|
||||
.Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago
|
||||
|
||||
@@ -2134,25 +2134,25 @@ Public Class Timbrado
|
||||
|
||||
If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
|
||||
|
||||
Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
|
||||
Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
|
||||
|
||||
''DATOS GENERALES
|
||||
cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
|
||||
''DATOS GENERALES
|
||||
cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "MEX", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
|
||||
|
||||
'UBICACIONES
|
||||
If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
|
||||
For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones
|
||||
'UBICACIONES
|
||||
If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
|
||||
For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
|
||||
'origen
|
||||
cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorridaOrigen)
|
||||
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.DistanciaRecorridaDestino)
|
||||
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
|
||||
cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.IDUbicacion, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalida, ubica.TipoEstacion, ubica.DistanciaRecorrida)
|
||||
'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
|
||||
cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
|
||||
'''destino
|
||||
'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorridaDestino)
|
||||
'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
|
||||
End If
|
||||
|
||||
'MERCANCIAS
|
||||
If Carta.Mercancias IsNot Nothing Then
|
||||
@@ -2164,36 +2164,40 @@ Public Class Timbrado
|
||||
End If
|
||||
End If
|
||||
|
||||
'
|
||||
If Carta.FiguraTransporte IsNot Nothing Then
|
||||
'
|
||||
If Carta.FiguraTransporte IsNot Nothing Then
|
||||
|
||||
If Carta.FiguraTransporte.AutoTransporteFederal IsNot Nothing Then
|
||||
If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
|
||||
|
||||
cfdi.CartaPorteAutotransporteFederal(Carta.FiguraTransporte.AutoTransporteFederal.PermSCT, Carta.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT, Carta.FiguraTransporte.AutoTransporteFederal.NombreAseg, Carta.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro)
|
||||
cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
|
||||
|
||||
cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM)
|
||||
cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.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
|
||||
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
|
||||
|
||||
cfdi.CartaPorteFiguraTransporte(Carta.FiguraTransporte.ClaveTransporte)
|
||||
|
||||
If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
|
||||
For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
|
||||
cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
|
||||
cfdi.CartaPorteOperadorDomicilio(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)
|
||||
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.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
|
||||
' cfdi.CartaPorteOperadorDomicilio(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)
|
||||
' Next
|
||||
' End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
@@ -3807,43 +3811,28 @@ Public Class Timbrado
|
||||
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 CFDICartaPorteUbicaciones In Carta.Ubicaciones
|
||||
For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
|
||||
'origen
|
||||
ComCartaPorte.Ubicaciones(i) = New ProfactCartaPorte.CartaPorteUbicacion
|
||||
ComCartaPorte.Ubicaciones(i).TipoEstacionSpecified = False
|
||||
ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorridaDestino
|
||||
ComCartaPorte.Ubicaciones(i).Origen = New ProfactCartaPorte.CartaPorteUbicacionOrigen With {.IDOrigen = ubica.Origen.IDOrigen,
|
||||
.RFCRemitente = ubica.Origen.RFCRemitente,
|
||||
.NombreRemitente = ubica.Origen.NombreRemitente,
|
||||
.FechaHoraSalida = ubica.Origen.FechaHoraSalida.ToDate}
|
||||
ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.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).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).Destino = New ProfactCartaPorte.CartaPorteUbicacionDestino With {.IDDestino = ubica.Destino.IDDestino,
|
||||
.RFCDestinatario = ubica.Destino.RFCDestinatario,
|
||||
.NombreDestinatario = ubica.Destino.NombreDestinatario,
|
||||
.FechaHoraProgLlegada = ubica.Destino.FechaHoraProgLlegada.ToDate}
|
||||
|
||||
ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.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)
|
||||
@@ -3909,29 +3898,30 @@ Public Class Timbrado
|
||||
'
|
||||
If Carta.FiguraTransporte IsNot Nothing Then
|
||||
|
||||
If Carta.FiguraTransporte.AutoTransporteFederal 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
|
||||
If Carta.FiguraTransporte.AutoTransporteFederal.PermSCT <> "" Then
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.PermSCT = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoPermiso), Carta.FiguraTransporte.AutoTransporteFederal.PermSCT), ProfactCartaPorte.c_TipoPermiso)
|
||||
If Carta.FiguraTransporte.AutoTransporte.PermSCT <> "" Then
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.PermSCT = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoPermiso), Carta.FiguraTransporte.AutoTransporte.PermSCT), ProfactCartaPorte.c_TipoPermiso)
|
||||
End If
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.NumPermisoSCT = Carta.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.NombreAseg = Carta.FiguraTransporte.AutoTransporteFederal.NombreAseg
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.NumPolizaSeguro = Carta.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.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
|
||||
ConfigVehicular.ConfigVehicular = CType([Enum].Parse(GetType(ProfactCartaPorte.c_ConfigAutotransporte), Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular), ProfactCartaPorte.c_ConfigAutotransporte)
|
||||
ConfigVehicular.AnioModeloVM = Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM
|
||||
ConfigVehicular.PlacaVM = Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM
|
||||
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
|
||||
|
||||
If Carta.FiguraTransporte.AutoTransporteFederal.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporteFederal.Remolques.Count > 0 Then
|
||||
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.AutoTransporteFederal.Remolques.Count - 1) {}
|
||||
For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporteFederal.Remolques
|
||||
ComCartaPorte.Mercancias.AutotransporteFederal.Remolques = New ProfactCartaPorte.CartaPorteMercanciasAutotransporteFederalRemolque(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
|
||||
|
||||
BIN
Bin/GoCfdi.dll
BIN
Bin/GoCfdi.dll
Binary file not shown.
@@ -280,8 +280,8 @@
|
||||
<asp:BoundField HeaderText="U. Medida" DataField="Abreviatura" ItemStyle-HorizontalAlign="Left" />
|
||||
|
||||
<asp:BoundField HeaderText="Buen Estado" DataField="BuenEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="ME.Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="ME.No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
|
||||
<%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
|
||||
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
@@ -337,8 +337,8 @@
|
||||
<asp:BoundField HeaderText="U. Medida" DataField="Abreviatura" ItemStyle-HorizontalAlign="Left" />
|
||||
|
||||
<asp:BoundField HeaderText="Buen Estado" DataField="BuenEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="ME.Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="ME.No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
|
||||
<%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />--%>
|
||||
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
@@ -387,8 +387,8 @@
|
||||
<asp:BoundField HeaderText="U. Medida" DataField="Abreviatura" ItemStyle-HorizontalAlign="Left" />
|
||||
|
||||
<asp:BoundField HeaderText="Buen Estado" DataField="BuenEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="ME.Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="ME.No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
|
||||
<%--<asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />--%>
|
||||
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
@@ -486,8 +486,8 @@
|
||||
<asp:BoundField HeaderText="U. Medida" DataField="Abreviatura" ItemStyle-HorizontalAlign="Left" />
|
||||
|
||||
<asp:BoundField HeaderText="Buen Estado" DataField="BuenEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="ME.Vendible" DataField="MalEstado" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="ME.No vendible" DataField="NoVendible" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
|
||||
<asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
|
||||
|
||||
@@ -88,11 +88,11 @@ Partial Class Inventarios_RepAnomalias
|
||||
GvF.Columns(2).Visible = True 'proveedor
|
||||
GvS.Columns(2).Visible = True 'proveedor
|
||||
GvC.Columns(2).Visible = True 'proveedor
|
||||
GvF.Columns(16).Visible = False 'costo
|
||||
GvS.Columns(16).Visible = False 'costo
|
||||
GvC.Columns(16).Visible = False 'costo
|
||||
GvF.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo
|
||||
GvS.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo
|
||||
GvC.Columns(16).Visible = UsuarioActual.Procesos(201) 'costo
|
||||
GvGrupos.Columns(1).Visible = True 'proveedor
|
||||
GvGrupos.Columns(15).Visible = False 'costo
|
||||
GvGrupos.Columns(15).Visible = UsuarioActual.Procesos(201) 'costo
|
||||
End If
|
||||
|
||||
If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
|
||||
|
||||
@@ -2824,13 +2824,13 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
Dim Dr As DataRow = DtCamiones.FiltroPrimero(String.Format("CveCamion= {0}", DdlUnidadCamion.SelectedValue))
|
||||
|
||||
If Dr IsNot Nothing Then
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = Dr("ClaveTipoPermisoSCT").ToString '"TPAF01"
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT = Dr("NumPermisoSCT").ToString
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = Dr("NombreAseguradora").ToString
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = Dr("NumPolizaSeguro").ToString
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular = Dr("ConfigCartaPorte").ToString '"C2"
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM = Dr("Placa").ToString
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM = Dr("Anio").ToString.ToEntero
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.PermSCT = Dr("ClaveTipoPermisoSCT").ToString '"TPAF01"
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.NumPermisoSCT = Dr("NumPermisoSCT").ToString
|
||||
'CartaPorte.FiguraTransporte.AutoTransporte.NombreAseg = Dr("NombreAseguradora").ToString
|
||||
'CartaPorte.FiguraTransporte.AutoTransporte.NumPolizaSeguro = Dr("NumPolizaSeguro").ToString
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = Dr("ConfigCartaPorte").ToString '"C2"
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM = Dr("Placa").ToString
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = Dr("Anio").ToString.ToEntero
|
||||
End If
|
||||
|
||||
Dim CveSubProyectoOrigen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
|
||||
@@ -2861,17 +2861,17 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
.Localidad = ""} ' drr("Localidad").ToString}
|
||||
End If
|
||||
|
||||
Dim Ubica As New CFDICartaPorteUbicaciones
|
||||
Dim Ubica As New CFDICartaPorteUbicacion
|
||||
Ubica.TipoEstacion = ""
|
||||
Ubica.DistanciaRecorridaDestino = 1
|
||||
Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = "",'UsuarioActual.Empresa.RFC,
|
||||
.FechaHoraSalida = Now.ToString("yyyy-MM-ddTHH:mm:ss"),' "2021-08-23T11:13:01",
|
||||
.NombreRemitente = UsuarioActual.Empresa.Empresa,
|
||||
.Domicilio = DomOrigen}
|
||||
Ubica.Destino = New CFDICartaPorteUbicacionDestino With {.RFCDestinatario = "",'UsuarioActual.Empresa.RFC,'"CAMJ841219I33",
|
||||
.FechaHoraProgLlegada = TxtFechaEntrega.Text.ToDate.ToString("yyyy-MM-ddT23:59:59"),
|
||||
.NombreDestinatario = UsuarioActual.Empresa.Empresa,
|
||||
.Domicilio = DomDestino}
|
||||
Ubica.DistanciaRecorrida = 1
|
||||
'Ubica.Origen = New CFDICartaPorteUbicacion With {.RFCRemitente = "",'UsuarioActual.Empresa.RFC,
|
||||
' .FechaHoraSalida = Now.ToString("yyyy-MM-ddTHH:mm:ss"),' "2021-08-23T11:13:01",
|
||||
' .NombreRemitente = UsuarioActual.Empresa.Empresa,
|
||||
' .Domicilio = DomOrigen}
|
||||
'Ubica.Destino = New CFDICartaPorteUbicacion With {.RFCDestinatario = "",'UsuarioActual.Empresa.RFC,'"CAMJ841219I33",
|
||||
' .FechaHoraProgLlegada = TxtFechaEntrega.Text.ToDate.ToString("yyyy-MM-ddT23:59:59"),
|
||||
' .NombreDestinatario = UsuarioActual.Empresa.Empresa,
|
||||
' .Domicilio = DomDestino}
|
||||
|
||||
CartaPorte.Ubicaciones.Add(Ubica)
|
||||
|
||||
@@ -2940,7 +2940,6 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
.ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
|
||||
.Embalaje = drr("ClaveEmbalaje").ToString,
|
||||
.DescripEmbalaje = drr("Embalaje").ToString,
|
||||
.PesoenKg = drr("PesoKg").ToString.ToDecimal,
|
||||
.ValorMercancia = drr("PU").ToString.ToDecimal,
|
||||
.Moneda = "MXN", 'temporal
|
||||
.FraccionArrancelaria = "",
|
||||
@@ -3722,13 +3721,13 @@ Partial Class Timbres
|
||||
CartaPorte.Mercancias.UnidadPeso = ""
|
||||
CartaPorte.Mercancias.CargoporTasacion = 0
|
||||
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = TipoPermisoSCT '"TPAF01"
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT = NumPermisoSCT
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = NombreAseguradora
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = NumPolizaSeguro
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular = ConfigCartaPorte '"C2"
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM = Placa
|
||||
CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM = Anio
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.PermSCT = TipoPermisoSCT '"TPAF01"
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.NumPermisoSCT = NumPermisoSCT
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil = NombreAseguradora
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil = NumPolizaSeguro
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular = ConfigCartaPorte '"C2"
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM = Placa
|
||||
CartaPorte.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM = Anio
|
||||
|
||||
Dim DomOrigen As CFDICartaPorteDomicilio = Nothing
|
||||
DomOrigen = New CFDICartaPorteDomicilio With {.Calle = DirOriCalle,
|
||||
@@ -3751,20 +3750,20 @@ Partial Class Timbres
|
||||
.Localidad = DirDesClaveSATLocalidad}
|
||||
|
||||
|
||||
Dim Ubica As New CFDICartaPorteUbicaciones
|
||||
Dim Ubica As New CFDICartaPorteUbicacion
|
||||
Ubica.TipoEstacion = ""
|
||||
Ubica.DistanciaRecorridaDestino = 1
|
||||
Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = "",'UsuarioActual.Empresa.RFC,
|
||||
Ubica.DistanciaRecorrida = 1
|
||||
Ubica = New CFDICartaPorteUbicacion With {.TipoUbicacion = "Origen", .IDUbicacion = "OR001", .RFCRemitenteDestinatario = "",'UsuarioActual.Empresa.RFC,
|
||||
.FechaHoraSalida = Now.ToString("yyyy-MM-ddTHH:mm:ss"),' "2021-08-23T11:13:01",
|
||||
.NombreRemitente = UsuarioActual.Empresa.Empresa,
|
||||
.NombreRemitenteDestinatario = UsuarioActual.Empresa.Empresa,
|
||||
.Domicilio = DomOrigen}
|
||||
Ubica.Destino = New CFDICartaPorteUbicacionDestino With {.RFCDestinatario = "",'UsuarioActual.Empresa.RFC,'"CAMJ841219I33",
|
||||
CartaPorte.Ubicaciones.Add(Ubica)
|
||||
Ubica = New CFDICartaPorteUbicacion With {.TipoUbicacion = "Destino", .IDUbicacion = "DE001", .RFCRemitenteDestinatario = "",'UsuarioActual.Empresa.RFC,'"CAMJ841219I33",
|
||||
.FechaHoraProgLlegada = FechaEntrega.ToString("yyyy-MM-ddT23:59:59"),
|
||||
.NombreDestinatario = UsuarioActual.Empresa.Empresa,
|
||||
.NombreRemitenteDestinatario = UsuarioActual.Empresa.Empresa,
|
||||
.Domicilio = DomDestino}
|
||||
|
||||
CartaPorte.Ubicaciones.Add(Ubica)
|
||||
|
||||
CartaPorte.FiguraTransporte.ClaveTransporte = "01"
|
||||
|
||||
Dim ObjAcar As New ClsAcarreos()
|
||||
@@ -3831,13 +3830,17 @@ Partial Class Timbres
|
||||
.ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
|
||||
.Embalaje = drr("ClaveEmbalaje").ToString,
|
||||
.DescripEmbalaje = drr("Embalaje").ToString,
|
||||
.PesoenKg = drr("PesoKg").ToString.ToDecimal,
|
||||
.ValorMercancia = drr("PU").ToString.ToDecimal,
|
||||
.Moneda = "MXN", 'temporal
|
||||
.FraccionArrancelaria = "",
|
||||
.UUIDComercioExt = ""
|
||||
}
|
||||
|
||||
Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal}
|
||||
conceptoCarta.DetalleMercancia = DetalleMercancia
|
||||
|
||||
Dim MercanciaTransporta As New CFDICartaPorteMercanciaTransporta With {.Cantidad = drr("Cantidad").ToString.ToDecimal, .IDOrigen = "OR001", .IDDestino = "DE001"}
|
||||
conceptoCarta.DetalleMercancia = DetalleMercancia
|
||||
|
||||
totSubTotal = totSubTotal - concepto.Importe
|
||||
CartaPorte.Mercancias.Mercancias.Add(conceptoCarta)
|
||||
|
||||
@@ -30902,7 +30902,7 @@ Partial Class Ventas
|
||||
Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
|
||||
If ArrayNC.Length >= 4 Then
|
||||
Dim CvePSNC As Integer = ArrayNC(3).ToEntero()
|
||||
DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).Rows(0)
|
||||
DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).FiltroPrimero("")
|
||||
Else
|
||||
Dim CveSATNC = "84111506"
|
||||
DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).Rows(0)
|
||||
|
||||
Reference in New Issue
Block a user