Ir para conteúdo
Fórum Script Brasil
  • 0

Function_erro_grave


Paltrin

Pergunta

Prezados

Estou com erro nesta função abaixo, pfavor alguém poderia me ajudar:

São dois forms que estou usando essa função.

Seguinte o Erro acontece neste caminho:

- Abro o FrmMovimento ciclo no Navigator exibi para o saldo de todos os produtos sem erro funciona muito bem...ok

Em seguida abro o FrmProdutos ciclo no Navigator deste form ai da o ERRo

dizendo que Access Violation, e me indica com uma faixa essa linha:With ZQSldAtual do.

//----UnitMovimento.pas

function TFrmMovimento.CalculoSaldoAtual(Data,codigo: string): String;

begin

if((Data <> '')and(codigo <> '')) then

begin

With ZQSldAtual do

begin

ZQSldAtual.Active := false;

ZQSldAtual.Sql.clear ;

ZQSldAtual.Params.clear;

ZQSldAtual.SQL.Add(' select ');

ZQSldAtual.SQL.Add(' COALESCE( ( select sum(m.qtdmvt) from mvt m where tipmvt = :vE and m.dtamvt <= :vdata and m.codprd= :vcodigo ) ,0) ');

ZQSldAtual.SQL.Add(' - ');

ZQSldAtual.SQL.Add(' COALESCE( ( select sum(m.qtdmvt) from mvt m where tipmvt = :vS and m.dtamvt <= :vdata and m.codprd= :vcodigo ) ,0) ');

ZQSldAtual.SQl.Add(' AS SALDO ');

ZQSldAtual.ParambyName('vE').Value := 'E';

ZQSldAtual.ParambyName('vS').Value := 'S';

ZQSldAtual.ParambyName('vdata').Value := copy(Data,7,4)+'-'+copy(Data,4,2)+'-'+copy(Data,1,2);

ZQSldAtual.ParambyName('vcodigo').Text := codigo;

ZQSldAtual.Active:= true;

end;

if not(ZQSldAtual.IsEmpty)then

begin

Labelsldatu.Caption := ' ';

Labelsldatu.Caption := String(ZQSldAtual['SALDO']);

RESULT := 'SALDO ATUAL: '+(Labelsldatu.Caption);

end

else

begin

RESULT := '';

end;

end;

end;

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0
Prezados

Estou com erro nesta função abaixo, pfavor alguém poderia me ajudar:

São dois forms que estou usando essa função.

Seguinte o Erro acontece neste caminho:

- Abro o FrmMovimento ciclo no Navigator exibi para o saldo de todos os produtos sem erro funciona muito bem...ok

Em seguida abro o FrmProdutos ciclo no Navigator deste form ai da o ERRo

dizendo que Access Violation, e me indica com uma faixa essa linha:With ZQSldAtual do.

//----UnitMovimento.pas

function TFrmMovimento.CalculoSaldoAtual(Data,codigo: string): String;

begin

if((Data <> '')and(codigo <> '')) then

begin

With ZQSldAtual do

begin

ZQSldAtual.Active := false;

ZQSldAtual.Sql.clear ;

ZQSldAtual.Params.clear;

ZQSldAtual.SQL.Add(' select ');

ZQSldAtual.SQL.Add(' COALESCE( ( select sum(m.qtdmvt) from mvt m where tipmvt = :vE and m.dtamvt <= :vdata and m.codprd= :vcodigo ) ,0) ');

ZQSldAtual.SQL.Add(' - ');

ZQSldAtual.SQL.Add(' COALESCE( ( select sum(m.qtdmvt) from mvt m where tipmvt = :vS and m.dtamvt <= :vdata and m.codprd= :vcodigo ) ,0) ');

ZQSldAtual.SQl.Add(' AS SALDO ');

ZQSldAtual.ParambyName('vE').Value := 'E';

ZQSldAtual.ParambyName('vS').Value := 'S';

ZQSldAtual.ParambyName('vdata').Value := copy(Data,7,4)+'-'+copy(Data,4,2)+'-'+copy(Data,1,2);

ZQSldAtual.ParambyName('vcodigo').Text := codigo;

ZQSldAtual.Active:= true;

end;

if not(ZQSldAtual.IsEmpty)then

begin

Labelsldatu.Caption := ' ';

Labelsldatu.Caption := String(ZQSldAtual['SALDO']);

RESULT := 'SALDO ATUAL: '+(Labelsldatu.Caption);

end

else

begin

RESULT := '';

end;

end;

end;

teu componente ZQSldAtual esta na mesma unit ou você fez referencia ao data module onde esta o componente, pode ser isto que esta dando access violation. Pois ao cahamar a função o componente não esta criado, ou seja não tem acesso.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...