Fórum Função, estou com problemas... #175442

16/08/2003

0

Pessoal fiz uma função assim
FUNCTION calcula_prod(var prod: char; var safra: String; var produto_prod: String): Real; begin DTmodule.QrAuxiliar.Close; DTmodule.QrAuxiliar.SQL.Clear; DTmodule.QrAuxiliar.SQL.Add(´Select SUM(Preco_comp) as Preco from Compra where Tipo_prod_comp = :cond1 and paga_comp=´V´ and safra_comp= :cond2 and prod_safra_comp= :cond3´); DTmodule.QrAuxiliar.Params[0].AsString:= prod; DTmodule.QrAuxiliar.Params[1].AsString:= safra; DTmodule.QrAuxiliar.Params[2].AsString:= produto_prod; DTmodule.QrAuxiliar.Open; Result:=(Dtmodule.QrAuxiliar.FieldByName(´Preco´).AsFloat); end;

assim eu prototipei ela na PUBLIC mas ele esta dando erro

O erro que mostra é ´Unsatisfied forward or external declaration:´TfmPagamentos.calcula_prod´´

Oque que sera o erro Agradeço muito a atenção....


Japa

Japa

Responder

Posts

16/08/2003

Rômulo Barros

Adicione na seção IMPLEMETATION :

forward FUNCTION calcula_prod(var prod: char; var safra: String;
var produto_prod: String): Real;


Responder

Gostei + 0

16/08/2003

Japa

obrigado amigo vou tentar aqui e eu falo a resposta :wink:


Responder

Gostei + 0

16/08/2003

E_gama

Se ela está na sessão Public do Form, então declare-a assim;

function TfmPagamentos.calcula_prod( ... )
begin
...
end;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar