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

-- cambios Estados.

Browse Source
This commit is contained in:
rrene
2020-06-30 20:49:31 -07:00
parent f2d48fbc64
commit 2e9b686e56
6 changed files with 95 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Compras/Compras.aspx.vb
View File

@@ -1227,7 +1227,6 @@ Partial Class Compras_Compras
ClavesBorradas = New ArrayList()
TxtFecha.Text = Now.ToShortDateString
TxtFechaEjecucion.Text = Now.ToShortDateString
ViewState("CveCompra") = "0"
ViewState("CveFactura") = "0"
ViewState("IdPoliza") = "0"
ViewState("CveCompra") = -1
@@ -10761,7 +10760,7 @@ Partial Class Compras_Compras
e.Row.FCLinkButton("ImgD").Visible = False
End If
If e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("IEPSPSPorcentaje").ToDouble > 0 Then
If CveCompra <= 0 AndAlso e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("IEPSPSPorcentaje").ToDouble > 0 Then
If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=e.Row.DBCampo("CvePS").ToEntero).Rows.Count > 0 Then
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=e.Row.DBCampo("CvePS").ToEntero).Rows(0)
If DrPS IsNot Nothing Then
@@ -10773,6 +10772,11 @@ Partial Class Compras_Compras
End If
End If
If e.Row.DBCampo("CvePS").ToEntero > 0 AndAlso e.Row.DBCampo("NoDeducible") = "True" Then
e.Row.FCLabel("LblIVAPorcentaje").ToolTip = "IVA NO Deducible"
e.Row.FCLabel("LblIVAPorcentaje").ForeColor = Drawing.Color.Red
End If
'CargaPresupuestosEgresos
If UsuarioActual.Empresa.UsaAC Then
e.Row.Cells(13).Visible = True