Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Aviso
titleEste Ponto de Entrada é Válido a partir do Release 12.1.16 (Abril/2017) 14 e superiores.

 

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:

Rotina

Nome Técnico

MNTC935

Consulta Gerencial de Custos

Rotina(s) envolvida(s)

Nome Técnico

MNTC935

Consulta Gerencial de Custos

Issues Relacionados

12.1.14: MNG-1385

12.1.16: MNG-2175

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:

NomeTipoDescriçãoObrigatório
aFiltroArrayEnvia o array com o conteúdo após aplicação do filtro.Sim
 

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 RegistrosaFiltro := PARAMIXB[1]

//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.

Len

!(Alltrim(aFiltro

) > 1

[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