From 33eec22d4719708cf5333b784f792fed643179d1 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 5 Apr 2023 14:33:18 -0700 Subject: [PATCH 1/5] -- que no muestre alert a U100 --- Sistemas/UsuarioDetalle.aspx.vb | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 8f39f2c0a..8cdcf4ad9 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1383,14 +1383,12 @@ Partial Class Sistemas_UsuarioDetalle GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa) = Nothing GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing - GlobalDTUsuarios(CveEmpresa:=-1) = Nothing - If UsuarioActual.CveUsuario = 100 Or UsuarioActual.CveRol = 1 Then - Alert("Globals Recargados " & UsuarioActual.CveEmpresa) - End If - 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then - ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") - 'End If + GlobalDTUsuarios(CveEmpresa:=-1) = Nothing + + 'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then + ' Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados + ' Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0") + 'End If End Sub Private Sub EnviaCorreo() From 0aa9622e22d5e68f4fbc1fb1e6a94484639cfad1 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 10 Apr 2023 18:28:31 -0700 Subject: [PATCH 2/5] =?UTF-8?q?--=20correcci=C3=B3n=20en=20otros=20ingreso?= =?UTF-8?q?s,=20en=20d=C3=B3lares?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index eb20408ad..ce0647911 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7772,9 +7772,10 @@ Public Class ClsPaginas If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True End If End If + 'si tiene otros gastos/ingresos - ImporteMovimiento = Pago.OtroGastoIngreso - If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then + If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then + ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL Dim tOtCveCon As Integer = 211 Dim tOtTipoMovto As Boolean = False Dim IdCta As Integer = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.Funcionalidad(266).ToEntero(), 0) @@ -8283,8 +8284,9 @@ Public Class ClsPaginas End If End If 'si tiene otros gastos/ingresos - ImporteMovimiento = Pago.OtroGastoIngreso - If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then + + If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then + ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL Dim tOtCveCon As Integer = 78 Dim tOtTipoMovto As Boolean = True If ImporteMovimiento < 0 Then From a70c3a7f9657d995239fc3db5aaac5abc2986070 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 14 Apr 2023 06:29:40 -0700 Subject: [PATCH 3/5] - mejora en pagoventa/compra otros gastos/ngresos usd --- App_Code/ClsPaginas.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ce0647911..1e17136db 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7775,7 +7775,7 @@ Public Class ClsPaginas 'si tiene otros gastos/ingresos If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then - ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL + ImporteMovimiento = (Pago.OtroGastoIngreso * If(Pago.CveMonedaPago = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados Dim tOtCveCon As Integer = 211 Dim tOtTipoMovto As Boolean = False Dim IdCta As Integer = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.Funcionalidad(266).ToEntero(), 0) @@ -8286,7 +8286,7 @@ Public Class ClsPaginas 'si tiene otros gastos/ingresos If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then - ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL + ImporteMovimiento = (Pago.OtroGastoIngreso * If(Pago.CveMonedaPago = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados Dim tOtCveCon As Integer = 78 Dim tOtTipoMovto As Boolean = True If ImporteMovimiento < 0 Then From e8cbfccd2b83f406e5ac8ebd2d6258993615e75b Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 14 Apr 2023 06:31:36 -0700 Subject: [PATCH 4/5] =?UTF-8?q?--=20impuestos=20locale,=20que=20tome=20los?= =?UTF-8?q?=20de=20la=20venta=20si=20ya=20est=C3=A1=20registrada?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f558af84c..bfdce5be8 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6705,7 +6705,7 @@ Partial Class Ventas CargaDatosEstimaciones(CveCliente) End If - If ObjCliente.GetClienteImpuestosLocales(CveCliente) Then + If ObjCliente.GetClienteImpuestosLocales(CveCliente) AndAlso CveVenta <= 0 Then 'se cargan impuestos locales Dim DtClienteImpuesto As DataTable = ObjCliente.DtResultados.FiltraParametros("Seleccionado = 1", "Orden") From c2bc4ff6d7af03cdfd69b6bff03f32dcc0dcf12d Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 14 Apr 2023 12:47:44 -0700 Subject: [PATCH 5/5] --- App_Code/ClsNominas.vb | 7 +- App_Code/modExtensiones.vb | 2 + Metronic/assets/admin/layout/css/custom.css | 2 +- Nomina/ConceptoNomina.aspx | 2 +- Nomina/ConceptoNomina.aspx.cs | 4 +- Nomina/ReportePTU.aspx.vb | 2 +- Scripts/custom.js | 270 +++++++++++++++++++- Site.master | 40 +-- Site.master.vb | 11 +- 9 files changed, 302 insertions(+), 38 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index ae1e97b84..05e71b26f 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -605,7 +605,12 @@ Public Class ClsNominas End If retorno = True Catch ex As Exception - OnError("Ocurrió un error al registrar la provisión de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + If ex.Message.Contains("No se puede registrar una prepóliza en un periodo cerrado") Then + OnError("No se puede registrar la provisión, periodo contable cerrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Else + OnError("Ocurrió un error al registrar la provisión de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + End If End Try Return retorno End Function diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index a8437e242..9b8998052 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -3975,6 +3975,7 @@ Namespace Extensiones HeaderBar = New StringBuilder("
  • Inicio
    • ") MenuHTML = New StringBuilder() modpadres = New List(Of String) + headerstr = New List(Of String) End Sub Property CveModuloSeleccionado As Integer @@ -3986,6 +3987,7 @@ Namespace Extensiones Property ScriptColorGrupoModulo As String Property strdomain As String Property modpadres As List(Of String) + Property headerstr As List(Of String) End Class diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css index 32a99628f..4d90d2786 100644 --- a/Metronic/assets/admin/layout/css/custom.css +++ b/Metronic/assets/admin/layout/css/custom.css @@ -13,7 +13,7 @@ background-color: #e5e5e5; } .page-sidebar-menu .dnone { - display: none; + display: none !important; } .table-striped > tbody > tr:nth-of-type(odd).ADSRow, table > tbody > tr.ADSRow > td, table.table > tbody > tr.ADSRow > td, diff --git a/Nomina/ConceptoNomina.aspx b/Nomina/ConceptoNomina.aspx index 7a68835f7..aea471a02 100644 --- a/Nomina/ConceptoNomina.aspx +++ b/Nomina/ConceptoNomina.aspx @@ -277,7 +277,7 @@
    - +
    diff --git a/Nomina/ConceptoNomina.aspx.cs b/Nomina/ConceptoNomina.aspx.cs index 4342a5b94..37f978e04 100644 --- a/Nomina/ConceptoNomina.aspx.cs +++ b/Nomina/ConceptoNomina.aspx.cs @@ -530,7 +530,7 @@ public partial class Nomina_CatConcepto : ClsPaginas { DdlCtaContableB.SelectedValueExist(drow["CveCuentaB"]); } - if (ChkContabiliza.Checked && (DdlCtaContable.SelectedValue.ToEntero() <= 0 || (chkCtaImporteNegativoProv.Checked && DdlCtaContableB.SelectedValue.ToEntero() <= 0))) + if (ChkContabiliza.Checked && (DdlConceptoContable.SelectedValue.ToEntero() <= 0 || DdlConceptoContablePasivo.SelectedValue.ToEntero() <= 0 || (chkCtaImporteNegativoProv.Checked && DdlConceptoContableB .SelectedValue.ToEntero() <= 0))) { Alert("el concepto esta marcado como contabilizable pero no estan asignadas correctamente las cuentas.", ModExtensiones.TipoMensaje.MsgAdvertencia); } @@ -627,7 +627,7 @@ public partial class Nomina_CatConcepto : ClsPaginas string formula = TxtFormula.Text; using (ClsNominas objnom = new ClsNominas()) { - if (TipoFormula == 0 && !ValidaFormula(formula).Equals("")) + if (false &&TipoFormula == 0 && !ValidaFormula(formula).Equals("")) { Alert("Fórmula no válida. Favor de ingresar una correcta.", ModExtensiones.TipoMensaje.MsgError); } diff --git a/Nomina/ReportePTU.aspx.vb b/Nomina/ReportePTU.aspx.vb index 5fbbcfe24..41c1920f5 100644 --- a/Nomina/ReportePTU.aspx.vb +++ b/Nomina/ReportePTU.aspx.vb @@ -156,7 +156,7 @@ Partial Class Nomina_ReportePTU If Not IsNothing(rowc) Then CveConcepto = rowc("CveConcepto").ToString().ToEntero() Else - CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1) + CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1, -1) End If If CveConcepto < 1 Then continuar = False diff --git a/Scripts/custom.js b/Scripts/custom.js index 5790d58f4..53b314349 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -216,8 +216,8 @@ function buscadorMenuCaudi() { hasmenusearch = (localStorage.getItem("HasMenu").toString() == "1") } catch (error) { }*/ let idTxtMaster = "txtMasterMenu"; - if ($('#' + idTxtMaster).length == 0 && hasmenusearch) { - let buscador = $('' + + if (!($('#' + idTxtMaster).hasClass("txtMasterMenukeychange")) && hasmenusearch) { + /*let buscador = $('' + '
    ' + '
    ' + ' ' + @@ -228,21 +228,22 @@ function buscadorMenuCaudi() { ' ' + '
    ' + '
    ') - $('ul#ulmenulateralmaster li.sidebar-toggler-wrapper').append(buscador); + $('ul#ulmenulateralmaster li.sidebar-toggler-wrapper').append(buscador);*/ let tickBar = 0; let input = $('#' + idTxtMaster); + input.addClass("txtMasterMenukeychange"); let BuscarMenu = function () { tickBar = tickBar + 1; tickBarnew = tickBar; setTimeout(function () { if (tickBarnew == tickBar) { - if (input.val() == '') { $('ul#ulmenulateralmaster li').css('display', ''); } + if (input.val() == '') { $('ul#ulmenulateralmasterB li').css('display', ''); } else { - $('ul#ulmenulateralmaster li:not(.sidebar-toggler-wrapper)').css('display', 'none'); - $('ul#ulmenulateralmaster li:contains("' + input.val() + '")').css('display', ''); - $('ul#ulmenulateralmaster li > a[href="javascript:;"]:contains("' + input.val() + '")').parent().find('>ul>li').css('display', ''); + $('ul#ulmenulateralmasterB li:not(.sidebar-toggler-wrapper)').css('display', 'none'); + $('ul#ulmenulateralmasterB li:contains("' + input.val() + '")').css('display', ''); + $('ul#ulmenulateralmasterB li > a[href="javascript:;"]:contains("' + input.val() + '")').parent().find('>ul>li').css('display', ''); } } }, 500); @@ -2325,4 +2326,257 @@ function AddFunctionPS(inputProducto, inputAlmace, datos) { GETPSALMACEN(); } }); -} \ No newline at end of file +} + +/* + * + * + * + * + * + Este + Es + Un + Cambio + Grande + para + que e + el + custom + JS + Se + Refresque + solo + y + no + tengan + que + porner + el + shift F5 + esta + es + la prueba e + en + el + local + host + espero que funciones + +}); +$(window).load(function () { + loadadscroll(); +}); +function AddFunctionPS(inputProducto, inputAlmace, datos) { + + let inProducto = inputProducto; + let inAlmace = inputAlmace; + let PSModal = $(''); + let content = $('
    '); + let Mheader = $('

    Productos ó Servicios

    '); + let Mbody = $('
    '); + let MFotter = $('
    '); + let Minput = $(''); + let buscador = $('
    '); + let lupa = $(''); + let divResult = $('
    '); + let divPS = $('
    '); + let divAlmacen = $('
    '); + let style = ''; + let mcssclass = '.msProductos '; + let newline = '\n\r'; + { + style = style.concat( + ''); + } + + let myTick = 0; + let textoOld = ''; + let LimpiarAlmacen = function () { + divAlmacen.empty(); + } + let Limpiarresultado = function () { + divPS.empty(); + LimpiarAlmacen(); + } + let buscaPSTimer = function (texto) { + let Tick = myTick + 1; + myTick = Tick; + setTimeout( + function () { + if (myTick == Tick) { + if (textoOld != texto) { + buscaPS(texto); + } + textoOld = texto + } + }, 500); + }; + let buscaPS = function (texto) { + myTick = 0; + if (datos == null) { + datos = { Name: texto, metodo: 'getps' } + } + let sdata = datos; + sdata.Name = texto; + sdata.metodo = 'getps'; + Limpiarresultado(); + if (texto.length > 0) { + $.ajax({ + url: "/Ashx/SIGWeb.ashx", + data: sdata + }).done(function (data) { + //console.log(data) + if (data.length > 0) { + data = JSON.parse(data) + let dul = $('
      ') + for (i = 0; i < data.length; i++) { + dul.append('
    • ' + data[i].text + '
      • '); + } + divPS.append(dul); + } + }); + + } + textoOld = texto; + + }; + let GETPSALMACEN = function () { + PSModal.empty(); + buscador.empty(); + divResult.empty(); + Mbody.empty(); + content.append(Mheader); + content.append(Mbody); + content.append(MFotter); + buscador.append(Minput); + buscador.append($('').append(lupa)); + divResult.append('
      Productos
      Existencia
      Almacen
      ') + divResult.append($('
      ').append($('
      ').append(divPS)).append($('
      ').append(divAlmacen))) + Mbody.append($('
      ').append(buscador)); + Mbody.append(divResult); + + PSModal.append($('
      ').append(content)); + PSModal.modal(); + }; + lupa.bind("click", function () { + buscaPS(Minput.val()); + }); + Minput.bind("copy paste cut", function () { + buscaPS(Minput.val()); + }); + Minput.bind("keyup ", function (e) { + if (e.keyCode == 13) { + buscaPS(Minput.val()); + e.preventDefault(); + } else { + buscaPSTimer(Minput.val()); + } + }); + + PSModal.on('click', '.list-group-item ', function (e) { + let $this = $(this).hasClass('list-group-item') ? $(this) : $(this).closest('.list-group-item'); + let cve = $this.data('cve'); + let text = $this.text(); + let datos = { cveps: cve, metodo: 'getpsalmacen' } + $(PSModal.find('.active')).removeClass('active') + $this.addClass('active'); + //console.log('' + cve + ' : ' + text) + LimpiarAlmacen(); + $.ajax({ + url: "/Ashx/SIGWeb.ashx", + data: datos + }).done(function (data) { + //console.log(data) + LimpiarAlmacen(); + if (data.length > 0) { + data = JSON.parse(data) + for (i = 0; i < data.length; i++) { + divAlmacen.append('
      ' + data[i].existencia + '
      ' + data[i].almacen + '
      '); + } + } + }); + }); + PSModal.on('shown.bs.modal', function () { + Minput.focus(); + }); + PSModal.on('click', '.item-almacen', function (e) { + let $this = $(this).hasClass('item-almacen') ? $(this) : $(this).closest('.item-almacen'); + let cveps = $(PSModal.find('.active')).data('cve'); + let cveAlmacen = $this.data('cve'); + if ($(inputProducto).length > 0) { $(inputProducto).val(cveps) } + if ($(inputAlmace).length > 0) { $(inputAlmace).val(cveAlmacen) } + PSModal.modal('hide'); + }); + $('body').append(PSModal); + $('head').append($(style)); + $("body").keyup(function (e) { + if (e.keyCode == 113) { + GETPSALMACEN(); + } + }); + + + * + * + * + * + * + * + * + * + * + */ \ No newline at end of file diff --git a/Site.master b/Site.master index 7101ccf0b..171b0707d 100644 --- a/Site.master +++ b/Site.master @@ -15,7 +15,7 @@ <%: Scripts.Render("~/bundles/modernizr") %> @@ -346,8 +346,8 @@
      -
      -
      +
      +
        @@ -356,28 +356,28 @@
        - - - <%--
      • - -
        -
        -
        - - - -
        +
        +
        + + + + + +
        - - -
        • --%> - - - +
      +
      +
      +
      +
        + +
      +
      +
      diff --git a/Site.master.vb b/Site.master.vb index 531d5b740..f00b5f222 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -321,7 +321,8 @@ Partial Class Site estilo = If(drP("Estilo").ToString() <> "", String.Format("", drP("Estilo")), "") If menuobj.CveModuloSeleccionado = cveModuloActual Then - menuobj.HeaderBar.AppendFormat("
    • {1}
      • ", liga, modulo) + 'menuobj.HeaderBar.AppendFormat("
    • {1}
      • ", liga, modulo) + menuobj.headerstr.Add(String.Format("
    • {1}
      • ", liga, modulo)) menuobj.CveModuloSeleccionadoPadre = CveModulo menuobj.ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero()) End If @@ -345,8 +346,8 @@ Partial Class Site 'menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='m{0}'", cveModuloActual), String.Format("id='m{0}' class='active open'", cveModuloActual)) 'menuobj.MenuHTML = menuobj.MenuHTML.Replace(String.Format("id='j{0}'", cveModuloActual), String.Format("id='j{0}' class='selected'", cveModuloActual)) - - menuobj.HeaderBar.AppendFormat("
    • {1}
      • ", liga, modulo) + menuobj.headerstr.Insert(0, String.Format("
    • {1}
      • ", liga, modulo)) + 'menuobj.HeaderBar.AppendFormat("
    • {1}
      • ", liga, modulo) menuobj.CveModuloSeleccionadoPadre = CveModulo End If menuobj.MenuHTML.Append("") @@ -397,7 +398,9 @@ Partial Class Site menuobj.strdomain = menuobj.strdomain.Replace(String.Format(":{0}", Request.Url.Port), "") End If Dim newmenuobj As MenuModal = ArmarMenu(0, menuobj) - + For Each stritem As String In menuobj.headerstr + menuobj.HeaderBar.Append(stritem) + Next 'Dim MenuHTML As New StringBuilder 'For Each drP As DataRow In Inicio