diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index ec489f0a4..fcef9ea54 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -2178,7 +2178,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetExistenciasProductosLike(PS As String, CveClasificacion As Integer, CveSubProyecto As Integer, Estatus As Integer, AplicaParaVenta As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1) As Boolean + Public Function GetExistenciasProductosLike(PS As String, CveClasificacion As Integer, CveSubProyecto As Integer, Estatus As Integer, AplicaParaVenta As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional MostrarTodosAlmacenes As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ProductosServiciosInventario") @@ -2190,6 +2190,7 @@ Public Class ClsInventarios .Add("@AplicaParaVenta", SqlDbType.Int).Value = AplicaParaVenta .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@MostrarTodosAlmacenes", SqlDbType.Bit).Value = MostrarTodosAlmacenes End With Try 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 bbe20d017..11b3a6b5b 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -1,472 +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 - +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 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 - + 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 +#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.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 = 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) As Boolean - Dim Retorno As Boolean = False - - - DataAdapter("PA_Trans_DestinosRemove") - With SqlAdapter.SelectCommand.Parameters - .Add("@CveDestino", SqlDbType.Int).Value = CveDestino - 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("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen - .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal - .Add("@Importe", SqlDbType.SmallMoney).Value = Importe - .Add("@CveDestinoTarifa", SqlDbType.Int).Direction = ParameterDirection.Output - 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 +#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/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 82169dccc..c0b7273e1 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -929,33 +929,39 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim CveMarca = IfNull(context.Request("cvemarca"), "-1").ToString.ToEntero Dim UsaGlobal As Boolean = True + Dim MostrarTodosAlmacenes As Boolean = False 'verifica existencias If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso usuario.Empresa.Funcionalidad(141) = "1" Then UsaGlobal = False - 'If CveEmpresa.Contiene(140, 141) And Pagina.Contiene("ventas/ventas") Then - ' AplicaParaVenta = 1 - 'End If + If (usuario.Empresa.Funcionalidad(558) = "1" OrElse usuario.Empresa.Funcionalidad(531) = "1") AndAlso Pagina.Contiene("ventas/ventas") Then + MostrarTodosAlmacenes = True + End If Dim objInv As New ClsInventarios - If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca) Then + Try + If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca, MostrarTodosAlmacenes:=MostrarTodosAlmacenes) Then - ' limpio los almacenes donde no tiene ningun producto existencia + ' limpio los almacenes donde no tiene ningun producto existencia - Dim i As Integer = 0 - While i < objInv.DtResultados.Columns.Count + Dim i As Integer = 0 + While i < objInv.DtResultados.Columns.Count - If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then - objInv.DtResultados.Columns.RemoveAt(i) - Else - i = i + 1 - End If - End While + If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then + objInv.DtResultados.Columns.RemoveAt(i) + Else + i = i + 1 + End If + End While - DtPSRetorno = objInv.DtResultados + DtPSRetorno = objInv.DtResultados + + End If + Catch ex As Exception + GuardaLog(ex.ToString()) + End Try - End If objInv.Dispose() 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/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.vb b/Compras/Compras.aspx.vb index 6c60b6c04..628062fd8 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -10422,14 +10422,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 @@ -14240,7 +14286,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, @@ -18804,11 +18850,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 @@ -18816,12 +18862,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 @@ -18830,6 +18872,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 @@ -18837,22 +18883,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) @@ -20061,29 +20107,6 @@ Partial Class Compras_Compras DdlRefacturacionFacturas.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub - - Protected Sub BtnRecolecciónAplicar_Click(sender As Object, e As EventArgs) - Using ObjAcum As New ClsGenerales - If ObjAcum.GetEntregaAlmacenRutaDetalle(DdlRecoleccion.SelectedValue.ToEntero) Then - 'Dim dtt As DataTable = ObjAcum.DtResultados.FiltraParametros("CantidadDisponible > 0") - 'Dim Porcentaje As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal - 'Dim tCveSub As Integer = TmpDT.MAX("CveSubProyecto").ToEntero - 'Dim tCveTipoGasto As Integer = TmpDT.MAX("CveTipoGasto").ToEntero - 'Dim Total As Decimal = TmpDT.SUMD("Total") - 'For Each drr As DataRow In TmpDT.Rows - ' ClavesBorradas.Add(drr("CveCompraDetalle").ToString) - 'Next - TmpDT.Clear() - 'For Each dr As DataRow In dtt.Rows - ' Dim pu As Decimal = Total / dtt.SUMD("CantidadDisponible") - ' Dim cantidad As Decimal = dr("CantidadDisponible").ToString.ToDecimal - ' AddPS(cantidad, dr("CveUM").ToString.ToEntero, "", dr("CveClasificacion").ToString.ToEntero, "", dr("CvePS").ToString.ToEntero, dr("PS").ToString, 2, tCveSub.ToString, "SE", "SE", "", "", pu, Total, Porcentaje, 0, 0, 0, 0, 0, PorcentajeIVA:=Porcentaje, TCalculaTotales:=True, CveTipoGasto:=tCveTipoGasto) - 'Next - 'AddPS2() - - End If - End Using - End Sub End Class 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.vb b/General/SaldosIniciales.aspx.vb index 2b9d23ec8..ad5eccb24 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1633,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 @@ -1684,7 +1685,36 @@ Partial Class General_SaldosIniciales 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 @@ -1759,11 +1789,19 @@ Partial Class General_SaldosIniciales If RblFormato.SelectedValue = "17" Then - If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PUDetalle * CantidadDetalle, IVADetalle, (PUDetalle * CantidadDetalle) + IVADetalle - IEPSDetalle, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, + + 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 @@ -1839,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) diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index 323447b51..787910cdd 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -134,6 +134,9 @@ + + + Folio: @@ -141,18 +144,23 @@ <%----%> + + + Observaciones Grales: + Observaciones Almacén: + Dirección Envío: @@ -160,12 +168,16 @@ + + + + diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index e16742721..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 @@ -701,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 @@ -870,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 @@ -4540,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/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 25ce02ad1..f26610ca8 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -500,7 +500,7 @@ Partial Class Inventarios_TraspasoAlmacen ' DdlProducto.Visible = False 'End If - CargaPS() + FiltraPS() 'Folio SiguienteFolio(If(ChkTransitorio.Checked, 9, 8)) @@ -508,6 +508,17 @@ Partial Class Inventarios_TraspasoAlmacen 'DdlProducto.DataBind() CargarCamiones() End Sub + Private Sub FiltraPS() + If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlAlmacenOrigen.SelectedValue.ToEntero() > 0 Then + Dim DtAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero()) + If DtAlmacen IsNot Nothing Then + Dim CveSubProyecto As Integer = DtAlmacen.FiltroPrimeroValor("CveSubProyecto").ToEntero() + CargaPS(CveSubProyecto) + End If + Else + CargaPS(-1) + End If + End Sub Private Sub CargaAlmacenOrigen() DdlAlmacenOrigen.Enabled = True DdlAlmacenOrigen.Items.Clear() @@ -517,7 +528,7 @@ Partial Class Inventarios_TraspasoAlmacen DdlAlmacenOrigen.DataBind() DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen) End Sub - Private Sub CargaPS() + Private Sub CargaPS(CveSubProyecto As Integer) Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) DdlProducto2.setEsWebService(EsWS) @@ -526,8 +537,8 @@ Partial Class Inventarios_TraspasoAlmacen 'DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue) If UsuarioActual.Empresa.Funcionalidad(141) = "1" Then DdlProducto2.ddlWS.Attributes.Add("data-pagina", "inv/traspaso") + DdlProducto2.ddlWS.Attributes.Add("data-cvesubproyecto", CveSubProyecto.ToString()) DdlProducto2.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes") - CargaExistenciasSucursal() DdlAlmacenOrigen.AutoPostBack = True End If Else @@ -538,8 +549,8 @@ Partial Class Inventarios_TraspasoAlmacen End Sub Private Sub CargaExistenciasSucursal() - DdlProducto2.Attributes.Remove("Data-cvesubproyecto") - DdlProducto2.Attributes.Add("Data-cvesubproyecto", GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}")) + DdlProducto2.Attributes.Clear() + FiltraPS() End Sub Private Sub SiguienteFolio(CveConcepto As Integer) 'Dim Inv As New ClsInventarios @@ -2991,8 +3002,8 @@ Partial Class Inventarios_TraspasoAlmacen ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString()) End If - Else - RowsNoCargados = RowsNoCargados + 1 + Else + RowsNoCargados = RowsNoCargados + 1 ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString()) End If End If diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index b4afa5eac..b9b4a0920 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -13,7 +13,7 @@ } .mx-1 { - margin: 0 2rem; + margin: 0 5px 0 5px; } .disponible { @@ -88,157 +88,164 @@ -
- <%-- Boleto --%> -
- <%-- Datos del Cliente --%> -
-
-
-
-
-
- - Datos del Pasajero - -
- -
- - - - - -
-
-
-
-
-
-
- - - +
+ <%-- Boleto --%> +
+ <%-- Datos del Cliente --%> +
+
+
+
+
+
+ + Datos del Pasajero +
-
- -
-
- - +
+ + + + +
-
-
-
- - - - - - +
+
+
+
+ + + +
+ +
+ +
+
+ + +
-
-
- - - +
+
+
+ + + + + + +
+
+ +
+
+ + + +
-
-
- - - +
+ + + +
-
- <%-- Datos del Viaje y Destinos --%> -
-
-
-
-
- - Datos del Viaje -
-
-
- -
-
-
- - -
-
- -
-
- - - - - -
+ <%-- Datos del Viaje y Destinos --%> +
+
+
+
+
+ + Datos del Viaje
-
-
-
- - +
+
+
+
+ + +
+
+ +
+
+ + + + + +
-
-
- - - - +
+
+
+ + +
+
+ +
+
+ + + + +
-
-
- +
+

+ +
-
-
- <%-- Botón para Agregar Pasajero(Oculto) --%> -
- -
+ <%-- Botón para Agregar Pasajero(Oculto) --%> +
+

information: Los boletos están siendo apartados hasta finalizar su compra

 + + + +
<%-- Listado de Boletos --%>
@@ -519,7 +526,7 @@
-
+
@@ -527,14 +534,14 @@ diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index eb913f8b8..124d7ce1e 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -438,7 +438,26 @@ Partial Class Boletos Return Retorno End If - If Not ObjFactura.AgregarPS(CvePSBoleto, 1, Importe, 0, Obs, CveSubProyecto:=CveSubProyecto, PorcentajeIVA:=0, CveViajePasajero:=Dr("CveViajePasajero").ToString().ToEntero()) Then + 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 diff --git a/Transportes/CatRutas.aspx.vb b/Transportes/CatRutas.aspx.vb index c3d014729..c120747d0 100644 --- a/Transportes/CatRutas.aspx.vb +++ b/Transportes/CatRutas.aspx.vb @@ -232,7 +232,7 @@ Partial Class CatRutas Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim ObjDestino As New ClsTransportes - If ObjDestino.RemoveDestino(GvRow.DataKey("CveDestino").ToEntero) Then + If ObjDestino.RemoveDestino(GvRow.DataKey("CveDestino").ToEntero, UsuarioActual.CveEmpresa) Then Alert("Destino eliminado correctamente") CargaDatos() End If diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index 7b03f97ed..e023b1602 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -243,7 +243,7 @@
-
-
-
@@ -278,7 +279,7 @@
- +
@@ -315,7 +316,7 @@
- 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + If Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then HplDownPDF.Visible = False End If + DdlPS.Attributes.Remove("data-cvesubproyecto") + DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue) + + UpPS.Update() UPObservaciones.Update() End If @@ -7893,10 +7897,10 @@ Partial Class Ventas End If Dim cvesubproyecto As String = DdlSubProyectoDatos.SelectedValue - If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - 'cuando es empresa llantera (558) o cuando es empresa acumuladores - cvesubproyecto = "-1" - End If + 'If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + ' 'cuando es empresa llantera (558) o cuando es empresa acumuladores + ' cvesubproyecto = "-1" + 'End If Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto) Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString()) @@ -17431,6 +17435,11 @@ Partial Class Ventas CargaVendedores() HabilitarRemisionesPublicoGeneral() + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + DdlPS.Attributes.Remove("data-cvesubproyecto") + DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue) + End If + UpDetalle.Update() UpEmitirTransitorio.Update() End Sub @@ -34706,9 +34715,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 +36616,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