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

-RETIVA

Browse Source
This commit is contained in:
rrene
2023-09-06 16:01:33 -07:00
parent 96f09b3ab7
commit f8a10e0188
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Compras/Compras.aspx.vb
View File

@@ -2491,9 +2491,12 @@ Partial Class Compras_Compras
'primero se asigna la moneda, para que dentro del proveedor carge los anticipos solo de esa moneda
DdlProveedor.Visible = False
HplProveedor.Visible = True
If dr("CveRetIVAConcepto").ToString.Contiene("2", "3") Then RetIVAFlete = True
If dr("CveRetISRConcepto").ToString.Contiene("3") Then RetISRResico = True
CargaProveedor(CveProveedor, "-1")
DdlRetIVAConcepto.SelectedValueExist(dr("CveRetIVAConcepto").ToString)
DdlRetISRConcepto.SelectedValueExist(dr("CveRetISRConcepto").ToString)
CveRetIVAConceptoOriginal = If(dr("CveRetIVAConcepto").ToString.ToEntero > 0, dr("CveRetIVAConcepto").ToString.ToEntero, -1)
CveRetISRConceptoOriginal = If(dr("CveRetISRConcepto").ToString.ToEntero > 0, dr("CveRetISRConcepto").ToString.ToEntero, -1)
@@ -2506,7 +2509,7 @@ Partial Class Compras_Compras
TrRembolsoUpdate.Visible = True
TrRembolsoNumero.Visible = True
Dim DtPersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
Dim DtPersonal As DataTable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
DdlRembolsoPersonal.DataSource = DtPersonal
DdlRembolsoPersonal.Items.Insert(0, New ListItem("Sin Seleccionar", "-1"))
DdlRembolsoPersonal.DataBind()