English
Español
SelecaoLctCP
Carrega os lançamentos contábeis ordenando-os com suas contra-partidas.
Sintaxe: SelecaoLctCP(Alfa pSqlSel, Alfa End pCpoRet, Alfa End pTemMas, Numero pRangeLct)
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| pSqlSel | Alfa | Comando SQL a ser executado. |
| pTemMas | Alfa | Indica se tem mais linhas a serem retornadas na consulta. (Se tiver mais retorno será: "+"). |
| pRangeLct | Alfa | Limite de procura da contra partida a partir do lançamento atual. (Padrão 15 lançamentos). |
| pCpoRet | Numero | Retorno do comando SQL (linha atual). |
Tipo de retorno: pCpoRet - Retorno do comando SQL (linha atual)
Exemplo:
Definir Alfa vAbrLct;
Definir Alfa vSqlAux;
Definir Alfa vRetorno;
Definir Alfa vTemMais;
vSqlAux = "SELECT E640LCT.CODFIL,E640LCT.VLRLCT,E640LCT.CTACRE,E640LCT.CTADEB,E640LCT.CODHPD,
E640LCT.DATLCT,E640LCT.NUMLOT,E640LCT.NUMLCT, E640LCT.CPLLCT \
FROM E640LCT WHERE E640LCT.CODEMP = " + vCodEmp + vCodFil + VCond + " AND
E640LCT.SITLCT = 2 AND \
E640LCT.TIPLCT IN (1,2) \
ORDER BY E640LCT.DATLCT,E640LCT.NUMLCT DESC";
SelecaoLctCP(vSqlAux,vRetorno,vTemMais, ELimiteProcura);
enquanto ((vRetorno <> "") ou (vTemMais = "+"))
inicio
vAbrLct = vAbrLct + vRetorno + "|FIM|";
se (vTemMais = "+")
SelecaoLctCP(vTemMais,vRetorno,vTemMais, ELimiteProcura);
senao pare;
fim;
English
Español
