Foros Club Delphi - Ver Mensaje Individual - Como extraer inforcion de un campo en dos columnas de un dbgrid!!!!

[Caral] · #18 25-02-2012

Hola
Otra opción:

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 (MONTOMOV as DEBE) END, '+
                  ' CASE WHEN DEBE_HABER ='+QUOTEDSTR('H')+' THEN (MONTOMOV as HABER) END '+
                  ' from '+Tab;
Query1.Active:=True;
end;
end;

No estoy muy seguro de esta, me gustan mas las otras dos.
Saludos