F�rum Erro Acess Violation - Qual Procedimento Para Solu��or #559973

06/08/2016

Boa tarde!!!

Estou desenvolvendo um sistema, e come�ou a dar erro de access violation, quando eu clico no bot�o Gravar!!!
J� procurei, e n�o achei nenhum motivo aparente de eu ter utilizado um objeto que n�o foi instanciado ou que j� foi destru�do!!!

Se algu�m me ajudar !!! Grato

C�digo do bot�o gravar!!!

procedure TFrmCondicaoPagamentoCartao.BtnGravarClick(Sender: TObject);
begin
    FrmFaturarProjeto.CdsFaturarProjeto.Filter := 'SELECIONADO = ' + QuotedStr('S'); // filtra os registros selecionados
    FrmFaturarProjeto.CdsFaturarProjeto.Filtered := True; // ativa o filtro
    FrmFaturarProjeto.CdsFaturarProjeto.First; // posiciona o cursor no primeiro registro
    while not FrmFaturarProjeto.CdsFaturarProjeto.Eof do

    begin

          begin
              FrmFaturarProjeto.CdsFaturarProjeto.Edit;
              FrmFaturarProjeto.CdsFaturarProjeto.FieldByName('SELECIONADO').AsString := 'S';
              FrmFaturarProjeto.CdsFaturarProjeto.FieldByName('STATUS').AsString := 'FATURADO';
              FrmFaturarProjeto.CdsFaturarProjeto.Post;
              FrmFaturarProjeto.CdsFaturarProjeto.Next;
              FrmFaturarProjeto.CdsFaturarProjeto.ApplyUpdates(0);
          end;


    end;

                     FrmCondicaoPagamentoCartao.Close;
                     FrmFaturarProjeto.Close;
                     CdsCondicaoPagamentoCartao.ApplyUpdates(0);



  end;

Para onde ele me mostra o erro!!! Fica apontando a linha de erro para aqui

FrmCondicaoPagamentoCartao.ShowModal;

procedure TFrmCondicaoPagamento.FinalizaCartao;
begin
            PostMessage(Handle, WM_CLOSE, 0, 0);
            FrmCondicaoPagamentoCartao:=TFrmCondicaoPagamentoCartao.Create(application);
            FrmCondicaoPagamentoCartao.EdtCodigoClienteCartao.Text:= FrmFaturarProjeto.CdsFaturarProjeto.FieldByName('CODIGOPROPRIETARIOOBRAPJA').AsString;
            FrmCondicaoPagamentoCartao.EdtNomeClienteCartao.Text:= FrmFaturarProjeto.CdsFaturarProjeto.FieldByName('PROPRIETARIOPJA').AsString;
            FrmCondicaoPagamentoCartao.EdtValorCondicaoCartao.Text:= FrmCondicaoPagamento.EdtCondicaoPagamentoCartao.Text;
            FrmCondicaoPagamentoCartao.EdtCodigoClienteCartao.ReadOnly:=True;
            FrmCondicaoPagamentoCartao.EdtNomeClienteCartao.ReadOnly:=True;
            FrmCondicaoPagamentoCartao.EdtValorCondicaoCartao.ReadOnly:= True;
            FrmCondicaoPagamentoCartao.EdtValorLiquidoCondicaoCartao.ReadOnly:= True;
            FrmCondicaoPagamentoCartao.EdtNomeCondicaoCartao.ReadOnly:= True;
            FrmCondicaoPagamentoCartao.EdtBandeiraCondicaoCartao.ReadOnly:= True;
            FrmCondicaoPagamentoCartao.ShowModal;        

end;

Bruno Henrique

Curtir t�pico

+ 0

Responder

Posts

06/08/2016

Raimundo Pereira

Depende da sua rotina o FrmCondicaoPagamentoCartao est� no oncreat

Se estiver criando em run time na linha abaixo voc� fecha ele
FrmCondicaoPagamentoCartao.Close;

E depois, na linha onde est� retornando o erro
FrmCondicaoPagamentoCartao.ShowModal;

Se voc� estiver criando o form em run time, dever� repetir sua rotina de cria��o antes de
FrmCondicaoPagamentoCartao.ShowModal;

Responder

Gostei + 0