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

[Caral] · #23 25-02-2012

Hola
Puedes hacer esta prueba para descartar cosas:

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 MO021201';
Query1.Active:=True;
end;
end

;
Saludos