Dúvida

Como utilizar função de Cursor em regra LSP, com funções de agrupamento, como SUM, COUNT, dentre outras?

Solução

A criação do Cursor no formato padrão não irá funcionar com a utilização das funções de agrupamento, neste caso, será necessário criar o Cursor no formato de utilização conforme o exemplo abaixo (SQL_Criar):

Definir alfa xCursor;

Definir Alfa aSQL;

Definir numero nCODEMP;

Definir Alfa aCODDEP;

Definir Numero xRetorno;

nCODEMP = 1;

aCODDEP = "1";

SQL_Criar(xCursor);

SQL_UsarAbrangencia(xCursor, 0);

SQL_UsarSQLSenior2(xCursor, 0);

aSQL = "select sum(E210EST.QtdEst) total from E210EST WHERE CODEMP=1 AND CODDEP='1'";

SQL_DefinirComando(xCursor,aSQL);

@-- Abrir o cursor para Ultilização --@

SQL_AbrirCursor(xCursor);

Se (SQL_EOF(xCursor) = 0)

{

SQL_RetornarInteiro(xCursor,"total",xRetorno);

}

SQL_FecharCursor(xCursor);

SQL_Destruir(xCursor);

x=y;

Importante

Trata-se de um exemplo, devendo ser adaptado conforme necessário, as funções:

SQL_UsarAbrangencia(xCursor, 0);

SQL_UsarSQLSenior2(xCursor, 0);

São indispensáveis neste exemplo, para seu correto funcionamento.