diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index 61a215271..fd2700c84 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -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 -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 - - - -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 -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 - - -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 +' +'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 + 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 + + + +Public Class CFDICartaPorteMercanciaPedimento + Public Property Pedimento As String = "" End Class + + +Public Class CFDICartaPorteMercanciaTransporta + Public Property Cantidad As Decimal = 0 + Public Property IDOrigen As String = "" + Public Property IDDestino As String = "" + +End Class + + +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 + + Public Class CFDICartaPorteIdentificacionVehicular Public Property ConfigVehicular As String = "" @@ -710,7 +738,7 @@ End Class 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 diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 2a6cf907c..454cb25eb 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -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 diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index b2bc2dcd0..d354d4be3 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -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 diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 0e4145017..c1d9e7fa4 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx index 734e7078f..8df406ec9 100644 --- a/Inventarios/RepAnomalias.aspx +++ b/Inventarios/RepAnomalias.aspx @@ -280,8 +280,8 @@ - - + + <%----%> @@ -337,8 +337,8 @@ - - + + <%----%> @@ -387,8 +387,8 @@ - - + + <%----%> @@ -486,8 +486,8 @@ - - + + diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 92ad8efed..ec4945950 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -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 diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 42864b36b..6ddf55fcf 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -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) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fb3db29dc..eb24512e6 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -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)