English
Español
RetornaLancamentoLista
Esta função busca os números de lançamentos que foram armazenados numa lista interna em memória. Esta lista é carregada SOMENTE na tela F644MOL ao clicar no botão Imprimir.
Sintaxe: RetornaLancamentoLista(Numero end aNumLct);
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| aNumLct | Numero | |
| pSalMes | Numero | Variável que retorna o número de lançamento que está na lista interna em memória. |
Tipo de retorno: pSalMes: Variável numérica que retorna o número de lançamento que está na lista interna em memória.
Exemplo: RetornaLancamentoLista(vNumLct);
Utilização da Função (dependentes): Não é necessário utilizar nenhuma função antes de chamar esta. A lista é carregada APENAS via programa.
Observações: Para ler todos os registros da lista, deve-se utilizar a função em conjunto com a instrução "enquanto". A cada chamada da função, será retornado o número seguinte da lista. Após ler todos, esta função retornará o valor zero. Exemplo de uso (evento pré-seleção do relatório CTOP008.GER):
vComSql = "";
RetornaLancamentoLista(vNumLct);
Enquanto (vNumLct > 0)
inicio
Se (vComSql <> "")
vComSql = vComSql + " OR ";
IntParaAlfa(vNumLct,aNumLct);
vComSql = vComSql + "(NUMLCT = " + aNumLct + ")";
RetornaLancamentoLista(vNumLct);
fim;
Se (vComSql = "")
vComSql = "(NUMLCT = 0)"; /*para não mostrar nada no relatório*/
Senao
vComSql = "(" + vComSql + ")";
InsClauSqlWhere("Detalhe_Lancamento",vComSql);
Esta regra pega todos os lançamentos que estão na lista em memória e concatena os mesmos, incluindo-os no comando de seleção dos lançamentos deste relatório.
English
Español
