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

-- Retva/ISR

Browse Source
This commit is contained in:
rrene
2023-07-17 16:51:53 -07:00
parent 5258f1b4df
commit e6a875013b
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
OC/OC.aspx.vb
View File

@@ -4073,6 +4073,9 @@ Partial Class OC_OC
If CvePS <> CvePSAnterior Or Not CveOrdenCompra > 0 Then If CvePS <> CvePSAnterior Or Not CveOrdenCompra > 0 Then
RetISR = DrPS("RetISR").ToString.ToDecimal RetISR = DrPS("RetISR").ToString.ToDecimal
RetIVA = DrPS("RetIVA").ToString.ToDecimal RetIVA = DrPS("RetIVA").ToString.ToDecimal
If Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2) = 0.08 Then
RetIVA = RetIVA / 2
End If
'If IvaPS = -1 Then 'IVA DE LA SUCURSAL 'If IvaPS = -1 Then 'IVA DE LA SUCURSAL
' IvaPS = GlobalDTSubProyectos(-1, gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal ' IvaPS = GlobalDTSubProyectos(-1, gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal
'End If 'End If