RetornaCargosDoPosto

Retorna uma lista com o(s) cargo(s) de determinado posto de trabalho.

Sintaxe: Funcao RetornaCargosDoPosto(Numero xEstPos, Alfa xPosto, Data xDatRef, Alfa xAcao, Numero End xEstCar, Alfa End xCodCar, Alfa End xNomeCargo);

Parâmetros:

Nome Tipo Descrição
xEstPos Numérico Estrutura do posto.
xPosto Alfa Código do posto de trabalho.
xDatRef Data Data de referência para retornar o(s) cargo(s) do posto.
xAcao Alfa Indica a ação que a função deve executar:
-> 'CARREGAR': ação que carrega a lista com o(s) cargo(s) do posto de trabalho informado na data de referência, posicionando no primeiro registro.
-> 'INICIO': ação que posiciona a lista no primeiro registro.
-> 'PROXIMO': ação que posiciona a lista no próximo registro.
xEstCar Numérico Estrutura do cargo na posição atual da lista.
xCodCar Alfa Código do cargo na posição atual da lista.
xNomeCargo Alfa Título do cargo na posição atual da lista.

Tipo de Retorno: Própria função - Retorna "0" (zero) quando não há registro na posição atual, e "1" (um) quando há registro na posição atual da lista.

Exemplo:

xRetCarPos = RetornaCargosDoPosto(xEstPos, xPosTra, EDatRef, "CARREGAR", xRetEstCar, xRetCodCar, xRetNomeCargo);
Enquanto (xRetCarPos <> 0)
inicio
@ Faz alguma consistencia para a estrutura e cargo retornados... @
xRetCarPos = RetornaCargosDoPosto(xEstPos, xPosTra, EDatRef, "PROXIMO", xRetEstCar, xRetCodCar, xRetNomeCargo);
fim;

Utilização: Gerador de relatórios e editor de regras.

Disponível para o módulo: SM.

Este artigo ajudou você?