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

-- quitar "todos" en filtro para FNC382

Browse Source
This commit is contained in:
rrene
2024-08-06 08:55:53 -07:00
parent e06f4eed51
commit c2f5d6996b
1 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Bancos/DepositosCaja.aspx.vb
View File

@@ -29,6 +29,9 @@ Partial Class Bancos_DepositosCaja
TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(this);") TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(this);")
TxtComisionIntermediario.Attributes.Add("onKeyUp", "txtSumaTntermediario(this);") TxtComisionIntermediario.Attributes.Add("onKeyUp", "txtSumaTntermediario(this);")
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then 'quita la opción de todos
DdlTipoDeposito.Items.Remove("-1")
End If
CargaCuentas() CargaCuentas()
ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);") ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
@@ -42,12 +45,12 @@ Partial Class Bancos_DepositosCaja
'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}" 'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"
If UsuarioActual.CveEmpresa = 189 Then If UsuarioActual.CveEmpresa = 189 Then
If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then
DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1")) DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1"))
End If
End If End If
End If
End If End If
End Sub End Sub
Private Sub CargaCuentas() Private Sub CargaCuentas()