procedure TfrmModelo1.FormShow(Sender: TObject);
begin
Tab:= 'MO' + FormatDateTime('mmyy', Now) + '01';
query1.sql.text:= ' SELECT NUM_CTA,NUMDEPTO,CONCEP_PO,TIPCAMBIO, '+
' iif( DEBE_HABER = 'D', (MONTOMOV as DEBE) , (MONTOMOV as HABER) ) from '+Tab;
Query1.Active:=True;
end;
end;