From a36649a8c482ceb7a6f68cddee2c4caaea94a132 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 7 Oct 2023 11:53:43 -0700 Subject: [PATCH] -- solo cargar cuentas al editar o agregar --- Contabilidad/RegPrePolizaS.aspx.vb | 71 ++++++++++++++++-------------- 1 file changed, 39 insertions(+), 32 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 8901c767e..62845214d 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -261,6 +261,7 @@ Partial Class ContabilidadC_RegPrePolizaS CveMoneda = 1 ViewState("CvePrePoliza") = 0 ViewState("CvePeriodo") = "0" + ViewState("CvePeriodo") = "0" CveTipoTransaccion = -1 CveCuenta = -1 @@ -270,7 +271,6 @@ Partial Class ContabilidadC_RegPrePolizaS Beneficiario = "-1" Actualizar = False IdPoliza = -1 - CargaCtaContableE() CargaConceptosContablesE() CargaModalConceptoCuentas() @@ -319,7 +319,6 @@ Partial Class ContabilidadC_RegPrePolizaS ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then - CvePrePolizaOrigen = Request("CvePrePolizaOrigen").ToEntero CreaDT() CargaPrePolizaOrigen() @@ -342,7 +341,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If - TipoPlantilla = -1 If IfNull(Request("Tipo"), "").ToString = "Ing" Then TipoPlantilla = 1 @@ -355,13 +353,10 @@ Partial Class ContabilidadC_RegPrePolizaS CargaConceptos() CargaSubProyectos() - CargaCuentasContables() + CargaCuentasBancos() 'crea tabla temporal ArregloMovs = New ArrayList - - CargaCuentas() - If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then GvPrePoliza.Columns(5).Visible = False GvMov.Columns(5).Visible = False @@ -663,17 +658,20 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub Private Sub CargaCuentasContables() - Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then - DdlCuentaContableE.DataSource = ObjConta.DtResultados - DdlCuentaContable.DataSource = ObjConta.DtResultados - DtCuentasContables = ObjConta.DtResultados + + If DdlCuentaContable.Items.Count = 0 Then + Dim ObjConta As New ClsContabilidad + If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then + DdlCuentaContableE.DataSource = ObjConta.DtResultados + DdlCuentaContable.DataSource = ObjConta.DtResultados + DtCuentasContables = ObjConta.DtResultados + End If + ObjConta.Dispose() + DdlCuentaContable.DataBind() + DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0")) + DdlCuentaContableE.DataBind() + DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) End If - ObjConta.Dispose() - DdlCuentaContable.DataBind() - DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0")) - DdlCuentaContableE.DataBind() - DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) End Sub Private Sub CargaTiposGasto() @@ -1170,7 +1168,9 @@ Partial Class ContabilidadC_RegPrePolizaS CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, - CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then + CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, + TipoCambio:=row.DataKey("TC").ToDecimal, + CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then OcurrioError = True Exit For End If @@ -1218,6 +1218,14 @@ Partial Class ContabilidadC_RegPrePolizaS OnError("Ocurrío un error al actualizar la PrePoliza", ex) End Try + If ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then + If ObjContabilidad.ValorPolizaDescuadre > 0 Then + OcurrioError = True + Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) + GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + End If + If Not OcurrioError Then ObjContabilidad.Commit() Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False) @@ -1241,6 +1249,7 @@ Partial Class ContabilidadC_RegPrePolizaS LtlTitulo.Text = "Agregar Concepto" BtnAceptar.Text = "Agregar" LimpiaCampos() + CargaCuentasContables() 'CargaConceptosContablesE() CargaSubProyectoE() @@ -1282,7 +1291,6 @@ Partial Class ContabilidadC_RegPrePolizaS DdlConceptosContablesE.SelectedValueExist(CveConceptoContable) DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e) - TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.####") TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero @@ -1318,7 +1326,7 @@ Partial Class ContabilidadC_RegPrePolizaS DdlSubProyectoE.SelectedValueExist(CveSubProyecto) CargaTipoGastoE() DdlTipoGastoE.SelectedValueExist(CveTipoGasto) - + CargaCuentasContables() DdlCuentaContableE.SelectedValueExist(CveCuenta) If Cargo <> 0 Then TxtCargoE.Text = Cargo.FormatoNumero @@ -1339,7 +1347,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If - If DdlConceptosContablesE.SelectedValue.ToEntero = 30 AndAlso CvePrePoliza > 0 Then DdlConceptosContablesE.Enabled = False Else @@ -1371,16 +1378,16 @@ Partial Class ContabilidadC_RegPrePolizaS DdlTipoGastoE.DataBind() DdlTipoGastoE.Items.Insert(0, New ListItem("Sin Asignar", "0")) End Sub - Private Sub CargaCtaContableE() - Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then - DdlCuentaContableE.DataSource = ObjConta.DtResultados - End If - ObjConta.Dispose() + 'Private Sub CargaCtaContableE() + ' Dim ObjConta As New ClsContabilidad + ' If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then + ' DdlCuentaContableE.DataSource = ObjConta.DtResultados + ' End If + ' ObjConta.Dispose() - DdlCuentaContableE.DataBind() - DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) - End Sub + ' DdlCuentaContableE.DataBind() + ' DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0")) + 'End Sub Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged @@ -1982,7 +1989,7 @@ Partial Class ContabilidadC_RegPrePolizaS DdlTipoTransaccion.DataBind() DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1")) End Sub - Private Sub CargaCuentas() + Private Sub CargaCuentasBancos() DdlCuenta.Items.Clear() DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue)) DdlCuenta.DataBind() @@ -2102,11 +2109,11 @@ Partial Class ContabilidadC_RegPrePolizaS Actualizar = True GvMov.DataKeys(e.NewEditIndex).Value.ToString.ToEntero Dim idMov As Integer = GvMov.DataKeys(e.NewEditIndex).Value.ToString.ToEntero - Dim DrM As DataRow = DtMovimientos.Rows(e.NewEditIndex) If DrM IsNot Nothing Then HdnCve.Value = idMov.ToString + CargaCuentasContables() DdlCuentaContable.SelectedValueExist(DrM("CveCuenta").ToString) TxtReferencia.Text = DrM("Referencia").ToString