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

--- excluir empresas de vsh, par el tema del gasto

Browse Source
This commit is contained in:
rrene
2024-04-23 15:54:22 -07:00
parent 66d4f0e0f0
commit f787f8b855
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Compras/Compras.aspx.vb
View File

@@ -6793,6 +6793,7 @@ Partial Class Compras_Compras
' DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"}) ' DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
'Else 'Else
For Each drowdis As DataRow In DTDistinct.Rows For Each drowdis As DataRow In DTDistinct.Rows
If drowdis("CveTipoGasto").ToString = "" Then If drowdis("CveTipoGasto").ToString = "" Then
drowdis("CveTipoGasto") = 0 drowdis("CveTipoGasto") = 0
@@ -6811,7 +6812,7 @@ Partial Class Compras_Compras
End If End If
Dim tTipoMovimiento As Boolean = TipoMovimiento Dim tTipoMovimiento As Boolean = TipoMovimiento
If DTDistinct.Rows.Count > 0 Then If DTDistinct.Rows.Count > 0 AndAlso Not UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145, 13, 83) Then
For Each Row2 As DataRow In DTDistinct.Rows For Each Row2 As DataRow In DTDistinct.Rows
tTipoMovimiento = TipoMovimiento tTipoMovimiento = TipoMovimiento
'DETERMINA IMPORTE 'DETERMINA IMPORTE