Fórum Problema com campo Required #410489

 
procedure TfrmTransfereDados.cbxTabelasChange(Sender: TObject);
var
  vlI, vlLinha: Integer;
begin
 gbxVisualizacaoDados.Collapsed := True;
  if cbxTabelas.ItemIndex <> -1 then
    begin
      lbxDisponiveis.Items.Clear;
      for vlI := 0 to stgConfigCampos.ColCount -1  do
        for vlLinha := 1 to stgConfigCampos.RowCount do
          stgConfigCampos.Cells[vlI, vlLinha]     := ;
      for vlI := 0 to stgExemplo.ColCount -1 do
        for vlLinha := 0 to stgExemplo.RowCount -1 do
          stgExemplo.Cells[vlI, vlLinha]          := ;
      stgConfigCampos.RowCount                    := 2;
      stgExemplo.ColCount                         := 2;
      stgExemplo.RowCount                         := 2;
      
      with TClientDataSetFre(dsativo.DataSet) do
        begin
          Close;
          Active                                  := False;
          ReadOnly                                := False;
          Fields.Clear;
          //FieldDefs.Clear;
          IndexDefs.Clear;
          IndexName                               := EmptyStr;
          Consulta.Tabelas                        := cbxTabelas.Text;
          AtivaConsulta                           := True;
          Active                                  := True;
          Open;
          //FieldList.Update;
          //FieldDefs.Update;
          vlLinha                                 := 0;
          ProgressBar.Max                         := FieldCount -1;  
          pnlFundo.Enabled := False;
          for vlI := 0 to FieldCount - 1 do
            begin
              if Fields[vlI].Required then
                begin
                  if ((stgConfigCampos.RowCount = 2) and (vlLinha = 0)) then
                    begin
                      TransfereGrid(Fields[vlI], 1);
                      vlLinha                     := vlLinha + 1;
                    end
                  else
                    TransfereGrid(Fields[vlI], stgConfigCampos.RowCount);
                end
              else
                begin
                  lbxDisponiveis.Items.Add(Fields[vlI].DisplayName);
                end;
               ProgressBar.Position := vlI;
               Application.ProcessMessages;
            end;
        end;
    end;
End;