English
Español
BuscaAbrangenciaUsuario
Esta função busca a abrangência do usuário definida no SGU de acordo com a tabela.
Sintaxe: Funcao BuscaAbrangenciaUsuario(Alfa pTabela, Alfa end pAbrUsu);
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pTabela | Alfa | Variável ou valor que indicará qual a tabela que desejase buscar a abrangência. |
| pAbrUsu | Alfa | Variável que recebe a abrangência do usuário de acordo com a tabela passada. |
Tipo de retorno: pAbrUsu: Variável alfanumérica que recebe a abrangência do usuário de acordo com a tabela passada.
Exemplo:
@ Declaração das variáveis @
Definir Cursor Cur_E301Mcr;
Definir alfa VNumTit[10];
Definir alfa VCodTpt[03];
Definir Data VDatZer;
@ Passa chave para pesquisa @
VCodEmp=E301MCR.CODEMP;
VCodFil=E301MCR.CODFIL;
VNumTit=E301MCR.NUMTIT;
VCodTpt=E301MCR.CODTPT;
VDatZer=0;
Definir Alfa VCond;
BuscaAbrangenciaUsuario("E301MCRr",VCond);
Cur_E301Mcr.Sql "SELECT VLRDSC, VLRMUL, VLRJRS, VLRBCO FROM E301MCR WHERE \
CODEMP=:VCODEMP AND CODFIL=:VCODFIL AND NUMTIT=:VNUMTIT AND\
CODTPT=:VCODTPT AND DATPGT > :VDATZER __Inserir(:VCond) ";
Cur_E301Mcr.AbrirCursor();
....
Cur_E301Mcr.FecharCursor();
Utilização da Função (dependentes): Nenhum dependente.
Observações: O gerador de relatório sempre filtra os dados de acordo com as abrangências do usuário, logo se o cursor utilizar os dados montados pelo gerador de relatórios, não há necessidade de implementar a abrangência. Geralmente ela será aplicada para quando os dados vierem a partir de outro cursor.
English
Español
