com lookup

[Wilke1 0]

ola pessoal eu crie um campo lookup para mostrar quantidade vendida de um produto de sendo a ultima data vendida

mas não estou conseguindo, estou fazendo assim

 

Qryultdata.First;

while not Qryultdata.Eof do begin

QryprodLoja.Edit;

Qryvendido.Close;

Qryvendido.ParamByName('DT_VENDA').AsString:=Qryultdata.FieldByName('DT_VENDA').AsString;

Qryvendido.OPEN;

QryprodLoja.FieldByName('LK_DS_QUANT').AsInteger:= Qryvendido.FieldByName('QT_PRODUTO_VENDIDO').AsInteger;

Qryultdata.Next;

END;

[Wilke1 0]

ola pessoal eu crie um campo lookup para mostrar quantidade vendida de um produto de sendo a ultima data vendida

mas não estou conseguindo, estou fazendo assim

 

Qryultdata.First;

while not Qryultdata.Eof do begin

QryprodLoja.Edit;

Qryvendido.Close;

Qryvendido.ParamByName('DT_VENDA').AsString:=Qryultdata.FieldByName('DT_VENDA').AsString;

Qryvendido.OPEN;

QryprodLoja.FieldByName('LK_DS_QUANT').AsInteger:= Qryvendido.FieldByName('QT_PRODUTO_VENDIDO').AsInteger;

Qryultdata.Next;

END;

 

Resolvido

foi feito assim e deu certo foi criado um campo calculado , e no calcfild foi acrescentado assim

 

Qryqtvendido.Close;

Qryqtvendido.ParamByName('loja').AsString:= Qryprodloja.FieldByName('cd_loja').AsString;

Qryqtvendido.ParamByName('cod_produto').AsString:=Qryprodloja.FieldByName('cd_produto').AsString;

Qryqtvendido.ParamByName('dt_venda').AsString:= Qryprodloja.FieldByName('dt_venda').AsString;

Qryqtvendido.Open;

if Qryqtvendido.FieldByName('vendido').AsString<> null then

Qryprodloja.FieldByName('lk_ds_vendido').AsInteger:= Qryqtvendido.FieldByName('vendido').AsInteger

else

Qryprodloja.FieldByName('lk_ds_vendido').AsInteger:=0;