Correciones Promociones, Compras IEPS en producto

Compras/Compras.aspx.vb

@@ -2221,8 +2221,9 @@ Partial Class Compras_Compras
                 ChkIEPS.Visible = True
                 ChkIEPS.Checked = True
                 DdlConceptoIEPS.Visible = True
-                CargaProductos(DdlConceptoIEPS, If(UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero, -1))
+                CargaProductos(DdlConceptoIEPS, If(UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero, -1), If(IVATemp > 0, False, True))
                 LbImporte.Text = "$" + TrasladoIEPS.ToString
+
             End If
             If OtrosImpuestos > 0 Then
                 ChkOtrosI.Visible = True
@@ -18140,7 +18141,7 @@ Partial Class Compras_Compras
 #End Region
 
 #Region "DEDUCCIONES IEPS / OTROS IMPUESTOS"
-    Protected Sub CargaProductos(Ddl As DropDownList, CvePS As Integer)
+    Protected Sub CargaProductos(Ddl As DropDownList, CvePS As Integer, Optional OpIncluirIEPSEnProducto As Boolean = False)
         Ddl.DataSource = TmpDT
         Ddl.DataBind()
         Ddl.Items.Insert(0, New ListItem("Seleccione un concepto", "-1"))
@@ -18150,6 +18151,10 @@ Partial Class Compras_Compras
             Ddl.Items.Insert(1, New ListItem(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("PS"), CvePS.ToString))
         End If
 
+        If OpIncluirIEPSEnProducto Then
+            Ddl.Items.Add(New ListItem("Incluir en Producto", "-2"))
+        End If
+
         'Ddl.Items.Insert(1, New ListItem(Concepto, "-1"))
     End Sub
 
@@ -18166,16 +18171,35 @@ Partial Class Compras_Compras
             If IEPSGasto Then
                 Dim CvePS As Integer = DdlConceptoIEPS.SelectedValue.ToEntero
                 ' If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero
-                AgregarConceptoIEPS(TrasladoIEPS, CvePS)
+
+                If CvePS = -2 Then 'opción Incluir en producto
+
+                    For Each Dr As DataRow In TmpDT.Rows
+                        Dr("PU") = ((Dr("IEPSPS").ToString.ToDecimal / Dr("Cantidad").ToString.ToDecimal) + Dr("Pu").ToString.ToDecimal).RoundSQL(6)
+                        Dr("IEPSPS") = 0
+                        Dr("IEPSPSPorcentaje") = 0
+                        Dr("Total") = (Dr("PU").ToString.ToDecimal * Dr("Cantidad").ToString.ToDecimal - Dr("Descuento").ToString.ToDecimal)
+                    Next
+
+                    CalculaTotales(True)
+
+                Else
+                    AgregarConceptoIEPS(TrasladoIEPS, CvePS)
+
+                    For Each Dr As DataRow In TmpDT.Rows
+                        Dr("IEPSPS") = 0
+                        Dr("IEPSPSPorcentaje") = 0
+                    Next
+                End If
+
+
 
                 TrasladoIEPS = 0
                 TxtIEPS.Text = 0.ToString.FormatoNumero
                 TrIEPS.Visible = False
-                For Each Dr As DataRow In TmpDT.Rows
-                    Dr("IEPSPS") = 0
-                    Dr("IEPSPSPorcentaje") = 0
-                Next
                 TmpDT.AcceptChanges()
+
+
             End If
             'AGREGA OTROS IMPUESTOS COMO CONCEPTO
             If OtrosImpuestosGasto Then
@@ -18195,7 +18219,6 @@ Partial Class Compras_Compras
             Alert("Debe seleccionar al menos un impuesto", TipoMensaje.MsgAdvertencia)
         End If
 
-
         MostrarOcultarColumnaIEPS()
         AddPS2()
     End Sub