[[Caral]]

Hola
Con Case es igual, son dos condiciones, si no es una entonces es la otra:

Código Delphi [-]
procedure TfrmModelo1.FormShow(Sender: TObject);
begin
Tab:= 'MO' + FormatDateTime('mmyy', Now) + '01';
query1.sql.text:= ' SELECT NUM_CTA,NUMDEPTO,CONCEP_PO,TIPCAMBIO, '+
                  ' CASE WHEN DEBE_HABER = 'D' THEN (MONTOMOV as DEBE) ELSE (MONTOMOV as HABER) END '+
                  ' From '+Tab;
Query1.Active:=True;
end;
end;

Saludos