[ecfisa]

Hola jomah.

De este modo también funciona:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Tab:= 'MO' + FormatDateTime('mmyy', Now) + '01';
  with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT NUM_CTA, NUMDEPTO, CONCEP_PO, TIPCAMBIO,');
    SQL.Add('(CASE DEBE_HABER WHEN ''D'' THEN MONTOMOV ELSE 0 END) AS DEBE,');
    SQL.Add('(CASE DEBE_HABER WHEN ''H'' THEN MONTOMOV ELSE 0 END) AS HABER');
    SQL.Add('FROM ' + Tab);
    Open;
  end;
end;

Con todas las propuestas que has recibido, logicamente no podía ser un código muy original...

Saludos.