diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index be04003c1..97108838c 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -2492,7 +2492,8 @@ Partial Class AF_AF TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero, CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero, FechaBaja:=FechaBaja, Lat:=TxtLatitud.Text, Longi:=TxtLongitud.Text, AgroCuenta:=TxtAgroCuenta.Text) > 0 Then - ViewState("CveActivoFijo") = ObjAF.CveActivoFijo + ViewState("CveActivoFijo") = ObjAF.CveActivoFijo + GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing Else ErrorGuardar = True End If @@ -2506,7 +2507,6 @@ Partial Class AF_AF End If Next - If Not ErrorGuardar Then For Each GvRowPlagaEnfermedad As GridViewRow In GvPlagaEnfermedad.Rows If Not ObjAF.AddPlagaEnfermedad(ObjAF.CveActivoFijo, GvRowPlagaEnfermedad.DataKey("Observaciones"), GvRowPlagaEnfermedad.DataKey("Fecha").ToDate, UsuarioActual.CveUsuario) Then @@ -2516,11 +2516,8 @@ Partial Class AF_AF Next End If - - If Not ErrorGuardar Then - For Each GvRowMantenimiento As GridViewRow In GvMantenimientos.Rows Dim CveMantenimientoTemp As Integer = ObjAF.AddMantenimientos(ObjAF.CveActivoFijo, GvRowMantenimiento.DataKey("Mantenimiento"), GvRowMantenimiento.DataKey("Observaciones"), GvRowMantenimiento.DataKey("Fecha").ToDate, UsuarioActual.CveUsuario, "") @@ -2556,7 +2553,6 @@ Partial Class AF_AF End If - Else ErrorGuardar = True Exit For @@ -2564,8 +2560,6 @@ Partial Class AF_AF Next - - End If End If @@ -2603,7 +2597,9 @@ Partial Class AF_AF 'UPHistModificaciones.Update() 'UpDatos.Update() ' GuardaValores() - ErrorGuardar = True + ErrorGuardar = True + Else + GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing End If End If diff --git a/AF/RepDepreciacion.aspx.vb b/AF/RepDepreciacion.aspx.vb index 00cdc75ca..ca2c7f659 100644 --- a/AF/RepDepreciacion.aspx.vb +++ b/AF/RepDepreciacion.aspx.vb @@ -24,7 +24,6 @@ Partial Class AF_RepDepreciacion Protected Sub BtnGenerarDepreciacion_Click(sender As Object, e As System.EventArgs) Handles BtnGenerarDepreciacion.Click - If GvDatos.Rows.Count > 0 Then Dim CveActivoFijo As Integer Dim ObjInventario As New ClsInventarios @@ -41,11 +40,12 @@ Partial Class AF_RepDepreciacion Dim ConceptoPolizaDetalle As String = String.Format("Depreciación - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text) If CvePrePoliza > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -MontoDepreciacion, -MontoDepreciacion, 270, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, MontoDepreciacion, MontoDepreciacion, 101, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then ErrorMovInv = True Exit For End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion, MontoDepreciacion, 101, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion, MontoDepreciacion, 270, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then ErrorMovInv = True Exit For End If @@ -54,7 +54,6 @@ Partial Class AF_RepDepreciacion Exit For End If End If - Next If ErrorMovInv = False Then diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3360ec10d..2679686e1 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -597,26 +597,48 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTCuentasDepositosClientes(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional Estatus As Boolean = True) As DataTable + Property GlobalDTCuentasDepositosClientes(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveCuentaDeposito As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}" - If Application(AppNombre) Is Nothing Then + If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim P As New ClsGenerales - If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados + If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then HttpContext.Current.Application(AppNombre) = P.DtResultados P.Dispose() End If - Dim Str As New StringBuilder - Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) - If CveCliente <> -1 Then Str.AppendFormat(" AND CveCliente = {0}", CveCliente) - If Estatus = True Then Str.AppendFormat(" AND Estatus = 1 ") - Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows) + Dim filtros As New List(Of String) + If CveCliente <> -1 Then filtros.Add($"CveCliente = {CveCliente}") + If CveCuentaDeposito <> -1 Then filtros.Add($"CveCuentaDeposito = {CveCuentaDeposito}") + + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows) GlobalDTCuentasDepositosClientes = Dv.ToTable Dv.Dispose() End Get Set(value As DataTable) Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}" - Application(AppNombre) = value + HttpContext.Current.Application(AppNombre) = value + End Set + End Property + + Property GlobalDTCuentasDepositosPersonales(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveCuentaDeposito As Integer = -1) As DataTable + Get + Dim AppNombre As String = $"GlobalDTCuentasDepositosPersonales-{CveEmpresa}" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim P As New ClsGenerales + If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CvePersonal:=-2) Then HttpContext.Current.Application(AppNombre) = P.DtResultados + P.Dispose() + End If + Dim filtros As New List(Of String) + If CvePersonal <> -1 Then filtros.Add($"CvePersonal = {CvePersonal}") + If CveCuentaDeposito <> -1 Then filtros.Add($"CveCuentaDeposito = {CveCuentaDeposito}") + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows) + GlobalDTCuentasDepositosPersonales = Dv.ToTable + Dv.Dispose() + + End Get + Set(value As DataTable) + Dim AppNombre As String = $"GlobalDTCuentasDepositosPersonales-{CveEmpresa}" + HttpContext.Current.Application(AppNombre) = value End Set End Property Property GlobalDTProveedorClasificacion(CveEmpresa As Integer) As DataTable @@ -5730,7 +5752,7 @@ Public Class ClsPaginas Dim VendedorMail As String = "" Dim VendedorTelefono As String = "" Dim VendedorCelular As String = "" - Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString)) + Dim RowVendedor As DataRow = GlobalDTVendedores(Vta.CveEmpresa, VendedorTipo:=-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString)) If Not IsNothing(RowVendedor) Then VendedorNombre = RowVendedor("Vendedor").ToString VendedorMail = RowVendedor("Correo").ToString @@ -7571,7 +7593,7 @@ Public Class ClsPaginas ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento Dim ContabilizableISR As Boolean = False - If UsuarioActual.CveEmpresa.Contiene(140, 7, 11, 12, 122, 145, 172, 173) Then + If UsuarioActual.CveEmpresa.Contiene(140, 7, 11, 12, 122, 145, 172, 173, 174) Then ContabilizableISR = True End If Dim Ret As ConceptosRetenciones = CompraActual.ConceptoPrePolizaRetISR diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index e48f19d44..7606b0287 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -330,7 +330,8 @@ Public Class ClsRH End Function Public Function AddAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, CveUsuario As Integer, CveEmpresa As Integer, - chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, chkAplicaUtilidades As Boolean) As Boolean + chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, + chkAplicaUtilidades As Boolean, aplicaPago As Integer, aplicaPagoDoble As Integer, aplicaPrimaVac As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_AsistenciasInasistenciasAdd") @@ -347,6 +348,9 @@ Public Class ClsRH .Add("@AplicaRetardo", SqlDbType.Bit).Value = chkAplicaRetardo .Add("@AplicaAguinaldo", SqlDbType.Bit).Value = chkAplicaAguinaldo .Add("@AplicaUtilidades", SqlDbType.Bit).Value = chkAplicaUtilidades + .Add("@AplicaPago", SqlDbType.Int).Value = aplicaPago + .Add("@AplicaPagoDoble", SqlDbType.Int).Value = aplicaPagoDoble + .Add("@AplicaPrimaVac", SqlDbType.Int).Value = aplicaPrimaVac End With @@ -367,7 +371,8 @@ Public Class ClsRH End Function Public Function UpdateAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, Estatus As Boolean, CveAI As Integer, -chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, chkAplicaUtilidades As Boolean) As Boolean + chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, chkAplicaUtilidades As Boolean, + aplicaPago As Integer, aplicaPagoDoble As Integer, aplicaPrimaVac As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_AsistenciasInasistenciasUpdate") @@ -384,6 +389,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@AplicaRetardo", SqlDbType.Bit).Value = chkAplicaRetardo .Add("@AplicaAguinaldo", SqlDbType.Bit).Value = chkAplicaAguinaldo .Add("@AplicaUtilidades", SqlDbType.Bit).Value = chkAplicaUtilidades + .Add("@AplicaPago", SqlDbType.Int).Value = aplicaPago + .Add("@AplicaPagoDoble", SqlDbType.Int).Value = aplicaPagoDoble + .Add("@AplicaPrimaVac", SqlDbType.Int).Value = aplicaPrimaVac End With Try diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index f6fb9490b..640d0d915 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -144,7 +144,8 @@ Public Class LogicNominas Dim SalarioDiarioSS As Double = 0 Dim ClaveEstado As String = "" Dim MetodoPagoFijo As Boolean - + Dim totalDb As Decimal + Dim subTotalDb As Decimal Dim CodigoPostal As String = "" Dim ObjIncapacidades As New List(Of CFDINominaIncapacidades) @@ -157,6 +158,8 @@ Public Class LogicNominas Dim drow As DataRow = objNomina.DtResultados.Rows(0) CvePersonal = drow("CvePersonal").ToString().ToEntero() CvePeriodo = drow("CvePeriodo").ToString().ToEntero() + totalDb = drow("Total").ToString().ToDecimal() + subTotalDb = drow("SubTotal").ToString().ToDecimal() cfdi.Nomina.Antiguedad = drow("Antiguedad").ToString().ToEntero() cfdi.Nomina.UltimoSueldoOrdinario = drow("UltimoSueldoOrdinario").ToString().ToDecimal() Serie = objNomina.Serie @@ -438,9 +441,9 @@ Public Class LogicNominas cfdi.Comprobante.Serie = Serie cfdi.Comprobante.Folio = Folio cfdi.Comprobante.Fecha = Now - cfdi.Comprobante.SubTotal = cfdi.Nomina.TotalPercepciones.ToString().ToDecimal() + cfdi.Nomina.TotalOtrosPagos.ToString().ToDecimal() + cfdi.Comprobante.SubTotal = subTotalDb 'cfdi.Nomina.TotalPercepciones.ToString().ToDecimal() + cfdi.Nomina.TotalOtrosPagos.ToString().ToDecimal() cfdi.Comprobante.Descuentos = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal() - cfdi.Comprobante.Total = cfdi.Comprobante.SubTotal - cfdi.Comprobante.Descuentos 'cfdi.Nomina.TotalPercepciones + cfdi.Nomina.TotalOtrosPagos - cfdi.Nomina.TotalDeducciones + cfdi.Comprobante.Total = totalDb 'cfdi.Comprobante.SubTotal - cfdi.Comprobante.Descuentos 'cfdi.Nomina.TotalPercepciones + cfdi.Nomina.TotalOtrosPagos - cfdi.Nomina.TotalDeducciones cfdi.Comprobante.MotivoDescuento = "" '"Deducciones nómina" cfdi.Comprobante.Moneda = "MXN" cfdi.Comprobante.TipoComprobante = "N" diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7b28e1a9d..ea0fb4252 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -5201,6 +5201,8 @@ Partial Class Bancos_IE dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) ElseIf CveCliente > 0 Then dtc = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) + ElseIf cvepersonal > 0 Then + dtc = GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) End If @@ -5221,20 +5223,16 @@ Partial Class Bancos_IE ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE <= -1 Then If dtc.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus = 'True' ") trCuentaDeposito.Visible = True BtnGuardar.ToolTip = "" - Else - BtnGuardar.Enabled = False Alert("El proveedor no tiene cuentas deposito.", TipoMensaje.MsgAdvertencia) BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" End If DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - UpGuardar.Update() Else diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index d96237c96..1160ede4b 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1400,7 +1400,7 @@ Partial Class Bancos_ProveedoresAbonar Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) - Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + Dim dtc As DataTable = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) If dtc IsNot Nothing AndAlso dtc.Rows.Count = 1 Then If dtc.Rows.Count > 0 Then diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a77b0da03..0c645ba81 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -8648,7 +8648,6 @@ Partial Class Compras_Compras End If Dim CveCompraNC, IdCtaContable, IdCtaContableComp As Integer - Dim PorcentajePago As Decimal Dim ConceptoPoliza As String = $"Amortización {NombreProveedor} - {TxtSerie.Text}-{TxtFolio.Text}" Try diff --git a/Contabilidad2/CatContaEjercicios.aspx b/Contabilidad2/CatContaEjercicios.aspx index a61d0f851..7410bbd41 100644 --- a/Contabilidad2/CatContaEjercicios.aspx +++ b/Contabilidad2/CatContaEjercicios.aspx @@ -24,14 +24,13 @@ - - + diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index d8d50d128..da8efa4a5 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1814,6 +1814,9 @@ Partial Class General_SaldosIniciales If Not dt.Columns.Contains("CveCuentaContableDepreciacion") Then dt.Columns.Add("CveCuentaContableDepreciacion", GetType(Integer)) End If + If Not dt.Columns.Contains("CveCuentaContableDepreciacionAcum") Then + dt.Columns.Add("CveCuentaContableDepreciacionAcum", GetType(Integer)) + End If Dim sbErrores As New StringBuilder For Each Row As DataRow In dt.Rows @@ -1821,11 +1824,9 @@ Partial Class General_SaldosIniciales Dim Codigo As String = Row("Código").ToString() Dim Descripcion As String = Row("Descripción").ToString() - Dim CuentaContable As String = Row("Cuenta Contable").ToString().Trim.Replace("-", "").Replace(" ", "") - + Dim CuentaContable As String = Row("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "") If CuentaContable.Length > 0 Then Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero() - If CveCuentaContable > 0 Then Row("CveCuentaContable") = CveCuentaContable Else @@ -1833,11 +1834,9 @@ Partial Class General_SaldosIniciales ErrorAF = True End If End If - CuentaContable = Row("Cuenta Depreciación").ToString().Trim.Replace("-", "").Replace(" ", "") If CuentaContable.Length > 0 Then Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero() - If CveCuentaContable > 0 Then Row("CveCuentaContableDepreciacion") = CveCuentaContable Else @@ -1845,7 +1844,16 @@ Partial Class General_SaldosIniciales ErrorAF = True End If End If - + CuentaContable = Row("Cuenta Depreciación Acumulada").ToString().Trim.Replace("-", "").Replace(" ", "") + If CuentaContable.Length > 0 Then + Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero() + If CveCuentaContable > 0 Then + Row("CveCuentaContableDepreciacionAcum") = CveCuentaContable + Else + sbErrores.AppendLine($"Activo Fijo {Codigo} {Descripcion} cuenta {CuentaContable} no encontrada.
") + ErrorAF = True + End If + End If Next If Not ErrorAF Then @@ -1860,8 +1868,6 @@ Partial Class General_SaldosIniciales Dim ObjConta As New ClsContabilidad(ObjAF.IniciaTransacSQL) Try - - Dim Contador As Integer = 0 Dim NumRow As Integer = 0 @@ -1870,8 +1876,8 @@ Partial Class General_SaldosIniciales Dim Descripcion As String = Row("Descripción").ToString() Dim TipoAF As String = Row("Tipo").ToString().Trim Dim SubTipo As String = Row("SubTipo").ToString().Trim - Dim Valor As Decimal = Row("Valor").ToString().ToDecimal - Dim FechaAF As Date = Row("Fecha").ToString().ToDate + Dim Valor As Decimal = Row("Valor de compra").ToString().ToDecimal + Dim FechaAF As Date = Row("Fecha de compra").ToString().ToDate Dim NumeroSerie As String = Row("No. Serie").ToString() Dim Año As Integer = Row("Año").ToString().ToEntero() Dim CuentaContable As String = Row("Cuenta Contable").ToString() @@ -1891,6 +1897,7 @@ Partial Class General_SaldosIniciales Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"Nombre = '{Cliente}'").ToString().ToEntero() Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero() Dim CveCuentaContableDepreciacion As Integer = Row("CveCuentaContableDepreciacion").ToString().ToEntero() + Dim CveCuentaContableDepreciacionAcum As Integer = Row("CveCuentaContableDepreciacionAcum").ToString().ToEntero() 'VALIDACIONES If Not CveSubTipoAF > 0 Then Alert($"No se encontró el SubTipo: {TipoAF} Descripcion: {Descripcion} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorAF = True : Exit For @@ -1921,6 +1928,13 @@ Partial Class General_SaldosIniciales ErrorAF = True End If End If + If CveCuentaContableDepreciacion > 0 Then + If Not ObjConta.AddCuentasAsignaciones(270, UsuarioActual.CveEmpresa, CveCuentaContableDepreciacionAcum, -1, + -1, -1, -1, -1, -1, 0, CveBancoCuenta:=-1, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=CveAF, + CveTipoGasto:=-1, RegeneraCuenta:=False) Then + ErrorAF = True + End If + End If Else ErrorAF = True Exit For @@ -1935,6 +1949,7 @@ Partial Class General_SaldosIniciales ObjAF.Commit() TxtExcel.Text = "" UpDatos.Update() + GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing Else Alert(String.Format("Se agregaron: {0} Activos Fijos correctamente.", NumRows), TipoMensaje.MsgInformacion) ObjAF.Commit() diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 5091cc40f..9c54bca1d 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -75,12 +75,12 @@ public partial class Nomina_Finiquito : ClsPaginas } set { ViewState["dtempleados"] = value; } - } + } #endregion protected void Page_Load(object sender, EventArgs e) { if (!Page.IsPostBack) - { + { GvFinOrdinario.DataSource = new DataTable(); GVFinIndemnizacion.DataSource = new DataTable(); GvFinOrdinario.DataBind(); @@ -154,22 +154,20 @@ public partial class Nomina_Finiquito : ClsPaginas FechaInicio = LblFechaAlta.Text.ToDateTime(); TxtObservaciones.Text = da["Observaciones"].ToString(); TxtFechaBaja.Text = string.Format("{0:dd/MM/yyyy}", da["FechaFin"]); + if (da["CveMotivoBaja"].ToString() == "") { - if (da["CveMotivoBaja"].ToString() == "") - { - chkIndemnizacion.Checked = true; - chkSeparacionUnica.Checked = true; - chkPrimaantiguedad.Checked = true; - } - else - { - chkIndemnizacion.Checked = da["ValIndemnizacion"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); - chkSeparacionUnica.Checked = da["ValSeparacionunica"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); - chkPrimaantiguedad.Checked = da["ValPrimadeantiguedad"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); - } + chkIndemnizacion.Checked = true; + chkSeparacionUnica.Checked = true; + chkPrimaantiguedad.Checked = true; } - - DdlTipoPeriodo.SelectedValueExist(((da["CveTipoPeriodo"]).ToString()=="6"?"-2":"-1")); + else + { + chkIndemnizacion.Checked = da["ValIndemnizacion"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); + chkSeparacionUnica.Checked = da["ValSeparacionunica"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); + chkPrimaantiguedad.Checked = da["ValPrimadeantiguedad"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); + } + + DdlTipoPeriodo.SelectedValueExist(((da["CveTipoPeriodo"]).ToString() == "6" ? "-2" : "-1")); DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]); TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}"; ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE"); @@ -183,6 +181,30 @@ public partial class Nomina_Finiquito : ClsPaginas { loadsobrerecibo(onom); } + + if (da["Autorizado"].ToString().ToEntero() == 1) + { + + LnkAutorizar.Visible = false; + LnkTimbrar.Visible = true; + + LnkGuardarDatos.Enabled = false; + + LnkGuardarDatos.CssClass = "btn btn-default"; + LnkGuardarDatos.ToolTip = "el finiquito ha sido capturado."; + } + + if (da["SeTimbro"].ToString().ToEntero() == 1) + { + LnkAutorizar.Visible = false; + LnkTimbrar.Visible = false; + + LnkGuardarDatos.Enabled = false; + + LnkGuardarDatos.CssClass = "btn btn-default"; + LnkGuardarDatos.ToolTip = "el finiquito ha sido capturado."; + } + UpAcciones.Update(); } } CamposCalculados(); @@ -537,13 +559,13 @@ public partial class Nomina_Finiquito : ClsPaginas string[] getcolumnas = new string[] { "CvePersonal", "CveMetodoPago", "CveNomina", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" }; - DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", CvePersonal), "", getcolumnas); + DataTable dtr = dtempleados.FiltraParametros(string.Format(" CvePersonal={0} ", CvePersonal), "", getcolumnas); int CveNomina = dtr.Rows[0]["CveNomina"].ToString().ToEntero(); LogicNominas lognom = new LogicNominas(); string Msg = ""; - Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual,versionTimbre:(UsuarioActual.CveEmpresa == 119? VersionTimbradoEnum.PorDefectoEmpresa: VersionTimbradoEnum.Version3_3)); + Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, versionTimbre: (UsuarioActual.CveEmpresa == 119 ? VersionTimbradoEnum.PorDefectoEmpresa : VersionTimbradoEnum.Version3_3)); if (Msg != null && Msg.Length > 0) { Alert(Msg, TipoMensaje.MsgAdvertencia); } @@ -738,7 +760,7 @@ public partial class Nomina_Finiquito : ClsPaginas DiasFaltados = string.Format("{0}", drow["DiasFaltados"].ToString().ToEntero()); DiasVacaciones = string.Format("{0}", drow["DiasVacaciones"].ToString().ToEntero()); FechaInicio = string.Format("{0:dd/MM/yyyy}", drow["FechaInicio"]); - FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]); + //FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]); DiasRetardos = string.Format("{0}", drow["DiasRetardos"].ToString().ToEntero()); DiasIncapacidad = string.Format("{0}", drow["DiasIncapacidad"].ToString().ToEntero()); } @@ -753,6 +775,7 @@ public partial class Nomina_Finiquito : ClsPaginas NombreCompleto = drow["NombreCompleto"].ToString(); RFC = drow["RFC"].ToString(); CURP = drow["CURP"].ToString(); + FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]); TipoPeriodo = drow["TipoPeriodo"].ToString(); NSS = drow["NSS"].ToString(); } @@ -1087,7 +1110,7 @@ public partial class Nomina_Finiquito : ClsPaginas using (ClsRH ObjPersonal = new ClsRH()) using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL())) { - if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked,TxtObservaciones.Text ) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) + if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked, TxtObservaciones.Text) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) { DataRow da = ObjPersonal.DtResultados.Rows[0]; CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); @@ -1136,7 +1159,8 @@ public partial class Nomina_Finiquito : ClsPaginas }*/ dtempleadosConceptos = null; dtempleados = null; - if (objnom.GetNominaEmpleado(-1, -1, -1, CvePeriodoFiniquito, UsuarioActual.CveEmpresa, 1, 3, CvePersonal) && objnom.DTSetResultados.Tables.Count > 1) + LnkAutorizar.Visible = true; + if (objnom.GetNominaEmpleado(-1, -1, -1, CvePeriodoFiniquito, UsuarioActual.CveEmpresa, 1, 3, CvePersonal,Neto:1) && objnom.DTSetResultados.Tables.Count > 1) { dtempleados = objnom.DTSetResultados.Tables[3]; LnkAutorizar.Visible = (dtempleados.COUNT("CvePersonal", "NomAutorizado =0") > 0); @@ -1164,7 +1188,6 @@ public partial class Nomina_Finiquito : ClsPaginas LnkGuardarDatos.CssClass = "btn btn-default"; LnkGuardarDatos.ToolTip = "el finiquito ha sido capturado."; } - LnkAutorizar.Visible = true; } protected void LnkAutorizar_Click(object sender, EventArgs e) @@ -1350,7 +1373,7 @@ public partial class Nomina_Finiquito : ClsPaginas if (continuar) { continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero()); - if(onom.DtResultados.Rows.Count > 0) + if (onom.DtResultados.Rows.Count > 0) { DataRow drow = onom.DtResultados.Rows[0]; @@ -1358,7 +1381,7 @@ public partial class Nomina_Finiquito : ClsPaginas LtlSFSDI.Text = string.Format("
{0:##,###,###.00##}
", drow["SDI"]); LtlSFDias.Text = string.Format("
{0:##,###,###}
", drow["diasMesAnterior"]); LtlSFPercepciones.Text = string.Format("
{0:##,###,###.00##}
", drow["TotalPercepciones"]); - LtlSFVar.Text = string.Format("
(Percepciones /días)\r\n{0:##,###,###.00##}
", drow["TotalPercepciones"].ToString().ToDecimal() / drow["diasMesAnterior"].ToString().ToDecimal() ); + LtlSFVar.Text = string.Format("
(Percepciones /días)\r\n{0:##,###,###.00##}
", drow["TotalPercepciones"].ToString().ToDecimal() / drow["diasMesAnterior"].ToString().ToDecimal()); LtlSF.Text = string.Format("
Si((Tipo de salario ='Fijo'),SDI,(Salario Variable + SDI))\r\n{0:##,###,###.00##}
", drow["SalarioBC"]); } GVSDF.DataSource = onom.DTSetResultados.Tables[1]; diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 0cc9067cb..b5677c2e6 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -106,6 +106,16 @@ public partial class Nomina_Nomina2 : ClsPaginas set { ViewState["DtSuaProcesado"] = value; } } + protected bool enviarCorreoEnTimbrado + { + get + { + if (ViewState["enviarCorreoEnTimbrado"] == null) { return false; } + else { return (bool)ViewState["enviarCorreoEnTimbrado"]; } + } + + set { ViewState["enviarCorreoEnTimbrado"] = value; } + } protected bool PermisoCancelarEmitido { get @@ -249,6 +259,7 @@ public partial class Nomina_Nomina2 : ClsPaginas if (!IsPostBack) { + enviarCorreoEnTimbrado = (UsuarioActual.CveEmpresa == 141 ? false : true); LnkCargaNetos.Visible = (UsuarioActual.Empresa.Funcionalidad(267) == "1") || (UsuarioActual.CveRol == 1); if (UsuarioActual.CveEmpresa == 141) { ddlfiniquito.SelectedValueExist("2"); } using (ClsRH objrh = new ClsRH()) @@ -556,7 +567,7 @@ public partial class Nomina_Nomina2 : ClsPaginas LnkFormatoTabular.Visible = true; HypPDFSTimbrados.Visible = true; - if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero(), CveTipoTrabajador: CveTipoTrabajador,Neto: ddlfiniquito.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 4) + if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero(), CveTipoTrabajador: CveTipoTrabajador, Neto: ddlfiniquito.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 4) { dtempleados = objnom.DTSetResultados.Tables[3]; dtempleadosConceptos = objnom.DTSetResultados.Tables[4]; @@ -1237,22 +1248,22 @@ public partial class Nomina_Nomina2 : ClsPaginas if (pdf != null) { List objarch = new List(); - objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" }); - if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa)) + if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa)) { string Ruta = ""; string PathXML = ""; string PathXMLF = ""; string Xmlname = ""; string XmlnameF = ""; - string empleado = ""; + //string empleado = ""; Ruta = UsuarioActual.Empresa.Ruta; PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml"; PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; Xmlname = $"{ObjNomina.SerieFolio}.xml"; XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; - + objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" }); + //this.GuardaLog(PathXML); if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML)) { objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname }); @@ -1326,96 +1337,97 @@ public partial class Nomina_Nomina2 : ClsPaginas objrh.GetPersonal(-1, UsuarioActual.CveEmpresa); dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "Correo", "NombreCompleto", "RFC", "CURP" }); } - using (ClsNominas ObjNomina = new ClsNominas()) { - foreach (GridViewRow gvRow in GvNominas.Rows) + using (ClsNominas ObjNomina = new ClsNominas()) { - CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero(); - int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero(); - int CveNomina = gvRow.DataKey("CveNomina").ToEntero(); - LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar"); - string Correo = string.Empty; - string NombreCompleto = string.Empty; - string RFC = string.Empty; - string CURP = string.Empty; - if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null) + foreach (GridViewRow gvRow in GvNominas.Rows) { - Correo = drow["Correo"].ToString(); - NombreCompleto = drow["NombreCompleto"].ToString(); - RFC = drow["RFC"].ToString(); - CURP = drow["CURP"].ToString(); - } - if (CvePersonal > 0 && LnkTimbrar.Visible) - { - LogicNominas lognom = new LogicNominas(); - - string Msg = ""; - Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, versionTimbre: (UsuarioActual.CveEmpresa == 119 ? VersionTimbradoEnum.PorDefectoEmpresa : VersionTimbradoEnum.Version3_3)); - - if (Msg != null && Msg.Length > 0) + CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero(); + int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero(); + int CveNomina = gvRow.DataKey("CveNomina").ToEntero(); + LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar"); + string Correo = string.Empty; + string NombreCompleto = string.Empty; + string RFC = string.Empty; + string CURP = string.Empty; + if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null) { - Msg = msgCorregidoSat(Msg, CvePersonal, RFC, CURP); - msggral = string.Format("{0}{3}{2}
{1}
", msggral, Msg, gvRow.DataKey("Nombre"), gvRow.DataKey("Codigo")); + Correo = drow["Correo"].ToString(); + NombreCompleto = drow["NombreCompleto"].ToString(); + RFC = drow["RFC"].ToString(); + CURP = drow["CURP"].ToString(); } - else + if (CvePersonal > 0 && LnkTimbrar.Visible) { - LnkTimbrar.Visible = false; - gvRow.CssClass = "success"; - gvRow.FindControl("ImgDelete").Visible = false; - gvRow.FindControl("Imgdesautorizar").Visible = false; + LogicNominas lognom = new LogicNominas(); - gvRow.FindControl("LnkCancelar").Visible = true; - gvRow.FindControl("HypXml").Visible = true; - gvRow.FindControl("HypPDF").Visible = true; + string Msg = ""; + Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, versionTimbre: (UsuarioActual.CveEmpresa == 119 ? VersionTimbradoEnum.PorDefectoEmpresa : VersionTimbradoEnum.Version3_3)); - gvRow.ForeColor = Color.Green; - - if (Correo.Trim().Length > 0) + if (Msg != null && Msg.Length > 0) { - byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta); - if (pdf != null) + Msg = msgCorregidoSat(Msg, CvePersonal, RFC, CURP); + msggral = string.Format("{0}{3}{2}
{1}
", msggral, Msg, gvRow.DataKey("Nombre"), gvRow.DataKey("Codigo")); + } + else + { + LnkTimbrar.Visible = false; + gvRow.CssClass = "success"; + gvRow.FindControl("ImgDelete").Visible = false; + gvRow.FindControl("Imgdesautorizar").Visible = false; + + gvRow.FindControl("LnkCancelar").Visible = true; + gvRow.FindControl("HypXml").Visible = true; + gvRow.FindControl("HypPDF").Visible = true; + + gvRow.ForeColor = Color.Green; + + if (enviarCorreoEnTimbrado && Correo.Trim().Length > 0) { - List objarch = new List(); - objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" }); - - if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa)) + byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta); + if (pdf != null) { - string Ruta = ""; - string PathXML = ""; - string PathXMLF = ""; - string Xmlname = ""; - string XmlnameF = ""; - string empleado = ""; - Ruta = UsuarioActual.Empresa.Ruta; - PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml"; - PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; - Xmlname = $"{ObjNomina.SerieFolio}.xml"; - XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; + List objarch = new List(); - if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML)) + if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa)) { - objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname }); + string Ruta = ""; + string PathXML = ""; + string PathXMLF = ""; + string Xmlname = ""; + string XmlnameF = ""; + //string empleado = ""; + Ruta = UsuarioActual.Empresa.Ruta; + PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml"; + PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; + Xmlname = $"{ObjNomina.SerieFolio}.xml"; + XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; + objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" }); + + if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML)) + { + objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname }); + } + if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF)) + { + objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF }); + } } - if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF)) + Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); + //Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch); + using (ClsRH objrh = new ClsRH()) { - objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF }); + objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario); } } - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch); - //Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch); - using (ClsRH objrh = new ClsRH()) - { - objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario); - } } + + } } - - } } - } if (msggral.Length > 0) { @@ -1492,28 +1504,28 @@ public partial class Nomina_Nomina2 : ClsPaginas if (Correo.Trim().Length > 0) { - byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta); + byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta); if (pdf != null) { - List objarch = new List(); - objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" }); + List objarch = new List(); using (ClsNominas ObjNomina = new ClsNominas()) { - if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa)) + if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa)) { string Ruta = ""; string PathXML = ""; string PathXMLF = ""; string Xmlname = ""; string XmlnameF = ""; - string empleado = ""; + //string empleado = ""; Ruta = UsuarioActual.Empresa.Ruta; PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml"; PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; Xmlname = $"{ObjNomina.SerieFolio}.xml"; XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; + objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" }); if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML)) { @@ -1597,30 +1609,30 @@ public partial class Nomina_Nomina2 : ClsPaginas ClsNominas ObjPeriodo = new ClsNominas(); ObjPeriodo.CambiaEstatusPeriodo(CvePeriodo, (int)enumNominasEstatus.Timbrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); ObjPeriodo.Dispose(); - if (Correo.Trim().Length > 0) + if (enviarCorreoEnTimbrado && Correo.Trim().Length > 0) { byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta); if (pdf != null) { - List objarch = new List(); - objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" }); + List objarch = new List(); using (ClsNominas ObjNomina = new ClsNominas()) { - if (ObjNomina.GetNom_Nominas(-1, TxtCvePersonal.Text.ToEntero(), TxtCvePeriodo.Text.ToEntero(), -1, UsuarioActual.CveEmpresa)) + if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa)) { string Ruta = ""; string PathXML = ""; string PathXMLF = ""; string Xmlname = ""; string XmlnameF = ""; - string empleado = ""; + //string empleado = ""; Ruta = UsuarioActual.Empresa.Ruta; PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml"; PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; Xmlname = $"{ObjNomina.SerieFolio}.xml"; XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml"; + objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" }); if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML)) { @@ -7057,7 +7069,7 @@ public partial class Nomina_Nomina2 : ClsPaginas while (Neto != NetoSimulado && continuarV) { - if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, Neto,ddlfiniquito.SelectedValue.ToEntero()) + if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, Neto, ddlfiniquito.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 1) { dtempleadosSimula = objnom.DTSetResultados.Tables[3]; diff --git a/Nomina/RepFiniquito.aspx b/Nomina/RepFiniquito.aspx index 6eac3f490..7fea45c34 100644 --- a/Nomina/RepFiniquito.aspx +++ b/Nomina/RepFiniquito.aspx @@ -30,7 +30,7 @@
- + diff --git a/Nomina/RepFiniquito.aspx.cs b/Nomina/RepFiniquito.aspx.cs index 1e9468c57..7ac7410bb 100644 --- a/Nomina/RepFiniquito.aspx.cs +++ b/Nomina/RepFiniquito.aspx.cs @@ -29,10 +29,10 @@ public partial class Nomina_RepFiniquito : ClsPaginas int diafin = DateTime.DaysInMonth(dnow.Year, dnow.Month); TxtFechaInicio.Text = string.Format("01/{0:MM/yyyy}", dnow); TxtFechaFin.Text = string.Format("{1}/{0:MM/yyyy}", dnow,diafin); - RcveEstatusFiniquito = Request["cveEstatusFiniquito"] == null ? 0 : Request["cveEstatusFiniquito"].ToString().ToEntero(); + RcveEstatusFiniquito = Request["cveEstatusFiniquito"] == null ? -1 : Request["cveEstatusFiniquito"].ToString().ToEntero(); RcveSubProyecto = Request["cveSubProyecto"] == null ? 0 : Request["cveSubProyecto"].ToString().ToEntero(); - - + DdlEstatusFiniquito.SelectedValueExist(RcveEstatusFiniquito); + RcveEstatusFiniquito = DdlEstatusFiniquito.SelectedValue.ToEntero(); CargaRepFiniquitos(); } } @@ -48,6 +48,7 @@ public partial class Nomina_RepFiniquito : ClsPaginas } protected void BtnConsultar_Click(object sender, EventArgs e) { + RcveEstatusFiniquito = DdlEstatusFiniquito.SelectedValue.ToEntero(); CargaRepFiniquitos(); } } diff --git a/RH/CalculoSBC.aspx b/RH/CalculoSBC.aspx index ed40d0ff9..af9b49c14 100644 --- a/RH/CalculoSBC.aspx +++ b/RH/CalculoSBC.aspx @@ -861,26 +861,41 @@
+
- Formato Registro Patronal - Formato Salario +
+ Formatos + + +
    +
  • + Registro Patronal +
    • +
  • + Salario +
    • +
  • + Tipo salario +
    • +
- - -
- - - - -
- Fecha : -
+ + +
+ + + + + +
+ Fecha : +
- + @@ -911,6 +926,7 @@ + diff --git a/RH/CalculoSBC.aspx.cs b/RH/CalculoSBC.aspx.cs index 66359a12a..0f2a316f1 100644 --- a/RH/CalculoSBC.aspx.cs +++ b/RH/CalculoSBC.aspx.cs @@ -391,6 +391,75 @@ public partial class RH_CalculoSBC : ClsPaginas Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString(), TipoMensaje.MsgAdvertencia); } } + protected void LnkFormatocMasivaTS_Click(object sender, EventArgs e) + { + try + { + bool continuar = true; + string msgerror = ""; + if (dtsalario == null || dtsalario.Rows.Count == 0) + { + msgerror = "favor de calcular primero"; + continuar = false; + } + if (continuar) + { + + ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook(); + + var libro = wb.AddWorksheet("Salario"); + int column = 1; + libro.Cell(1, column).Value = "Codigo"; + column++; + libro.Cell(1, column).Value = "Empleado"; + column++; + libro.Cell(1, column).Value = "TipodeSalario"; + libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + + int Fila = 1; + foreach (DataRow erow in dtsalario.Rows) + { + Fila++; + column = 1; + libro.Cell(Fila, column).Value = string.Format("'{0}", erow["Codigo"]); + column++; + libro.Cell(Fila, column).Value = erow["Nombre"]; + + column++; + libro.Cell(Fila, column).Value = erow["TipodeSalario"]; + } + + libro.Columns().AdjustToContents(); + System.IO.Stream fs = new System.IO.MemoryStream(); + wb.SaveAs(fs); + fs.Position = 0; + System.IO.MemoryStream memoryStream = new System.IO.MemoryStream(); + using (System.IO.Stream input = fs) + + { + input.CopyTo(memoryStream); + } + memoryStream.Position = 0; + + Response.Clear(); + Response.Buffer = true; + + Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"; + Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Plantilla Salario ")); + Response.BinaryWrite(memoryStream.ToArray()); + Response.End(); + } + else + { + Alert(msgerror, TipoMensaje.MsgAdvertencia); + } + } + catch (Exception ex) + { + Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString(), TipoMensaje.MsgAdvertencia); + } + } protected void LnkProcesarArchvo_Click(object sender, EventArgs e) { @@ -474,8 +543,8 @@ public partial class RH_CalculoSBC : ClsPaginas DataTable DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true); StringBuilder str = new StringBuilder(); - bool rollback = false; - using (ClsClaseBase objNomina = new ClsClaseBase( )) + //bool rollback = false; + using (ClsClaseBase objNomina = new ClsClaseBase()) using (ClsRH objpersonal = new ClsRH()) { @@ -483,7 +552,7 @@ public partial class RH_CalculoSBC : ClsPaginas { string Codigo = row["Codigo"].ToString(); int CvePersonal = -1; // row["CvePersonal"].ToString().ToEntero(); - string RegistroPatronal = row["RegistroPatronal"].ToString() ; + string RegistroPatronal = row["RegistroPatronal"].ToString(); int CveMetodoPago = 0; if (Codigo != "-1" && objpersonal.GetPersonal(CvePersonal, Codigo, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) && objpersonal.DtResultados.Rows.Count == 1) @@ -501,7 +570,47 @@ public partial class RH_CalculoSBC : ClsPaginas objNomina.runQuerystr(string.Format("EXEC PA_RH_PersonalRPUpdate {0},'{1}'", CvePersonal, RegistroPatronal)); } } - + + + + } + } + if (ddltipoCarga.SelectedValue.ToEntero() == 3) + { + + List Filesgral = TxtArchivoNomina.getfiles().Archivos; + Archivo fileItem = Filesgral.Count > 0 ? Filesgral[0] : null; + DataTable DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true); + + StringBuilder str = new StringBuilder(); + //bool rollback = false; + using (ClsClaseBase objNomina = new ClsClaseBase()) + using (ClsRH objpersonal = new ClsRH()) + { + + foreach (DataRow row in DTEXcel.FiltraParametros("LEN(Codigo)>0 ").Rows) + { + string Codigo = row["Codigo"].ToString(); + int CvePersonal = -1; // row["CvePersonal"].ToString().ToEntero(); + string TipodeSalario = row["TipodeSalario"].ToString(); + int CveMetodoPago = 0; + if (Codigo != "-1" && objpersonal.GetPersonal(CvePersonal, Codigo, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) && + objpersonal.DtResultados.Rows.Count == 1) + { + CvePersonal = objpersonal.CvePersonal; + CveMetodoPago = objpersonal.CveMetodoPago; + } + else + { + CvePersonal = 0; + str.AppendLine(string.Format("No se encontro el codigo {0}
", Codigo)); + } + if (CvePersonal > 0) + { + objNomina.runQuerystr(string.Format("EXEC PA_RH_PersonalTSUpdate {0},'{1}'", CvePersonal, TipodeSalario)); + } + } + } diff --git a/RH/CatAsistenciasInasistencias.aspx b/RH/CatAsistenciasInasistencias.aspx index f0a363f8c..1a45620ae 100644 --- a/RH/CatAsistenciasInasistencias.aspx +++ b/RH/CatAsistenciasInasistencias.aspx @@ -31,7 +31,7 @@ - + @@ -86,6 +86,16 @@ + + + + + + + + + + @@ -174,6 +184,10 @@
+
+
+ +
@@ -184,12 +198,22 @@
+
+
+ +
+
+
+ +
+
+
+ +
-
-
- +
diff --git a/RH/CatAsistenciasInasistencias.aspx.vb b/RH/CatAsistenciasInasistencias.aspx.vb index d565fb916..df5eb6a3a 100644 --- a/RH/CatAsistenciasInasistencias.aspx.vb +++ b/RH/CatAsistenciasInasistencias.aspx.vb @@ -85,10 +85,13 @@ Partial Class RH_CatAsistenciasInasistencias Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked Dim chkAplicaAguinaldo As Boolean = AplicaAguinaldo.Checked Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked + Dim aplicaPago As Integer = If(ChkAplicaPago.Checked, 1, 0) + Dim aplicaPagoDoble As Integer = If(ChkAplicaPagoDoble.Checked, 1, 0) + Dim aplicaPrimaVac As Integer = If(ChkAplicaPrimaVac.Checked, 1, 0) If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaFalta, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then +chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble, aplicaPrimaVac) Then TipoTxt.Text = "" Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() @@ -129,6 +132,11 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c AplicaAguinaldo.Checked = If(GvRow.DataKey("AplicaAguinaldo") = "Aplica", True, False) AplicaUtilidades.Checked = If(GvRow.DataKey("AplicaUtilidades") = "Aplica", True, False) + ChkAplicaPago.Checked = If(GvRow.DataKey("AplicaPago") = "Aplica", True, False) + ChkAplicaPagoDoble.Checked = If(GvRow.DataKey("AplicaPagoDoble") = "Aplica", True, False) + ChkAplicaPrimaVac.Checked = If(GvRow.DataKey("AplicaPrimaVac") = "Aplica", True, False) + + ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) CveTipoAsisAEditar = Convert.ToInt32(GvRow.DataKey("CveAsistenciasInasistencias")) 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating" @@ -156,9 +164,16 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c Dim chkAplicaAguinaldo As Boolean = AplicaAguinaldo.Checked Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked + Dim aplicaPago As Integer = If(ChkAplicaPago.Checked, 1, 0) + Dim aplicaPagoDoble As Integer = If(ChkAplicaPagoDoble.Checked, 1, 0) + Dim aplicaPrimaVac As Integer = If(ChkAplicaPrimaVac.Checked, 1, 0) + + + If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, ckAplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias, - chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then + chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble, + aplicaPrimaVac) Then GvDatos.EditIndex = -1 ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTAsistenciasInasistencias = ObjAsistenciasInasistencias.DtResultados diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx index 45c8d4313..d4ca5c726 100644 --- a/Sistemas/CatSesiones.aspx +++ b/Sistemas/CatSesiones.aspx @@ -62,8 +62,9 @@ + -    +      
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index 85a382108..e7ff562d9 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -102,12 +102,28 @@ Partial Class Sistemas_CatSesiones ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then CargaSATGenerales() ElseIf DdlVariable.SelectedItem.Value = "GlobalDTActivoFijos" Then + CargaActivoFijos() + ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVendedoresOld" Then CargaActivoFijos() End If End Sub + Private Sub CargaGlobalDTVendedoresOld() + Dim AppNombre As String = $"GlobalDTVendedores-{-1}" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjVendedores As New ClsVtaVendedores + If ObjVendedores.GetVendedores(-1) Then + For Each Row As DataRow In ObjVendedores.DtResultados.Rows + Row("VendedorTipo") = 1 + Next + HttpContext.Current.Application(AppNombre) = ObjVendedores.DtResultados.Copy() + End If + ObjVendedores.Dispose() + End If + End Sub + Private Sub CargaActivoFijos() GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index dcea45992..4bed83d04 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -646,57 +646,46 @@
- +
-
+
- +
- -
- - - -
- -
- - - - - -
-
- - - - - -
- 		-
- -
-
+
+ + + +
+
+
+
+
+
+ + + +
+
+
+
+ +
+
+
- - - - - -
@@ -712,23 +701,23 @@
- -
- - Frecuente - Venta Mostrador - - +
+
+
+ + Frecuente + Venta Mostrador + + +
+
+
+
+ + +
+
- -
- - -
- - - -
@@ -1132,7 +1121,7 @@
+ OnSelectedIndexChanged="DdlMetodoPago33_SelectedIndexChanged"> @@ -2017,13 +2006,13 @@ Pago múltiples facturas Pagar múltiples facturas   - + " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"> - + @@ -2126,7 +2115,7 @@ - " style="display: inline-block; margin-right: -20px; width: 150px;" /> " @@ -4276,13 +4265,13 @@
- Proyecto: + Proyecto:
- SubProyecto: + SubProyecto:
@@ -4546,15 +4535,15 @@
- +
- - - - + + + +
@@ -6732,7 +6721,7 @@ - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index eee4538b8..6b33e261a 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -910,7 +910,8 @@ Partial Class Clientes CargaDocumentacionCliente() 'TxtPais.Text = "México" - End If + End If + If UsuarioActual.Empresa.CvePlataforma = 3 Then LbAddDispositivo.Visible = True @@ -1334,7 +1335,13 @@ Partial Class Clientes DdlMetodoPagoSucursal.DataBind() 'DdlMetodoPago.DataBind() End Sub - Private Sub CargaPrecioLista() + Private Sub CargaPrecioLista() + 'SI NO TIENE LA FUNCIONALIDAD DE LISTA DE PRECIOS + If Not GlobalDTPrecioListas(UsuarioActual.CveEmpresa).Rows.Count > 0 Then + DdlSubProyecto.AutoPostBack = False + DivPrecioLista.Visible = False + End If + DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa) DdlPrecioLista.DataBind() DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1")) @@ -5838,13 +5845,15 @@ Partial Class Clientes Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) If DdlSubProyecto.SelectedValue.ToEntero() > 0 Then - Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0) + Dim Dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0) If Dr IsNot Nothing Then If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then DdlPrecioLista.SelectedValueExist(Dr("CvePrecioLista").ToString()) End If End If End If + + UpDatos.Update() End Sub #End Region @@ -6744,7 +6753,7 @@ Partial Class Clientes Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1) If CveCliente > 0 Then - GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing + GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1) = Nothing End If End Sub @@ -8468,8 +8477,8 @@ Partial Class Clientes End Sub - Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectoFiltro.SelectedIndexChanged - CargarSubProyecto(DdlSubProyecto, DdlProyectoFiltro.SelectedValue) + Protected Sub DdlProyectoFiltro_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectoFiltro.SelectedIndexChanged + CargarSubProyecto(DdlSubProyectoFiltro, DdlProyectoFiltro.SelectedValue) End Sub Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index b95bf73dc..ac075bd59 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -2235,30 +2235,29 @@ Partial Class Ventas_ClientesAbonar If DdlTipoTransaccion.SelectedValue > 0 Then ' transferencias y layout trCuentaDeposito.Visible = False - Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CveCliente:=CveCliente) Then + Dim dtc As DataTable = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) + + If dtc IsNot Nothing Then If DdlTipoTransaccion.SelectedValue = "9" Then - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") - If Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then + If dtc.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else BtnIEGuardar.Enabled = False Alert("El Cliente no tiene ninguna cuenta deposito registrada ante el sistema BBVA BANCOMER", TipoMensaje.MsgAdvertencia) End If - Else - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'") - If Dep.DtResultados.Rows.Count >= 1 Then + DdlCuentaDeposito.DataSource = dtc.FiltraParametros("Estatus ='True'") + If dtc.Rows.Count >= 1 Then trCuentaDeposito.Visible = True DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) End If End If End If - Dep.Dispose() DdlCuentaDeposito.DataBind() Else trCuentaDeposito.Visible = False @@ -2280,16 +2279,17 @@ Partial Class Ventas_ClientesAbonar CargaCuentasDepositos() End Sub Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) - Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CveCliente:=CveCliente, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then - If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then + Dim dtc As DataTable = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) + + If dtc IsNot Nothing AndAlso dtc.Rows.Count = 1 Then + If dtc.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then TrReferenciaCIE.Visible = True - TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString + TxtReferenciaCIE.Text = dtc.Rows(0)("Referencia").ToString Else TrReferenciaCIE.Visible = False End If End If - Dep.Dispose() + UpCuentaDeposito.Update() End Sub #End Region diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9b857f9fc..51dd9afac 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2755,6 +2755,7 @@ Partial Class Ventas End If End Using End If + If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then DdlMoneda.SelectedValueExist(2) CambiaMoneda() @@ -21090,7 +21091,7 @@ Partial Class Ventas Dim DtCostos = ObjInventario.DtResultados.Copy Dim DtCostosDistinct As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}) Dim IdCtaContable As Integer = 0 - Dim CveCuenta As Integer = 0 + ' Dim CveCuenta As Integer = 0 Dim ValorInventario As Decimal Dim TotalCostoAcumulado As Decimal = 0D Dim Cont As Integer = 1 @@ -21099,7 +21100,7 @@ Partial Class Ventas For Each RowInv As DataRow In DtCostosDistinct.Rows ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() - CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() + 'CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero() TotalCostoAcumulado += ValorInventario 'cuando es el último movimiento y hay diferencias en los importes @@ -21109,7 +21110,7 @@ Partial Class Ventas Try 'If ValorInventario <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ValorInventario, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ValorInventario, ObjFactura.SerieFolio, 69, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ValorInventario, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True Exit For End If @@ -21123,7 +21124,7 @@ Partial Class Ventas If Not OcurrioError Then IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", CveAlmacenVirtual)).ToEntero() - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=ObjFactura.CveSubProyecto) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, TotalCosto, ObjFactura.SerieFolio, 68, ObjFactura.SerieFolio, ObjFactura.Fecha, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=ObjFactura.CveCliente, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=TotalCosto, CveSubProyecto:=ObjFactura.CveSubProyecto) Then OcurrioError = True End If End If @@ -36398,7 +36399,7 @@ Partial Class Ventas Me.CveCategoriaLineaAdicional = 0 If CveVenta <= 0 Then - TxtFechaPago.Text = Now.ToString("dd/MM/yyyy") + TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToString("dd/MM/yyyy") TxtOrdenCompra.Text = "" 'SI SE HABILITO LA FACTURACION DESDE LA LINEA ADICIONAL DEBE QUITARLO