Histórico da Página
Aviso | ||
---|---|---|
| ||
|
FILTRO NA APRESENTAÇÃO DOS DADOS DA CONSULTA GERENCIAL DE CUSTOS
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
Issues Relacionados | 12.1.14: MNG-1385 | ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada que possibilita filtrar os dados que serão apresentados na Consulta Gerencial de Custos. | ||||||||
Localização: | SIGAMNT: Consultas/Gerencial/Custos | ||||||||
Eventos: | Consulta Gerencial de Custos (MNTC935) | ||||||||
Programa Fonte: | MNTC935.PRX | ||||||||
Função: | MNTC9351() | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function MNTC9351()
Local aFiltro := ""
Local aFiltroOld := aColsRod
Local nX := 0
// Parâmetros
// Array contendo contendo os dados que serão filtrados.
// Cada posição do Array possui 7 campos: 1 - Código, 2 - Descrição, 3 - Valor Previsto, 4 - Percentual Previsto, 5 - Valor Realizado, 6 - Percentual Realizado, 7 - Quantidade de Registros
//Cria um clone para manter o aCols original
aFiltro := aClone(aFiltroOld)
For nX := 1 to Len(aFiltro)
If Len(aFiltro) > 1 .And. !(Alltrim(aFiltro[nX][1]) == "1.001.999")
aDel(aFiltro,nX)
aSize(aFiltro,Len(aFiltro)-1)
nX--
Else
If Len(aFiltro) == nX .And. !(Alltrim(aFiltro[nX][1]) == "1.001.999") .And. !(Alltrim(aFiltro[nX][1]) $ "SIN/MUL/ABA/DOC/MUL/DOC/OFI/PNE")
aDel(aFiltro,nX)
aSize(aFiltro,Len(aFiltro)-1)
nX--
EndIf
EndIf
Next nX
Return aFiltro