begin
empleado:= fmodulo.qEmpleados.FieldByName('idempleado').AsInteger;
fmodulo.qGeneral.Close;
fmodulo.qGeneral.SQL.Clear;
fmodulo.qGeneral.SQL.Add('select nombrepuesto from puesto');
fmodulo.qGeneral.SQL.Add('inner join asignado on asignado.idpuesto=puesto.idpuesto');
fmodulo.qGeneral.SQL.Add('inner join empleados on empleados.idempleado=asignado.idempleado');
fmodulo.qGeneral.SQL.Add('where empleados.idempleado= :id');
fmodulo.qGeneral.Open;
fmodulo.qGeneral.ParamByName('id').AsInteger:= empleado;
if not fmodulo.qgeneral.IsEmpty then
begin
fmodulo.qgeneral.First;
while not fmodulo.qGeneral.Eof do
begin
fempleados.CheckListBox1.Items.Add(fmodulo.qGeneral.FieldByName('nombrepuesto').AsString);
fempleados.CheckListBox1.Checked[fempleados.CheckListBox1.Items.Count-1]:= true;
fmodulo.qGeneral.Next;
end;
end;