[ContraVeneno]

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