Ir para conteúdo
  • Cadastre-se

Duarte

Membros Pro
  • Total de ítens

    342
  • Registro em

  • Última visita

  • Days Won

    3

Community Answers

  1. Duarte's post in visionKit delphi 11.1 was marked as the answer   
    Resolvi pessoal, a nomenclatura deste framework agora é apenas Vision. 
  2. Duarte's post in ListView FireMonkey was marked as the answer   
    Boa tarde, depois de muito quebrar a cabeça achei a solução, vou deixar aqui, caso alguém precise.
     
    procedure InsertItemListView(AListView : TListView; ADataSet : TDataSet; AHeader, AText, ADetail, ADetail1, ADetail2, ADetail3 : string);
    begin
      try
        AListView.BeginUpdate;
        AListView.Items.Clear;
        with ADataSet do
        begin
          First;
          while not Eof do
          begin
            if Trim(AHeader) <> '' then
              with AListView.Items.Add do
              begin
                Text    := ADataSet.FieldByName(AHeader).DisplayText;
                Purpose := TListItemPurpose.Header; //Aqui é o pulo do gato para add os Headers. Na verdade você add dois items, um será o Header e ou outro o item ou itens, sendo que podemos add vários itens tem do mesmo headers. No meu caso será um para cada. 
              end;
            with AListView.Items.Add do
            begin
              Text                                      := FieldByName(AText).DisplayText;
              Detail                                    := FieldByName(ADetail).AsString;
              Data[TMultiDetailAppearanceNames.Detail1] := FieldByName(ADetail1).DisplayText;
              Data[TMultiDetailAppearanceNames.Detail2] := FieldByName(ADetail2).DisplayText;
              Data[TMultiDetailAppearanceNames.Detail3] := FieldByName(ADetail3).DisplayText;
              Tag                                       := RecNo;
            end;
            Next;
          end;
        end;
      finally
        AListView.EndUpdate;
      end;
    end;
     
  3. Duarte's post in Erro FireDAC. was marked as the answer   
    Bom dia,
    Quero aqui deixar a solução do problema, pois em nenhum lugar conseguir uma resposta, e depois de muito lutar, graças a Deus achei!
    O erro estava no banco de dados, ou seja, corrompido! Depois de checar todos os objetos do banco, não apenas os casuais, mais todos que o firebird nos libera atrás de tabelas do sistema, constatei que, todas as regras de validades em Check dos domínios no firebird são gravados em campos blob na tabela do sistema “Firebird”. Tenho alguns domínios que tem validações no chack “Check” para garantir uma boa integridade do banco, um deles é chamado “D_Situacao” aonde valida as situações aceitáveis pelo banco, foi exatamente neste (domínio) que dentro da tabela interna do firebird que corrompeu.
    Solução! Extrai o metabase do banco, crie um novo banco e usei um aplicativo que por sinal gosto muito “DataPump” migrei os dados e pronto...
    Poderia apenas fazer um backup/restory, creio que sim, mais como já estava muito chateado com o erro, preferir ser mais cauteloso levando os dados para um banco criado do zero.
  4. Duarte's post in Erro leitor de código de barras was marked as the answer   
    Boa tarde,
    Pessoal já resolvi, na migração, acabei alterando uma const que armazenava o Sufixo "Estava passando String", assim o componente ficava em loop... causando o travamento do sistema...
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...