Fórum Função, estou com problemas... #175442
16/08/2003
0
Pessoal fiz uma função assim
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....
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
Curtir tópico
+ 0
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;
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;
function TfmPagamentos.calcula_prod( ... )
begin
...
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)