Re: [firebase-br] Não gera exceção DBexpress

[maf.sistemas]

Essa é a estrutura do Try

    Try
      Start_Transacao(1);
      if DMI.CDSPessoas.State = dsInsert then
      begin
        DMC.CDSPesquisa.Close;
        DMC.qryPesquisa.SQL.Clear;
        DMC.qryPesquisa.SQL.Add('SELECT RETORNO FROM TESTE(567)');
        DMC.CDSPesquisa.Open;
        edtCodigo.Text := IntToStr(StrToInt(Loja + FormatFloat('000000',DMC.CDSPesquisa.FieldByName('RETORNO').AsInteger)));
        DMC.CDSPesquisa.Close;
        CDSPessoas.FieldByName('Codigo').AsInteger := StrToInt(edtCodigo.Text);
        CDSPessoas.FieldByName('Loja').AsString := Loja;
      end;
      CDSPessoas.Post;
      CDSPessoas.ApplyUpdates(0);
      Confirma_Transacao(1,True);
      Checa := True;
    Except
      on Exc:Exception do
      begin
        Checa := False;
        edtCodigo.Clear;
        Confirma_Transacao(1,False);
        with MensOk do
        begin
          Caption := 'Atenção';
          Text := 'Erro ao gravar registro !'+ Exc.Message;
          IconType := suiInformation;
          ShowModal;
        end;
        PgCPessoas.ActivePage := tbsInformacoes;
        if btnNovo.Enabled = True then
          btnNovo.SetFocus
        else
          btnAlterar.SetFocus;
      end;
    end;

Nos demais modulos funciona perfeitamente, mas aqui não gera exceção.
Marco


Romulo Oliveira <romulocpd em yahoo.com.br> escreveu:
Envie a estrutura do try except pra poder avaliar melhor. Comigo isso nunca
acontecer.

Vlw!




______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa