diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index ed19dedff..259de04bf 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2057,7 +2057,7 @@ Public Class ClsRH .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo '.Add("@ErrorMostrarADS", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output - .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 1d1a578d1..ab0b16d22 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6744,7 +6744,8 @@ Public Class ClsVentas End Function - Public Function GetProcedimientoProducto(CveProcedimiento As Integer, Estatus As Integer, CveEmpresa As Integer, CveCliente As Integer, CveSubProyecto As Integer) As Boolean + Public Function GetProcedimientoProducto(CveProcedimiento As Integer, Estatus As Integer, CveEmpresa As Integer, CveCliente As Integer, CveSubProyecto As Integer, + Optional CveClienteSucursal As Integer = -1, Optional CveTipoVenta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ProcedimientosProductosGet") @@ -6755,6 +6756,8 @@ Public Class ClsVentas .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta End With Try SqlAdapter.Fill(Data) diff --git a/Bin/ClbNegBICFDv3_2.dll b/Bin/ClbNegBICFDv3_2.dll deleted file mode 100644 index 8ccf14b8c..000000000 Binary files a/Bin/ClbNegBICFDv3_2.dll and /dev/null differ diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb index 2d320e959..1828a1d0c 100644 --- a/Contabilidad/RepBalanceGeneral.aspx.vb +++ b/Contabilidad/RepBalanceGeneral.aspx.vb @@ -293,6 +293,11 @@ Partial Class Contabilidad_RepBalanceGeneral Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + Response.Redirect($"/Contabilidad2/RepSituacionFinanciera.aspx") + End If + + If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then BtnConsultar.Enabled = True TabNormal.Enabled = True diff --git a/Contabilidad/RepEstadoResultados.aspx.vb b/Contabilidad/RepEstadoResultados.aspx.vb index fabfe41ef..c38cf3d20 100644 --- a/Contabilidad/RepEstadoResultados.aspx.vb +++ b/Contabilidad/RepEstadoResultados.aspx.vb @@ -145,6 +145,9 @@ Partial Class Contabilidad_RepEstadoResultados Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + Response.Redirect($"/Contabilidad2/RepEstadoActividades.aspx") + End If If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 78e133442..494091251 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -3591,47 +3591,49 @@ Partial Class General_SaldosIniciales For Each Row As DataRow In dt.Rows Dim myarraystr As String() - Dim RegistroPatronal As String = Row("Registro Patronal").ToString().ToUpper() - Dim Codigo As String = Row("Código").ToString() - Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString() - Dim ApellidoMaterno As String = Row("Apellido Materno").ToString() - Dim Nombre As String = Row("Nombre").ToString() - Dim CorreoElectronico As String = Row("Correo Electronico").ToString() - Dim FechaIngreso As String = Row("Fecha Ingreso").ToString() - Dim FechaBaja As String = Row("Fecha Baja").ToString() - Dim NumeroSS As String = Row("Numero SS").ToString() - Dim AltaIMSS As String = Row("Alta IMSS").ToString() - Dim SalarioDiario As String = Row("Salario Diario").ToString() - Dim Direccion As String = Row("Dirección").ToString() - Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString() - Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString() - Dim Sexo As String = Row("Sexo").ToString() - Dim CodigoPostal As String = Row("Código Postal").ToString() - Dim Ciudad As String = Row("Ciudad").ToString() - Dim EstadoCivil As String = Row("Estado Civil").ToString().ToUpper - Dim Telefono As String = Row("Teléfono").ToString() - Dim Celular As String = Row("Celular").ToString() - Dim RFC As String = Row("RFC").ToString() - Dim CURP As String = Row("CURP").ToString() - Dim ClabeInterbancaria As String = Row("CLABE").ToString() - Dim EstatusPersonal As String = Row("Estatus Personal").ToString().ToUpper - Dim SubProyecto As String = Row("SubProyecto").ToString().ToUpper + Dim RegistroPatronal As String = Row("Registro Patronal").ToString().ToUpper().Trim + Dim Codigo As String = Row("Código").ToString().Trim + Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString().Trim + Dim ApellidoMaterno As String = Row("Apellido Materno").ToString().Trim + Dim Nombre As String = Row("Nombre").ToString().Trim + Dim CorreoElectronico As String = Row("Correo Electronico").ToString().Trim + Dim FechaIngreso As String = Row("Fecha Ingreso").ToString().Trim + Dim FechaBaja As String = Row("Fecha Baja").ToString().Trim + Dim NumeroSS As String = Row("Numero SS").ToString().Trim + Dim AltaIMSS As String = Row("Alta IMSS").ToString().Trim + Dim SalarioDiario As String = Row("Salario Diario").ToString().Trim + Dim Direccion As String = Row("Dirección").ToString().Trim + Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString().Trim + Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString().Trim + Dim Sexo As String = Row("Sexo").ToString().Trim + Dim CodigoPostal As String = Row("Código Postal").ToString().Trim + Dim Colonia As String = Row("Colonia").ToString().Trim + Dim NumExterior As String = Row("NumExterior").ToString().Trim + Dim Ciudad As String = Row("Ciudad").ToString().Trim + Dim EstadoCivil As String = Row("Estado Civil").ToString().ToUpper.Trim + Dim Telefono As String = Row("Teléfono").ToString().Trim + Dim Celular As String = Row("Celular").ToString().Trim + Dim RFC As String = Row("RFC").ToString().Trim + Dim CURP As String = Row("CURP").ToString().Trim + Dim ClabeInterbancaria As String = Row("CLABE").ToString().Trim + Dim EstatusPersonal As String = Row("Estatus Personal").ToString().ToUpper.Trim + Dim SubProyecto As String = Row("SubProyecto").ToString().ToUpper.Trim 'Nuevas - Dim Estado As String = Row("Estado").ToString() - Dim NombrePadre As String = Row("Nombre Padre").ToString() - Dim NombreMadre As String = Row("Nombre Madre").ToString() - Dim Puesto As String = Row("Puesto").ToString() - Dim Turno As String = Row("Turno").ToString() - Dim TipoContrato As String = Row("Tipo Contrato").ToString() - Dim Departamento As String = Row("Departamento").ToString() - Dim TipoPeriodo As String = Row("Tipo Periodo").ToString() - Dim Escolaridad As String = Row("Escolaridad").ToString() - Dim SDI As String = Row("SDI").ToString() - Dim MetodoPago As String = Row("Metodo Pago").ToString() - Dim Nominista As String = Row("Nominista").ToString() + Dim Estado As String = Row("Estado").ToString().Trim + Dim NombrePadre As String = Row("Nombre Padre").ToString().Trim + Dim NombreMadre As String = Row("Nombre Madre").ToString().Trim + Dim Puesto As String = Row("Puesto").ToString().Trim + Dim Turno As String = Row("Turno").ToString().Trim + Dim TipoContrato As String = Row("Tipo Contrato").ToString().Trim + Dim Departamento As String = Row("Departamento").ToString().Trim + Dim TipoPeriodo As String = Row("Tipo Periodo").ToString().Trim + Dim Escolaridad As String = Row("Escolaridad").ToString().Trim + Dim SDI As String = Row("SDI").ToString().Trim + Dim MetodoPago As String = Row("Metodo Pago").ToString().Trim + Dim Nominista As String = Row("Nominista").ToString().Trim Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero() Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal - Dim TipoTrabajador As String = Row("Tipo Trabajador").ToString() + Dim TipoTrabajador As String = Row("Tipo Trabajador").ToString().Trim Dim NombreCompleto As String = $"{Nombre} {ApellidoPaterno} {ApellidoMaterno}" @@ -3666,6 +3668,16 @@ Partial Class General_SaldosIniciales End If + If CvePuesto <= 0 Then + Dim ObjRH2 As New ClsRH + ObjRH2.AddPuesto(Puesto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + ObjRH2.Dispose() + + GlobalDTRHPuestos(UsuarioActual.CveEmpresa) = Nothing + dtpuestos = GlobalDTRHPuestos(UsuarioActual.CveEmpresa) + CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(Puesto) = ('{Puesto}')").ToString().ToEntero() + End If + CveTipoTrabajador = dtTipoTrabajador.FiltroPrimeroValor("CveTipoTrabajador", $"(TipoTrabajador) = ('{TipoTrabajador}')").ToString().ToEntero() If CveTipoTrabajador = 0 Then CveTipoTrabajador = -1 @@ -3691,17 +3703,14 @@ Partial Class General_SaldosIniciales myarraystr = SubProyecto.Split(":"c) If (myarraystr.Length > 1) Then CveSubProyecto = myarraystr(0).ToEntero() - CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"CveSubProyecto = {CveSubProyecto}").ToString().ToEntero() + CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"CveSubProyecto = {CveSubProyecto}").ToEntero() Else - CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero() + CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToEntero() End If If CveSubProyecto = 0 Then CveSubProyecto = -1 End If - - - myarraystr = Departamento.Split(":"c) If (myarraystr.Length > 1) Then CveDepartamento = myarraystr(0).ToEntero() @@ -3711,7 +3720,11 @@ Partial Class General_SaldosIniciales CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString().ToEntero() End If If CveDepartamento <= 0 Then - CveDepartamento = -1 + Dim ObjRH2 As New ClsRH + ObjRH2.AddDepartamento(Departamento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + ObjRH2.Dispose() + CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString().ToEntero() + End If myarraystr = Estado.Split(":"c) @@ -3814,15 +3827,10 @@ Partial Class General_SaldosIniciales If Not CveMetodoPago > 0 Then Alert($"No se encontró el Método de Pago: {MetodoPago} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For If Not CveUsuarioNomina > 0 Then CveUsuarioNomina = -1 'Alert("No se encontró el Nominista: " + Nominista + " Renglón: " + NumRow, TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For - - - - Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString().ToEntero() If Not (CvePersonal > 0) Then CvePersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"CURP = '{CURP}'").ToString().ToEntero() - End If 'PENDIENTES POR MEJORAR @@ -3880,7 +3888,7 @@ Partial Class General_SaldosIniciales End If If Not ObjRH.AddPersonal(Codigo, ApellidoPaterno, ApellidoMaterno, Nombre, CorreoElectronico, FechaIn, CveTipoPeriodo, NumeroSS, CBool(AltaIMSS), SalarioDiario.ToDouble, SalarioDiario.ToDouble, SDI.ToDouble, SDI.ToDouble, -1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString(), CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac, - LugarNacimiento, Direccion, "", "", "", CodigoPostal, Ciudad, CveEstado, Telefono, "", Celular, RFC, CURP, "", NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1, + LugarNacimiento, Direccion, NumExterior, "", Colonia, CodigoPostal, Ciudad, CveEstado, Telefono, "", Celular, RFC, CURP, "", NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1, ClabeInterbancaria, "", CveJornada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, "", CveRegistroPatronal:=CveRegistroPatronal, CveTipoTrabajador:=CveTipoTrabajador) Then If (ObjRH.noguardoXcurpb) Then Else diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 781ccf28a..5ddf4613d 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -2419,12 +2419,10 @@ Partial Class Inventarios_RecepcionUsados Me.ObjRemisionNC.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML Me.ObjRemisionNC.Serie = "-1" Me.ObjRemisionNC.Folio = -1 'Folio.ToEntero() - Me.ObjRemisionNC.Version = "3.3" + Me.ObjRemisionNC.Version = "4.0" Me.ObjRemisionNC.FolioFiscal = "" Me.ObjRemisionNC.CveUsuario = UsuarioActual.CveUsuario Me.ObjRemisionNC.CveEmpresa = UsuarioActual.CveEmpresa - Me.ObjRemisionNC.TipoCambio = 1 - Me.ObjRemisionNC.ConvertirPesos = False Me.ObjRemisionNC.CveMoneda = CveMoneda Me.ObjRemisionNC.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", String.Format("CveMoneda = {0} ", CveMoneda)) Me.ObjRemisionNC.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", String.Format("CveMoneda = {0} ", CveMoneda)) @@ -2487,9 +2485,7 @@ Partial Class Inventarios_RecepcionUsados DtMetodoPago.Dispose() DtMetodoPago = Nothing End If - End If - End If End If @@ -2523,8 +2519,7 @@ Partial Class Inventarios_RecepcionUsados Else Me.ObjRemisionNC.Observaciones = "Devolución por usado" End If - Me.ObjRemisionNC.OrdenCompra = "" - Me.ObjRemisionNC.PedidoContrato = "" + Me.ObjRemisionNC.ObservacionesAlmacen = TxtObservaciones.Text.Trim Me.ObjRemisionNC.MovimientoObservaciones = TxtObservaciones.Text Me.ObjRemisionNC.MovimientoRecibio = TxtResponsable.Text diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 42d712c2a..426f06023 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -626,6 +626,7 @@ Partial Class OC_OC If UsuarioActual.CveEmpresa.Contiene(13, 83) Then TrMetodoPago.Visible = True + TxtFecha.Enabled = False End If 'CARGA YA REGISTRADO diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index d8e402683..53090e7fb 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -8830,7 +8830,7 @@ - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 62754eb8a..d1962921d 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2,14 +2,11 @@ Option Strict On Option Infer On -Imports System.Activities.Expressions Imports System.Data -Imports System.Data.SqlClient Imports System.Diagnostics Imports System.IO Imports System.Net.Http Imports System.Security.Cryptography.X509Certificates -Imports System.ServiceModel.Security Imports ADSNetLibrary.SIGAPI.Models.CRM.Request Imports ADSNetLibrary.SIGAPI.Services.CRM Imports ADSTimbrado @@ -11181,7 +11178,7 @@ Partial Class Ventas End If End Sub - Private Function CRMActualizaImporteBitacora(CveAcercamientoCRMActualizar As Integer, ImporteCRM As Decimal, SerieFolioVenta As String, ByRef ObjTRansaccion As SqlTransaction) As Boolean + Private Function CRMActualizaImporteBitacora(CveAcercamientoCRMActualizar As Integer, ImporteCRM As Decimal, SerieFolioVenta As String, ByRef ObjTransaccion As SqlClient.SqlTransaction) As Boolean Dim cRMService As ICRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) Dim AcercamientoModel As RequestAcercamiento = New RequestAcercamiento(UsuarioActual.CveEmpresa, CveAcercamientoCRMActualizar) @@ -11191,8 +11188,8 @@ Partial Class Ventas Dim CveTipoProcesoCRM As Integer = objAcercamiento.Result(0).CveTipoProceso.ToEntero Dim Respuesta As Boolean = False - Dim ObjCRM As New ClsCRM(ObjTRansaccion) - Dim ObjEventoBitacora As New ClsOIEventos(ObjTRansaccion) + Dim ObjCRM As New ClsCRM(ObjTransaccion) + Dim ObjEventoBitacora As New ClsOIEventos(ObjTransaccion) If objAcercamiento.Result.Count > 0 Then If ObjCRM.UpdateAcercamientoCotizacion(CveAcercamientoCRMActualizar, ImporteCRM, UsuarioActual.CveEmpresa) Then @@ -37508,7 +37505,7 @@ Partial Class Ventas Protected Sub DdlClienteSucursal_SelectedIndexChanged(sender As Object, e As EventArgs) Dim CveClienteSplit As Integer = -1 - CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero) + CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, CveClienteSucursalL:=DdlClienteSucursalSucursal, CveTipoVentaL:=RBLTipoVenta.SelectedValue.ToEntero) End Sub Private Function DdlClienteSucursalCliente() As Integer @@ -37794,13 +37791,13 @@ Partial Class Ventas End Sub Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero) + CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, CveClienteSucursalL:=DdlClienteSucursalSucursal, CveTipoVentaL:=RBLTipoVenta.SelectedValue.ToEntero) End Sub - Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer) + Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer, Optional CveClienteSucursalL As Integer = -1, Optional CveTipoVentaL As Integer = -1) If CveProcedimiento > 0 Then Dim objVenta As New ClsVentas - If objVenta.GetProcedimientoProducto(CveProcedimiento, 1, UsuarioActual.CveEmpresa, CveClienteL, CveSubProyectoL) Then + If objVenta.GetProcedimientoProducto(CveProcedimiento, 1, UsuarioActual.CveEmpresa, CveClienteL, CveSubProyectoL, CveClienteSucursalL, CveTipoVentaL) Then GvProductosProcedimiento.DataSource = objVenta.DtResultados End If objVenta.Dispose() @@ -37846,7 +37843,7 @@ Partial Class Ventas End Sub - Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean + Private Function GeneraOS(ByRef TransacSQL As SqlClient.SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean Dim Errores As Boolean = False