Sim... o DoECFUnit.pas... veja como ficou o trecho desses comandos novos...
else if Cmd.Metodo = 'relatoriosgerenciais' then
Cmd.Resposta := PegaRelatoriosGerenciais
else if Cmd.Metodo = 'carregarelatoriosgerenciais' then
begin
CarregaRelatoriosGerenciais ;
Cmd.Resposta := PegaRelatoriosGerenciais;
end
else if Cmd.Metodo = 'lertotaisrelatoriosgerenciais' then
Cmd.Resposta := PegaTotaisRelatoriosGerenciais
else if Cmd.Metodo = 'programaformapagamento' then
begin
wDescricao := Cmd.Params(0) ;
ProgramaRelatoriosGerenciais( wDescricao , { Descricao }
Cmd.Params(1) ) ; { Posicao = '' }
end
else if Cmd.Metodo = 'achargdescricao' then
begin
REL := AchaRGDescricao( cmd.Params(0), { Descricao }
StrToBoolDef(Trim(Cmd.Params(1)),False) ) ; { BuscaExata }
if REL nil then
Cmd.Resposta := padL(REL.Indice,4) +
padL( REL.Descricao, 30) +
IntToStrZero( REL.Contador, 5 )
else
raise Exception.Create('Relatório Gerencial: '+Trim(cmd.Params(0))+
' não encontrado');
end
[/code]
Apesar de ser em Pascal.. acho que é de fácil entendimento, graças aos comentários nos fontes...