-parametro porcentajeimpuesto

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()