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

-- mensaje eliminar bancos

Browse Source
This commit is contained in:
rrene
2022-09-28 12:03:46 -07:00
parent cafcdb3ab5
commit 601dea4d81
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -468,11 +468,15 @@ Partial Class ContabilidadC_RegPrePolizaS
DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial") Then If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial") Then
BtnEliminar.Enabled = False BtnEliminar.Enabled = False
BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo" BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo"
End If End If
If DtMovimientos IsNot Nothing AndAlso DtMovimientos.FiltraParametros("CveConceptoContable = 30 AND Contabilizable = 1").Rows.Count > 0 Then
BtnEliminar.Enabled = False
BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarla desde el módulo de Bancos"
End If
GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataSource = DtMovimientos
If Not DtMovimientos.Columns.Contains("IdMov") Then If Not DtMovimientos.Columns.Contains("IdMov") Then
Dim workColumn As DataColumn = DtMovimientos.Columns.Add("IdMov", GetType(Integer)) Dim workColumn As DataColumn = DtMovimientos.Columns.Add("IdMov", GetType(Integer))