Hola
Cualquiera de estas dos funciona perfectamente:
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 ='+QUOTEDSTR('D')+' THEN ''DEBE'' ELSE ''N'' END) AS DEBE, '+
' (CASE WHEN DEBE_HABER ='+QUOTEDSTR('H')+' THEN ''HABER'' ELSE ''N'' END) AS HABER '+
' from '+Tab;
Query1.Active:=True;
end;
end;
o esta, para mi mas sencilla:
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 ='+QUOTEDSTR('D')+' THEN ''DEBE'' ELSE ''HABER'' END) AS DEBE, '+
' from '+Tab;
Query1.Active:=True;
end;
end;
Las dos generan el mismo resultado.
NO se puede, o por lo menos en Firebird no me dejo poner el nombre del campo, creo que ese es el problema.
Saludos