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 'primero se asigna la moneda, para que dentro del proveedor carge los anticipos solo de esa moneda
DdlProveedor.Visible = False DdlProveedor.Visible = False
HplProveedor.Visible = True 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") CargaProveedor(CveProveedor, "-1")
DdlRetIVAConcepto.SelectedValueExist(dr("CveRetIVAConcepto").ToString) DdlRetIVAConcepto.SelectedValueExist(dr("CveRetIVAConcepto").ToString)
DdlRetISRConcepto.SelectedValueExist(dr("CveRetISRConcepto").ToString) DdlRetISRConcepto.SelectedValueExist(dr("CveRetISRConcepto").ToString)
CveRetIVAConceptoOriginal = If(dr("CveRetIVAConcepto").ToString.ToEntero > 0, dr("CveRetIVAConcepto").ToString.ToEntero, -1) CveRetIVAConceptoOriginal = If(dr("CveRetIVAConcepto").ToString.ToEntero > 0, dr("CveRetIVAConcepto").ToString.ToEntero, -1)
CveRetISRConceptoOriginal = If(dr("CveRetISRConcepto").ToString.ToEntero > 0, dr("CveRetISRConcepto").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 TrRembolsoUpdate.Visible = True
TrRembolsoNumero.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.DataSource = DtPersonal
DdlRembolsoPersonal.Items.Insert(0, New ListItem("Sin Seleccionar", "-1")) DdlRembolsoPersonal.Items.Insert(0, New ListItem("Sin Seleccionar", "-1"))
DdlRembolsoPersonal.DataBind() DdlRembolsoPersonal.DataBind()