AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- espacios

Browse Source
This commit is contained in:
rrene
2023-10-10 21:10:00 -07:00
parent 5864213f04
commit b3119e467a
1 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Compras/Compras.aspx.vb
View File

@@ -18148,7 +18148,7 @@ Partial Class Compras_Compras
Ddl.SelectedValueExist("-1") Ddl.SelectedValueExist("-1")
If CvePS > 0 Then If CvePS > 0 Then
Ddl.Items.Insert(1, New ListItem(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("PS"), CvePS.ToString)) Ddl.Items.Insert(1, New ListItem(GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS).FiltroPrimeroValor("PSCodigo"), CvePS.ToString))
End If End If
If OpIncluirIEPSEnProducto Then If OpIncluirIEPSEnProducto Then
@@ -18181,9 +18181,7 @@ Partial Class Compras_Compras
Dr("Total") = (Dr("PU").ToString.ToDecimal * Dr("Cantidad").ToString.ToDecimal - Dr("Descuento").ToString.ToDecimal) Dr("Total") = (Dr("PU").ToString.ToDecimal * Dr("Cantidad").ToString.ToDecimal - Dr("Descuento").ToString.ToDecimal)
End If End If
Next Next
CalculaTotales(True) CalculaTotales(True)
Else Else
AgregarConceptoIEPS(TrasladoIEPS, CvePS) AgregarConceptoIEPS(TrasladoIEPS, CvePS)
@@ -18192,22 +18190,16 @@ Partial Class Compras_Compras
Dr("IEPSPSPorcentaje") = 0 Dr("IEPSPSPorcentaje") = 0
Next Next
End If End If
TrasladoIEPS = 0 TrasladoIEPS = 0
TxtIEPS.Text = 0.ToString.FormatoNumero TxtIEPS.Text = 0.ToString.FormatoNumero
TrIEPS.Visible = False TrIEPS.Visible = False
TmpDT.AcceptChanges() TmpDT.AcceptChanges()
End If End If
'AGREGA OTROS IMPUESTOS COMO CONCEPTO 'AGREGA OTROS IMPUESTOS COMO CONCEPTO
If OtrosImpuestosGasto Then If OtrosImpuestosGasto Then
Dim CvePS As Integer = DdlConceptoOI.SelectedValue.ToEntero Dim CvePS As Integer = DdlConceptoOI.SelectedValue.ToEntero
'If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(305).ToString.ToEntero 'If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(305).ToString.ToEntero
AgregarConceptoIEPS(OtrosImpuestos, CvePS) AgregarConceptoIEPS(OtrosImpuestos, CvePS)
OtrosImpuestos = 0 OtrosImpuestos = 0
TxtOtrosImpuestos.Text = 0.ToString.FormatoNumero TxtOtrosImpuestos.Text = 0.ToString.FormatoNumero
TrOtrosImpuestos.Visible = False TrOtrosImpuestos.Visible = False