From 215a5753604c479619ceec745ae190a6f3f559a9 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 31 Mar 2020 10:50:52 -0700 Subject: [PATCH 1/5] - --- Compras/Compras.aspx | 6 +++--- Ventas/Ventas.aspx.vb | 2 -- vwd.webinfo | 6 ++++++ 3 files changed, 9 insertions(+), 5 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index b0c19e93b..5278e8d44 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -2815,9 +2815,9 @@ - - - + + + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 3b53188d5..0900f4597 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10734,8 +10734,6 @@ Partial Class Ventas If ObjConta.DtResultados.Rows.Count > 0 Then 'Conta ContPAQ IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - 'Conta SIG - CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero End If End If diff --git a/vwd.webinfo b/vwd.webinfo index 9a68975f3..40d1fe36c 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -34,6 +34,12 @@ + + + + + + From 5d9854557b7d34c6e684a5937ec66112528eba80 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 31 Mar 2020 11:39:54 -0700 Subject: [PATCH 2/5] Correcion de global dt --- Ashx/SIGWeb.ashx | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 274fb8741..6b81beb8a 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -190,7 +190,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Else CveEmpresa = usuario.CveEmpresa Dim Name = IfNull(context.Request("Name"), "-1").ToString - Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa) 'sino existe, recarga los datos If context.Application(AppNombre) Is Nothing Then Dim ObjClientes As New ClsClientes @@ -239,7 +239,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Else CveEmpresa = usuario.CveEmpresa Dim Name = IfNull(context.Request("Name"), "-1").ToString - Dim AppNombre As String = String.Format("GlobalDTCompProveedores{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa) 'sino existe, recarga los datos If context.Application(AppNombre) Is Nothing Then Dim ObjProveedores As New ClsCompProveedores @@ -391,8 +391,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState If UsaGlobal Then 'se recarga el global, y el clspaginas, son los unicos 2 lugares - Dim AppNombre As String = String.Format("GlobalDTPSSimplificado{0}", CveEmpresa) - If context.Application(String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)) Is Nothing Then + Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) + If context.Application(String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)) Is Nothing Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPSSimplificado(CveEmpresa) Then context.Application(AppNombre) = ObjPS.DtResultados.AsEnumerable() ObjPS.Dispose() @@ -639,7 +639,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState If UsaGlobal Then - Dim DTPS = DirectCast(context.Application(String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)), EnumerableRowCollection(Of DataRow)) + Dim DTPS = DirectCast(context.Application(String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)), EnumerableRowCollection(Of DataRow)) If DTPS IsNot Nothing Then @@ -715,7 +715,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Else CveEmpresa = usuario.CveEmpresa Dim Name = IfNull(context.Request("Name"), "-1").ToString - Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa) + Dim AppNombre As String = String.Format("GlobalDTRHPersonal-{0}", CveEmpresa) 'sino existe, recarga los datos If context.Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH From c976b0d0d86ec773efc413b0bb9a036c241d9a49 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 31 Mar 2020 12:18:57 -0700 Subject: [PATCH 3/5] faltaba el parametro CveEmpresa en la carga de subproyectos --- Sistemas/UsuarioDetalle.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 90acc7fa8..63a9653e0 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -1579,7 +1579,8 @@ Partial Class Sistemas_UsuarioDetalle 'End If Else - DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero)).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, "")) + 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero)).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, "")) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(If(CveProyectoFiltrado > 0, CveProyectoFiltrado, DdlProyecto.SelectedValue.ToEntero), CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(If(SubProyectosSinGV.Length > 0, SubProyectosSinGV, "")) 'NO SE PARA QUE SE USA - COMENTADO IPP 30 AGOSTO 2017 'If SubProyectosSinGV.Length > 0 Then ' Dim SubProyectoFiltrado As DataTable = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero).FiltraParametros(SubProyectosSinGV) From 6f3df4e41d71242fcd5bf2395d0916b426114e52 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 31 Mar 2020 13:18:18 -0700 Subject: [PATCH 4/5] =?UTF-8?q?clases=20listas=20para=20el=20nuevo=20cat?= =?UTF-8?q?=C3=A1logo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 93 ++++++++++++++++++++++++ App_Code/ClsPaginas.vb | 1 + Contabilidad2/CatContaEjercicios.aspx | 30 ++++++++ Contabilidad2/CatContaEjercicios.aspx.vb | 13 ++++ 4 files changed, 137 insertions(+) create mode 100644 Contabilidad2/CatContaEjercicios.aspx create mode 100644 Contabilidad2/CatContaEjercicios.aspx.vb diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 4d1a5bb5b..940f0c4c3 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5868,6 +5868,99 @@ Public Class ClsContabilidad Return Retorno End Function + Public Function GetContaEjercicio(CveEmpresa As Integer) As Boolean + Dim Retorno = False + + DataAdapter("PA_Conta_ContaEjerciciosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddContaEjercicio(FechaIng As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = -1, + Optional CveCuentaCierre As Integer = -1, Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, + Optional Estatus As Integer = -1) As Boolean + Dim Retorno = False + + DataAdapter("PA_Conta_ContaEjerciciosAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio + .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual + .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre + .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@Estatus", SqlDbType.Int).Value = Estatus + .Add("@FechaIng", SqlDbType.Int).Value = FechaIng + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al agregar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateContaEjercicio(CveEjercicio As Integer, Optional Ejercicio As Integer = -1, Optional PeriodoActual As Integer = -1, Optional CveCuentaCierre As Integer = -1, + Optional CvePoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional Estatus As Integer = -1) As Boolean + Dim Retorno = False + + DataAdapter("PA_Conta_ContaEjerciciosAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEjercicio", SqlDbType.Int).Value = CveEjercicio + .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio + .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual + .Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre + .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al actualizar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RemoveContaEjercicio(CveEmpresa As Integer) As Boolean + Dim Retorno = False + + DataAdapter("PA_Conta_ContaEjerciciosDelete") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + #Region " RECONSTRUCCION DE PREPOLIZAS " Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean Dim Retorno = False diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3023c3cae..1fefdd172 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4071,6 +4071,7 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad2/MovimientosConProveedores.aspx".ToUpper(), 619) PaginaDict.Add("/Contabilidad2/RepBalanceGeneral.aspx".ToUpper(), 530) PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724) + PaginaDict.Add("/Contabilidad2/CatContaEjercicios.aspx".ToUpper(), 725) #End Region 'CONTRATOS #Region "Contratos" diff --git a/Contabilidad2/CatContaEjercicios.aspx b/Contabilidad2/CatContaEjercicios.aspx new file mode 100644 index 000000000..869eb29e1 --- /dev/null +++ b/Contabilidad2/CatContaEjercicios.aspx @@ -0,0 +1,30 @@ +<%@ Page Title="Contabilidad2 - Catálogo Ejercicios" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatContaEjercicios.aspx.vb" Inherits="Contabilidad2_CatContaEjercicios" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + Catálogo de Cuentas Asignación. + + + + +
  • + +
    • + +     +     +     + + + + + + + + \ No newline at end of file diff --git a/Contabilidad2/CatContaEjercicios.aspx.vb b/Contabilidad2/CatContaEjercicios.aspx.vb new file mode 100644 index 000000000..1ebc78f72 --- /dev/null +++ b/Contabilidad2/CatContaEjercicios.aspx.vb @@ -0,0 +1,13 @@ +Imports System.Data +Imports System.Linq +Imports Extensiones + +Partial Class Contabilidad2_CatContaEjercicios + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + End If + End Sub +End Class From ec2feee32a517e8d846069c7bdc619811451acea Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 31 Mar 2020 14:34:26 -0700 Subject: [PATCH 5/5] --cambios --- Bancos/IE.aspx.vb | 2 +- Ventas/ClientesAbonar.aspx | 1544 ++++++++++++++++----------------- Ventas/ClientesAbonar.aspx.vb | 6 +- 3 files changed, 775 insertions(+), 777 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index a137a7432..ae975c5bc 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -5608,7 +5608,7 @@ Partial Class Bancos_IE Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CveVenta").ToString.ToEntero > 0 AndAlso e.Row.DBCampo("CveCliente").ToString.ToEntero > 0 AndAlso e.Row.DBCampo("ImporteMN").ToString.ToDecimal > 0 AndAlso e.Row.DBCampo("CveConceptoContable").ToString.ToEntero = 2 AndAlso e.Row.DBCampo("Saldo").ToString.ToDecimal = 0 Then + If e.Row.DBCampo("CveVenta").ToString.ToEntero > 0 AndAlso e.Row.DBCampo("CveCliente").ToString.ToEntero > 0 AndAlso e.Row.DBCampo("ImporteMN").ToString.ToDecimal > 0 AndAlso e.Row.DBCampo("CveConceptoContable").ToString.ToEntero = 2 Then e.Row.FCLinkButton("LnkCancelaMovimiento").Visible = True End If End If diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index 372c52348..dc0660c9d 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -1,656 +1,656 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ClientesAbonar.aspx.vb" Inherits="Ventas_ClientesAbonar" %> - - - - - - - - - -
  • - Saldar Cuentas Incobrables -
    • -
  • - Vincular Intermediario -
    • -     -     -     - - Abonar Cliente: - - - - - - - - - -
    - -
    -
    -
    -
    -
    - - Banco   - Ingresos x Comprobar - Pago Intermediario - -
    -
    - -
    - - -
    -
    - T.C: - - - - -
    - -
    - -
    - -
    - -
    - - - -
    -
    -     -
    - -
    - - - -
    -
    -
    -
    -
    - -
    - - - - - -
    - -
    -
    - -
    - - - - - -
    - - - - -
    - T.C: - - - -
    - -
    -
    -
    -
    -
    - -
    -
    - - - - -
    - - - - - - - - - - - - -
    -
    -
    - -
    - - - -
    -
    - -
    - $ - - - -
    -
    -
    - -
    - -
    -
    -
    - -
    - - -
    -
    - $ - - - - -
    -
    -
    - -
    - -
    -
    - - - -
    - -
    - - <%-- - --%> -
    -
    -
    - -
    - - <%-- - --%> -
    -
    -     -     -
    -
    -
    - -
    -
    - -
    -
    - -
    - -     -     - -
    - - - - - - - - -
    - - - -
    - -     		- -
    -     -     -
    - -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px; margin-right: 20px" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - - - - - - Venta - - - - - - <%----%> - - Fecha Venta - - - - - - Fecha Vencimiento - - - - - - Días Vencidos - -   - - - - - - Monto Compra - -   - - - - - -   - - - - Abonado - -   - - - - Saldo - -   - - - - Abonar - - - - - - - Ot. Ing. - - - - - - - Descuento Pronto Pago - -   - - - - - - - - - Auxiliar - - - - - - CveVenta - - - - - - - - - - - - - <%-- MODAL SALDAR INCOBRABLE--%> - - <%-- FIN MODAL SALDAR INCOBRABLE--%> - - - - -     - - + + + - + } + + function FnLimites(chk, txt, limiteInferior, limiteSuperior) { + if (ToDouble(txt.value) < limiteInferior) { + txt.value = limiteInferior; + alert("El Importe no debe de exceder a el saldo"); + } else if (ToDouble(txt.value) > limiteSuperior) { + txt.value = limiteSuperior; + alert("El Importe no debe de exceder a el saldo"); + } + + var Suma = SumaValores(); + $get('TxtImporte').value = FormatoNumero(Suma, 2); + + if ($get('TxtTotal') != null) { + $get('TxtTotal').value = FormatoNumero(Suma + (ToDouble($get('TxtOtrosImportes').value * -1)), 2); + } + + CambiaPesosDolares() + CambiaDolaresPesos() + + } + + function CambiaPesosDolares() { + $get('TxtImporte').value = FormatoNumero(SumaValores(), 2); + $('#LtlTotalMXN').text(FormatoNumero(SumaValores(), 2)) + if ($("#LbImporteME").length) { + $get('LbImporteME').innerHTML = '$ ' + FormatoNumero(SumaValores(), 2) + ' USD'; + $get('TxtImporte').value = FormatoNumero(ToDouble($get('TxtImporte').value) * ToDouble($get('TxtTC').value), 2); + $get('LtlTotalMXN').value = FormatoNumero(ToDouble($get('TxtImporte').value) * ToDouble($get('TxtTC').value), 2); + } + + if ($get('TxtTotal') != null) { + $get('TxtTotal').value = FormatoNumero(ToDouble($get('TxtImporte').value) + (ToDouble($get('TxtOtrosImportes').value * -1)), 2); + } + } + + function CambiaDolaresPesos() { + + $get('TxtImporte').value = FormatoNumero(SumaValores(), 2); + $('#LtlTotalMXN').text(FormatoNumero(SumaValores(), 2)) + + + + if ($("#LbImporteMN").length) { + $get('LbImporteMN').innerHTML = '$ ' + FormatoNumero(SumaValores(), 2) + ' MXN'; + $get('TxtImporte').value = FormatoNumero(ToDouble($get('TxtImporte').value) / ToDouble($get('TxtTCDolares').value), 2); + $get('LtlTotalMXN').value = FormatoNumero(ToDouble($get('TxtImporte').value) / ToDouble($get('TxtTCDolares').value), 2); + + } + + if ($get('TxtTotal') != null) { + $get('TxtTotal').value = FormatoNumero(ToDouble($get('TxtImporte').value) + (ToDouble($get('TxtOtrosImportes').value * -1)), 2); + } + + } + + function waitforpastedata(elem, savedcontent) { + if (elem.childNodes && elem.childNodes.length > 0) { + processpaste(elem, savedcontent); + } + else { + that = { + e: elem, + s: savedcontent + } + that.callself = function () { + waitforpastedata(that.e, that.s) + } + setTimeout(that.callself, 20); + } + } + + function processpaste(elem, savedcontent) { + pasteddata = elem.innerHTML; + //^^Alternatively loop through dom (elem.childNodes or elem.getElementsByTagName) here + + elem.innerHTML = savedcontent; + + // Do whatever with gathered data; + alert(pasteddata); + } + + function CheckAll() { + var topLevelElem = document.getElementById("C_UPVentas"); + var textBoxes = topLevelElem.getElementsByTagName("input"); + var check = false; + + for (var i = 0; i < textBoxes.length; i++) { + if (textBoxes[i].type == "checkbox") { + + + if (textBoxes[i].id == "ChkAll") { + check = !textBoxes[i].checked; + continue; + } + + + if (textBoxes[i].checked && check) { + textBoxes[i].click(); + } else if (!textBoxes[i].checked && !check) { + textBoxes[i].click(); + } + + } + } + + } + + var TipoCambioActual = 0.0; + function CambiaTC(txt) { + let TipoCambioTxt = ToDouble(txt.value) + if (TipoCambioActual != TipoCambioTxt) { + $get("BtnCambiaTipoMoneda").click(); + TipoCambioActual = TipoCambioTxt; + } + } + + diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 3ad207baf..c21cb69c8 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -992,8 +992,7 @@ Partial Class Ventas_ClientesAbonar If ObjMov.DtResultados.Rows.Count > 0 Then 'Conta ContPAQ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - 'Conta SIG - CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero + End If End If @@ -1159,8 +1158,7 @@ Partial Class Ventas_ClientesAbonar If ObjMov.DtResultados.Rows.Count > 0 Then 'Conta ContPAQ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - 'Conta SIG - CveCuenta = ObjMov.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero + End If End If End If