From 944d26a5bdfc017675117ffee129ded6e1f4bdc8 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 22 Apr 2020 05:41:06 -0700 Subject: [PATCH] -parametro porcentajeimpuesto --- App_Code/ClsContabilidad.vb | 11 +++++++-- Contabilidad/PlantillasPolizasDetalle.aspx | 10 ++++++-- Contabilidad/PlantillasPolizasDetalle.aspx.vb | 23 ++++++++++++++++--- Contabilidad/RegPrePoliza.aspx | 2 +- Contabilidad/RegPrePoliza.aspx.vb | 19 +++++++++------ 5 files changed, 50 insertions(+), 15 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 226d01675..2dc3e9339 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -2683,7 +2683,10 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza As Integer, CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1) As Boolean + Public Function AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza As Integer, CveConcepto As Integer, TipoMovto As Integer, + IdCtaContable As Integer, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer, + CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1, + Optional PorcentajeImpuesto As Decimal = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PlantillasPolizasDetalleAdd") @@ -2699,6 +2702,7 @@ Public Class ClsContabilidad .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto End With Try @@ -2715,7 +2719,9 @@ Public Class ClsContabilidad End Try Return Retorno End Function - Public Function UpdateConta_PlantillasPolizasDetalle(CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer, CvePlantillaPolizaDetalle As Integer, CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1) As Boolean + Public Function UpdateConta_PlantillasPolizasDetalle(CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer, + CvePlantillaPolizaDetalle As Integer, CveSubProyecto As Integer, CveProveedor As Integer, + Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Conta_PlantillasPolizasDetalleUpdate") @@ -2729,6 +2735,7 @@ Public Class ClsContabilidad .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto End With Try diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx b/Contabilidad/PlantillasPolizasDetalle.aspx index 6a946c6b3..c4351d6ed 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx +++ b/Contabilidad/PlantillasPolizasDetalle.aspx @@ -160,7 +160,7 @@ - + @@ -283,7 +283,13 @@ - +
+ + + + + +
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index e778a21ea..282658576 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -158,6 +158,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle DTDetalle.Columns.Add("IdCtaContable", GetType(Integer)) DTDetalle.Columns.Add("Orden", GetType(String)) DTDetalle.Columns.Add("Usuario", GetType(String)) + DTDetalle.Columns.Add("PorcentajeImpuesto", GetType(Decimal)) End Sub #End Region @@ -172,7 +173,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle CvePlantilla = ObjPlantillaPoliza.CvePlantillaPoliza If DTDetalle.Rows.Count > 0 Then For Each Row As DataRow In DTDetalle.Rows - If Not ObjPlantillaPoliza.AddConta_PlantillasPolizasDetalles(CvePlantilla, Row("CveConcepto").ToString.ToEntero, Row("TipoMovto").ToString.ToEntero, Row("IdCtaContable").ToString.ToEntero, Row("Orden").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then + If Not ObjPlantillaPoliza.AddConta_PlantillasPolizasDetalles(CvePlantilla, Row("CveConcepto").ToString.ToEntero, Row("TipoMovto").ToString.ToEntero, Row("IdCtaContable").ToString.ToEntero, Row("Orden").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then ErrorPlantilla = True Exit For End If @@ -228,7 +229,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle If HdnModalidad.Value = "I" Then If CvePlantillaPoliza > 0 Then - If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then + If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then TxtOrden.Text = "" updatatos() Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion) @@ -260,7 +261,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle If HdnID.Value.ToEntero <> -1 Then If CvePlantillaPoliza > 0 Then If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, - HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then + HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) updatatos() Else @@ -352,6 +353,13 @@ Partial Class Contabilidad_PlantillasPolizasDetalle DdlPersonal.Visible = False LblPersonal.Visible = False End If + If DdlConcepto.SelectedValue.Contiene("19", "61") Then ' conceptos de IVA Acreditable e IVA Trasladado + DdlPorcentajeImpuesto.Visible = True + LblPorcentajeImpuesto.Visible = True + Else + DdlPorcentajeImpuesto.Visible = False + LblPorcentajeImpuesto.Visible = False + End If End Sub @@ -392,6 +400,15 @@ Partial Class Contabilidad_PlantillasPolizasDetalle DdlPersonal.Visible = False LblPersonal.Visible = False End If + If DdlConcepto.SelectedValue.Contiene("19", "61") Then ' conceptos de IVA Acreditable e IVA Trasladado + DdlPorcentajeImpuesto.SelectedValueExist(GvRow.DataKey("PorcentajeImpuesto")) + DdlPorcentajeImpuesto.Visible = True + LblPorcentajeImpuesto.Visible = True + Else + DdlPorcentajeImpuesto.Visible = False + LblPorcentajeImpuesto.Visible = False + End If + UpModal.Update() RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal")) CargaDatos() diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx index 88e35e479..691ac28d4 100644 --- a/Contabilidad/RegPrePoliza.aspx +++ b/Contabilidad/RegPrePoliza.aspx @@ -302,7 +302,7 @@
- + Cuenta diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 5b8d34dd4..06f7207db 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -296,8 +296,8 @@ Partial Class ContabilidadC_RegPrePoliza .Add("Cuenta", Type.GetType("System.String")) .Add("Referencia", Type.GetType("System.String")) .Add("Concepto", Type.GetType("System.String")) - .Add("Cargo", Type.GetType("System.Double")) - .Add("Abono", Type.GetType("System.Double")) + .Add("Cargo", Type.GetType("System.Decimal")) + .Add("Abono", Type.GetType("System.Decimal")) .Add("TipoMovto", Type.GetType("System.Int32")) .Add("EsComodin", Type.GetType("System.Int32")) .Add("CveConcepto", Type.GetType("System.Int32")) @@ -316,7 +316,8 @@ Partial Class ContabilidadC_RegPrePoliza .Add("IdCtaContable", Type.GetType("System.Int32")) .Add("CveOC", Type.GetType("System.Int32")) .Add("ConceptoContable", Type.GetType("System.String")) - .Add("TC", Type.GetType("System.Double")) + .Add("TC", Type.GetType("System.Decimal")) + .Add("PorcentajeImpuesto", Type.GetType("System.Decimal")) End With End Sub @@ -714,7 +715,8 @@ Partial Class ContabilidadC_RegPrePoliza dr("CveProveedor") = drt("CveProveedor") dr("CvePersonal") = drt("CvePersonal") dr("CveClasificacion") = -1 - dr("MultipleSubProyecto") = drt("MultipleSubProyecto") + dr("MultipleSubProyecto") = drt("MultipleSubProyecto") + dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto") DtMovimientos.Rows.Add(dr) Next @@ -861,6 +863,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim Importe As Double = 0 Dim TipoMovto As Boolean = False Dim IdCtaContable As Integer = 0 + Dim PorcentajeImpuesto As Decimal = 0 'Registra movimieno bancario If CveConcepto = 30 Then @@ -877,7 +880,8 @@ Partial Class ContabilidadC_RegPrePoliza Dim CveCompra As Integer = -1 'inserto las compras que voy a pagarDdlSaldos - For Each gvr As GridViewRow In GvMov.Rows + For Each gvr As GridViewRow In GvMov.Rows + If gvr.DataKey("IDCuenta").ToEntero > 0 Then IdCtaContable = gvr.DataKey("IDCuenta") End If @@ -919,8 +923,9 @@ Partial Class ContabilidadC_RegPrePoliza CveProveedor:=CveProveedor, CveCompra:=CveCompra, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero, ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, - CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDouble > 0, gvr.DataKey("TC").ToString.ToDouble, 1), - ImporteME:=If(gvr.DataKey("TC").ToString.ToDouble > 0, (Importe / (gvr.DataKey("TC").ToString.ToDouble - 1)).RoundSQL, 0)) Then + CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, gvr.DataKey("TC").ToString.ToDecimal, 1), + ImporteME:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, (Importe / (gvr.DataKey("TC").ToString.ToDecimal - 1)).RoundSQL, 0), + PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then Else MsgError = "No se pudo insertar el detalle de la póliza2" Exit For