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

Reporte Rembolsos, Compras Actualizar IVA compras manuales

Browse Source
This commit is contained in:
rakcsle
2025-04-14 17:51:40 -07:00
parent da3a151abc
commit 7f9978d0b1
7 changed files with 191 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
Compras/Compras.aspx.vb
View File

@@ -9911,6 +9911,7 @@ Partial Class Compras_Compras
(row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or
(row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Or
(row1("Obs").ToString <> row2("Obs").ToString) Or
(row1("IVAPorcentaje").ToString <> row2("IVAPorcentaje").ToString AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
(DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then
Return False
End If
@@ -17409,6 +17410,9 @@ Partial Class Compras_Compras
If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0 Then
TxtTotal.Text = Total.ToString.FormatoNumero()
If CveCompra > 0 AndAlso CveCompraFactura = 0 Then
TxtIVA.Text = IVA.ToString.FormatoNumero()
End If
End If
Else
@@ -18023,24 +18027,43 @@ Partial Class Compras_Compras
'HdnIVAPS.Value = If(PS.Rows(0)("IVA").ToString = "-1", ViewState("IVA"), PS.Rows(0)("IVA").ToString).ToString
ViewState("IVAPS") = PS("IVA").ToString
If ViewState("IVAPS").ToString.ToEntero() = -1 Then
If ViewState("IVAPS").ToString.ToEntero() = -1 Or (CveCompra > 0 AndAlso CveCompraFactura = 0) Then
Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero())(0)
ViewState("IVAPS") = Drr("IVA").ToString().ToDouble()
DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
DdlProyecto.SelectedValueExist(Drr("CveProyecto"))
DdlIVA.Enabled = True
If Not Modalidad = "U" Then
Select Case ViewState("IVAPS").ToString().ToDouble
Case 0
DdlIVA.SelectedValue = "1"
Case 0.16
DdlIVA.SelectedValue = "1.16"
Case 0.08
DdlIVA.SelectedValue = "1.08"
End Select
If (CveCompra > 0 AndAlso CveCompraFactura = 0) Then
If PS("IVA").ToString.ToEntero = -1 Then
ViewState("IVAPS") = 0.16
DdlIVA.SelectedValue = "1.16"
Else
Select Case ViewState("IVAPS").ToString().ToDouble
Case 0
DdlIVA.SelectedValue = "1"
Case 0.16
DdlIVA.SelectedValue = "1.16"
Case 0.08
DdlIVA.SelectedValue = "1.08"
End Select
End If
Else
If Not Modalidad = "U" Then
Select Case ViewState("IVAPS").ToString().ToDouble
Case 0
DdlIVA.SelectedValue = "1"
Case 0.16
DdlIVA.SelectedValue = "1.16"
Case 0.08
DdlIVA.SelectedValue = "1.08"
End Select
End If
End If
Else
'DdlIVA.SelectedValue = "1"
' DdlIVA.Enabled = False
@@ -18684,12 +18707,13 @@ Partial Class Compras_Compras
If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then
DrPS("IVA") = 0
DrPS("IVAPorcentaje") = 0
ElseIf CveCompra > 0 And CveCompraFactura = 0 Then
DrPS("IVA") = (IVA * Total).RoundSQL
DrPS("IVAPorcentaje") = IVA
Else
If ActualizarIva Then
DrPS("IVA") = (IVA * Total).RoundSQL
End If
DrPS("IVAPorcentaje") = IVA
End If