ConsultarRepositorio
Consulta a tabela de repositório e retorna o valor dos campos definidos na função "IdentificarRepositorio".
Sintaxe: ConsultarRepositorio(Alfa xTabela, Alfa End xCampos, Numero End xRetorno, Alfa End xOperacao)
Parâmetros:
Nome | Tipo | Descrição |
xTabela | Alfa | Tabela que se deseja retornar do repositório (Ex: R034FUN). |
xCampos | Alfa | Retorna os valores dos campos. |
xRetorno | Numérico | Se houverem dados retornados em xCampos, retornará "1", senão retornará "0". |
xOperacao | Alfa | Retorna o tipo da operação efetuada ("I" - Inclusão, "A" - Alteração ou "E" - Exclusão). |
Exemplo:
Definir Alfa xOperacaoEfetuada;
Definir Alfa aNomeColaborador;
Definir Alfa xCampos;
/* Retornar os valores dos campos definidos em IdentificarRepositorio */
IdentificarRepositorio (1, "R034FUN", "NUMEMP, TIPCOL, NUMCAD, NOMFUN");
ConsultarRepositorio ("R034FUN", xCampos, xRetorno , xOperacao)
Se (xRetorno = 1)
Inicio
RetCampoAlfa(1, xCampos, nNumEmp);
RetCampoAlfa(2, xCampos, nTipCol);
RetCampoAlfa(3, xCampos, nNumCad);
RetCampoAlfa(4, xCampos, aNomeColaborador);
Fim;
Se (xOperacao = "A")
xOperacaoEfetuada = "Alteração"
Utilização: Gerador de relatórios e regras.