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

[Caral] · #6 24-02-2012

Hola
Solo por arreglar algo esta consulta, sin modificarla.

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

Saludos