diff --git a/Acumuladores/RepRecolecciones.aspx b/Acumuladores/RepRecolecciones.aspx index fe1de6735..703cefdb5 100644 --- a/Acumuladores/RepRecolecciones.aspx +++ b/Acumuladores/RepRecolecciones.aspx @@ -180,6 +180,7 @@ P +
diff --git a/Acumuladores/RepRecolecciones.aspx.vb b/Acumuladores/RepRecolecciones.aspx.vb index 2cc61fdc3..87b5c5e97 100644 --- a/Acumuladores/RepRecolecciones.aspx.vb +++ b/Acumuladores/RepRecolecciones.aspx.vb @@ -1,8 +1,5 @@ Imports System.Data -Imports CrystalDecisions.Shared.Json Imports Extensiones -Imports Modelos - Partial Class Acumuladores_RepRecolecciones Inherits ClsPaginas @@ -73,7 +70,7 @@ Partial Class Acumuladores_RepRecolecciones Private Sub CargaDatos() Dim ObjGeneral As New ClsGenerales - If (ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1)) Then + If ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1) Then GvR.DataSource = ObjGeneral.DtResultados End If ObjGeneral.Dispose() @@ -226,9 +223,9 @@ Partial Class Acumuladores_RepRecolecciones Dim ErrorMovInv As Boolean = False Dim Fecha As DateTime = NowADS() Dim Concepto As String = "Traspaso Recolección" - Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 26, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1) + Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 26, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveEntregaAlmacen:=CveEntregaAlmacen) Dim FolioSalida As Integer = ObjInventario.Folio - Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida) + Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida, CveEntregaAlmacen:=CveEntregaAlmacen) Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=HdnPSRecoleccion.Value.ToEntero).FiltroPrimeroValor("CveUnidadMedida", "").ToEntero If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, HdnCantidadRecoleccion.Value.ToDecimal, CveUM, HdnPSRecoleccion.Value.ToEntero, 0) Then ErrorMovInv = True diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 9f2ba1de5..433116e74 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -4061,12 +4061,11 @@ Public Class ClsGenerales End Function - Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1) As Boolean + Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1, Optional Tipo As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2") - With SqlAdapter.SelectCommand.Parameters .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto @@ -4077,6 +4076,7 @@ Public Class ClsGenerales .Add("@CveChofer", SqlDbType.Int).Value = CveChofer .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo End With Try diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 5b45ff77e..ec489f0a4 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -989,9 +989,8 @@ Public Class ClsInventarios CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CveOS As Integer = -1, Optional CvePersonal As Integer = -1, Optional IDPoliza As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "", Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Decimal = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1, - Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1, Optional CveChofer As Integer = -1, Optional CveCamion As Integer = -1, Optional Placa As String = "", - Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "", - Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1) As Integer + Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1, + Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1, Optional CveEntregaAlmacen As Integer = -1) As Integer Dim Retorno As Integer = -1 @@ -1037,21 +1036,21 @@ Public Class ClsInventarios .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato .Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto - .Add("@CveChofer", SqlDbType.Int).Value = CveChofer - .Add("@CveCamion", SqlDbType.Int).Value = CveCamion - .Add("@Placa", SqlDbType.VarChar).Value = Placa - .Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega - .Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad + '.Add("@CveChofer", SqlDbType.Int).Value = CveChofer + '.Add("@CveCamion", SqlDbType.Int).Value = CveCamion + '.Add("@Placa", SqlDbType.VarChar).Value = Placa + '.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega + '.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio - .Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion - .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio - .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad - .Add("@Licencia", SqlDbType.VarChar).Value = Licencia + '.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion + '.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio + '.Add("@Telefono", SqlDbType.VarChar).Value = Telefono + '.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + '.Add("@Licencia", SqlDbType.VarChar).Value = Licencia .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveOP", SqlDbType.Int).Value = CveOP - + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia End With diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index bf94a8a1c..e2691714f 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5487,6 +5487,8 @@ Public Class ClsPaginas Vta.Procedimiento = dtVentas(0)("Procedimiento").ToString Vta.Alfa1 = dtVentas(0)("Alfa1").ToString Vta.FechaEjecucion = dtVentas(0)("FechaEjecucion").ToString.ToDateTime + Vta.Paciente = dtVentas(0)("Paciente").ToString + Vta.Episodio = dtVentas(0)("Episodio").ToString Vta.RefDocto = dtVentas(0)("Ref").ToString Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero @@ -7016,6 +7018,9 @@ Public Class ClsPaginas params.Add(New ReportParameter("Medico", Vta.Medico)) params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento)) params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm"))) + params.Add(New ReportParameter("Paciente", Vta.Paciente)) + params.Add(New ReportParameter("Episodio", Vta.Episodio)) + End If 'VSH If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then @@ -7071,6 +7076,8 @@ Public Class ClsPaginas params.Add(New ReportParameter("Medico", Vta.Medico)) params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento)) params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm"))) + params.Add(New ReportParameter("Paciente", Vta.Paciente)) + params.Add(New ReportParameter("Episodio", Vta.Episodio)) End If RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo) @@ -7179,6 +7186,8 @@ Public Class ClsPaginas params.Add(New ReportParameter("Medico", Vta.Medico)) params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento)) params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm"))) + params.Add(New ReportParameter("Paciente", Vta.Paciente)) + params.Add(New ReportParameter("Episodio", Vta.Episodio)) End If RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo) diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index f79f45900..11b3a6b5b 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -1,454 +1,473 @@ -Imports System.Data -Imports System.Data.SqlClient -Imports Extensiones - -Public Class ClsTransportes - Implements IDisposable - -#Region "Campos" - 'SQL - Private SqlConexion As SqlConnection - Private SqlAdapter As SqlDataAdapter - Private SqlCommand As SqlCommand - Private SqlTransacc As SqlTransaction - Private Data As DataTable - Private DSet As New DataSet - - Private disposedValue As Boolean = False - Private CveConexion As Integer = 0 - Public ReadOnly Property DtResultados() As DataTable - Get - DtResultados = Data - End Get - End Property - -#End Region - -#Region "Propiedades" - Public Property CveViaje As Integer - Public Property CveRuta As Integer - Public Property CveAF As Integer - Public Property CvePersonal As Integer - Public Property CveEmpresa As Integer - Public Property CvePartida As Integer - Public Property CveDestino As Integer - Public Property CveMasivo As Integer - Public Property Fecha As DateTime - Public Property Ruta As String -#End Region - -#Region "Funciones básicas" - Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) - - If TransaccionCompartida Is Nothing Then - SqlConexion = New SqlConnection With { - .ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString - } - Try - SqlConexion.Open() - Catch ex As Exception - OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) - End Try - Else - SqlConexion = TransaccionCompartida.Connection - SqlTransacc = TransaccionCompartida - End If - - SqlAdapter = New SqlDataAdapter("", SqlConexion) - ConexionAdd() - End Sub - Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) - With SqlAdapter.SelectCommand - .Parameters.Clear() - .CommandText = StrSQL - .CommandType = TipoComando - End With - If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc - Data = New DataTable - End Sub -#Region "Conexiones" - - Private Sub ConexionAdd() - If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then - Try - DataAdapter("PA_Sis_RegistrarConexion") - With SqlAdapter.SelectCommand.Parameters - .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name - .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) - .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output - End With - SqlAdapter.Fill(Data) - CveConexion = CInt(SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString) - Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - End If - End Sub - - Private Sub ConexionClose() - If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then - - DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) - - Try - SqlAdapter.Fill(Data) - - Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - CveConexion = 0 - End If - - End Sub -#End Region - Public Function IniciaTransacSQL() As SqlTransaction - If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() - Return SqlTransacc - End Function - Public Sub RollBack() - SqlTransacc.Rollback() - End Sub - Public Sub Commit() - SqlTransacc.Commit() - End Sub - Protected Overridable Sub Dispose(ByVal disposing As Boolean) - If Not disposedValue Then - If disposing Then - If Not Data Is Nothing Then Data.Dispose() : Data = Nothing - If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing - If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing - If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing - - End If - End If - disposedValue = True - End Sub - Public Sub Dispose() Implements IDisposable.Dispose - ConexionClose() - Dispose(True) - GC.SuppressFinalize(Me) - End Sub -#End Region - -#Region "Boletos" - Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer - Dim Retorno As Integer = -1 - - DataAdapter("PA_Trans_ViajesPasajerosAdd") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@CveViaje", SqlDbType.Int).Value = CveViaje - .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen - .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal - .Add("@Importe", SqlDbType.Money).Value = Importe - .Add("@Asiento", SqlDbType.Int).Value = Asiento - .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@Visa", SqlDbType.VarChar).Value = Visa - .Add("@Celular", SqlDbType.VarChar).Value = Celular - .Add("@Sexo", SqlDbType.Bit).Value = Sexo - .Add("@Observacion", SqlDbType.VarChar).Value = Observacion - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - - End With - - Try - SqlAdapter.Fill(Data) - Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveViajePasajero").Value.ToString) - - Catch ex As Exception - OnError("Ocurrió un error al guardar el nuevo viaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = -1, Optional Estatus As Integer = -1) As Boolean - Dim Retorno As Boolean = False - - DataAdapter("PA_Trans_ViajesPasajerosGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveViaje", SqlDbType.Int).Value = CveViaje - .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero - .Add("@Estatus", SqlDbType.Int).Value = Estatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el catálogo de boletos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean - - Dim Retorno As Boolean = False - DataAdapter("PA_Trans_ViajesPasajerosUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero - .Add("@Estatus", SqlDbType.Int).Value = Estatus - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - - End Function -#End Region - -#Region "Destinos" - Public Function GetDestinos(Optional CveSubProyecto As Integer = 0) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Trans_DestinosGet") - If CveRuta <> 0 Then - With SqlAdapter.SelectCommand.Parameters - .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - End With - End If - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener los destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function AddDestino(Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer - Dim Retorno As Integer = -1 - - DataAdapter("PA_Trans_DestinosAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDestino", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@Destino", SqlDbType.VarChar).Value = Destino - .Add("@EsNacional", SqlDbType.Bit).Value = Convert.ToBoolean(EsNacional) - .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveDestino").Value.ToString) - Catch ex As Exception - OnError("Ocurrió un error al agregar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function UpdateDestino(CveDestino As Integer, Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Trans_DestinosUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDestino", SqlDbType.Int).Value = CveDestino - .Add("@Destino", SqlDbType.VarChar).Value = Destino - .Add("@EsNacional", SqlDbType.VarChar).Value = Convert.ToBoolean(EsNacional) - .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function RemoveDestino(CveDestino As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - - - DataAdapter("PA_Trans_DestinosRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDestino", SqlDbType.Int).Value = CveDestino - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - - '#Region "Rutas" - ' Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Trans_RutasGet") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta - ' .Add("@Estatus", SqlDbType.Bit).Value = Estatus - ' .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng - - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener las rutas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function AddRuta(Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer - ' Dim Retorno As Integer = -1 - - ' DataAdapter("PA_Trans_RutasAdd") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Direction = ParameterDirection.Output - ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta - ' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveRuta").Value.ToString) - ' Catch ex As Exception - ' OnError("Ocurrió un error al agregar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function UpdateRuta(CveRuta As Integer, Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Trans_RutasUpdate") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta - ' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al actualizar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function RemoveRuta(CveRuta As Integer) As Boolean - ' Dim Retorno As Boolean = False - - - ' DataAdapter("PA_Trans_RutasRemove") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al eliminar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - - '#End Region - -#Region "Importes" - Public Function GetDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Trans_DestinosTarifasGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen - .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener la tarifa de los destinos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - - Public Function AddDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal) As Integer - Dim Retorno As Integer = -1 - - DataAdapter("PA_Trans_DestinosTarifasAdd") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDestinoTarifa", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen - .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal - .Add("@Importe", SqlDbType.SmallMoney).Value = Importe - End With - Try - SqlAdapter.Fill(Data) - Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveDestinoTarifa").Value.ToString) - Catch ex As Exception - OnError("Ocurrió un error al agregar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateDestinosTarifas(CveDestinoTarifa As Integer, CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Trans_DestinosTarifasUpdate") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDestinoTarifa", SqlDbType.Int).Value = CveDestinoTarifa - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen - .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal - .Add("@Importe", SqlDbType.SmallMoney).Value = Importe - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al actualizar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function RemoveDestinosTarifas(CveDestinoTarifa As Integer) As Boolean - Dim Retorno As Boolean = False - - - DataAdapter("PA_Trans_DestinosTarifasRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDestinoTarifa", SqlDbType.Int).Value = CveDestinoTarifa - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al eliminar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function -#End Region - -End Class +Imports System.Data +Imports System.Data.SqlClient +Imports Extensiones + +Public Class ClsTransportes + Implements IDisposable + +#Region "Campos" + 'SQL + Private SqlConexion As SqlConnection + Private SqlAdapter As SqlDataAdapter + Private SqlCommand As SqlCommand + Private SqlTransacc As SqlTransaction + Private Data As DataTable + Private DSet As New DataSet + + Private disposedValue As Boolean = False + Private CveConexion As Integer = 0 + Public ReadOnly Property DtResultados() As DataTable + Get + DtResultados = Data + End Get + End Property + +#End Region + +#Region "Propiedades" + Public Property CveViaje As Integer + Public Property CveRuta As Integer + Public Property CveAF As Integer + Public Property CvePersonal As Integer + Public Property CveEmpresa As Integer + Public Property CvePartida As Integer + Public Property CveDestino As Integer + Public Property CveMasivo As Integer + Public Property Fecha As DateTime + Public Property Ruta As String +#End Region + +#Region "Funciones básicas" + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + + If TransaccionCompartida Is Nothing Then + SqlConexion = New SqlConnection With { + .ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + } + Try + SqlConexion.Open() + Catch ex As Exception + OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) + End Try + Else + SqlConexion = TransaccionCompartida.Connection + SqlTransacc = TransaccionCompartida + End If + + SqlAdapter = New SqlDataAdapter("", SqlConexion) + ConexionAdd() + End Sub + Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) + With SqlAdapter.SelectCommand + .Parameters.Clear() + .CommandText = StrSQL + .CommandType = TipoComando + End With + If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc + Data = New DataTable + End Sub +#Region "Conexiones" + + Private Sub ConexionAdd() + If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + Try + DataAdapter("PA_Sis_RegistrarConexion") + With SqlAdapter.SelectCommand.Parameters + .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name + .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) + .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + SqlAdapter.Fill(Data) + CveConexion = CInt(SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString) + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + End If + End Sub + + Private Sub ConexionClose() + If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + + DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + CveConexion = 0 + End If + + End Sub +#End Region + Public Function IniciaTransacSQL() As SqlTransaction + If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() + Return SqlTransacc + End Function + Public Sub RollBack() + SqlTransacc.Rollback() + End Sub + Public Sub Commit() + SqlTransacc.Commit() + End Sub + Protected Overridable Sub Dispose(ByVal disposing As Boolean) + If Not disposedValue Then + If disposing Then + If Not Data Is Nothing Then Data.Dispose() : Data = Nothing + If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing + If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing + If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing + + End If + End If + disposedValue = True + End Sub + Public Sub Dispose() Implements IDisposable.Dispose + ConexionClose() + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region + +#Region "Boletos" + Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer + Dim Retorno As Integer = -1 + + DataAdapter("PA_Trans_ViajesPasajerosAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@CveViaje", SqlDbType.Int).Value = CveViaje + .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen + .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal + .Add("@Importe", SqlDbType.Money).Value = Importe + .Add("@Asiento", SqlDbType.Int).Value = Asiento + .Add("@Nombre", SqlDbType.VarChar).Value = Nombre + .Add("@Visa", SqlDbType.VarChar).Value = Visa + .Add("@Celular", SqlDbType.VarChar).Value = Celular + .Add("@Sexo", SqlDbType.Bit).Value = Sexo + .Add("@Observacion", SqlDbType.VarChar).Value = Observacion + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveViajePasajero").Value.ToString) + + Catch ex As Exception + OnError("Ocurrió un error al guardar el nuevo viaje.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = -1, Optional Estatus As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Trans_ViajesPasajerosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViaje", SqlDbType.Int).Value = CveViaje + .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el catálogo de boletos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Trans_ViajesPasajerosUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + Public Function GetRemisionBoleto(CveViajePasajero As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Trans_ViajesPasajerosVentaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la remisión del boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + +#End Region + +#Region "Destinos" + Public Function GetDestinos(Optional CveSubProyecto As Integer = 0) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Trans_DestinosGet") + If CveRuta <> 0 Then + With SqlAdapter.SelectCommand.Parameters + .Add("@CveRuta", SqlDbType.Int).Value = CveRuta + End With + End If + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddDestino(Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer + Dim Retorno As Integer = -1 + + DataAdapter("PA_Trans_DestinosAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveDestino", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@Destino", SqlDbType.VarChar).Value = Destino + .Add("@EsNacional", SqlDbType.Bit).Value = Convert.ToBoolean(EsNacional) + .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveDestino").Value.ToString) + Catch ex As Exception + OnError("Ocurrió un error al agregar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateDestino(CveDestino As Integer, Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Trans_DestinosUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveDestino", SqlDbType.Int).Value = CveDestino + .Add("@Destino", SqlDbType.VarChar).Value = Destino + .Add("@EsNacional", SqlDbType.VarChar).Value = Convert.ToBoolean(EsNacional) + .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RemoveDestino(CveDestino As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + + DataAdapter("PA_Trans_DestinosRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveDestino", SqlDbType.Int).Value = CveDestino + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + + '#Region "Rutas" + ' Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Trans_RutasGet") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta + ' .Add("@Estatus", SqlDbType.Bit).Value = Estatus + ' .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng + + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener las rutas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + ' End Function + ' Public Function AddRuta(Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer + ' Dim Retorno As Integer = -1 + + ' DataAdapter("PA_Trans_RutasAdd") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveRuta", SqlDbType.Int).Direction = ParameterDirection.Output + ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta + ' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) + ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveRuta").Value.ToString) + ' Catch ex As Exception + ' OnError("Ocurrió un error al agregar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + ' End Function + ' Public Function UpdateRuta(CveRuta As Integer, Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Trans_RutasUpdate") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta + ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta + ' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) + ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al actualizar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + ' End Function + ' Public Function RemoveRuta(CveRuta As Integer) As Boolean + ' Dim Retorno As Boolean = False + + + ' DataAdapter("PA_Trans_RutasRemove") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta + ' End With + + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al eliminar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + ' End Function + + '#End Region + +#Region "Importes" + Public Function GetDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Trans_DestinosTarifasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen + .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la tarifa de los destinos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal) As Integer + Dim Retorno As Integer = -1 + + DataAdapter("PA_Trans_DestinosTarifasAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveDestinoTarifa", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen + .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal + .Add("@Importe", SqlDbType.SmallMoney).Value = Importe + End With + Try + SqlAdapter.Fill(Data) + Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveDestinoTarifa").Value.ToString) + Catch ex As Exception + OnError("Ocurrió un error al agregar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function UpdateDestinosTarifas(CveDestinoTarifa As Integer, CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Trans_DestinosTarifasUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveDestinoTarifa", SqlDbType.Int).Value = CveDestinoTarifa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen + .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal + .Add("@Importe", SqlDbType.SmallMoney).Value = Importe + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function RemoveDestinosTarifas(CveDestinoTarifa As Integer) As Boolean + Dim Retorno As Boolean = False + + + DataAdapter("PA_Trans_DestinosTarifasRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveDestinoTarifa", SqlDbType.Int).Value = CveDestinoTarifa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el importe.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + +End Class diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index dec991bdb..8234a17ad 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -880,6 +880,25 @@ Public Class ClsVentas Return Retorno End Function + + Public Function UpdateBoletosVenta(CveVenta As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasBoletosUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al cancelar los boletos de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function UpdateEstatusFactura(Estatus As Integer, FolioFiscal As String, SelloSAT As String, FechaCancelacion As DateTime, CveVenta As Integer, Optional IdPolizaCancelacion As Integer = -1, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0, Optional CveUsuarioCambiaEstatus As Integer = -1, Optional FechaCambioEstatus As String = "-1", Optional RFCReceptor As String = "-1", @@ -1428,7 +1447,7 @@ Public Class ClsVentas Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Decimal = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1, Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Decimal = 0, Optional PorcentajeRetIVA As Double = 0, Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1, - Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0, Optional CantidadConversion As Decimal = 0) As Boolean + Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0, Optional CantidadConversion As Decimal = 0, Optional CveViajePasajero As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasDetalleAdd") @@ -1463,6 +1482,7 @@ Public Class ClsVentas .Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen .Add("@CantidadConversion", SqlDbType.Decimal).Value = CantidadConversion + .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero End With Try diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index d87eb3840..a389e480f 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1274,7 +1274,7 @@ Namespace Modelos ObjFactura.FechaEjecucion = DateTime.Today ObjFactura.UsuarioCreo = UsuarioActual.Usuario ObjFactura.CondicionesPago = 0 - ObjFactura.TipoDocumento = "Factura" + ObjFactura.TipoDocumento = ObjFactura.TipodeComprobante 'Totales, Y se llena TmpDTImpuestos 'CLIENTE @@ -1445,6 +1445,9 @@ Namespace Modelos TmpDT.Columns.Add("NumTurnos", GetType(Decimal)) TmpDT.Columns("NumTurnos").DefaultValue = 0 + TmpDT.Columns.Add("CveViajePasajero", GetType(Integer)) + TmpDT.Columns("CveViajePasajero").DefaultValue = -1 + Return TmpDT End Function @@ -1452,7 +1455,8 @@ Namespace Modelos Optional CveUM As Integer = -1, Optional CveProyecto As Integer = -1, Optional Proyecto As String = "", Optional CveSubProyecto As Integer = -1, Optional SubProyecto As String = "", Optional PorcentajeIVA As Decimal = -1, - Optional CuentaPredial As String = "", Optional CveVentaDetallePadre As Integer = -1, Optional CveVentaDetalleRemision As Integer = -1) As Boolean + Optional CuentaPredial As String = "", Optional CveVentaDetallePadre As Integer = -1, + Optional CveVentaDetalleRemision As Integer = -1, Optional CveViajePasajero As Integer = -1) As Boolean If Not CvePS > 0 Then Alert("Ocurrió un error al cargar la información del producto a agregar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError) @@ -1649,6 +1653,7 @@ Namespace Modelos Row("AFValorInicial") = 0 Row("NumTurnos") = 0 + Row("CveViajePasajero") = CveViajePasajero Me.DtDetalle.Rows.Add(Row) @@ -1661,6 +1666,7 @@ Namespace Modelos Me.RetIVA = Me.DtDetalle.SUMD("ImporteRetIVA") Me.RetISR = Me.DtDetalle.SUMD("ImporteRetISR") Me.IEPS = Me.DtDetalle.SUMD("ImporteIEPS") + Me.Descuento = Me.DtDetalle.SUMD("Descuento") Me.Total = Me.SubTotal + Me.IVA + Me.IEPS - (Me.RetIVA + Me.RetISR) End Sub @@ -2202,6 +2208,14 @@ Namespace Modelos 'Se agregan los PS For Each Row As DataRow In TmpDTDetalle.Rows + + Dim CveViajePasajero As Integer = -1 + + 'VERIFICA QUE EXISTA LA COLUMNA + If TmpDTDetalle.Columns("CveViajePasajero") IsNot Nothing Then + CveViajePasajero = Row("CveViajePasajero").ToString().ToEntero() + End If + If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("CveUM").ToString.ToEntero, Row("PU").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Math.Round((Row("Total").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6), Row("Obs").ToString, Row("Descuento").ToString.ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoIngreso").ToString.ToEntero, @@ -2210,7 +2224,7 @@ Namespace Modelos IEPS:=Row("ImporteIEPS").ToString.ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString.ToEntero, ImporteRetIVA:=Row("ImporteRetIVA").ToString.ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString.ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString.ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString.ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString.ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString, - PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal) Then + PorcentajeIVA:=Row("PorcentajeIVA").ToString.ToDecimal, CveViajePasajero:=CveViajePasajero) Then ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la factura.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Exit For Else @@ -5209,6 +5223,77 @@ Namespace Modelos End If End Function + + Public Function CancelarBoleto(CveViajePasajero As Integer) As Boolean + Dim TieneError As Boolean = False + + If Me.CveVenta > 0 Then + Dim ObjVentas As New ClsVentas() + Dim ObjTransportes As New ClsTransportes(ObjVentas.IniciaTransacSQL()) + Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL()) + + Try + Dim Row As DataRow = Me.DtDetalle.Select($"CveViajePasajero={CveViajePasajero}").FirstOrDefault() + If Row IsNot Nothing Then + Row("Descuento") = Row("Total") + Row("Obs") = "CANCELADO" + + If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString().ToEntero(), Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("PU").ToString().ToDecimal(), Row("ImporteIEPS").ToString().ToDecimal(), Row("PorcentajeIEPS").ToString().ToDecimal(), Row("ImporteIVA").ToString().ToDecimal(), Row("PorcentajeIVA").ToString().ToDecimal(), Row("Descuento").ToString().ToDecimal(), Row("Obs").ToString(), UsuarioActual.CveUsuario) Then + TieneError = True + End If + + If Not TieneError Then + If Not ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, Activar:=False, Estatus:=False) Then + TieneError = True + End If + End If + + Me.CalculaTotales() + + If Not TieneError Then + If Not ObjVentas.UpdateVentas(Me.SubTotal, Me.Descuento, Me.IVA, Me.IEPS, Me.Total, Me.CveMoneda, Me.TipoCambio, Me.Fecha, Me.Observaciones, + UsuarioActual.CveEmpresa, Me.CveVenta, TipoDocto:=Me.TipoDocto) Then + TieneError = True + End If + End If + + If Not TieneError Then + TieneError = Not RegenerarPrePolizas(ObjVentas.IniciaTransacSQL()) + End If + + If Not TieneError Then + If ObjConta.ValidacionesPrePoliza(-1, UsuarioActual, Opcion:=2, CveVenta:=CveVenta) Then + If ObjConta.ValorPolizaDescuadre > 0 Then + If ObjConta.ValorPolizaDescuadre = 2 Then + TieneError = True + Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError) + End If + End If + End If + End If + + End If + Catch ex As Exception + TieneError = True + GuardaLog(ex.ToString()) + End Try + + If TieneError Then + ObjVentas.RollBack() + Else + ObjVentas.Commit() + End If + + ObjVentas.Dispose() + ObjTransportes.Dispose() + ObjConta.Dispose() + + End If + + Return Not TieneError + End Function + + Private Shared Function DecodeBase64(ByVal strXMLCodificado As String) As String Try Dim decbuff As Byte() = Convert.FromBase64String(strXMLCodificado) @@ -5246,8 +5331,8 @@ Namespace Modelos ''' Cancela la factura para poder realizar la refacturacion ''' ''' - Public Function CancelarPorRefacturacion(CveMotivoCancelacion As Integer, Motivo As String, Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = False, Optional CveEstadoCancelacion As Integer = 0, Optional CveEstatusFacturaAsignado As Integer = -1) As MCancelacionVentaMensaje - Return CancelarVenta(Me, Me.UsuarioActual, EsRefacturacion:=True, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, FolioSustitucion:=FolioSustitucion, ValidarSAT:=ValidarSAT, CveEstadoCancelacion:=CveEstadoCancelacion, CveEstatusFacturaAsignado:=CveEstatusFacturaAsignado) + Public Function CancelarPorRefacturacion(CveMotivoCancelacion As Integer, Motivo As String, Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = False, Optional CveEstadoCancelacion As Integer = 0) As MCancelacionVentaMensaje + Return CancelarVenta(Me, Me.UsuarioActual, EsRefacturacion:=True, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, FolioSustitucion:=FolioSustitucion, ValidarSAT:=ValidarSAT, CveEstadoCancelacion:=CveEstadoCancelacion) End Function ''' ''' Cancela la factura y realiza las operaciones correspondientes @@ -5255,15 +5340,15 @@ Namespace Modelos ''' ''' ''' - Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0) As MCancelacionVentaMensaje + Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False) As MCancelacionVentaMensaje 'Comprobante emitido con errores sin relación - Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion) + Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion, CancelarBoletos:=CancelarBoletos) End Function Private Function CancelarVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario, Optional EsRefacturacion As Boolean = False, Optional RealizarDevolucionAlmacen As Boolean = False, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveEstatusFacturaAsignado As Integer = -1, Optional FechaCancelacion As String = "-1", Optional AcuseCancelacion As String = "", Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "", - Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0) As MCancelacionVentaMensaje + Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False) As MCancelacionVentaMensaje Dim Retorno As New MCancelacionVentaMensaje() Dim ErrorList As New List(Of String) @@ -6434,6 +6519,13 @@ Namespace Modelos End If End If + If CancelarBoletos Then + If Not ObjVentas.UpdateBoletosVenta(CveVenta, UsuarioActual.CveEmpresa) Then + ErrorCancelar = True + MensajeError = "Ocurrió un error al cancelar los boletos." + End If + End If + If CancelarRemisiones Then If SeCancelaRemisionProceso Then @@ -8055,7 +8147,7 @@ Namespace Modelos Public Property Giro As String Public Property CvePrecioLista As Integer Public Property EnviarFactura As String - Public Property CveSucursal As Integer + Public Property CveSubProyecto As Integer Public Property RetIVA As Decimal Public Property RetISR As Decimal Public Property IEPS As Decimal diff --git a/Bin/ADSNetLibrary.dll b/Bin/ADSNetLibrary.dll index f8f0cd514..99a825261 100644 Binary files a/Bin/ADSNetLibrary.dll and b/Bin/ADSNetLibrary.dll differ diff --git a/CGame/CatHuerta.aspx b/CGame/CatHuerta.aspx index 94527050c..a539317dd 100644 --- a/CGame/CatHuerta.aspx +++ b/CGame/CatHuerta.aspx @@ -163,8 +163,8 @@
- - + +
diff --git a/CGame/CatHuerta.aspx.cs b/CGame/CatHuerta.aspx.cs index b5fc61ddb..aa7452887 100644 --- a/CGame/CatHuerta.aspx.cs +++ b/CGame/CatHuerta.aspx.cs @@ -1,4 +1,4 @@ - using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.UI.WebControls; using Extensiones; public partial class CATHuerta :ClsPaginas { #region Propiedades private int CveHuerta { get{return (ViewState["CveHuerta"] == null) ? 0 : Convert.ToInt32(ViewState["CveHuerta"]);} set{ViewState["CveHuerta"] =value;} } #endregion protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack){ CargaProveedor(); CargaHuerta(); } } protected void CargaHuerta() { ClsCGame ObjHuer =new ClsCGame(); if (ObjHuer.GetHuerta(UsuarioActual.CveEmpresa)) + using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.UI.WebControls; using Extensiones; public partial class CATHuerta :ClsPaginas { #region Propiedades private int CveHuerta { get{return (ViewState["CveHuerta"] == null) ? 0 : Convert.ToInt32(ViewState["CveHuerta"]);} set{ViewState["CveHuerta"] =value;} } #endregion protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack){ CargaProveedor(); CargaProveedores(); CargaHuerta(); } } protected void CargaHuerta() { ClsCGame ObjHuer =new ClsCGame(); if (ObjHuer.GetHuerta(UsuarioActual.CveEmpresa)) { GVHuerta.DataSource = ObjHuer.DtResultados; GVHuerta.DataBind(); @@ -78,4 +78,26 @@ } } } + + private void CargaProveedores() + { + if (UsuarioActual.Empresa.Funcionalidad(105) == "1") + { + DdlProveedor.setEsWebService(true); + DdlProveedor.Attributes.Add("data-metodo", "getproveedores"); + DdlProveedor.SelectedText = "Seleccione"; + DdlProveedor.SelectedValue = "-1"; + DdlProveedor.ddl.AutoPostBack = true; + } + else + { + DdlProveedor.DataSource = ClsPaginas.get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); + DdlProveedor.DataBind(); + DdlProveedor.ddl.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlProveedor.ddl.AutoPostBack = true; + } + + UPModalHuer.Update(); + } + } \ No newline at end of file diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs index 3221ac521..6ccb36589 100644 --- a/CRM/Acercamiento.aspx.cs +++ b/CRM/Acercamiento.aspx.cs @@ -828,7 +828,7 @@ public partial class CRM_Acercamiento : ClsPaginas { ClsCRM ObjCRM = new ClsCRM(); ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString); - AcercaminetoModel AcercaminetoModel = new AcercaminetoModel(); + AcercamientoModel AcercamientoModel = new AcercamientoModel(); ClsEncuestas ObjDatosTecnicos = new ClsEncuestas(ObjCRM.IniciaTransacSQL()); //ClsOIEventos ObjBitacora = new ClsOIEventos(ObjCRM.IniciaTransacSQL()); @@ -866,31 +866,31 @@ public partial class CRM_Acercamiento : ClsPaginas { CveEncuestaAplicadaProceso = GuardaDatosTecnicos(ObjDatosTecnicos, CveEncuestaAplicadaProceso); } - AcercaminetoModel.CveAcercamiento = CveAcercamiento; - AcercaminetoModel.CveContactoPrincipal = CveContactoPrincipal; - AcercaminetoModel.CveTipoProceso = CveTipoProceso; - AcercaminetoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar; - AcercaminetoModel.CveVendedor = CveVendedor; - AcercaminetoModel.CveMedioCaptacion = CveMedioCaptacion; - AcercaminetoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento; - AcercaminetoModel.NombreAcercamiento = NombreAcercamiento; - AcercaminetoModel.Descripcion = Descripcion; - AcercaminetoModel.Importe = Importe; - AcercaminetoModel.Comision = Comision; - AcercaminetoModel.Prioridad = Prioridad; - AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario; - AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; - AcercaminetoModel.FechaApertura = FechaApertura; - AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha; - AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero(); - AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo; - AcercaminetoModel.EnPausa = ChkePausa.Checked; - AcercaminetoModel.CveMedico = DdlMedico.SelectedValue.ToEntero(); - AcercaminetoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero(); - AcercaminetoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero(); + AcercamientoModel.CveAcercamiento = CveAcercamiento; + AcercamientoModel.CveContactoPrincipal = CveContactoPrincipal; + AcercamientoModel.CveTipoProceso = CveTipoProceso; + AcercamientoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar; + AcercamientoModel.CveVendedor = CveVendedor; + AcercamientoModel.CveMedioCaptacion = CveMedioCaptacion; + AcercamientoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento; + AcercamientoModel.NombreAcercamiento = NombreAcercamiento; + AcercamientoModel.Descripcion = Descripcion; + AcercamientoModel.Importe = Importe; + AcercamientoModel.Comision = Comision; + AcercamientoModel.Prioridad = Prioridad; + AcercamientoModel.CveUsuarioIng = UsuarioActual.CveUsuario; + AcercamientoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; + AcercamientoModel.FechaApertura = FechaApertura; + AcercamientoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha; + AcercamientoModel.CvePS = DdlPS.SelectedValue.ToEntero(); + AcercamientoModel.CveRechazoMotivo = CveRechazoMotivo; + AcercamientoModel.EnPausa = ChkePausa.Checked; + AcercamientoModel.CveMedico = DdlMedico.SelectedValue.ToEntero(); + AcercamientoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero(); + AcercamientoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero(); - if (cRMService.AcercamientoUpdate(AcercaminetoModel)) + if (cRMService.AcercamientoUpdate(AcercamientoModel)) { //String MensajeBitacora = (CveEtapaProcesoActualActualizar != CveEtapaActual) ? String.Format("Se actualizó la etapa del acercamiento a {0}.", DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveEtapaProceso = " + CveEtapaProcesoActualActualizar)) : String.Format("Se actualizó el Acercamiento {0} con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text); @@ -926,7 +926,7 @@ public partial class CRM_Acercamiento : ClsPaginas protected void GuardarCambioEtapa() { ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString); - AcercaminetoModel AcercaminetoModel = new AcercaminetoModel(); + AcercamientoModel AcercamientoModel = new AcercamientoModel(); String NombreAcercamiento = TxtNombreAcercamiento.Text; String Descripcion = TxtDescripcion.Text == "" ? "-1" : TxtDescripcion.Text; @@ -953,30 +953,30 @@ public partial class CRM_Acercamiento : ClsPaginas int CveUsuarioIng = UsuarioActual.CveUsuario; - AcercaminetoModel.CveAcercamiento = CveAcercamiento; - AcercaminetoModel.CveContactoPrincipal = CveContactoPrincipal; - AcercaminetoModel.CveTipoProceso = CveTipoProceso; - AcercaminetoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar; - AcercaminetoModel.CveVendedor = CveVendedor; - AcercaminetoModel.CveMedioCaptacion = CveMedioCaptacion; - AcercaminetoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento; - AcercaminetoModel.NombreAcercamiento = NombreAcercamiento; - AcercaminetoModel.Descripcion = Descripcion; - AcercaminetoModel.Importe = Importe; - AcercaminetoModel.Comision = Comision; - AcercaminetoModel.Prioridad = Prioridad; - AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario; - AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; - AcercaminetoModel.FechaApertura = FechaApertura; - AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha; - AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero(); - AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo; + AcercamientoModel.CveAcercamiento = CveAcercamiento; + AcercamientoModel.CveContactoPrincipal = CveContactoPrincipal; + AcercamientoModel.CveTipoProceso = CveTipoProceso; + AcercamientoModel.CveEtapaProcesoActual = CveEtapaProcesoActualActualizar; + AcercamientoModel.CveVendedor = CveVendedor; + AcercamientoModel.CveMedioCaptacion = CveMedioCaptacion; + AcercamientoModel.CveProbabilidadAcercamiento = CveProbabilidadAcercamiento; + AcercamientoModel.NombreAcercamiento = NombreAcercamiento; + AcercamientoModel.Descripcion = Descripcion; + AcercamientoModel.Importe = Importe; + AcercamientoModel.Comision = Comision; + AcercamientoModel.Prioridad = Prioridad; + AcercamientoModel.CveUsuarioIng = UsuarioActual.CveUsuario; + AcercamientoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso; + AcercamientoModel.FechaApertura = FechaApertura; + AcercamientoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha; + AcercamientoModel.CvePS = DdlPS.SelectedValue.ToEntero(); + AcercamientoModel.CveRechazoMotivo = CveRechazoMotivo; - AcercaminetoModel.CveMedico = DdlMedico.SelectedValue.ToEntero(); - AcercaminetoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero(); - AcercaminetoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero(); + AcercamientoModel.CveMedico = DdlMedico.SelectedValue.ToEntero(); + AcercamientoModel.CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero(); + AcercamientoModel.CveTipoVenta = DdlTipoVenta.SelectedValue.ToEntero(); - if (cRMService.AcercamientoUpdate(AcercaminetoModel)) + if (cRMService.AcercamientoUpdate(AcercamientoModel)) { CveEtapaActual = CveEtapaProcesoActualActualizar; HdfEtapaSeleccionada.Value = CveEtapaProcesoActualActualizar.ToString(); @@ -1114,7 +1114,7 @@ public partial class CRM_Acercamiento : ClsPaginas String TituloCierre = DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveTipoEtapa = 4"); - AcercaminetoModel acercamiento = new AcercaminetoModel(); + AcercamientoModel acercamiento = new AcercamientoModel(); acercamiento.CveAcercamiento = CveAcercamiento; acercamiento.CveEtapaProcesoActual = CveEtapaCierre; acercamiento.CveRechazoMotivo = CveRechazoMotivo; diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs index ea0302fdd..1a50f1336 100644 --- a/CRM/EmpresaCRM.aspx.cs +++ b/CRM/EmpresaCRM.aspx.cs @@ -1821,7 +1821,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas if (tempDT.Rows.Count > 0) { - var AcercamientoModel = new AcercaminetoModel() + var AcercamientoModel = new AcercamientoModel() { CveEmpresaCRM = CveEmpresaCRM, CveContactoPrincipal = CveContactoPrincipal, diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 978a336d6..1636f8159 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1,5 +1,4 @@ <%@ Page Title="Compras - Registro de Facturas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" ValidateRequest="false" CodeFile="Compras.aspx.vb" Inherits="Compras_Compras" EnableEventValidation="false" %> - @@ -204,14 +203,14 @@
- <%-- + <%-- --%> - Proveedor: - <%--Proveedor:--%> - <%-- Proveedor:--%> + Proveedor: + <%--Proveedor:--%> + <%-- Proveedor:--%>
@@ -223,7 +222,7 @@
- Tipo: + Tipo:
@@ -318,7 +317,7 @@
- Descripción: + Descripción:
@@ -326,14 +325,14 @@
- Refacturación: + Refacturación:
- ¿Es No Deducible? + ¿Es No Deducible?
@@ -364,26 +363,26 @@
- RFC: + RFC:
- Días de Crédito: + Días de Crédito:
- Límite de Crédito: + Límite de Crédito:
- Crédito Disponible: + Crédito Disponible:
@@ -413,7 +412,7 @@
- Sucursal: + Sucursal:
@@ -422,7 +421,7 @@
- Estatus: + Estatus:

@@ -433,25 +432,21 @@
- Importe: + Importe:
- - - +
- Saldo: + Saldo:
- - - +
- Contabilizada: + Contabilizada:
<%----%> @@ -460,13 +455,13 @@
- Tipo Factura: + Tipo Factura:
- Validada SAT: + Validada SAT:
No @@ -475,19 +470,19 @@
- Capturó: + Capturó:
- F. Captura + F. Captura
- Tipo Compra: + Tipo Compra:
@@ -509,20 +504,20 @@
- Importación + Importación
- + Importación:
- Folio Garantía + Folio Garantía
@@ -530,6 +525,15 @@
+
+ Recolección +
+ + + + +
+
@@ -917,14 +921,13 @@ -
- +
-
+
- + @@ -954,7 +957,7 @@ - @@ -975,12 +978,9 @@ - - @@ -1184,7 +1184,7 @@ - + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index e92869286..f321aa17e 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1748,6 +1748,7 @@ Partial Class Compras_Compras DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6")) DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11")) + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlTipoCompra.Items.Add(New ListItem("Recolección", "14")) Case "E" DdlTipoComprobante.SelectedValue = "NC" DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) @@ -1760,6 +1761,7 @@ Partial Class Compras_Compras DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9")) DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11")) DdlTipoCompra.Items.Add(New ListItem("Garantía", "12")) + DdlTipoCompra.Items.Add(New ListItem("Recolección", "14")) Case "T" DdlTipoCompra.Items.Clear() DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9")) @@ -3398,7 +3400,7 @@ Partial Class Compras_Compras End Sub Private Sub CargaTiposAF() - ViewState("TmpDTTiposAF") = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) + ViewState("TmpDTTiposAF") = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).Copy() Dim Row As DataRow = DirectCast(ViewState("TmpDTTiposAF"), DataTable).NewRow() Row("CveTipoActivoFijo") = -1 : Row("TipoActivoFijo") = "Seleccione" DirectCast(ViewState("TmpDTTiposAF"), DataTable).Rows.InsertAt(Row, 0) @@ -4344,7 +4346,7 @@ Partial Class Compras_Compras UM.Dispose() PSS.Dispose() - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue = "12" Then 'cuando es garantía, debe de especificar la salida de almacen + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue.Contiene("12", "14") Then 'cuando es garantía, debe de especificar la salida de almacen If Not GvInv.HeaderRow.FCCheckBox("cbAll").Checked OrElse GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToEntero <= 0 Then Alert("No ha especificado la salida de almacen en la garantía.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -5279,12 +5281,21 @@ Partial Class Compras_Compras Dim indice As Integer = 0 Dim ImporteConcepto As Decimal = 0 Dim tCveFolioGarantia As Integer = -1 + Dim tCveEntregaAlmacen As Integer = -1 Dim CveConceptoMovimiento As Integer = 2 - 'apoyo logistico/garantia - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then 'garantía - CveConceptoMovimiento = 13 - tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es empresa acumuladora + 'apoyo logistico/garantia + If DdlTipoCompra.SelectedValue = "12" Then 'garantía + CveConceptoMovimiento = 13 + tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero + End If + 'recolección + If DdlTipoCompra.SelectedValue = "14" Then 'recolección + CveConceptoMovimiento = 42 + tCveEntregaAlmacen = DdlRecoleccion.SelectedValue.ToEntero + End If End If + If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then For Each tCveAlmacen As Integer In ListAlmacenes @@ -5296,7 +5307,7 @@ Partial Class Compras_Compras Dim fecha As Date = TxtFecha.Text.ToDate If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS() - CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2") + CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2", CveEntregaAlmacen:=tCveEntregaAlmacen) If CveMovimientoInventario <= 0 Then ErrorMovInv = True @@ -6311,7 +6322,7 @@ Partial Class Compras_Compras Dim RegistroCuentaPuente As Boolean = False 'NC CON PRODUCTOS - CUENTA PUENTE - If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12") Then + If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then RegistraConcepto225 = True End If @@ -6332,7 +6343,7 @@ Partial Class Compras_Compras CveMovimientoDevolucion = Devolucion.CveMovimiento End If 'cuando es garantía. - If DdlTipoCompra.SelectedValue = "12" Then + If DdlTipoCompra.SelectedValue.Contiene("12", "14") Then ConceptoContabilizacionNC = 259 End If @@ -10217,7 +10228,7 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.UsaAC Then e.Row.FCCheckBox("cbInv").Enabled = False Dim StrTipo As String = "CveTipoAlmacen IN (1,2,7,14,19)" - If DdlTipoCompra.SelectedValue.Contiene("9", "12") Then StrTipo = "CveTipoAlmacen IN (21)" + If DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then StrTipo = "CveTipoAlmacen IN (21)" If EsDevolucionApoyoLogistico Then StrTipo = "CveTipoAlmacen = 27" e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo) @@ -10410,14 +10421,60 @@ Partial Class Compras_Compras DdlTipoTransaccionCaja.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1")) End Sub + Private Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged + CargaCuentas() + + UpContado.Update() + End Sub + + Private Sub DdlTipoTransaccionCaja_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccionCaja.SelectedIndexChanged + CargaCuentas() + + UpContado.Update() + End Sub + Private Sub CargaCuentas() + + + + Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) + + 'cuando es layout + If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then + dt = dt.FiltraParametros("UsaLayout = 1") + End If + + If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then + dt = dt.FiltraParametros("UsaLayoutGrupos = 1") + End If + + + DdlCuenta.SelectedValue = Nothing DdlCuenta.Items.Clear() - DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoCuenta <> 1")) + DdlCuenta.ClearSelection() + + DdlCuenta.DataSource = dt.FiltraParametros(String.Format("CveTipoCuenta <> 1")) DdlCuenta.DataBind() DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) + + Dim dtCaja As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) + + + If DdlTipoTransaccionCaja.SelectedValue.ToEntero = 9 Then + dtCaja = dtCaja.FiltraParametros("UsaLayout = 1") + End If + + If DdlTipoTransaccionCaja.SelectedValue.ToEntero = 17 Then + dtCaja = dtCaja.FiltraParametros("UsaLayoutGrupos = 1") + End If + + + DdlCuentaCaja.SelectedValue = Nothing DdlCuentaCaja.Items.Clear() - DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoCuenta = 1")) + DdlCuentaCaja.ClearSelection() + DdlCuentaCaja.Items.Clear() + DdlCuentaCaja.DataSource = dtCaja.FiltraParametros(String.Format("CveTipoCuenta = 1")) DdlCuentaCaja.DataBind() DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -14228,7 +14285,7 @@ Partial Class Compras_Compras If DrTipoGasto IsNot Nothing Then CveTipoGasto = DrTipoGasto("CveTipoGasto").ToString.ToEntero TipoGasto = DrTipoGasto("TipoGasto").ToString - End If + End IfclsVa End If AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False, @@ -15778,6 +15835,7 @@ Partial Class Compras_Compras End Sub Private Sub OriginalesVisible(Accion As Boolean) tdT0.Visible = Accion + trTotalOriginal.Visible = Accion tdT1.Visible = Accion tdT2.Visible = Accion tdT3.Visible = Accion @@ -15796,7 +15854,7 @@ Partial Class Compras_Compras 'VALIDA IMPORTES 'VALIDA TOTAL CON LOS IMPORTES TOTALES - Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double + Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Decimal Dim Amortizacion As Decimal = 0 Dim TieneAmortizacion As Boolean = False @@ -15813,26 +15871,25 @@ Partial Class Compras_Compras TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString End If - - TempSubTotal = TxtSubTotal.Text.ToDouble + TempSubTotal = TxtSubTotal.Text.ToDecimal SubTotalOriginal = TxtSubTotal.Text.ToDecimal SubTotal2Original = TxtSubTotal2.Text.ToDecimal - TempDescuentos = TxtDescuento.Text.Trim.ToDouble + Amortizacion + TempDescuentos = TxtDescuento.Text.Trim.ToDecimal + Amortizacion TempSubTotal2 = TempSubTotal - TempDescuentos - TempIVA = TxtIVA.Text.ToDouble - TempIEPS = TxtIEPS.Text.ToDouble - TempRetIVA = TxtRetIVA.Text.ToDouble - TempRetISR = TxtRetISR.Text.ToDouble - TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble - Amortizacion, 2) - DifTotales = TxtTotal.Text.ToDouble - TempTotal + TempIVA = TxtIVA.Text.ToDecimal + TempIEPS = TxtIEPS.Text.ToDecimal + TempRetIVA = TxtRetIVA.Text.ToDecimal + TempRetISR = TxtRetISR.Text.ToDecimal + TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDecimal - Amortizacion, 2) + DifTotales = TxtTotal.Text.ToDecimal - TempTotal Dim DiferenciaPermitida As Decimal = 0.6D If Math.Abs(DifTotales) > DiferenciaPermitida Then Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia) EsValido = False ElseIf DifTotales <> 0 Then - TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString - TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + DifTotales).ToString + TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDecimal + DifTotales).ToString + TxtSubTotal.Text = (TxtSubTotal.Text.ToDecimal + DifTotales).ToString SubTotalOriginal = TxtSubTotal.Text.ToDecimal SubTotal2Original = TxtSubTotal2.Text.ToDecimal End If @@ -16691,7 +16748,7 @@ Partial Class Compras_Compras If DrPS IsNot Nothing Then Row("PSCodigo") = If(PSCodigo = "", DrPS("PSCodigo").ToString, PSCodigo) Row("CveMetodoInventario") = DrPS("Inv_CveMetodoInventario").ToString.ToEntero - If DdlTipoCompra.SelectedValue = "12" AndAlso DrPS("AplicaSerie").ToString = "True" Then + If Not DdlTipoCompra.SelectedValue.Contiene("12", "14") AndAlso DrPS("AplicaSerie").ToString = "True" Then Row("CveMetodoInventario") = "1" End If Else @@ -18792,11 +18849,11 @@ Partial Class Compras_Compras If CvePrePoliza > 0 Then - If CveMoneda = 2 Then - ImporteME = (DiferenciaInvOC / TCInvOC).RoundAD() - ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).RoundAD() + If CveMoneda = 2 Then + ImporteME = (DiferenciaInvOC / TCInvOC).RoundAD() + ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).RoundAD() - Dim DifImporte As Decimal = DiferenciaInvOC - (ImporteME + ImporteMEComp) + Dim DifImporte As Decimal = DiferenciaInvOC - (ImporteME + ImporteMEComp) If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DiferenciaInvOCCosto, DiferenciaInvOCCosto, 177, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then Retorno = False @@ -18804,12 +18861,8 @@ Partial Class Compras_Compras End If If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, ImporteME, 228, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, ImporteMEComp, 229, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then - If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DifImporte, DifImporte, 69, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=DifImporte, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle, CveClasificacion:=CveClasificacionCostoOC, CveSubProyecto:=CveSubProyecto) Then - Retorno = False - Exit For - End If - Else + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, ImporteMEComp, 229, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then + If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DifImporte, DifImporte, 69, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteME:=DifImporte, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle, CveClasificacion:=CveClasificacionCostoOC, CveSubProyecto:=CveSubProyecto) Then Retorno = False Exit For End If @@ -18818,6 +18871,10 @@ Partial Class Compras_Compras Exit For End If Else + Retorno = False + Exit For + End If + Else '2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoCosto, DiferenciaInvOCCosto, DiferenciaInvOCCosto, 177, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionCostoOC) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, DiferenciaInvOC, 176, SerieFolio, ConceptoPartida, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, CveOCDetalle:=CveOCDetalle, CveColectiva:=CveColectiva) Then @@ -18825,22 +18882,22 @@ Partial Class Compras_Compras Exit For End If Else - Retorno = False - Exit For - End If - End If - If Not OC.UpdateOrdenCompraDetalleAjuste(CveOrdenCompra, CveOCDetalle, PUCompra, UsuarioActual.CveUsuario) Then Retorno = False Exit For End If + End If + If Not OC.UpdateOrdenCompraDetalleAjuste(CveOrdenCompra, CveOCDetalle, PUCompra, UsuarioActual.CveUsuario) Then + Retorno = False + Exit For + End If - If Retorno Then - If Not OCBitacora.AddEventoBitacora(String.Format("Se registró una póliza de ajuste por cambio de precio en producto: {0}", PS), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOC:=CveOrdenCompra) Then - Retorno = False - End If + If Retorno Then + If Not OCBitacora.AddEventoBitacora(String.Format("Se registró una póliza de ajuste por cambio de precio en producto: {0}", PS), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOC:=CveOrdenCompra) Then + Retorno = False End If End If End If + End If Next If Retorno AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then Alert("No se procesaron las diferencias en precio.", TipoMensaje.MsgAdvertencia) @@ -18911,23 +18968,40 @@ Partial Class Compras_Compras Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs) - If DdlTipoCompra.SelectedValue.ToEntero.Contiene(9, 10, 12) Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora + If DdlTipoCompra.SelectedValue.Contiene("9", "10", "12") Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada - If DdlTipoCompra.SelectedValue = "12" AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora - divFolioGarantia.Visible = True - Using objAcum As New ClsAcumuladores - If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then - DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC") - DdlFolioGarantia.DataBind() - End If - End Using + If DdlTipoCompra.SelectedValue = "12" Then 'cuando es emp acumuladora + divFolioGarantia.Visible = True + Using objAcum As New ClsAcumuladores + If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then + DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC") + DdlFolioGarantia.DataBind() + End If + End Using + End If + + 'cambia si hay ps con uso de serie + For Each dr As DataRow In TmpDT.Rows + dr("CveMetodoInventario") = 1 + Next + CargaGvInv() + Else + If DdlTipoCompra.SelectedValue.Contiene("14") Then 'Recolección + divRecoleccion.Visible = True + Using objAcum As New ClsGenerales + If objAcum.GetInvEntregaAlmacenRuta(-1, MinFecha, MaxFecha, UsuarioActual.Empresa.CveEmpresa, 2, Estatus:=0) Then + DdlRecoleccion.DataSource = objAcum.DtResultados.FiltraParametros("", "Referencia DESC") + DdlRecoleccion.DataBind() + End If + End Using + 'cambia si hay ps con uso de serie + For Each dr As DataRow In TmpDT.Rows + dr("CveMetodoInventario") = 1 + Next + CargaGvInv() + End If End If - - 'cambia si hay ps con uso de serie - For Each dr As DataRow In TmpDT.Rows - dr("CveMetodoInventario") = 1 - Next - CargaGvInv() End If End Sub @@ -19524,11 +19598,7 @@ Partial Class Compras_Compras Dim ProcesoError As Boolean = True If FechaCompraOriginal <> TxtFecha.Text.ToDate Then - - Dim ObjCompra As New ClsCompras - ObjCompra.IniciaTransacSQL() - Dim ObjEventos As New ClsOIEventos(ObjCompra.IniciaTransacSQL()) If ObjEventos.AddEventoBitacora($"Cambio de Fecha de compra de { FechaCompraOriginal.ToString("dd/MM/yyyy")} a {TxtFecha.Text}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then @@ -19543,7 +19613,6 @@ Partial Class Compras_Compras ProcesoError = True End If - If Not ProcesoError Then ObjCompra.Commit() FechaCompraOriginal = TxtFecha.Text.ToDate @@ -19558,11 +19627,8 @@ Partial Class Compras_Compras CargaEventoBitacora() UPEventoBitacora.Update() End If - - End If - End Sub diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index a152c3fcc..e4ad33fc3 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3390,14 +3390,12 @@ Partial Class PopUpVerFactura If CveCliente = 819998 Then RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc" - - If Consola <> "-1" And Consola.Trim.Length > 0 Then - RutaFormato = "{0}Formatos\Consola.rdlc" - params.Add(New ReportParameter("Consola", Consola)) - End If - End If + If Consola <> "-1" And Consola.Trim.Length > 0 Then + RutaFormato = "{0}Formatos\Consola.rdlc" + params.Add(New ReportParameter("Consola", Consola)) + End If @@ -3426,6 +3424,8 @@ Partial Class PopUpVerFactura + + End If ObjVentas.Dispose() diff --git a/Empresas/186/Formatos/Factura.mrt b/Empresas/186/Formatos/Factura.mrt index e0b6b1496..b65cacf34 100644 --- a/Empresas/186/Formatos/Factura.mrt +++ b/Empresas/186/Formatos/Factura.mrt @@ -85,7 +85,7 @@ - + ReportParameters,ClienteCodigo,ClienteCodigo,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0035_4a879e0a10d464ba2f01e0372efb9ca ReportParameters,ClienteTelefono,ClienteTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0036_22a3a61b2f247a6ab5d7dc6c66568db ReportParameters,ClienteContacto,ClienteContacto,ReportParameter1,System.String,,False,False,True,False,,_x0035_c52eccfce4d4681a1c62017e690c7c1 @@ -177,6 +177,8 @@ ReportParameters,Procedimiento,Procedimiento,,System.String,,False,False,False,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0033_83e3da2e960473d89a38fac783c32ff ReportParameters,Documentacion,Documentacion,,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0033_12f72ea65ee44119514073452da3478 ReportParameters,FechaCirugia,FechaCirugia,,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0039_11bc963c59b4b6cb4b0ce36a86c40e1 + ReportParameters,Paciente,Paciente,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ + ReportParameters,Episodio,Episodio,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ EngineV2 @@ -394,7 +396,7 @@ Tipo de Cambio: {TipoCambio} Transparent True - 4.8,0,8.88,1.55 + 4.8,0,8.88,2.35 Myriad Pro,8,Regular,Point,False,0 @@ -405,9 +407,9 @@ Tipo de Cambio: {TipoCambio} SMS SMART MEDICAL SOLUTIONS SSM1908213A0 NEBRASKA 157, Col. NAPOLES -BENITO JUAREZ -C.P. 03810 -CIUDAD DE MEXICO +BENITO JUAREZ, C.P. 03810 +CIUDAD DE MEXICO +Teléfono: +52 551 563 3271 Correo:support@smsmedicalsolutions.com [0:0:0] ,,,,WordWrap=True,A=0 Expression @@ -429,14 +431,9 @@ CIUDAD DE MEXICO Cliente: {ClienteCodigo} - {ClienteNombre}.<br> Sucursal: {ClienteSucursal}. &nbsp; RFC: {ClienteRFC}.<br> Calle:{ClienteCalle} {ClienteNoExt}. Colonia: {ClienteColonia}.&nbsp; Ciudad: {ClienteCiudad}.<br> -Estado: {ClienteEstado}.<br> Municipio y/o Delegación: {ClienteMunicipio}.&nbsp; CP: {ClienteCP}.<br> -Regimen Fiscal Receptor: {ClienteRegimenFiscal}.<br> -<b> -{IIF(Medico != "", "Médico:" + Medico + ".<br>" , "")} -{IIF(Medico != "", "Procedimiento:" + Procedimiento + ".<br>", "")} -{IIF(Medico != "", "Fecha Cirugia:" + FechaCirugia + ".<br>", "")} -{IIF(Documentacion != "", "Proveedor:" + Documentacion + ".", "")} -<b/> +Estado: {ClienteEstado}.<br> Municipio y/o Delegación: {ClienteMunicipio}.&nbsp; CP: {ClienteCP}.<br>Regimen Fiscal Receptor: {ClienteRegimenFiscal}.<br> +{IIF(Documentacion != "", "Proveedor:" + Documentacion + ".", "")}<br> +{IIF(Medico != "", "Médico:" + Medico + "." , "")}<br>{IIF(Medico != "", "Procedimiento:" + Procedimiento + ".", "")} Black ,,,,WordWrap=True,A=0 Wysiwyg @@ -452,7 +449,7 @@ Regimen Fiscal Receptor: {ClienteRegimenFiscal}.<br> Transparent True - 0,20.88,21.1,12 + 0,26.36,21.1,12 Transparent @@ -1108,8 +1105,8 @@ Sello digital del SAT: Transparent - 0,9.12,21.1,5.8 - + 0,9.12,21.1,7 + Bottom;Transparent;5;Solid;False;4;Black;True Transparent @@ -1365,30 +1362,12 @@ Sello digital del SAT: Black Expression - - Transparent - True - 0,2.28,21.05,0.88 - - - Myriad Pro,6.5,Bold,Point,False,0 - Center - 2,2,2,2 - Textbox26 - - - OnlyLastPage - "REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS,YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA NI SE ACEPTARAN DEVOLUCIONES DE MERCANCIA -DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" - Black - Expression - - + Top, Bottom;[156:195:229];5;Solid;False;4;[227:108:9] Transparent - 0.2,3.48,20.6,2.2 + 0.2,4.68,20.6,2.2 - + Transparent 0.2,0.8,7,0.4 @@ -1397,12 +1376,12 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" 0,0,0,0 Text11 - + Tipo Operacion:{CETipoOperacion} Black Expression - + Transparent 0.2,1.2,7,0.4 @@ -1411,12 +1390,12 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" 0,0,0,0 Text12 - + Incoterm:{CEIncoterm} Black Expression - + Transparent 7.2,0.8,6.6,0.4 @@ -1425,12 +1404,12 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" 0,0,0,0 Text14 - + Clave Pedimento:{CEClavePedimento} Black Expression - + Transparent 7.2,1.2,6.6,0.4 @@ -1439,12 +1418,12 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" 0,0,0,0 Text15 - + Num Reg IdTrib:{CEId} Black Expression - + Transparent 5.2,0.2,10,0.4 @@ -1454,12 +1433,12 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" 0,0,0,0 Text16 - + COMERCIO EXTERIOR Black Expression - + Transparent 13.8,0.8,6.6,0.4 @@ -1468,7 +1447,7 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" 0,0,0,0 Text17 - + Tipo Cambio:{Format("${0:N4} MXN", CETipoCambio)} Black Expression @@ -1483,7 +1462,7 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" - + [156:195:229] True 15.8,1.28,5.29,0.14 @@ -1497,6 +1476,40 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" OnlyLastPage Black + + Transparent + 0,2.68,14.6,0.8 + + + Myriad Pro,9,Regular,Point,False,0 + 179a957f89d04921b856805a4c2e9d49 + 0,0,0,0 + Text9 + + + Paciente: {Paciente} +Episodio: {Episodio} + Black + Expression + + + Transparent + True + 0,3.68,20.85,0.88 + + + Myriad Pro,6.5,Bold,Point,False,0 + Center + 2,2,2,2 + Textbox26 + + + OnlyLastPage + "REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS,YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA NI SE ACEPTARAN DEVOLUCIONES DE MERCANCIA +DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" + Black + Expression + @@ -1529,8 +1542,8 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" Factura 1/18/2024 9:39:09 AM 7/11/2022 2:49:19 PM - C:\inetpub\wwwSIGGIT\Empresas\186\Formatos\Factura.mrt - 728378886519409195a7506a0b6d6331 + Factura.mrt + 4a902ea660c34d0baeae36e92ea35edd Factura Centimeters 2022.4.5.0 diff --git a/Empresas/186/Formatos/Pedido.mrt b/Empresas/186/Formatos/Pedido.mrt index aa5dd3c6a..f009bae59 100644 --- a/Empresas/186/Formatos/Pedido.mrt +++ b/Empresas/186/Formatos/Pedido.mrt @@ -54,7 +54,7 @@ - + ReportParameters,ClienteCodigo,ClienteCodigo,ReportParameter1,System.String,_x0030_2,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0035_4a879e0a10d464ba2f01e0372efb9ca ReportParameters,ClienteTelefono,ClienteTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0036_22a3a61b2f247a6ab5d7dc6c66568db ReportParameters,ClienteContacto,ClienteContacto,ReportParameter1,System.String,,False,False,True,False,,_x0035_c52eccfce4d4681a1c62017e690c7c1 @@ -133,10 +133,12 @@ ReportParameters,TipoRelacionTexto,TipoRelacionTexto,ReportParameter1,System.String,,False,False,True,False,,_x0034_17b8382f8e448a5b21018e50590835b ReportParameters,FolioFiscalRelacionado,FolioFiscalRelacionado,ReportParameter1,System.String,,False,False,True,False,,_x0037_0c2d36e39d1464d821ac353ccaa2dcd ReportParameters,ClienteDireccion,ClienteDireccion,ReportParameter1,System.String,,False,False,True,False,,f18e5fd820754666994a9d3f995d50a7 - ReportParameters,Documentacion,Documentacion,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C__x002F_StiSerializer_x003E_ - ReportParameters,Medico,Medico,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C__x002F_StiSerializer_x003E_ - ReportParameters,Procedimiento,Procedimiento,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C__x002F_StiSerializer_x003E_ - ReportParameters,FechaCirugia,FechaCirugia,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C__x002F_StiSerializer_x003E_ + ReportParameters,Documentacion,Documentacion,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ + ReportParameters,Medico,Medico,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ + ReportParameters,Procedimiento,Procedimiento,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ + ReportParameters,FechaCirugia,FechaCirugia,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ + ReportParameters,Paciente,Paciente,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ + ReportParameters,Episodio,Episodio,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ EngineV2 @@ -392,7 +394,7 @@ Vendedor: {VendedorNombre} Text8 - PEDIDO + PRE-REMISION Black Expression @@ -518,7 +520,7 @@ Fecha Cirugia: {FechaCirugia} Transparent 0,0.4,21,0.5 - + [156:195:229] True @@ -549,25 +551,10 @@ Fecha Cirugia: {FechaCirugia} UNIDAD [255:255:255] - + [156:195:229] True - 3.09,0.03,1.97,0.5 - - - Microsoft Sans Serif,9,Bold,Point,False,0 - Center - 2,2,2,2 - Textbox29 - - - CLAVE SAT - [255:255:255] - - - [156:195:229] - True - 5.06,0.03,9.08,0.5 + 3.06,0.03,11.08,0.5 Microsoft Sans Serif,9.5,Bold,Point,False,0 @@ -579,7 +566,7 @@ Fecha Cirugia: {FechaCirugia} DESCRIPCIÓN [255:255:255] - + [156:195:229] True 15.6,0.03,1.5,0.5 @@ -594,7 +581,7 @@ Fecha Cirugia: {FechaCirugia} DESC. [255:255:255] - + [156:195:229] True 17.1,0.03,1.57,0.5 @@ -609,7 +596,7 @@ Fecha Cirugia: {FechaCirugia} IVA [255:255:255] - + [156:195:229] True 18.62,0.03,2.51,0.5 @@ -624,7 +611,7 @@ Fecha Cirugia: {FechaCirugia} TOTAL [255:255:255] - + [156:195:229] True 14,0.03,1.7,0.5 @@ -647,13 +634,13 @@ Fecha Cirugia: {FechaCirugia} - + Transparent True 0,1.7,21,0.42 - - + + Transparent True 0,0,1.4,0.37 @@ -665,14 +652,14 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Cantidad1 - + {DtDetalle.Cantidad} Black - + n2 - + Transparent True 1.4,0,1.69,0.37 @@ -683,30 +670,15 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 UM - - {DtDetalle.UMCalculada} + + {DtDetalle.UM} Black DataColumn - + Transparent True - 3.09,0,1.97,0.37 - - - Myriad Pro,7.5,Regular,Point,False,0 - True - 2,2,2,2 - SATClaveProdServ - - - {DtDetalle.SATClaveProdServ} - Black - - - Transparent - True - 5.06,0,8.88,0.37 + 3.06,0,10.88,0.37 Myriad Pro,7.5,Regular,Point,False,0 @@ -714,12 +686,12 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 PS - + {DtDetalle.PSCalculado} Black DataColumn - + Transparent True 13.94,0,1.86,0.37 @@ -731,14 +703,14 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 PU - + {DtDetalle.PU} Black - + #,0.00;-#,0.00;'-' - + Transparent True 15.8,0,1.3,0.37 @@ -750,14 +722,14 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Descuento2 - + {DtDetalle.Descuento} Black - + #,0.00;-#,0.00;'-' - + Transparent True 17.1,0,1.57,0.37 @@ -769,14 +741,14 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 ImporteIVA - + {DtDetalle.ImporteIVA} Black - + #,0.00;-#,0.00;'-' - + Transparent True 18.87,0,2.22,0.42 @@ -788,10 +760,10 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 TiempoEntrega - + {DtDetalle.Total} Black - + #,0.00 DataColumn @@ -806,24 +778,24 @@ Fecha Cirugia: {FechaCirugia} - + Transparent - 0,2.92,21,2.2 - - + 0,2.92,21,3.4 + + Bottom;Transparent;5;Solid;False;4;Black;True Transparent True True 15.8,0.38,5.2,0.65 - + None;[247:150:70];1;Solid;False;8;[247:150:70] Transparent 0,0.4,5.2,0.4 - + Transparent True 0,0,1.48,0.37 @@ -834,13 +806,13 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Text2 - + {DtTotales.ImpuestoLocal} Black DataColumn Bottom - + Transparent True 1.4,0,3.88,0.37 @@ -851,10 +823,10 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Text22 - + {DtTotales.Importe} Black - + 2 , 1 @@ -863,7 +835,7 @@ Fecha Cirugia: {FechaCirugia} DataColumn Bottom - + [156:195:229] True 0.2,0.3,5.09,0.14 @@ -873,7 +845,7 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Text3 - + OnlyLastPage Black @@ -885,7 +857,7 @@ Fecha Cirugia: {FechaCirugia} DataBand1 - + @@ -894,9 +866,9 @@ Fecha Cirugia: {FechaCirugia} True Panel3 - + - + [156:195:229] True 0,0.08,21.09,0.14 @@ -906,11 +878,11 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Text21 - + OnlyLastPage Black - + Transparent True True @@ -923,22 +895,22 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Text6 - + OnlyLastPage {ImporteLetra} Black Expression - + Transparent True 0,0.28,5.2,1 - + Transparent 0,0.4,5.2,0.6 - + [156:195:229] True 0,0,2,0.5 @@ -949,11 +921,11 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Textbox25 - + IMPUESTO [255:255:255] - + [156:195:229] True 2,0,1.47,0.5 @@ -964,11 +936,11 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Textbox19 - + TASA [255:255:255] - + [156:195:229] True 3.47,0,1.63,0.5 @@ -979,7 +951,7 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Textbox33 - + IMPORTE [255:255:255] @@ -988,14 +960,14 @@ Fecha Cirugia: {FechaCirugia} HeaderBand2 - + - + Transparent 0,1.8,5.2,0 - + Transparent True 0,0,2,0.37 @@ -1007,11 +979,11 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Cantidad2 - + {DtImpuestos.Impuesto} Black - + Transparent True 2,0,1.48,0.37 @@ -1023,11 +995,11 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 UM2 - + {DtImpuestos.tasa} Black - + Transparent True 3.48,0,1.62,0.37 @@ -1039,10 +1011,10 @@ Fecha Cirugia: {FechaCirugia} 2,2,2,2 Codigo2 - + {DtImpuestos.Importe} Black - + #,0.00 @@ -1053,7 +1025,7 @@ Fecha Cirugia: {FechaCirugia} DataBand8 - + OnlyLastPage @@ -1062,10 +1034,10 @@ Fecha Cirugia: {FechaCirugia} Panel2 - + OnlyLastPage - + Transparent 5.2,0.28,10.6,1 @@ -1074,11 +1046,27 @@ Fecha Cirugia: {FechaCirugia} 0,0,0,0 Text4 - + {Observaciones} Black Expression + + Transparent + 0,2.48,13.2,0.8 + + + Myriad Pro,9,Regular,Point,False,0 + 1891a87e013d48868bd75b5710529e30 + 0,0,0,0 + Text13 + + + Paciente: {Paciente} +Episodio: {Episodio} + Black + Expression + @@ -1127,7 +1115,7 @@ Fecha Cirugia: {FechaCirugia} 10/11/2022 8:18:55 PM 7/11/2022 2:49:19 PM Pedido.mrt - cb0c4a26c29e4eaea6e5fdce45abd03e + 0cc1edf03db74e0d9e9a189fff847c85 Report Centimeters 2022.4.5.0 diff --git a/Empresas/186/Formatos/Remision.mrt b/Empresas/186/Formatos/Remision.mrt index e29b95e86..71ce5fc92 100644 --- a/Empresas/186/Formatos/Remision.mrt +++ b/Empresas/186/Formatos/Remision.mrt @@ -54,7 +54,7 @@ - + ReportParameters,ClienteCodigo,ClienteCodigo,ReportParameter1,System.String,_x0030_2,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_,_x0035_4a879e0a10d464ba2f01e0372efb9ca ReportParameters,ClienteTelefono,ClienteTelefono,ReportParameter1,System.String,,False,False,True,False,,_x0036_22a3a61b2f247a6ab5d7dc6c66568db ReportParameters,ClienteContacto,ClienteContacto,ReportParameter1,System.String,,False,False,True,False,,_x0035_c52eccfce4d4681a1c62017e690c7c1 @@ -134,6 +134,8 @@ ReportParameters,FolioFiscalRelacionado,FolioFiscalRelacionado,ReportParameter1,System.String,,False,False,True,False,,_x0037_0c2d36e39d1464d821ac353ccaa2dcd ReportParameters,ClienteDireccion,ClienteDireccion,ReportParameter1,System.String,,False,False,True,False,,f18e5fd820754666994a9d3f995d50a7 ReportParameters,Documentacion,Documentacion,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ + ReportParameters,Paciente,Paciente,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ + ReportParameters,Episodio,Episodio,ReportParameter1,System.String,,False,False,True,False,_x003C__x003F_xml_x0020_version_x003D__x0022_1.0_x0022__x0020_encoding_x003D__x0022_utf-16_x0022__x0020_standalone_x003D__x0022_yes_x0022__x003F__x003E__x003C_StiSerializer_x0020_version_x003D__x0022_1.02_x0022__x0020_type_x003D__x0022_Net_x0022__x0020_application_x003D__x0022_State_x0022__x003E__x003C_DateTimeType_x003E_DateAndTime_x003C__x002F_DateTimeType_x003E__x003C_SortDirection_x003E_None_x003C__x002F_SortDirection_x003E__x003C_CheckedColumn_x003E_null_x003B__x003C__x002F_CheckedColumn_x003E__x003C_BindingVariable_x0020_isNull_x003D__x0022_true_x0022__x0020__x002F__x003E__x003C_Keys_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_Values_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C_CheckedStates_x0020_isList_x003D__x0022_true_x0022__x0020_count_x003D__x0022_0_x0022__x0020__x002F__x003E__x003C__x002F_StiSerializer_x003E_ EngineV2 @@ -802,8 +804,8 @@ Vendedor: {VendedorNombre} Transparent - 0,2.92,21,2.2 - + 0,2.92,21,4.6 + Bottom;Transparent;5;Solid;False;4;Black;True Transparent @@ -1073,6 +1075,22 @@ Vendedor: {VendedorNombre} Black Expression + + Transparent + 0,2.48,10.6,1 + + + Myriad Pro,9,Regular,Point,False,0 + fca703f575e74a9f8bc6628424c9a960 + 0,0,0,0 + Text13 + + + Paciente: {Paciente} +Episodio: {Episodio} + Black + Expression + @@ -1120,8 +1138,8 @@ Vendedor: {VendedorNombre} Report 10/11/2022 8:18:55 PM 7/11/2022 2:49:19 PM - C:\inetpub\WWWSigGit\Empresas\186\Formatos\Remision.mrt - a4badd41106c4719ac060f1e52338936 + Remision.mrt + 49b2dec77fe542ea952b501bf54fafb1 Report Centimeters 2022.4.5.0 diff --git a/General/SaldosIniciales.aspx b/General/SaldosIniciales.aspx index 55ac5080c..abcd818cb 100644 --- a/General/SaldosIniciales.aspx +++ b/General/SaldosIniciales.aspx @@ -42,6 +42,8 @@ + + diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 25aa7506c..ad5eccb24 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -225,7 +225,7 @@ Partial Class General_SaldosIniciales - ElseIf RblFormato.SelectedValue = "3" Or RblFormato.SelectedValue = "4" Then + ElseIf RblFormato.SelectedValue = "3" Or RblFormato.SelectedValue = "4" Or RblFormato.SelectedValue = "17" Then If Not dt.Columns(0).ColumnName = "Sucursal" Then Alert("El nombre de la primera columna debe ser 'Sucursal'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub @@ -293,6 +293,16 @@ Partial Class General_SaldosIniciales Exit Sub End If + If Not dt.Columns(15).ColumnName = "Folio Fiscal" Then + Alert("El nombre de la decimosexta columna debe ser 'Folio Fiscalo'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + + If Not dt.Columns(16).ColumnName = "PorcentajeIVA" Then + Alert("El nombre de la decimoséptima columna debe ser 'PorcentajeIVA'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + 'If RblFormato.SelectedValue = "4" Then ' If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then ' Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError) @@ -305,6 +315,31 @@ Partial Class General_SaldosIniciales ' End If 'End If + If RblFormato.SelectedValue = "17" Then + + + If Not dt.Columns(17).ColumnName = "Cantidad" Then + Alert("El nombre de la Decimoctava columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + + If Not dt.Columns(18).ColumnName = "PU" Then + Alert("El nombre de la Decimonovena columna debe ser 'PU'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + + If Not dt.Columns(19).ColumnName = "IVA" Then + Alert("El nombre de la Vigésima columna debe ser 'IVA'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + + + If Not dt.Columns(20).ColumnName = "IEPS" Then + Alert("El nombre de la Vigésimo primera columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError) + Exit Sub + End If + + End If ElseIf RblFormato.SelectedValue = "5" Then @@ -1571,7 +1606,7 @@ Partial Class General_SaldosIniciales #End Region 'C L I E N T E S - F A C T U R A S - ElseIf RblFormato.SelectedValue = "4" Then + ElseIf RblFormato.SelectedValue = "4" Or RblFormato.SelectedValue = "17" Then #Region "C L I E N T E S - F A C T U R A S" @@ -1598,12 +1633,13 @@ Partial Class General_SaldosIniciales Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero() + If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True ' If Not CveSucursal > 0 Then Alert("No se encontró la sucursal.", TipoMensaje.MsgError) : ErrorVentas = True If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorVentas = True Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - + Dim CountRow As Integer = 1 For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'") Dim TipoDocto As String = Row("Tipo Documento").ToString().Trim @@ -1626,7 +1662,9 @@ Partial Class General_SaldosIniciales Dim CveMoneda As Integer = 1 Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString(), "") Dim CveVendedor As Integer = 0 + Dim IEPS As Decimal = 0 'Row("IEPS").ToString().ToDecimal + Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString().ToEntero() Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString(), "") Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString().ToDecimal, 4), 0) @@ -1640,6 +1678,45 @@ Partial Class General_SaldosIniciales Dim Folio2 As String = "" ' Row("Folio2").ToString() Dim CodCliente As String = "" 'Row("CodCliente2").ToString() + + Dim IEPSDetalle As Decimal = 0 + Dim CantidadDetalle As Decimal = 0 + Dim PUDetalle As Decimal = 0 + Dim IVADetalle As Decimal = 0 + + If RblFormato.SelectedValue = "17" Then + + Dim CodigoDetalle As String = Row("Codigo").ToString + If CodigoDetalle.Trim.Length > 0 Then + Dim DrDetalles As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo = {CodigoDetalle}") + + If DrDetalles IsNot Nothing Then + CvePS = DrDetalles("CvePS").ToString().ToEntero() + CveUnidadMedida = DrDetalles("CveUnidadMedida").ToString().ToEntero() + CveClasificacion = DrDetalles("CveClasificacion").ToString().ToEntero() + Else + Alert($"El código del producto no se encontro, error en registro {CountRow}") + ErrorVentas = True + End If + + Else + Alert($"El código es requerido, error en registro {CountRow}") + ErrorVentas = True + End If + + + IEPSDetalle = Row("IEPS").ToString.ToDecimal + CantidadDetalle = Row("Cantidad").ToString.ToDecimal + PUDetalle = Row("PU").ToString.ToDecimal + IVADetalle = Row("IVA").ToString.ToDecimal + + If CantidadDetalle = 0 Then + Alert($"No se especifico la cantidad, error en registro {CountRow}") + ErrorVentas = True + End If + + End If + If dt.Columns.Contains("Cliente Sucursal") AndAlso Row("Cliente Sucursal").ToString() <> "" Then Dim ObjCliente As New ClsClientes @@ -1710,10 +1787,33 @@ Partial Class General_SaldosIniciales End If CveVenta = ObjVentas.CveVenta - If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA, IEPS:=0) Then - ErrorVentas = True - Exit For + + If RblFormato.SelectedValue = "17" Then + + Dim TotalDetalles As Decimal = SubTotal + If PUDetalle > 0 Then + TotalDetalles = (CantidadDetalle * PUDetalle) + IVA - RetIVA - RetISR + IEPSDetalle + End If + + + If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PUDetalle * CantidadDetalle, IVADetalle, TotalDetalles, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, + PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA, IEPS:=IEPSDetalle) Then + ErrorVentas = True + Exit For + End If + + Else + If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA, IEPS:=0) Then + ErrorVentas = True + Exit For + End If End If + + + + + + Dim ConceptoContable As Integer = 1 Dim ConceptoContablePago As Integer = 2 If TipoDocto = "Egs" Then @@ -1777,6 +1877,7 @@ Partial Class General_SaldosIniciales Exit For End If + CountRow = CountRow + 1 Next If Not ErrorVentas Then Alert(String.Format("Se agregaron: {0} Ventas correctamente. {1} no encontrados
{2} ", Encontrados, NoEncontrados, StrRFCNoencontrados), TipoMensaje.MsgInformacion) @@ -2980,6 +3081,8 @@ Partial Class General_SaldosIniciales Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoBancos.xlsx" ElseIf RblFormato.SelectedValue = "16" Then Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClasificaciones.xlsx" + ElseIf RblFormato.SelectedValue = "17" Then + Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClientes-Facturas-Detalles.xlsx" End If If Not (Directorio = "") Then diff --git a/Global.asax b/Global.asax index 56617c3cf..417ce9fe0 100644 --- a/Global.asax +++ b/Global.asax @@ -69,13 +69,6 @@ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'G L O B A L E S A P L I C A C I Ó N - 'Using ObjGral As New ClsGenerales - ' If ObjGral.GetTipoCambio(-1, Now) Then - ' If ObjGral.DtResultados.Rows.Count > 0 Then - ' Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble - ' End If - ' End If - 'End Using 'GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now)) diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index ab17fcfb1..787910cdd 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -134,6 +134,9 @@ + @@ -141,18 +144,23 @@ <%----%> + + + @@ -160,12 +168,16 @@ +
Original +     -   -   -   - +   +   +  
+ +
Folio: + +
Observaciones Grales:
Observaciones Almacén:
Dirección Envío:
+ + +
@@ -229,7 +241,7 @@ Observaciones: - + diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index d7e800585..7e9b55a25 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -350,6 +350,21 @@ Partial Class Inventarios_EntregaAlmacen + Private Property Adjunto As String + Get + If ViewState("Adjunto") Is Nothing Then + ViewState("Adjunto") = "" + End If + Return ViewState("Adjunto").ToString() + End Get + + Set(value As String) + ViewState("Adjunto") = value + End Set + End Property + + + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -617,7 +632,11 @@ Partial Class Inventarios_EntregaAlmacen CveVentaAD = -2 CargaVentaPorSurtir(DdlFolio.SelectedValue.ToEntero()) End Sub - Private Sub CargaVentaPorSurtir(CveVenta As Integer, Optional CveAlmacen As Integer = -1, Optional CveOS As Integer = -1) + Private Sub CargaVentaPorSurtir(CveVenta As Integer, Optional CveAlmacen As Integer = -1, Optional CveOS As Integer = -1) + + Adjunto = "" + BtnArchivoAdjunto.Visible = False + LbSurtida.Visible = False CveContrato = -1 CveSubProyecto = -1 @@ -672,6 +691,7 @@ Partial Class Inventarios_EntregaAlmacen If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F. Cirugía {drE("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}" + TxtObservaciones.Rows = 4 End If LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString() @@ -700,8 +720,26 @@ Partial Class Inventarios_EntregaAlmacen 'ClienteEntregaPersonal(CveCliente) CveSubProyecto = drE("CveSubProyecto").ToString().ToEntero() EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString()) - CveDireccionEnvio = drE("CveDireccionEnvio").ToString.ToEntero - + CveDireccionEnvio = drE("CveDireccionEnvio").ToString.ToEntero + + + Adjunto = drE("Adjunto").ToString() + + If Adjunto.Trim.Length > 0 Then + + Dim ruta As String = HttpContext.Current.Request.ApplicationPath + ruta = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta) + ruta += $"/{Adjunto}" + + If File.Exists(ruta) Then + BtnArchivoAdjunto.Visible = True + BtnArchivoAdjunto.Text = $"Adjunto: {Adjunto}" + End If + + + + End If + If CveDireccionEnvio > 0 Then trDireccionEnvio.Visible = True 'carga la dirección de envío @@ -869,6 +907,8 @@ Partial Class Inventarios_EntregaAlmacen If CveAlmacen <= 0 Then CargaGvDatos() + UpVenta.Update() + End Sub Private Sub CargaTraspasoPorSurtir(CveTraspaso As Integer) LbSurtida.Visible = False @@ -4539,5 +4579,36 @@ Partial Class Inventarios_EntregaAlmacen End Function + Protected Sub BtnArchivoAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnArchivoAdjunto.Click + Dim ruta As String = HttpContext.Current.Request.ApplicationPath + ruta = String.Format("{0}Ventas", UsuarioActual.Empresa.Ruta) + ruta += $"/{Adjunto}" + + Dim Archivo As New System.IO.FileInfo(ruta) + + Try + If Archivo IsNot Nothing Then + If Archivo.Exists Then + + HttpContext.Current.Response.Clear() + HttpContext.Current.Response.ClearContent() + HttpContext.Current.Response.ContentType = "application/octet-stream" + HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name)) + HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString()) + HttpContext.Current.Response.TransmitFile(ruta) + Response.Flush() ' send it to the client to download + HttpContext.Current.Response.SuppressContent = True + HttpContext.Current.ApplicationInstance.CompleteRequest() + Response.End() + + Else + Alert("El archivo no existe", TipoMensaje.MsgAdvertencia) + End If + + End If + Catch ex As Exception + End Try + End Sub + End Class diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index 19d9044ad..606b38ad7 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -79,7 +79,7 @@ Partial Class OS_Asignaciones RegistraScript(" $('#GvNA tr').each(function() { - $(this).find('td:eq(8) input').each(function() { + $(this).find('td:eq(6) input').each(function() { if($(this).val()!=':'){ $(this).attr('style', 'width: 20px;'); }else{ @@ -518,8 +518,8 @@ Partial Class OS_Asignaciones Dim TMSelector = DirectCast(e.Row.FindControl("TimeSelector"), TimeSelector) TMSelector.Date = FechaCita - e.Row.Cells(7).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.Ticks.ToString) - e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.ToString("HHmm")) + e.Row.Cells(9).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.Ticks.ToString) + e.Row.Cells(10).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.ToString("HHmm")) End If diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 47a199259..124d7ce1e 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -79,11 +79,13 @@ Partial Class Boletos Dim ObjViaje As New ClsTransportes If ObjContratos.GetContratos(CveViaje, UsuarioActual.CveEmpresa) Then - Contrato = ObjContratos.DtResultados + Contrato = ObjContratos.DtResultados.Copy() + If ObjContratos.DtResultados IsNot Nothing AndAlso ObjContratos.DtResultados.Rows.Count > 0 Then TxtRuta.Text = Contrato.Rows(0)("SubProyecto").ToString TxtFecha.Text = Contrato.Rows(0)("FechaInicial").ToString.ToDate.ToShortDateString DtPasajeros = New DataTable + DtPasajeros.Columns.Add("CveViajePasajero", GetType(Integer)) DtPasajeros.Columns.Add("Numero", GetType(Integer)) DtPasajeros.Columns.Add("Nombre", GetType(String)) DtPasajeros.Columns.Add("Visa", GetType(String)) @@ -115,6 +117,9 @@ Partial Class Boletos End If End If + ObjContratos.Dispose() + ObjViaje.Dispose() + Else ObjContratos.Dispose() ObjViaje.Dispose() @@ -122,8 +127,6 @@ Partial Class Boletos Response.Redirect($"~/Transportes/RepContratos.aspx") End If - ObjContratos.Dispose() - ObjViaje.Dispose() 'Boletos Vendidos @@ -176,8 +179,6 @@ Partial Class Boletos LbCostos.Text = $"El precio de su boleto es ${ImporteR.FormatoNumero}" LbCostos.Visible = True BtnAgregarPasajero.Visible = True - LbAviso.Visible = True - Else ViewState("Importe") = 0 BtnAgregarPasajero.Visible = False @@ -233,11 +234,17 @@ Partial Class Boletos Sexo = dr("CveSexo").ToString.ToBool Obs = dr("Observaciones").ToString - If ObjTransporte.AddViajesPasajeros(CveViaje, CveDestinoOrigen, CveDestinoFinal, Importe, Asiento.ToEntero, Nombre, Visa, Celular, Sexo, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveVendedor) > 1 Then - ObjTransporte.Commit() + Dim CveViajePasajero = ObjTransporte.AddViajesPasajeros(CveViaje, CveDestinoOrigen, CveDestinoFinal, Importe, Asiento.ToEntero, Nombre, Visa, Celular, Sexo, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveVendedor) + + If CveViajePasajero < 1 Then + TieneError = True + SbAlert.Append("Ocurrió un error al generar el viaje") + Exit For End If + + dr("CveViajePasajero") = CveViajePasajero Next - DtPasajeros.Clear() + If Not TieneError Then Retorno = CrearRemision(ObjTransporte) @@ -247,8 +254,11 @@ Partial Class Boletos TieneError = Retorno.TieneError If Not TieneError Then - If Retorno.CveVenta > 0 AndAlso Not Retorno.TieneError Then - SbAlert.AppendFormat("{0}", Retorno.Mensajes(Retorno.Mensajes.Count - 1)) + + If Not Retorno.TieneError Then + If Retorno.CveVenta <= 0 Then + Retorno.TieneError = True + End If Else TieneError = True SbAlert.Append("Ocurrió un error al generar la factura") @@ -261,6 +271,12 @@ Partial Class Boletos Else TieneError = True End If + Else + If Retorno.Mensajes IsNot Nothing AndAlso Retorno.Mensajes.Count > 0 Then + For Each Mensaje As String In Retorno.Mensajes + SbAlert.AppendFormat("{0}
", Mensaje) + Next + End If End If Else TieneError = True @@ -280,18 +296,28 @@ Partial Class Boletos ObjTransporte.RollBack() ObjTransporte.Dispose() Else - SbAlert.Append("El boleto se genero correctamente") + ObjTransporte.Commit() ObjTransporte.Dispose() - DdlPartida.SelectedValueExist("-1") - DdlDestino.SelectedValueExist("-1") + SbAlert.Append("El boleto se genero correctamente.") + + DtPasajeros.Clear() + GvB.DataSource = DtPasajeros + GvB.DataBind() + + DdlPartida.SelectedIndex = -1 + 'DdlPartida.SelectedValueExist("-1") + + DdlDestino.SelectedIndex = -1 + 'DdlDestino.SelectedValueExist("-1") + AsientoSeleccionado = "" CargaDatos() End If Alert(SbAlert.ToString(), If(TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), ShowCloseButton:=False) - End Try + UpPanel.Update() End Sub @@ -368,48 +394,89 @@ Partial Class Boletos End Sub Private Function CrearRemision(ByRef objTrans As ClsTransportes) As Modelos.Factura.MMensajeFactura - Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing + Dim Retorno As New Modelos.Factura.MMensajeFactura Dim CveCliente As Integer = 1154164 Dim CveMoneda As Integer = 2 - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() + Dim CveSubProyecto As Integer = -1 + + Dim CvePSBoleto As Integer = 912720 + + If EsProduccion Then + CvePSBoleto = 986337 + CveCliente = 1172306 + End If If CveCliente <= 0 Then Retorno.Mensajes.Add("No se pudo cargar el cliente") Return Retorno End If - If CveSubProyecto <= 0 Then - Retorno.Mensajes.Add("No se pudo cargar el subproyecto") - Return Retorno - End If + Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, -1, CveCliente, CveMoneda, "Rem") - Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyecto, CveCliente, CveMoneda, "Rem") + If ObjFactura IsNot Nothing Then + 'TOMA EL SUBPROYECTO DEL CLIENTE + CveSubProyecto = ObjFactura.Cliente.CveSubProyecto - Dim CvePSBoleto As Integer = 912720 - - For Each Dr As DataRow In DtPasajeros.Rows - Dim Obs = Dr("Nombre").ToString - Dim Importe = Dr("Importe").ToString.ToDecimal() - If Importe <= 0 Then - Retorno.Mensajes.Add("El importe debe ser mayor a 0") + If CveSubProyecto <= 0 Then + Retorno.Mensajes.Add("No se pudo cargar el subproyecto") Return Retorno End If - ObjFactura.AgregarPS(CvePSBoleto, 1, Importe, 0, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=0) - Next + ObjFactura.CveSubProyecto = CveSubProyecto + ObjFactura.CveSubProyectoCobranza = CveSubProyecto + ObjFactura.CveSubProyectoEjecucion = CveSubProyecto + ObjFactura.SetSubProyecto() + ObjFactura.SetSubProyectoMatriz() - ObjFactura.CalculaTotales() + For Each Dr As DataRow In DtPasajeros.Rows + Dim Obs = Dr("Observaciones").ToString + Dim Importe = Dr("Importe").ToString.ToDecimal() - Try - Retorno = ObjFactura.EmitirFactura(False, Transac:=objTrans.IniciaTransacSQL()) - Catch ex As Exception - Retorno = Nothing - GuardaLog(ex.ToString()) - End Try + If Importe <= 0 Then + Retorno.Mensajes.Add("El importe debe ser mayor a 0") + Return Retorno + End If - If ObjFactura IsNot Nothing Then - ObjFactura.Dispose() + Dim PorcentajeIVA As Decimal = 0 + + Dim DrPS As DataRow = ClsPaginas.GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSBoleto).FiltroPrimero("") ' Estado = -1 + + If DrPS Is Nothing Then + Retorno.Mensajes.Add("No se pudo agregar el producto") + Return Retorno + End If + + If DrPS("IVA").ToString().Contiene("-1", "") Then + PorcentajeIVA = ObjFactura.SubProyecto.IVA + Else + PorcentajeIVA = DrPS("IVA").ToString().ToDecimal() + End If + + If PorcentajeIVA > 0 Then + Importe = (Importe / (1D + PorcentajeIVA)).RoundSQL(6) + End If + + If Not ObjFactura.AgregarPS(CvePSBoleto, 1D, Importe, 0D, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=PorcentajeIVA, CveViajePasajero:=Dr("CveViajePasajero").ToString().ToEntero()) Then + Retorno.Mensajes.Add("No se pudo agregar el producto") + Return Retorno + End If + Next + + ObjFactura.CalculaTotales() + + Try + Retorno = ObjFactura.EmitirFactura(False, Transac:=objTrans.IniciaTransacSQL()) + Catch ex As Exception + Retorno = Nothing + GuardaLog(ex.ToString()) + End Try + + If ObjFactura IsNot Nothing Then + ObjFactura.Dispose() + End If + Else + Retorno.Mensajes.Add("No se pudo generar la factura") End If Return Retorno diff --git a/Transportes/RepBoletos.aspx.vb b/Transportes/RepBoletos.aspx.vb index 8ade27feb..45e636fa7 100644 --- a/Transportes/RepBoletos.aspx.vb +++ b/Transportes/RepBoletos.aspx.vb @@ -1,5 +1,6 @@ Option Explicit On Option Strict On + Imports System.Data Imports ADSNetLibrary.Helpers Imports ADSNetLibrary.SIGAPI.Helpers @@ -32,16 +33,10 @@ Partial Class ListadoBoletos CveViaje = Request.QueryString("CveViaje").ToEntero Ruta = IfNull(Request("Ruta"), "").ToString LblViaje.Text = Ruta - - InicializaCombos() CargaDatos() End If End Sub - Private Sub InicializaCombos() - - End Sub - Private Sub CargaDatos() Dim ObjTransportes As New ClsTransportes If ObjTransportes.GetViajesPasajeros(CveViaje) Then @@ -82,26 +77,68 @@ Partial Class ListadoBoletos Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim CveViajePasajero As String = GvRow.DataKey("CveViajePasajero") + Dim CveViajePasajero As Integer = GvRow.DataKey("CveViajePasajero").ToEntero() Dim Estatus As String = GvRow.DataKey("Estatus") - Dim cambiarEstatus As Boolean = Not Estatus.ToBool - Dim ObjTransportes As New ClsTransportes - ObjTransportes.IniciaTransacSQL() - Try - If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=cambiarEstatus, Estatus:=cambiarEstatus) Then - If Not cambiarEstatus Then - Alert($"El boleto ha sido cancelado correctamente.") - Else - Alert($"El boleto ha sido reactivado correctamente.") - End If - End If - ObjTransportes.Commit() - Catch ex As Exception - ObjTransportes.RollBack() - Alert($"No se pudo cambiar el estatus del boleto {ex}", TipoMensaje.MsgError) + Dim cambiarEstatus As Boolean = Not Estatus.ToBool + + + Dim TieneError As Boolean = False + Try + Dim DtRem As DataTable = Nothing + + Dim ObjTran As New ClsTransportes + If ObjTran.GetRemisionBoleto(CveViajePasajero.ToEntero, UsuarioActual.CveEmpresa) Then + DtRem = ObjTran.DtResultados.Copy() + End If + ObjTran.Dispose() + + If DtRem IsNot Nothing Then + If DtRem.Rows.Count > 0 Then + Dim CveVenta As Integer = DtRem.Rows(0)("CveVenta").ToString().ToEntero() + Dim BoletosVigentes As Integer = DtRem.Rows(0)("BoletosVigentes").ToString().ToEntero() + + If CveVenta > 0 Then + Dim ObjRem As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) + + If ObjRem.DtDetalle.Rows.Count > 0 Then + 'SI SOLO TIENE UNA PARTIDA CANCELAR LA REMISION + If ObjRem.DtDetalle.Rows.Count = 1 OrElse BoletosVigentes <= 1 Then + Dim RespCancelacion = ObjRem.CancelarFactura(False, ValidarSAT:=False, CancelarBoletos:=True, ListaRemisionesCancelar:=New List(Of Integer)) + If RespCancelacion IsNot Nothing Then + TieneError = RespCancelacion.HuboError + Else + TieneError = True + End If + Else + TieneError = Not ObjRem.CancelarBoleto(CveViajePasajero) + End If + Else + TieneError = True + End If + + End If + Else + 'SI NO TIENE VENTA, SOLO CANCELAR EL BOLETO + Dim ObjTran2 As New ClsTransportes + If Not ObjTran2.UpdateViajesPasajeros(CveViajePasajero, Activar:=cambiarEstatus, Estatus:=cambiarEstatus) Then + TieneError = True + End If + ObjTran2.Dispose() + End If + + End If + Catch ex As Exception + TieneError = True + GuardaLog(ex.ToString()) Finally - ObjTransportes.Dispose() + If TieneError Then + Alert($"Ocurrió un error al cancelar el boleto.", TipoMensaje.MsgError) + Else + Alert($"El boleto ha sido cancelado correctamente.") + End If + CargaDatos() End Try End Sub + End Class \ No newline at end of file diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 4092bcf80..e66c9fddb 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -16,8 +16,7 @@ } .miGrid { - color: white; - text-align: center; + color: white; } @@ -51,9 +50,9 @@
- - + +
@@ -163,8 +162,8 @@ <%-- Centro de Costos --%>
-
@@ -194,7 +193,7 @@ + data-sort="true" DataKeyNames="CveContrato, NumeroContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, NombreComercial, CveTipoAF, Importe, ImporteMin, ImporteMax, Observaciones, CveAF, CveChofer, CveChofer2, CveContratosEstatus, CantidadPasajeros,CveMoneda"> @@ -203,7 +202,7 @@ - + Fecha
Salida @@ -219,7 +218,7 @@ - + @@ -243,7 +242,7 @@ - + Fecha
Regreso @@ -253,7 +252,7 @@ - + diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 647f1ec80..56f473f1a 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -47,7 +47,7 @@ Partial Class RepContratosCalendario Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero If CveCliente = 0 Then CveCliente = -1 - If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then + If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then GvContratos.DataSource = ObjContratos.DtResultados End If DtAvance = ObjContratos.DtResultados @@ -97,9 +97,11 @@ Partial Class RepContratosCalendario DdlEstatusContrato.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa) DdlEstatusContrato.DataBind() - DdlEstatusContrato.Items.Insert(0, New ListItem("-", "")) - + DdlEstatusContrato.Items.Insert(0, New ListItem("Todos", "-1")) + DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectos.DataBind() + DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) 'CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fcf6cc18e..fd2f49563 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -34706,9 +34706,6 @@ Partial Class Ventas End If Catch ex As Exception End Try - - - End Sub Protected Sub BtnEliminarAdjunto_Click(sender As Object, e As System.EventArgs) Handles BtnEliminarAdjunto.Click @@ -36610,7 +36607,8 @@ Partial Class Ventas If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es factura - DdlTipoComprobante.SelectedValueExist("Ing") + 'DdlTipoComprobante.SelectedValueExist("Ing") + DdlTipoComprobante.SelectedValueExist("Ped") TrVentasMedicas1.Visible = True TrVentasMedicas2.Visible = True