From afeaaa4641aa91faebe25f56875850824420b5a0 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 17 May 2022 16:37:05 -0700 Subject: [PATCH] -- mejoras en error de combo concepto --- Contabilidad/RegPrePolizaS.aspx | 10 +- Contabilidad/RegPrePolizaS.aspx.vb | 185 ++++++++++------------------- 2 files changed, 65 insertions(+), 130 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 68914892e..cfc98f3ab 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -359,7 +359,7 @@
@@ -477,7 +477,7 @@
+ DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono" Width="100%" > Movimiento @@ -740,14 +740,14 @@
-
-
Concepto:
+
Con Admin:
- + +
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 8c3721346..c5fd7b7f2 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -61,10 +61,15 @@ Partial Class ContabilidadC_RegPrePolizaS Public Property DrConceptoContable As DataRow Get - Return CType(ViewState("ArregloMovs"), DataRow) + If ViewState("DrConceptoContable") IsNot Nothing Then + Return CType(ViewState("DrConceptoContable"), DataRow) + Else + Return Nothing + End If + End Get Set(value As DataRow) - ViewState("ArregloMovs") = value + ViewState("DrConceptoContable") = value End Set End Property @@ -397,97 +402,18 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("PorcentajeImpuesto", Type.GetType("System.Decimal")) .Add("Modificado", Type.GetType("System.Boolean")) .Add("EsComplementaria", Type.GetType("System.Boolean")) + .Add("EsMonedaExtranjera", Type.GetType("System.Boolean")) .Add("TC", Type.GetType("System.Decimal")) - End With - If Not DtMovimientos.Columns.Contains("Cargo") Then DtMovimientos.Columns.Add("Cargo", Type.GetType("System.Decimal")) DtMovimientos.Columns.Add("Abono", Type.GetType("System.Decimal")) End If - DtMovimientos.AcceptChanges() End Sub - - 'Private Sub CargaNomina() - ' Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero - ' Dim ObjNomina As New ClsNominas - ' Dim ObjConta As New ClsContabilidad - - ' Dim Dt As DataTable = Nothing - ' Dim Cuenta As String = "" - ' Dim Concepto As String = "" - ' Dim IdCuenta As Integer = 0 - ' Dim TipoMovto As Integer - ' Dim CveConcepto As Integer - ' Dim CodigoCuenta As String = "" - ' Dim NombreCuenta As String = "" - ' Dim Referencia As String = "" - ' Dim EsComodin As Integer = 0 - ' DtMovimientos.Clear() - - ' If ObjNomina.GetProvisionNomina(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, UsuarioActual.CveEmpresa) Then - ' Dt = ObjNomina.DtResultados - - ' For Each drt As DataRow In Dt.Rows - ' Dim dr As DataRow = DtMovimientos.NewRow - - ' If drt("NombreCompleto").ToString = "" AndAlso ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa) Then - ' CveConcepto = 98 - ' Cuenta = "Nominas por Pagar" - ' IdCuenta = ObjConta.DtResultados(0)("IdCtaContable").ToString.ToEntero - ' Concepto = "Pago Nomina" - ' Referencia = "Pago Nomina" - ' Else - ' Concepto = drt("NombreCompleto") - ' Referencia = "" - ' CveConcepto = drt("CveConceptoContable").ToString.ToEntero - ' Cuenta = drt("ConceptoContable").ToString - ' IdCuenta = drt("IdCtaContable").ToString.ToEntero - ' End If - - ' Dim drr As DataRow = DtCuentasContables.FiltroPrimero($"Id={IdCuenta}") - ' CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "") - ' NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "") - - ' TipoMovto = drt("TipoMovto") - - ' If TipoMovto = 0 Then - ' dr("Cargo") = Math.Abs(drt("Importe").ToString.ToDecimal) - ' dr("Abono") = 0 - ' Else - ' dr("Cargo") = 0 - ' dr("Abono") = Math.Abs(drt("Importe").ToString.ToDecimal) - ' End If - - ' dr("IdCuenta") = IdCuenta - ' dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta - ' dr("Cuenta") = Cuenta - ' dr("Concepto") = Concepto - ' dr("Descripcion") = Concepto - ' dr("Referencia") = Referencia - ' dr("TipoMovto") = TipoMovto - ' dr("EsComodin") = EsComodin - ' dr("CveConcepto") = CveConcepto - ' dr("CveProveedor") = "-1" - ' dr("CveSubProyecto") = drt("CveSubProyecto") - ' dr("CvePersonal") = drt("CvePersonal") - ' dr("CveClasificacion") = drt("CveClasificacion") - ' dr("CveTipoGasto") = drt("CveTipoGasto") - - ' DtMovimientos.Rows.Add(dr) - ' Next - - ' GvMov.DataSource = DtMovimientos - ' GvMov.DataBind() - ' UPMovs.Update() - ' End If - - 'End Sub - Private Sub CargaPrePoliza() BtnEliminar.Visible = True LblEncabezado.Text = "Edición de Póliza" @@ -864,16 +790,7 @@ Partial Class ContabilidadC_RegPrePolizaS IdCuenta = 0 CodigoCuenta = "" NombreCuenta = "" - 'If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables - ' Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) - ' If drr IsNot Nothing Then - ' IdCuenta = drt("IdCtaContable").ToString.ToEntero - ' CodigoCuenta = drr("CuentaFormato").ToString() - ' NombreCuenta = drr("Nombre").ToString() - ' 'Cuenta = drr("Nombre").ToString() - ' End If - ' EsComodin = 0 - 'End If + Dim dr As DataRow = DtMovimientos.NewRow @@ -894,7 +811,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("MultipleSubProyecto") = drt("MultipleSubProyecto") dr("CveCuenta") = drt("CveCuenta") dr("EsComplementaria") = drt("EsComplementaria") - 'dr("FolioPoliza") = 0 'drt("FolioPoliza") + dr("EsMonedaExtranjera") = drt("EsMonedaExtranjera") DtMovimientos.Rows.Add(dr) Next @@ -1100,19 +1017,17 @@ Partial Class ContabilidadC_RegPrePolizaS TmpAbono = TmpAbono + Importe TipoMovto = True - If gvr.DataKey("EsComplementaria") = "True" Then - ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal - TipoCambio = gvr.FCTextBox("TipoCambio").Text.ToDecimal - End If + If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal + If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TC").Text.ToDecimal + Else Importe = gvr.DataKey("Abono").ToDecimal TmpAbono = TmpAbono + Importe TipoMovto = True - If gvr.DataKey("EsComplementaria") = "True" Then - ImporteME = gvr.DataKey("MonedaExtranjera").ToDecimal - TipoCambio = gvr.DataKey("TipoCambio").ToDecimal - End If + If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal + If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal + End If Else If TipoGrid = 0 Then 'gvmov @@ -1120,22 +1035,16 @@ Partial Class ContabilidadC_RegPrePolizaS TmpCargo = TmpCargo + Importe TipoMovto = False - If gvr.DataKey("EsComplementaria") = "True" Then - ImporteME = gvr.FCTextBox("TxtCargoME").Text.ToDecimal - TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal - End If + If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal + If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TC").Text.ToDecimal Else Importe = gvr.DataKey("Cargo").ToDecimal TmpCargo = TmpCargo + Importe TipoMovto = False - If gvr.DataKey("EsComplementaria") = "True" Then - ImporteME = gvr.DataKey("MonedaExtranjera").ToDecimal - TipoCambio = gvr.DataKey("TipoCambio").ToDecimal - End If + If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal + If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal End If - - End If If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores @@ -1153,16 +1062,19 @@ Partial Class ContabilidadC_RegPrePolizaS End If If Importe <> 0 Then Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero + Dim tReferencia, tConcepto As String + Dim tCveSubProyecto, tCveTipoGasto As Integer - Dim tReferencia As String = gvr.DataKey("Referencia") - Dim tConcepto As String = gvr.DataKey("Concepto") - Dim tCveSubProyecto As Integer = gvr.DataKey("CveSubProyecto").ToEntero - Dim tCveTipoGasto As Integer = gvr.DataKey("CveTipoGasto").ToEntero If TipoGrid = 0 Then 'gvmov tReferencia = gvr.FCLiteral("LtlReferencia").Text tConcepto = gvr.FCTextBox("TxtConcepto").Text tCveSubProyecto = gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero tCveTipoGasto = gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero + Else + tReferencia = gvr.DataKey("Referencia") + tConcepto = gvr.DataKey("Concepto") + tCveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero + tCveTipoGasto = gvr.DataKey("CveTipoGasto").ToEntero End If If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, tReferencia, gvr.DataKey("CveConceptoContable").ToEntero, tConcepto, @@ -1199,7 +1111,6 @@ Partial Class ContabilidadC_RegPrePolizaS MsgError = $"Error {ex.Message}" End Try - If ContRegInsertados = 0 Then MsgError = $"No se insertaron registros (Revise que los importes de los registros contengan valores)" End If @@ -1414,6 +1325,7 @@ Partial Class ContabilidadC_RegPrePolizaS Private Sub CargaConceptosContablesE() DdlConceptosContablesE.DataSource = GlobalDTContaConceptosContables(-1) DdlConceptosContablesE.DataBind() + DdlConceptosContablesE.Items.Insert(0, New ListItem(" - ", "-1")) End Sub Private Sub CargaSubProyectoE() DdlSubProyectoE.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) @@ -1603,23 +1515,24 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub Private Sub CargaClientesE() DdlClientesE.setEsWebService(True) + DdlClientesE.Attributes.Add("data-metodo", "getcliente") - DdlClientesE.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlClientesE.DataBind() + 'DdlClientesE.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) + 'DdlClientesE.DataBind() ' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1")) End Sub Private Sub CargaVentasE(CveCliente As Integer, Optional CveMoneda As Integer = -1) DvModalconceptoVenta.Visible = True - Dim ObjVentas As New ClsVentas - + DdlVentasE.DataSource = Nothing DdlVentasE.ClearSelection() + + Dim ObjVentas As New ClsVentas If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then If CveMoneda = 2 Then DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2") Else DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 1") End If - DdlVentasE.DataBind() DdlVentasE.Items.Insert(0, New ListItem(" - ", "-1")) Else @@ -1657,7 +1570,12 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub Private Function CargaValidacionesConcepto() As Boolean - Dim Retorno As Boolean = true + Dim Retorno As Boolean = True + + If DdlConceptosContablesE.SelectedValue <= 0 Then + Alert("No se ha especificado el concepto", TipoMensaje.ToastAdventencia) + Return False + End If If DrConceptoContable IsNot Nothing Then Dim AplicaComplementaria = Boolean.Parse(DrConceptoContable("EsComplementaria").ToString) @@ -1716,6 +1634,15 @@ Partial Class ContabilidadC_RegPrePolizaS If DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlComprasE.SelectedItem.ToString() If DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlVentasE.SelectedItem.ToString() dr("Modificado") = True + dr("TC") = TxtTipoCambio.Text.ToDecimal + + If DrConceptoContable IsNot Nothing Then + dr("EsComplementaria") = DrConceptoContable("EsComplementaria") + dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera") + + If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal + + End If If DdlPorcentajeIVAE.Visible Then dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal @@ -1735,7 +1662,7 @@ Partial Class ContabilidadC_RegPrePolizaS UpTotalCargo.Update() UpTotalAbono.Update() If Not ChkSeguir.Checked Then RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal") - + Alert("Concepto Registrado", TipoMensaje.ToastInformacion) Else Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero @@ -1775,14 +1702,22 @@ Partial Class ContabilidadC_RegPrePolizaS dr("TC") = TxtTipoCambio.Text.ToDecimal + If DrConceptoContable IsNot Nothing Then + dr("EsComplementaria") = DrConceptoContable("EsComplementaria") + dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera") + + If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal + + End If + dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal If TxtCargoE.Text <> "" Then dr("Cargo") = TxtCargoE.Text.ToDecimal - dr("Abono") = "".ToDecimal + dr("Abono") = 0 Else dr("Abono") = TxtAbonoE.Text.ToDecimal - dr("Cargo") = "".ToDecimal + dr("Cargo") = 0 End If DtMovimientos.AcceptChanges()