Ajuda  Calendário  Lista de Membros  Pesquisar  Portal
 Portal  Pesquisar  Lista de Membros  Calendário
Olá, Visitante!  Registrar  Entrar
Inserido por: Cassiano - 05-07-2018, 04:33 PM - Fórum: ORMBr - Como Usar - Respostas (2)
  • Parceiros, estou fazendo assim para editar um registro.
    Se eu clicar no botão e editar a 1ª vez, funciona OK.
    Mas se eu tentar editar novamente, sem fechar o formulário
    dá erro de " FireDac erro column TCONTA.TITULAR cannot be repeated in update statement".

    Como se eu estivesse executando um upadete no mesmo campo duas vezes.

    Segui rigorosamente o exemplo da pasta FireDac sem Dataset.

    Posso postar o exemplo que fiz. Caso alguém se disponha a me ajudar. 

    Muito obrigado.

    Código:
    function TfrmCadConta.Save: Boolean;
    var
      objConta: TCONTA;
    begin
     objConta := TCONTA.Create;
    try
          objConta := oMasterList.Items[dsQuery.DataSet.RecNo -1];
          oMaster.Modify(objConta);

          objConta.FK_BANCO             := Integer(cbbBanco.items.objects[cbbBanco.ItemIndex]);
          objConta.TITULAR              := edtTitular.Text;
          objConta.AGENCIA              := edtNumAgencia.Text;
          objConta.CONTA                := edtConta.Text;
          objConta.BANCO_NOME           := cbbBanco.Text;
        try
          oMaster.Update(objConta);
          Result := True;
        except
          Result := False;
           raise Exception.Create(ErrorEdit);
        end;
    finally
        objConta.Free;
    end;

Inserido por: Geule - 24-06-2018, 10:00 PM - Fórum: ORMBr - Como Usar - Respostas (3)
  • Olá amigos!

    Estou iniciando agora no Framework. 
    Procurei mas não encontrei solução para a seguinte
    situção:

    Ao executar um update, em uma tabela que possui FK, 
    ocorre erro de "Item not Found" exatamente no campo
    da chave estrangeira. 


    Código:
    var
     objSubgrupo: TSUBGRUPO;
    begin
      objSubgrupo := TSUBGRUPO.Create;
      try
        try
          objSubgrupo.ID := FIDRegistro;
          objSubgrupo.IDGRUPO := FIDGrupo; {erro aqui de Item Not Found}
          objSubgrupo.SUBBRUPO_DESC := edtSubgrupo.Text;
          //
          oContainerClient.Update(objSubgrupo);
          oMaster.Save(objSubgrupo);
          oMaster.ApplyUpdates(0);
          //
          Result := True;
        except
          Result := False;
          raise Exception.Create(ErrorEdit);
        end;
      finally
        objSubgrupo.Free;
      end;


    Segue parte do código da classe:


    Código:
    //....
    Restrictions([NotNull])]
    [Column('FK_GRUPO', ftInteger)]
    [ForeignKey('FK_SUBGRUPO_1', 'FK_GRUPO', 'GRUPO', 'ID_GRUPO', SetNull, Cascade)]
    [Dictionary('FK_GRUPO', 'Mensagem de validação', '', '', '', taCenter)]
    property IDGRUPO: Integer read FIDGRUPO write FIDGRUPO;
    //....



    Muito Obrigado!

Inserido por: garciamauro - 19-06-2018, 05:30 PM - Fórum: ORMBr - Como Usar - Respostas (8)
  • Tentei utilizar o upWhereAll do Firedac para obter uma exceção na edição do mesmo registro por mais de um usuário no entanto o encarregado pelo criação da string de update é o ORMBR então não funcionou, como posso fazer trava pessimista/otimista como o ORMBR em suma como obter ACID, não achei nos exemplos.

Inserido por: Osiel Gomes - 24-05-2018, 12:51 AM - Fórum: ORMBr - Usando DataSet - Respostas (1)
  • Pessoal tenho o seguinte código:

      containerContaPagar := TContainerFDMemTable<TModelContaPagar>.Create(Fconn.Conn, AQuery);
      containerTipoConta  := TContainerFDMemTable<TModelTIPOCONTA>.Create(Fconn.Conn, AQueryTipoConta, containerContaPagar.This);

    O detalhe é que no meu Model do TModelContaPagar tem a seguinte Association:

     [Association(OneToOne,'ID_TIPO_CONTA','TIPO_CONTA','ID')]
     property TIPO_CONTA: TModelTIPOCONTA read FTIPOCONTA write FTIPOCONTA;

    Acontece que se eu deixar essa duas linhas descomentadas ele dá erro de access violation que eu ainda não entendi o porque, o erro dá dentro da classe ormbr.dataset.bind
    linhha 330 dentro da procedure TBindDataSet.SetFieldToProperty(ADataSet: TDataSet; AObject: TObject); exatamente em   LColumns := TMappingExplorer.GetInstance.GetMappingColumn(AObject.ClassType);
    o engraçado que se eu habilitar as duas linhas ele fica passando várias vezes até dar o erro.


    Banco Firebird 3.0
    Alguma luz?

Inserido por: Pechoto - 15-05-2018, 07:19 PM - Fórum: ORMBr - Como Usar - Respostas (1)
  • Olá galera do ORMBr. Primeiramente parabéns ao Isaque e a todos os envolvidos pelo excelente projeto.

    Tenho duas tabelas sendo PESSOA e CIDADE, conforme resumo abaixo:


    PESSOA      | CIDADE
    ================
    ID              | ID
    NOME         | NOME
    ID_CIDADE | UF

    Estou tentando fazer uma JoinColumn (PESSOA.ID_CIDADE > CIDADE.ID), para que no momento da consulta o ORM traga o nome da cidade (CIDADE.NOME) e a UF (CIDADE.UF) de cada registro de pessoa, porém não estou conseguindo trazer o nome da cidade, somente a UF.

    Pode ser pelo fato de que a coluna tenha o mesmo nome (NOME) nas duas tabelas?

    Código que estou usando na classe TPessoaVO:

        [Restrictions([NoInsert, NoUpdate])]
        [Column('NOME', ftString, 100)]
        [JoinColumn('ID_CIDADE', 'CIDADE', 'ID', 'NOME', LeftJoin)]
        [Dictionary('Cidade')]
        property CidadeNome: string index 1 read FCidadeNome write FCidadeNome;

    Eu até tentei trocar [Column('NOME', ftString, 100)] por [Column('NOME_CIDADE', ftString, 100)], porém recebo o erro: "Field 'NOME_CIDADE' not found".

Inserido por: Osiel Gomes - 13-05-2018, 09:46 PM - Fórum: ORMBr - Como Usar - Respostas (1)
  • Boa noite!!!

    Tem alguém usando em produção o ormbr? É que não vi muitos commit do Isaque nos últimos meses então gostaria de saber se deve ao fato que esta bem estável?

Inserido por: Osiel Gomes - 13-05-2018, 09:42 PM - Fórum: ORMBr - Como Usar - Respostas (1)
  • Boa noite,

    Após uma atualização via Git a classe ormbr.types.blob precisou de uma intervenção pois no seu uses esta assim

    Linha 42 em diante
     Graphics,
     Imaging.GIFImg,
     Imaging.JPEG,
     Imaging.PngImage,
     Imaging.pnglang,

    Sendo que eu alterei para ficar assim

     Vcl.Graphics,
      Vcl.Imaging.GIFImg,
      Vcl.Imaging.JPEG,
      Vcl.Imaging.PngImage,
      Vcl.Imaging.pnglang,

    Ai o projeto compilou de boa.
    P.S Delphi Tokyo 10.2.3

Inserido por: Warley Xavier - 06-05-2018, 08:38 PM - Fórum: ORMBr - Como Usar - Respostas (2)
  • Boa noite, sou novo com o ORM e ao implementar em meus projetos surgiram alguns problemas e dúvidas. Ao alterar ou excluir um registro as alterações estão sendo aplicadas a todos os registros. Por exemplo, quando altero o nome de um usuário para Carlos todos os usuário recebem o nome de Carlos, ou quando apago um registro, todos os registros da mesma tabela são apagadas juntos.
    Não estou conseguindo entender onde estou errando, será que existe algum parâmetro em que eu configure isso?

    Desde já agradeço qualquer ajuda.

Inserido por: Francisco Camurça - 25-04-2018, 10:24 AM - Fórum: ORMBr - Usando Objetos - Respostas (1)
  • Estou fazendo testes com ORMBr e percebi o gerador de modelos porem em gerar modelos com uma base dados MySQL percebi que não foi gerado o campo id das tabelas

    Alguem ja passou por isso, e como proceder?

Inserido por: Sergio Mattos - 28-03-2018, 01:35 PM - Fórum: ORMBr - Como Usar - Sem Respostas
  • Boa tarde!

    Estou fazendo uns testes e não achei nenhum exemplo de como aplicar o conceito Lazy nas entidades relacionadas.
    Alguém tem algum exemplo para compartilhar?

Bem Vindo, Visitante
[-]
  • Você tem que se registrar antes, para poder colocar mensagens no Fórum.
Pesquisar Nos Fóruns
[-]
Estatísticas do Fórum
[-]
usuários Online
[-]
  • Está de momento 1 usuário online
    0 Membro(s) | 1 Visitante(s)
Últimos Tópicos
[-]