Código Delphi [-] with QTipoDoc do begin if Active then Close; SQL.clear; SQL.Add('select cod_tipo, nom_tipo '); SQL.Add('from tipo_doc order by cod_tipo'); Open; First; end; //with
with QTipoDoc do begin if Active then Close; SQL.clear; SQL.Add('select cod_tipo, nom_tipo '); SQL.Add('from tipo_doc order by cod_tipo'); Open; First; end; //with