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/ClsNominas.vb b/App_Code/ClsNominas.vb index 2dd6b5be7..54d9be053 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -196,6 +196,20 @@ Public Class ClsNominas End Try Return retorno End Function + Public Function GetNominasSinTimbrar() As Boolean + Dim retorno As Boolean = False + DTSet = New DataSet() + DataAdapter("PA_Nom_NominasSinTimbrar", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el finiquito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function PersonalISRAnual(CvePersonal As Integer, cveEmpresa As Integer, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DTSet = New DataSet() diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 452c26b47..1b7a976c9 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -3358,7 +3358,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function AddTurno(Turno As String, HorarioDe As String, HorarioA As String, CveUsuario As Integer, CveEmpresa As Integer, CveChecadorHorario As Integer) As Boolean + Public Function AddTurno(Turno As String, HorarioDe As String, HorarioA As String, CveUsuario As Integer, CveEmpresa As Integer, CveChecadorHorario As Integer, + ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean Dim Retorno As Boolean = False @@ -3371,6 +3372,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveChecadorHorario", SqlDbType.Int).Value = CveChecadorHorario + .Add("@ToleranciaERetardo", SqlDbType.Int).Value = ToleranciaERetardo + .Add("@ToleranciaEFalta", SqlDbType.Int).Value = ToleranciaEFalta + .Add("@ToleranciaSRetardo", SqlDbType.Int).Value = ToleranciaSRetardo + .Add("@ToleranciaSFalta", SqlDbType.Int).Value = ToleranciaSFalta End With Try @@ -3388,7 +3393,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpdateTurno(Turno As String, HorarioDe As String, HorarioA As String, Estatus As Boolean, CveTurno As Integer, CveUsuario As Integer, CveChecadorHorario As Integer) As Boolean + Public Function UpdateTurno(Turno As String, HorarioDe As String, HorarioA As String, Estatus As Boolean, CveTurno As Integer, CveUsuario As Integer, CveChecadorHorario As Integer, + ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean Dim Retorno As Boolean = False @@ -3402,7 +3408,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveTurno", SqlDbType.Int).Value = CveTurno .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveChecadorHorario", SqlDbType.Int).Value = CveChecadorHorario - + .Add("@ToleranciaERetardo", SqlDbType.Int).Value = ToleranciaERetardo + .Add("@ToleranciaEFalta", SqlDbType.Int).Value = ToleranciaEFalta + .Add("@ToleranciaSRetardo", SqlDbType.Int).Value = ToleranciaSRetardo + .Add("@ToleranciaSFalta", SqlDbType.Int).Value = ToleranciaSFalta + + End With Try 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/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 21f62896b..56bdaaaf3 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -111,6 +111,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState context.Response.Write(ValidaCURP(context.Request("Curp").ToString())) Case "sendMail" context.Response.Write(sendMail(context)) + Case "sendMailEMD" + context.Response.Write(sendMailEMD(context)) Case "sendMailLPM" context.Response.Write(sendMailLPM(context)) Case "getSATColomias" @@ -169,6 +171,41 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If Return retorno End Function + + Private Function sendMailEMD(context As HttpContext) As String + Dim retorno As String = "true" + Dim nombre As String = "" + Dim correo As String = "" + Dim Phone As String = "" + Dim cuerpo As String = "" + Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() + + If Not IsNothing(obj) Then + nombre = obj.ToString() + End If + obj = context.Request("Correo") + If Not IsNothing(obj) Then + correo = obj.ToString() + End If + obj = context.Request("Phone") + If Not IsNothing(obj) Then + Phone = obj.ToString() + End If + obj = context.Request("Cuerpo") + If Not IsNothing(obj) Then + cuerpo = obj.ToString().Replace("< ", "<") + End If + Dim Body As String = String.Format("Solicitó : {0}
Correo : {1}
Telefono : {2}

{3}", nombre, correo, Phone, cuerpo) + Dim para As String = "paola@adssistemas.mx;caudillo.90d@gmail.com;" + 'para = "" + Dim Mail As New ClsSisMail() + If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then + retorno = "true" + Else + retorno = "false" + End If + Return retorno + End Function + Private Function sendMail(context As HttpContext) As String Dim retorno As String = "true" Dim nombre As String = "" 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/Inicio.aspx b/Inicio.aspx index 5b092c8e2..2e4eace5a 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -805,6 +805,37 @@ +