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:

<div class="Code"><p>Definir Alfa xOperacaoEfetuada;<br></br>Definir Alfa aNomeColaborador;<br></br>Definir Alfa xCampos;<br></br><br></br>/* Retornar os valores dos campos definidos em IdentificarRepositorio */<br></br><br></br>IdentificarRepositorio (1, "R034FUN", "NUMEMP, TIPCOL, NUMCAD, NOMFUN");<br></br>ConsultarRepositorio ("R034FUN", xCampos, xRetorno , xOperacao)<br></br></p><p></p><p>Se (xRetorno = 1)<br></br>Inicio<br></br>RetCampoAlfa(1, xCampos, nNumEmp);<br></br>RetCampoAlfa(2, xCampos, nTipCol);<br></br>RetCampoAlfa(3, xCampos, nNumCad);<br></br>RetCampoAlfa(4, xCampos, aNomeColaborador);<br></br>Fim;<br></br><br></br>Se (xOperacao = "A")<br></br>xOperacaoEfetuada = "Alteração"</p></div>

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

Este artigo ajudou você?