From 34500a8a9319665ad04043fe7d61cfa4478153e6 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 7 Feb 2023 07:43:49 -0700 Subject: [PATCH 01/10] - --- Bancos/RepProgramarRecursos.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index f0720faa8..07f3fd648 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -170,7 +170,7 @@ Partial Class Bancos_RepProgramarRecursos DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) DdlSubProyecto.DataBind() ' DdlEstatusCompra.SelectedValue = "2" 'las programadas - DdlAgrupador.SelectedValue = "2" + 'DdlAgrupador.SelectedValue = "2" 'Gv.Columns(8).Visible = True DdlSubProyecto.Items.Insert(1, New ListItem("Sin Proyecto", "-2")) From d2b316377d44f902bf06751d2417b50c6b7e2e98 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 7 Feb 2023 08:17:46 -0700 Subject: [PATCH 02/10] -- activar sonido --- Inventarios/EntregaAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index f52220856..29e17c875 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -1317,7 +1317,7 @@ Partial Class Inventarios_EntregaAlmacen DtDatosDetalle.Rows.Add(Row) ActualizaBitacora() - If Not CargaMasivo Then RegistraScript("playsonidito('beep-07.wav')", "Sonidito") + RegistraScript("playsonidito('beep-07.wav')", "Sonidito") If Tipo = 1 Then TxtSerie.Text = "" From 60ecea1eef684d0e7c17c5a519f200dfbe09699a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 8 Feb 2023 08:30:44 -0700 Subject: [PATCH 03/10] =?UTF-8?q?--=20se=20elmin=C3=B3=20usacontabilidadSI?= =?UTF-8?q?G?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AF/AF.aspx.vb | 5 +---- App_Code/ClsPaginas.vb | 18 +----------------- App_Code/ClsRH.vb | 12 ++---------- App_Code/ClsSisEmpresas.vb | 1 - App_Code/Empresa.vb | 3 +-- Bancos/PolizaCheque.aspx.vb | 2 +- Bancos/ProductosFinancieros.aspx.vb | 2 +- Bancos/ProveedoresAbonar.aspx.vb | 2 +- Bancos/Transferencias.aspx.vb | 4 ++-- 9 files changed, 10 insertions(+), 39 deletions(-) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index c78db8b2b..be04003c1 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -2568,9 +2568,6 @@ Partial Class AF_AF End If - - - End If End If @@ -2581,7 +2578,7 @@ Partial Class AF_AF 'Dim CveCuentaInv = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={AFInvCveAlmacen}").ToEntero If Not ErrorGuardar Then Dim CvePrePoliza As Integer = ObjContabilidad.AddPrePolizas("AF/ImportadoInv", 4, TxtValorCompra.Text.ToDouble, TxtValorCompra.Text.ToDouble, 1, Now, $"AF importado de Almacén {TxtCodigo.Text.Trim}", UsuarioActual.CveUsuario, CveEmpresaActual) - If ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, False, TxtValorCompra.Text.ToDecimal, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", 49, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", Now, DdlCtaContable.SelectedValue.Trim.ToEntero, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=TxtValorCompra.Text.ToDecimal, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(DdlCtaContable.SelectedValue.Trim.ToEntero, UsuarioActual.CveEmpresa), -1)) Then + If ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, False, TxtValorCompra.Text.ToDecimal, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", 49, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", Now, DdlCtaContable.SelectedValue.Trim.ToEntero, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=TxtValorCompra.Text.ToDecimal) Then If Not ErrorGuardar Then If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, True, TxtValorCompra.Text.ToDecimal, TxtCodigo.Text.Trim, 68, TxtCodigo.Text.Trim, Now, IDCtaContableInv, -1, CveMovimientoAlmacen:=CveMovimientoSalidaInv, ImporteMX:=TxtValorCompra.Text.ToDecimal) Then ErrorGuardar = True diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a54f105bb..6438c549d 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1268,21 +1268,12 @@ Public Class ClsPaginas Public Shared Property GlobalDTProyectos(CveEmpresa As Integer, Optional Estatus As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTProyectos-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing OrElse DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0 Then Dim ObjProyectos As New ClsProyectos If ObjProyectos.GetProyectos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjProyectos.DtResultados ObjProyectos.Dispose() - Dim msg As String = "aqui no se carga proyectos" - If HttpContext.Current.Request IsNot Nothing Then - msg += HttpContext.Current.Request.ServerVariables("URL") - End If - msg.GuardaLog() End If - If Estatus <> -1 Then 'OrElse CveProyecto <> -1 - 'Dim StrSQL As New StringBuilder - 'If Estatus <> -1 Then StrSQL.Append($"Estatus = {Estatus}") - 'If CveProyecto <> -1 Then StrSQL.Append(" {If(StrSQL.Length > 0, "AND", "")} CveProyecto = {CveProyecto}") + If Estatus <> -1 Then Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveEstatus = {Estatus}", "", DataViewRowState.CurrentRows) GlobalDTProyectos = Dv.ToTable Dv.Dispose() @@ -1291,13 +1282,6 @@ Public Class ClsPaginas End If End Get Set(value As DataTable) - If value Is Nothing OrElse value.Rows.Count = 0 Then - Dim msg As String = "aqui no se carga proyectos" - If HttpContext.Current.Request IsNot Nothing Then - msg += HttpContext.Current.Request.ServerVariables("URL") - End If - msg.GuardaLog() - End If Dim AppNombre As String = $"GlobalDTProyectos-{CveEmpresa}" HttpContext.Current.Application(AppNombre) = value End Set diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index c6570ec94..c516288de 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1483,8 +1483,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Public Property CveMotivoBaja As Integer Public Property FechaBaja As Date Public Property CveEstatusPersonal As Integer - Public Property IdCtaContPrestamos As Integer - Public Property CveCuentaPrestamos As Integer + Public Property IdCtaContPrestamos As Integer Public Property CtaContPrestamos As String Public Property TelefonoExtension As String Public Property CelularPersonal As String @@ -1538,8 +1537,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Public Property CveUsuario As Integer Public Property Usuario As String Public Property CveEmpresa As Integer - Public Property IdCtaContPersonal As Integer - Public Property CveCuentaPersonal As Integer + Public Property IdCtaContPersonal As Integer Public Property CtaContPersonal As String Public Property CvePersonalPadre As Integer @@ -1700,10 +1698,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Me.Jornada = Data.Rows(0)("Jornada").ToString Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero IdCtaContPrestamos = Data.Rows(0)("IdCtaContPrestamos").ToString.ToEntero - CveCuentaPrestamos = Data.Rows(0)("IdCtaContPrestamosSIG").ToString.ToEntero CtaContPrestamos = Data.Rows(0)("CtaContPrestamos").ToString IdCtaContPersonal = Data.Rows(0)("IdCtaContPersonal").ToString.ToEntero - CveCuentaPersonal = Data.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero CtaContPersonal = Data.Rows(0)("CtaContPersonal").ToString CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero CveUsuarioNomina = Data.Rows(0)("CveUsuarioNomina").ToString.ToEntero @@ -1880,16 +1876,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Me.Jornada = Data.Rows(0)("Jornada").ToString Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero IdCtaContPrestamos = Data.Rows(0)("IdCtaContPrestamos").ToString.ToEntero - CveCuentaPrestamos = Data.Rows(0)("IdCtaContPrestamosSIG").ToString.ToEntero CtaContPrestamos = Data.Rows(0)("CtaContPrestamos").ToString IdCtaContPersonal = Data.Rows(0)("IdCtaContPersonal").ToString.ToEntero - CveCuentaPersonal = Data.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero CtaContPersonal = Data.Rows(0)("CtaContPersonal").ToString CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero - CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero CveUsuarioNomina = Data.Rows(0)("CveUsuarioNomina").ToString.ToEntero - End If Retorno = True Catch ex As SqlException diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index c1b5f590c..2ca94fb56 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -384,7 +384,6 @@ Public Class ClsSisEmpresas _Empresa.FacturaProduccion = If(Data.Rows(0)("FacturaProduccion").ToString = "", False, CBool(Data.Rows(0)("FacturaProduccion").ToString)) _Empresa.EstatusFacturacion = Data.Rows(0)("EstatusFacturacion").ToString <> "No" _Empresa.UsaContabilidad = Data.Rows(0)("UsaContabilidad").ToString <> "No" - _Empresa.UsaContabilidadSIG = Data.Rows(0)("UsaContabilidadSIG").ToString <> "No" _Empresa.UsaBancos = Data.Rows(0)("UsaBancos").ToString <> "No" _Empresa.UsaVentas = Data.Rows(0)("UsaVentas").ToString <> "No" _Empresa.UsaCxC = Data.Rows(0)("UsaCxC").ToString <> "No" diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index c55637868..666880f07 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -68,8 +68,7 @@ Public Class Empresa Public Property RegimenFiscal As String Public Property EstatusFacturacion As Boolean Public Property Estatus As Boolean - Public Property UsaContabilidad As Boolean - Public Property UsaContabilidadSIG As Boolean + Public Property UsaContabilidad As Boolean Public Property UsaBancos As Boolean Public Property UsaVentas As Boolean Public Property UsaCompras As Boolean diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 25d3d9559..33211d3ff 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -954,7 +954,7 @@ Partial Class Bancos_PolizaCheque Importe = Importe * TC End If - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(gvr.DataKey("IDCuenta").ToEntero, UsuarioActual.CveEmpresa), -1), TipoCambio:=TC) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, TipoCambio:=TC) Then MsgError = "no se pudo insertar el detalle de la póliza2" End If diff --git a/Bancos/ProductosFinancieros.aspx.vb b/Bancos/ProductosFinancieros.aspx.vb index ec2761da3..dc17b77df 100644 --- a/Bancos/ProductosFinancieros.aspx.vb +++ b/Bancos/ProductosFinancieros.aspx.vb @@ -366,7 +366,7 @@ Partial Class Bancos_ProductosFinancieros idCuentaContabilizacion = 0 End If - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), UsuarioActual.CveEmpresa), -1)) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento) Then ErrorTransaccion = True End If End If diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 8941c6e1b..27467a8c7 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -887,7 +887,7 @@ Partial Class Bancos_ProveedoresAbonar If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then Dim ObjCreditos As New ClsBancos ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero) - If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0 Or ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjetaSIG").ToString.ToEntero > 0) Then + If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0) Then IdCuenta = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero End If diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index cc60528a8..f054f1697 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -378,14 +378,14 @@ Partial Class Bancos_Transferencias For Each row As GridViewRow In GvTC.Rows - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 41, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, If(row.DataKey("IdCtaContableTarjeta").ToEntero > 0, row.DataKey("IdCtaContableTarjeta").ToEntero, row.DataKey("IdCtaContable").ToEntero), -1, CveIEDestino, ImporteMX:=row.FCTextBox("TxtAbono").Text.ToDouble, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(If(row.DataKey("IdCtaContableTarjeta").ToEntero > 0, row.DataKey("IdCtaContableTarjeta").ToEntero, row.DataKey("IdCtaContable").ToEntero), UsuarioActual.CveEmpresa), -1)) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 41, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, If(row.DataKey("IdCtaContableTarjeta").ToEntero > 0, row.DataKey("IdCtaContableTarjeta").ToEntero, row.DataKey("IdCtaContable").ToEntero), -1, CveIEDestino, ImporteMX:=row.FCTextBox("TxtAbono").Text.ToDouble) Then MsgError = "Ocurrio un error al ingresar la prepoliza" End If Next 'Agregamos la contraria a bancos cuando es cuenta Else - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, ImporteDestino, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableDestino, -1, CveIEDestino, ImporteMX:=If(UsuarioActual.CveEmpresa = 119, ImporteDestino, ImporteMXDestino), ImporteME:=If(CveMonedaDestino > 1, TxtImporte.Text.ToDouble * TC, 0), CveCuenta:=CveCuentaDestino) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, ImporteDestino, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableDestino, -1, CveIEDestino, ImporteMX:=If(UsuarioActual.CveEmpresa = 119, ImporteDestino, ImporteMXDestino), ImporteME:=If(CveMonedaDestino > 1, TxtImporte.Text.ToDouble * TC, 0)) Then MsgError = "Ocurrio un error al ingresar la prepoliza" End If From 4174dd86b1939e8005fd75d18a0a29935a8604d8 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 8 Feb 2023 08:32:02 -0700 Subject: [PATCH 04/10] =?UTF-8?q?--=20activ=C3=B3=20iva=20para=20importaci?= =?UTF-8?q?=C3=B3n=20a=20empresas=20citr=C3=ADcolas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 2c13b4900..7830626a9 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1667,17 +1667,14 @@ Partial Class Compras_Compras 'RegistraScript("ScrollVentanaAddProducto();") - If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'cuando es llantera. y citrícola divImportacion.Visible = True chkImportacion.Attributes.Add("onclick", "ChkImportacion(this);") End If - - MostrarOcultarColumnaIEPS() - End Sub #Region "C A R G A S" @@ -3198,13 +3195,12 @@ Partial Class Compras_Compras End If 'Tiene Importacion - If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then - If dr("EsImportacion").ToString = "True" Then + + If dr("EsImportacion").ToString = "True" Then chkImportacion.Checked = True Else chkImportacion.Checked = False End If - End If CargaComplementosPago() CargaGvBitacora() InventarioMov() @@ -12280,6 +12276,7 @@ Partial Class Compras_Compras End Select romCreditosTabla.Visible = False Case "4" + EsContado = False CargaCreditosDisponibles() Exit Select End Select From fef7dc41b03781572d263a26582a413d0f10daec Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 8 Feb 2023 08:32:16 -0700 Subject: [PATCH 05/10] =?UTF-8?q?--=20se=20quit=C3=B3=20propiedad=20usacon?= =?UTF-8?q?tabilidadSIG?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Proveedores.aspx.vb | 169 ++++++++++++++++-------------------- 1 file changed, 73 insertions(+), 96 deletions(-) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 9283bbf74..975465cb7 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -697,7 +697,7 @@ Partial Class Compras_Proveedores DtCuentasContables = Nothing End If ObjContabilidad.Dispose() - ElseIf UsuarioActual.Empresa.UsaContabilidadSIG Then + ElseIf UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim ObjContabilidad As New ClsContabilidad If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then DtCuentasContables = ObjContabilidad.DtResultados @@ -904,7 +904,7 @@ Partial Class Compras_Proveedores End If 'Contable - If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaContabilidadSIG Then + If UsuarioActual.Empresa.UsaContabilidad Then DdlCtaContAcreedores.AutoPostBack = True DdlCtaContProveedores.AutoPostBack = True DdlCtaContAnticipos.AutoPostBack = True @@ -943,29 +943,6 @@ Partial Class Compras_Proveedores DdlCtaContRetISRAcreditable.Attributes.Add("onclick", "CargaCuentas(19);") DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);") - If UsuarioActual.Empresa.UsaContabilidadSIG = True And UsuarioActual.Empresa.UsaContabilidad = False Then - DdlCtaContAcreedores.DataTextField = "Cuenta" : DdlCtaContAcreedores.DataValueField = "CveCuenta" - DdlCtaContProveedores.DataTextField = "Cuenta" : DdlCtaContProveedores.DataValueField = "CveCuenta" - DdlCtaContAnticipos.DataTextField = "Cuenta" : DdlCtaContAnticipos.DataValueField = "CveCuenta" - DdlCtaContFondoGarantia.DataTextField = "Cuenta" : DdlCtaContFondoGarantia.DataValueField = "CveCuenta" - DdlCtaContRetIVA.DataTextField = "Cuenta" : DdlCtaContRetIVA.DataValueField = "CveCuenta" - DdlCtaContRetIVAAcreditable.DataTextField = "Cuenta" : DdlCtaContRetIVAAcreditable.DataValueField = "CveCuenta" - DdlCtaContRetISR.DataTextField = "Cuenta" : DdlCtaContRetISR.DataValueField = "CveCuenta" - DdlCtaContComplementaria.DataTextField = "Cuenta" : DdlCtaContComplementaria.DataValueField = "CveCuenta" - DdlCtaContExtranjera.DataTextField = "Cuenta" : DdlCtaContExtranjera.DataValueField = "CveCuenta" - DdlCtaContDeudor.DataTextField = "Cuenta" : DdlCtaContDeudor.DataValueField = "CveCuenta" - DdlCtaContDeudorExtranjera.DataTextField = "Cuenta" : DdlCtaContDeudorExtranjera.DataValueField = "CveCuenta" - DdlCtaContDocsXPagar.DataTextField = "Cuenta" : DdlCtaContDocsXPagar.DataValueField = "CveCuenta" - DdlCtaContDeudorComplementaria.DataTextField = "Cuenta" : DdlCtaContDeudorComplementaria.DataValueField = "CveCuenta" - DdlCtaContDocsXPagarComplementaria.DataTextField = "Cuenta" : DdlCtaContDocsXPagarComplementaria.DataValueField = "CveCuenta" - DdlCtaContRetISRAcreditable.DataTextField = "Cuenta" : DdlCtaContRetISRAcreditable.DataValueField = "CveCuenta" - DdlCtaContAcreedoresExtranjera.DataTextField = "Cuenta" : DdlCtaContAcreedoresExtranjera.DataValueField = "CveCuenta" - DdlCtaContAcreedoresComplementaria.DataTextField = "Cuenta" : DdlCtaContAcreedoresComplementaria.DataValueField = "CveCuenta" - DdlCtaContAnticiposExtranjera.DataTextField = "Cuenta" : DdlCtaContAnticiposExtranjera.DataValueField = "CveCuenta" - DdlCtaContAnticiposComplementaria.DataTextField = "Cuenta" : DdlCtaContAnticiposComplementaria.DataValueField = "CveCuenta" - DdlCtaContDocsXPagarExtranjera.DataTextField = "Cuenta" : DdlCtaContDocsXPagarExtranjera.DataValueField = "CveCuenta" - End If - 'Proveedores If ObjProveedor.IdCtaContProveedores > 0 Then DdlCtaContProveedores.Items.Add(New ListItem(ObjProveedor.CtaContProveedores, ObjProveedor.IdCtaContProveedores.ToString)) : DdlCtaContProveedores.SelectedValueExist(ObjProveedor.IdCtaContProveedores.ToString) If ObjProveedor.IdCtaContProveedoresExtranjera > 0 Then DdlCtaContExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContProveedoresExtranjera, ObjProveedor.IdCtaContProveedoresExtranjera.ToString)) : DdlCtaContExtranjera.SelectedValue = ObjProveedor.IdCtaContProveedoresExtranjera.ToString @@ -4542,92 +4519,92 @@ Partial Class Compras_Proveedores ObjProveedores.Dispose() - ElseIf UsuarioActual.Empresa.UsaContabilidadSIG = True Then + 'ElseIf UsuarioActual.Empresa.UsaContabilidadSIG = True Then - Dim ObjContabilidad As New ClsContabilidad - Dim ObjProveedores As New ClsCompProveedores() - ObjContabilidad.IniciaTransacSQL() - ObjProveedores.IniciaTransacSQL() - Dim CuentaPadre = -1 - Dim IdCuentaContable = -1 - Dim CtaCodigo As String = "" - Dim TieneError = False - Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1 - Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1" + ' Dim ObjContabilidad As New ClsContabilidad + ' Dim ObjProveedores As New ClsCompProveedores() + ' ObjContabilidad.IniciaTransacSQL() + ' ObjProveedores.IniciaTransacSQL() + ' Dim CuentaPadre = -1 + ' Dim IdCuentaContable = -1 + ' Dim CtaCodigo As String = "" + ' Dim TieneError = False + ' Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1 + ' Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1" - Select Case btn.CommandArgument.ToString - Case "Proveedores" - CuentaPadre = UsuarioActual.Empresa.Funcionalidad(232).ToEntero - Case "Acreedores" - CuentaPadre = UsuarioActual.Empresa.Funcionalidad(235).ToEntero - Case "DocsXPagar" - CuentaPadre = UsuarioActual.Empresa.Funcionalidad(236).ToEntero - Case "Anticipos" - CuentaPadre = UsuarioActual.Empresa.Funcionalidad(238).ToEntero - Case "Deudores" - CuentaPadre = UsuarioActual.Empresa.Funcionalidad(234).ToEntero + ' Select Case btn.CommandArgument.ToString + ' Case "Proveedores" + ' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(232).ToEntero + ' Case "Acreedores" + ' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(235).ToEntero + ' Case "DocsXPagar" + ' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(236).ToEntero + ' Case "Anticipos" + ' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(238).ToEntero + ' Case "Deudores" + ' CuentaPadre = UsuarioActual.Empresa.Funcionalidad(234).ToEntero - End Select + ' End Select - Dim NombreCuenta = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim) - IdCuentaContable = ObjContabilidad.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, UsuarioActual.CveEmpresa) - If IdCuentaContable > 0 Then + ' Dim NombreCuenta = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim) + ' IdCuentaContable = ObjContabilidad.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, UsuarioActual.CveEmpresa) + ' If IdCuentaContable > 0 Then - ObjContabilidad.GetCuentas(IdCuentaContable, "-1", -1, UsuarioActual.CveEmpresa) - Dim dt = ObjContabilidad.DtResultados + ' ObjContabilidad.GetCuentas(IdCuentaContable, "-1", -1, UsuarioActual.CveEmpresa) + ' Dim dt = ObjContabilidad.DtResultados - If dt.Rows.Count = 1 Then + ' If dt.Rows.Count = 1 Then - Dim row As DataRow = dt.Rows(0) - CtaCodigo = CStr(row("CtaCodigo")) + ' Dim row As DataRow = dt.Rows(0) + ' CtaCodigo = CStr(row("CtaCodigo")) - Select Case btn.CommandArgument.ToString - Case "Proveedores" - IdCtaContableProveedores = IdCuentaContable - CtaCodigoProveedores = CtaCodigo - Case "Acreedores" - IdCtaContableAcreedores = IdCuentaContable - CtaCodigoAcreedores = CtaCodigo - Case "DocsXPagar" - IdCtaContableDocsXPagar = IdCuentaContable - CtaCodigoDocsXPagar = CtaCodigo - Case "Anticipos" - IdCtaContableAnticipos = IdCuentaContable - CtaCodigoAnticipos = CtaCodigo - Case "Deudores" - IdCtaContableDeudor = IdCuentaContable - CtaCodigoDeudor = CtaCodigo - End Select + ' Select Case btn.CommandArgument.ToString + ' Case "Proveedores" + ' IdCtaContableProveedores = IdCuentaContable + ' CtaCodigoProveedores = CtaCodigo + ' Case "Acreedores" + ' IdCtaContableAcreedores = IdCuentaContable + ' CtaCodigoAcreedores = CtaCodigo + ' Case "DocsXPagar" + ' IdCtaContableDocsXPagar = IdCuentaContable + ' CtaCodigoDocsXPagar = CtaCodigo + ' Case "Anticipos" + ' IdCtaContableAnticipos = IdCuentaContable + ' CtaCodigoAnticipos = CtaCodigo + ' Case "Deudores" + ' IdCtaContableDeudor = IdCuentaContable + ' CtaCodigoDeudor = CtaCodigo + ' End Select - If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then - TieneError = True - End If - Else - TieneError = True - End If - Else - TieneError = True - End If + ' If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then + ' TieneError = True + ' End If + ' Else + ' TieneError = True + ' End If + ' Else + ' TieneError = True + ' End If - If Not TieneError Then - Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion)) - ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString) - btn.Visible = False - ddl.Width = 206 - ObjProveedores.Commit() - ObjContabilidad.Commit() - Else - Alert("Esta cuenta no puede tener Sub Cuentas.", TipoMensaje.MsgError) - ObjProveedores.RollBack() - ObjContabilidad.RollBack() - End If + ' If Not TieneError Then + ' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion)) + ' ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString) + ' btn.Visible = False + ' ddl.Width = 206 + ' ObjProveedores.Commit() + ' ObjContabilidad.Commit() + ' Else + ' Alert("Esta cuenta no puede tener Sub Cuentas.", TipoMensaje.MsgError) + ' ObjProveedores.RollBack() + ' ObjContabilidad.RollBack() + ' End If - ObjProveedores.Dispose() - ObjContabilidad.Dispose() + ' ObjProveedores.Dispose() + ' ObjContabilidad.Dispose() End If UPPContable.Update() From 72998520fb201d3aecabb2a32fb263ba2d42b4da Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 8 Feb 2023 08:32:46 -0700 Subject: [PATCH 06/10] =?UTF-8?q?--validaciones=20de=20prestamos=20para=20?= =?UTF-8?q?empresa=20agr=C3=ADcola?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx.vb | 31 ++++++++++++++++++++++++++----- 1 file changed, 26 insertions(+), 5 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 46eeba02a..8d9f6e1d7 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -754,6 +754,11 @@ Partial Class Ventas_ClientesAbonar Exit Sub End If + If TxtPrestamoImporte.Text.ToDecimal <> 0 AndAlso DdlPrestamo.SelectedValue = "-1" Then + Alert("Debe seleccionar un préstamo al especificar un valor.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + 'valida que no exceda lo seleccionado. con el valor del ie If (RblTipoPago.SelectedValue = "3" AndAlso HdnIngresoImporte.Value.ToDecimal < TxtTotal.Text.ToDecimal) Then Alert("Importe excedido para la aplicación", TipoMensaje.MsgAdvertencia) @@ -767,6 +772,11 @@ Partial Class Ventas_ClientesAbonar For Each gvr As GridViewRow In GvCxC.Rows If gvr.FCCheckBox("Chk").Checked Then seleccion += 1 + 'si hay liquidación- + If gvr.FCDropDownList("DdlAnti").SelectedValue = "-1" AndAlso gvr.FCTextBox("TxtAmort").Text.ToDecimal <> 0 Then + Alert("Importe de anticipo especificado y no seleccionado. F: " & gvr.DataKey("SerieFolio"), TipoMensaje.MsgAdvertencia) + Exit Sub + End If End If Next @@ -884,13 +894,23 @@ Partial Class Ventas_ClientesAbonar Dim ImportePrestamo As Decimal = 0 Dim TCPrestamo As Decimal = 0 + If CveSubProyectoMaximo <= 0 Then 'sino se seleccionó del combo, busca en el listado el primero + + For Each Gvr As GridViewRow In GvCxC.Rows + If Gvr.FCCheckBox("Chk").Checked Then + CveSubProyecto = Gvr.DataKey("CveSubProyecto").ToEntero + Exit For + End If + Next + End If + If TxtPrestamoImporte.Text.ToDecimal <> 0 Then 'amortización del préstamo ImportePrestamo = TxtPrestamoImporte.Text.ToDecimal - Dim tCveProv As Integer = DtPrestamos.FiltroPrimeroValor("CveProveedor", "CveIE=" & DdlPrestamo.SelectedValue) + Dim tCveProv As Integer = DtPrestamos.FiltroPrimeroValor("CveProveedor", "CveIE=" & DdlPrestamo.SelectedValue).ToEntero Dim tFechaIE As Date = DtPrestamos.FiltroPrimeroValor("FechaDocumento", "CveIE=" & DdlPrestamo.SelectedValue).ToDate TCPrestamo = DtPrestamos.FiltroPrimeroValor("TipoCambio", "CveIE=" & DdlPrestamo.SelectedValue).ToDecimal If CveMoneda = 1 Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ImportePrestamo, 57, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyecto, TipoCambio:=tipoCambioPago, CveProveedor:=tCveProv) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ImportePrestamo, 57, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=tipoCambioPago, CveProveedor:=tCveProv) Then MsgError = "No se pudo insertar la póliza" End If Else @@ -901,11 +921,11 @@ Partial Class Ventas_ClientesAbonar End If End If - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ImportePrestamo, 349, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyecto, TipoCambio:=TCPrestamo, ImporteME:=ImportePrestamo, CveProveedor:=tCveProv) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ImportePrestamo, 349, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=TCPrestamo, ImporteME:=ImportePrestamo, CveProveedor:=tCveProv) Then MsgError = "No se pudo insertar la póliza" End If - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ((ImportePrestamo * TCPrestamo) - ImportePrestamo).RoundSQL, 350, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyecto, TipoCambio:=TCPrestamo, ImporteME:=ImportePrestamo, CveProveedor:=tCveProv) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ((ImportePrestamo * TCPrestamo) - ImportePrestamo).RoundSQL, 350, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=TCPrestamo, ImporteME:=ImportePrestamo, CveProveedor:=tCveProv) Then MsgError = "No se pudo insertar la póliza" End If End If @@ -915,7 +935,7 @@ Partial Class Ventas_ClientesAbonar If TxtPrestamoIntereses.Text.ToDecimal <> 0 AndAlso MsgError = "" Then tipoCambioPago = If(TxtTCDolares.Visible, TxtTCDolares.Text.ToDecimal, TxtTCDolaresDolares.Text.ToDecimal) Dim ImporteIntereses As Decimal = (TxtPrestamoIntereses.Text.ToDecimal * tipoCambioPago).RoundSQL - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteIntereses, ImporteIntereses, 51, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=11881, TipoCambio:=tipoCambioPago, CveClasificacion:=21927) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteIntereses, ImporteIntereses, 51, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=tipoCambioPago, CveClasificacion:=21927) Then MsgError = "No se pudo insertar la póliza" End If End If @@ -1122,6 +1142,7 @@ Partial Class Ventas_ClientesAbonar If MsgError = "" AndAlso AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then MsgError = "No se pudo insertar la póliza" + Exit For End If ' Case 134 'Pago Intermediario From ed450189f7b72b30bf3145c9853b61c86ab34389 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 8 Feb 2023 14:57:36 -0700 Subject: [PATCH 07/10] =?UTF-8?q?--=20correcci=C3=B3n=20globaldt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/PlantillasPolizasDetalle.aspx.vb | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index e9a5d17dd..9ecb78a66 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -231,10 +231,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle If Not ErrorPlantilla Then - Using ObjContabilidad As New ClsContabilidad - If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing - If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing - End Using + GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing + GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, -1) = Nothing + 'Using ObjContabilidad As New ClsContabilidad + ' If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing + ' If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing + 'End Using End If @@ -244,13 +246,13 @@ Partial Class Contabilidad_PlantillasPolizasDetalle Dim ObjPlantillaPolizaDetalle As New ClsContabilidad If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, UsuarioActual.CveEmpresa) Then ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa)) - ' GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados End If + ObjPlantillaPolizaDetalle.Dispose() GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing + GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, -1) = Nothing - ObjPlantillaPolizaDetalle.Dispose() End Sub Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click OcultaDiv() From 006d94145e0204a6756bf57fb11cb74ae850335e Mon Sep 17 00:00:00 2001 From: MLopez Date: Wed, 8 Feb 2023 16:44:41 -0700 Subject: [PATCH 08/10] =?UTF-8?q?Limpieza=20masiva=20Centros=20de=20costo?= =?UTF-8?q?=20-Se=20unific=C3=B3=20todo=20el=20comporatmiento=20de=20centr?= =?UTF-8?q?os=20de=20costo=20en=20ClsPaginas=20-Se=20unific=C3=B3=20la=20c?= =?UTF-8?q?arga=20de=20subproyectos=20en=20ClsPaginas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 27 ++-- CGame/CatEstatus.aspx.VB | 5 +- Compras/RepCompras.aspx | 4 +- Compras/RepCompras.aspx.vb | 88 ++----------- Compras/RepComprasAF.aspx.vb | 24 +--- Compras/RepComprasAFDetalle.aspx.vb | 43 +------ Compras/RepComprasDetalle.aspx | 4 +- Compras/RepComprasDetalle.aspx.vb | 72 +---------- Compras/RepComprasPeriodo.aspx | 8 +- Compras/RepComprasPeriodo.aspx.vb | 69 +---------- Compras/RepPagado.aspx | 4 +- Compras/RepPagado.aspx.cs | 58 +-------- Compras/RepPagadoDetalle.aspx | 4 +- Compras/RepPagadoDetalle.aspx.cs | 65 +--------- Compras/RepPagadoPeriodo.aspx | 4 +- Compras/RepPagadoPeriodo.aspx.cs | 57 +-------- Compras/RepProductosServicios.aspx | 12 +- Compras/RepProductosServicios.aspx.vb | 71 +---------- Compras/RepProductosServiciosDetalle.aspx | 12 +- Compras/RepProductosServiciosDetalle.aspx.vb | 123 +------------------ Compras/RepProductosServiciosPeriodo.aspx | 8 +- Compras/RepProductosServiciosPeriodo.aspx.cs | 86 +------------ Contabilidad/AuxiliarPrePolizas.aspx.cs | 59 +-------- Inventarios/Remanufactura.aspx.vb | 48 +------- Inventarios/RepMovimientosSalida.aspx | 6 +- Inventarios/RepReciclaje.aspx | 4 +- Inventarios/RepReciclaje.aspx.vb | 47 +------ OC/CatEstatus.aspx | 6 +- OC/CatEstatus.aspx.vb | 70 ++++------- OS/CatEstatusOrdenServicio.aspx | 6 +- OS/CatEstatusOrdenServicio.aspx.vb | 35 ++---- PortalCliente/PortalCliente.aspx.vb | 30 ----- Ventas/AuxiliarClienteVentas.aspx | 2 +- Ventas/AuxiliarClienteVentas.aspx.vb | 7 +- Ventas/Clientes.aspx | 4 +- Ventas/Clientes.aspx.vb | 94 +------------- Ventas/RepAuxiliarFacturas.aspx | 12 +- Ventas/RepAuxiliarFacturas.aspx.vb | 49 +------- Ventas/RepPS.aspx | 6 +- Ventas/RepPS.aspx.vb | 42 +------ Ventas/RepProductosServicios.aspx | 12 +- Ventas/RepProductosServicios.aspx.vb | 95 ++------------ Ventas/RepProductosServiciosDetalle.aspx | 12 +- Ventas/RepProductosServiciosDetalle.aspx.vb | 91 +------------- Ventas/RepProductosServiciosPeriodo.aspx | 12 +- Ventas/RepProductosServiciosPeriodo.aspx.cs | 92 +------------- Ventas/RepVentaDetalle.aspx | 8 +- Ventas/RepVentaDetalle.aspx.vb | 92 +------------- Ventas/RepVentas.aspx | 8 +- Ventas/RepVentas.aspx.vb | 99 +-------------- 50 files changed, 191 insertions(+), 1705 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 6438c549d..22db1798b 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1320,11 +1320,10 @@ Public Class ClsPaginas If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados ObjSubProyectos.Dispose() End If - If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then + If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEstatus <> -1 Then Dim StrSQL As New StringBuilder If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto) If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto) - If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa) If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario) If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", CveEstatus) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) @@ -1347,10 +1346,9 @@ Public Class ClsPaginas If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) ObjSubProyectos.Dispose() End If - If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then + If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEstatus <> -1 Then Dim StrSQL As New StringBuilder If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto) - If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa) If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario) If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) @@ -4260,7 +4258,7 @@ Public Class ClsPaginas ObjUsuario.Dispose() Return Retorno End Function - Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListBox = Nothing) + Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing) Select Case UsuarioActual.Empresa.Tipo_CentroCosto Case 1 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False @@ -4292,9 +4290,20 @@ Public Class ClsPaginas If AplicaTodos <> "" Then DdlSubProyectoMultiple.Items.Insert(0, New ListItem(AplicaTodos, "-1")) End If If DdlSubProyecto IsNot Nothing Then - DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - DdlSubProyecto.DataBind() - If AplicaTodos <> "" Then DdlSubProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1")) + CargarSubProyecto(DdlSubProyecto, "-1", AplicaTodos) + End If + End Sub + Public Sub CargarSubProyecto(DdlSubProyecto As ListControl, CveProyecto As String, Optional AplicaTodos As String = "Seleccione") + DdlSubProyecto.Items.Clear() + DdlSubProyecto.ClearSelection() + DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto.ToEntero(), -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataBind() + If AplicaTodos <> "" Then + If DdlSubProyecto.GetType() Is GetType(ListBox) Then + 'DdlSubProyecto.Text = "Seleccione" + Else + DdlSubProyecto.Items.Insert(0, New ListItem(If(CveProyecto <> "-1", AplicaTodos, "Todos"), "-1")) + End If End If End Sub Public Sub CargaSeccionesAlmacen(ByRef DdlSeccionAlmacen As DropDownList, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer, Optional IncluyeSeleccione As Boolean = False) @@ -8058,7 +8067,7 @@ Public Class ClsPaginas End Class #End Region -#Region "GlobalSIGAppPaginas" +#Region "Diccionario de páginas" Private Function Obt_ClavePagina(Pagina As String) As Integer Dim Retorno As Integer Dim PaginaDict As System.Collections.Hashtable diff --git a/CGame/CatEstatus.aspx.VB b/CGame/CatEstatus.aspx.VB index 4dbf3cd54..710c68a21 100644 --- a/CGame/CatEstatus.aspx.VB +++ b/CGame/CatEstatus.aspx.VB @@ -1,7 +1,6 @@ Option Strict On Imports System.Data Imports System.Collections.Generic Imports System.Linq Imports System.Web Imports System.Web.UI.WebControls Imports Extensiones Partial Class CATEstatus Inherits ClsPaginas - #Region "Propiedades" Property CveEstatus As Integer Get If Not ViewState("CveEstatus") Is Nothing Then @@ -19,7 +18,9 @@ #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then - CargaEstatus() End If End Sub Protected Sub CargaEstatus() Dim ObjEsta As New ClsCGame() If ObjEsta.GetEstatus(UsuarioActual.CveEmpresa) Then + CargaEstatus() + 'CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) + End If End Sub Protected Sub CargaEstatus() Dim ObjEsta As New ClsCGame() If ObjEsta.GetEstatus(UsuarioActual.CveEmpresa) Then GVEstatus.DataSource = ObjEsta.DtResultados GVEstatus.DataBind() End If diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx index f094031ad..2b3afe529 100644 --- a/Compras/RepCompras.aspx +++ b/Compras/RepCompras.aspx @@ -162,9 +162,7 @@ Proyecto:
- - - +
SubProyecto:
diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index d8d4d8561..192b4ee23 100644 --- a/Compras/RepCompras.aspx.vb +++ b/Compras/RepCompras.aspx.vb @@ -63,65 +63,13 @@ Partial Class Compras_RepCompras DdlGrupo.DataBind() DdlGrupo.SelectedValueExist("3") End Sub - Private Sub CargaTipoCentroCosto() - If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then - DdlSubProyecto.Items.Clear() - DivProyecto.Visible = False - DivLblProyecto.Visible = False - LblSubProyecto.Text = "Sucursal:" - - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyecto.DataBind() - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then - DdlSubProyecto.Items.Clear() - DivProyecto.Visible = False - DivLblProyecto.Visible = False - LblSubProyecto.Text = "Proyecto:" - - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyecto.DataBind() - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then - DdlGrupo.Items.Insert(10, New ListItem("Remesa-SubProyecto", "11")) - DdlGrupo.Items.Insert(11, New ListItem("SubProyecto", "12")) - DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then - LblProyecto.Text = "Sucursal:" - LblSubProyecto.Text = "Proyecto:" - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12")) - DdlGrupo.Items.Insert(12, New ListItem("Sucursal", "13")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then - LblProyecto.Text = "Proyecto:" - LblSubProyecto.Text = "Sucursal:" - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12")) - DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13")) - DdlGrupo.DataBind() - End If - DdlGrupo.Items.Add(New ListItem("Tipo Proveedor", "14")) - DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15")) - End Sub Private Sub CargaCombos() - txtFechaI.Text = $"01/01/{Now.Year}" + txtFechaI.Text = $"01/01/{Now.Year}" + + 'Carga Tipo Centro de Costo + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) + 'CargaProveedores DdlProveedores.setEsWebService(True) DdlProveedores.Attributes.Add("data-metodo", "getproveedores") @@ -144,38 +92,22 @@ Partial Class Compras_RepCompras DdlMonedas.DataSource = GlobalDTMonedas() DdlMonedas.DataBind() - 'CargaProyecto - DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) - DdlProyecto.DataBind() - 'Carga Grupo CargaGrupo() - - 'Carga Tipo Centro de Costo - CargaTipoCentroCosto() End Sub - - Private Sub ConfiguraEmpresa() ChkIVA.Checked = True If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False - End Sub - - Private Sub CargaSubProyecto() - DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero)) - DdlSubProyecto.DataBind() - 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - End Sub - + End Sub + #End Region - + #Region "SELECTED INDEX CHANGE" - + Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargaSubProyecto() + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) End Sub Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb index 82331aa84..de5fb0b0a 100644 --- a/Compras/RepComprasAF.aspx.vb +++ b/Compras/RepComprasAF.aspx.vb @@ -50,16 +50,6 @@ Partial Class Compras_RepComprasAF If Not IsPostBack Then CargaCombos() 'DdlPS.ddl.Visible = False - If UsuarioActual.Empresa.GralSoloProyecto Then - LblSubProyecto.Text = "Proyecto:" - DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProyecto.Visible = False - DdlProyecto.Items(0).Text = "" - LblProyecto.Visible = False - End If End If End Sub @@ -110,19 +100,7 @@ Partial Class Compras_RepComprasAF End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - If DdlProyecto.SelectedValue = "-1" Then - DdlProyecto.Items.Clear() - DdlSubProyecto.Items.Clear() - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) - Else - CargaSubProyecto() - End If - End Sub - Private Sub CargaSubProyecto() - DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue), "SubProyecto") - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) End Sub Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click CargaDatos() diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index 7b8a4c1d0..2a49b588f 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -149,21 +149,6 @@ Partial Class Compras_RepComprasAFDetalle Dim asd As Integer = 1 End Try - If UsuarioActual.Empresa.GralSoloProyecto Then - - LblSubProyecto.Text = "Proyecto:" - DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlSubProyecto.SelectedValue = "-1" - DdlSubProyecto.DataBind() - 'DdlSubProyecto.SelectedValueExist(Request.QueryString("CveSubProyecto").ToString) - DdlProyecto.Visible = False - DdlProyecto.Items(0).Text = "" - LblProyecto.Visible = False - - End If - If UsuarioActual.CveEmpresa = 72 Then GvDatos.FBColumn("NoSerie").Visible = True End If @@ -175,6 +160,8 @@ Partial Class Compras_RepComprasAFDetalle Private Sub CargaCombos() + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) + DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedores.DataBind() @@ -182,13 +169,9 @@ Partial Class Compras_RepComprasAFDetalle DdlProveedores.Items.Add(New ListItem("Consumo Interno", "-3")) End If - DdlMonedas.DataSource = GlobalDTMonedas() DdlMonedas.DataBind() - DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1) - DdlProyecto.DataBind() - DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo") DdlTipoActivoFijo.DataBind() @@ -206,14 +189,12 @@ Partial Class Compras_RepComprasAFDetalle DdlClasificacion2.DataSource = Nothing End If - ObjClasificacion.Dispose() DdlClasificacion2.DataBind() DdlClasificacion2.Items.Insert(0, New ListItem("Todas", "-1")) DdlClasificacion2.Items.Insert(1, New ListItem("Sin Clasificación", "-2")) DdlClasificacion2.SelectedValueExist(-1) - DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlActivoFijo.DataBind() DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -230,33 +211,17 @@ Partial Class Compras_RepComprasAFDetalle DdlPS.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2")) End If - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) - End Sub Private Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged - DdlSubTipoActivoFijo.Items.Clear() - DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo") + DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}", "SubTipoActivoFijo") DdlSubTipoActivoFijo.DataBind() DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubTipoActivoFijo.SelectedIndex = 0 - End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - If DdlProyecto.SelectedValue = "-1" Then - DdlProyecto.Items.Clear() - DdlSubProyecto.Items.Clear() - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) - Else - CargaSubProyecto() - End If - End Sub - Private Sub CargaSubProyecto() - DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue), "SubProyecto") - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) End Sub Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click CargaDatos() diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx index 7810abe27..58be7e6ed 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -201,9 +201,7 @@ Proyecto:
- - - +
SubProyecto:
diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index 0e99ed183..9cc0a6ffd 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -134,7 +134,6 @@ Partial Class Compras_RepComprasDetalle End If DdlProyecto.SelectedValueExist(CveProyecto) - If DivProyecto.Visible Then CargaSubProyecto() 'CARGA LISTBOXs DdlSubProyecto.SelectedValuesIfExistM(SubProyecto) @@ -177,62 +176,11 @@ Partial Class Compras_RepComprasDetalle DdlGrupo.DataBind() DdlGrupo.SelectedValueExist("3") End Sub - Private Sub CargaTipoCentroCosto() - If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then - DdlSubProyecto.Items.Clear() - DivProyecto.Visible = False - DivLblProyecto.Visible = False - LblSubProyecto.Text = "Sucursal:" - - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.DataBind() - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then - DdlSubProyecto.Items.Clear() - DivProyecto.Visible = False - DivLblProyecto.Visible = False - LblSubProyecto.Text = "Proyecto:" - - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.DataBind() - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then - DdlGrupo.Items.Insert(10, New ListItem("Remesa-SubProyecto", "11")) - DdlGrupo.Items.Insert(11, New ListItem("SubProyecto", "12")) - DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then - LblProyecto.Text = "Sucursal:" - LblSubProyecto.Text = "Proyecto:" - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12")) - DdlGrupo.Items.Insert(12, New ListItem("Sucursal", "13")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then - LblProyecto.Text = "Proyecto:" - LblSubProyecto.Text = "Sucursal:" - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12")) - DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13")) - DdlGrupo.DataBind() - End If - DdlGrupo.Items.Add(New ListItem("Tipo Proveedor", "14")) - DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15")) - End Sub Private Sub CargaCombos() + 'Carga Tipo Centro de Costo + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) + 'Carga Tipo de Gasto DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataBind() @@ -252,23 +200,11 @@ Partial Class Compras_RepComprasDetalle DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DDlUsuarioCaptura.DataBind() - 'CargaProyecto - DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1) - DdlProyecto.DataBind() - 'Carga Grupos CargaGrupo() - 'Carga Tipo Centro de Costo - CargaTipoCentroCosto() - End Sub - Private Sub CargaSubProyecto() - DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.DataBind() - End Sub Private Sub CargaDatos() Dim ObjCompras As New ClsCompras() @@ -321,7 +257,7 @@ Partial Class Compras_RepComprasDetalle #Region "SELECTED INDEX CHANGE" Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargaSubProyecto() + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) End Sub Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged diff --git a/Compras/RepComprasPeriodo.aspx b/Compras/RepComprasPeriodo.aspx index 2dc04cc9f..62b480594 100644 --- a/Compras/RepComprasPeriodo.aspx +++ b/Compras/RepComprasPeriodo.aspx @@ -100,15 +100,11 @@ Proyecto:
- - - +
SubProyecto:
- - - +
Fecha I. Captura
diff --git a/Compras/RepComprasPeriodo.aspx.vb b/Compras/RepComprasPeriodo.aspx.vb index 6a1d06779..813fc67d0 100644 --- a/Compras/RepComprasPeriodo.aspx.vb +++ b/Compras/RepComprasPeriodo.aspx.vb @@ -48,60 +48,11 @@ Partial Class Compras_RepComprasPeriodo DdlGrupo.SelectedValueExist("3") End Sub - Private Sub CargaTipoCentroCosto() - If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then - DdlSubProyecto.Items.Clear() - DivProyecto.Visible = False - DivLblProyecto.Visible = False - LblSubProyecto.Text = "Sucursal:" - - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyecto.DataBind() - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then - DdlSubProyecto.Items.Clear() - DivProyecto.Visible = False - DivLblProyecto.Visible = False - LblSubProyecto.Text = "Proyecto:" - - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyecto.DataBind() - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then - LblProyecto.Text = "Sucursal:" - LblSubProyecto.Text = "Proyecto:" - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12")) - DdlGrupo.DataBind() - - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then - LblProyecto.Text = "Proyecto:" - LblSubProyecto.Text = "Sucursal:" - - DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11")) - DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12")) - DdlGrupo.DataBind() - End If - End Sub - Private Sub CargaCombos() + 'Carga Tipo Centro de Costo + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) + 'Carga Proveedores DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedores.DataBind() @@ -122,15 +73,9 @@ Partial Class Compras_RepComprasPeriodo DdlMonedas.DataSource = GlobalDTMonedas() DdlMonedas.DataBind() - 'CargaProyecto - DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) - DdlProyecto.DataBind() - 'Carga Grupo CargaGrupo() - 'Carga Tipo Centro de Costo - CargaTipoCentroCosto() End Sub Private Sub CargaDatos() @@ -167,18 +112,12 @@ Partial Class Compras_RepComprasPeriodo End Sub - Private Sub CargaSubProyecto() - DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero)) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - End Sub #End Region #Region "SELECTED INDEX CHANGE" Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargaSubProyecto() + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) End Sub Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged diff --git a/Compras/RepPagado.aspx b/Compras/RepPagado.aspx index 621d4d3ec..71c5c4018 100644 --- a/Compras/RepPagado.aspx +++ b/Compras/RepPagado.aspx @@ -98,12 +98,12 @@