Query on Sales Header (filter by customer)

Rikarddo

Hi all,

I created a simple query calculating for all customers the items and quantity bought.

Expanded Type Data Source Name Method Type Method Group By
1 DataItem Item Ledger Entry <Item_Ledger_Entry> No
0 Column Item No. <Item_No> None Yes
0 Column Source No. <Source_No> None Yes
0 Column Quantity <Sum_Quantity> Totals Sum No

Then created a page to list the query

Expanded Type SubType SourceExpr Name Caption
1 Container ContentArea <Control1000000000> <Control1000000000>
1 Group Repeater General <General>
0 Field Number <Number> <Number>
0 Field ProdutosCliente.Item_No Nº Produto <Nº Produto>
0 Field ProdutosCliente.Source_No Nº Cliente <Nº Cliente>
0 Field ProdutosCliente.Sum_Quantity Quantidade <Quantidade>

OnOpenPage()

ProdutosCliente.OPEN;

WHILE ProdutosCliente.READ DO
NoOfrows:=NoOfrows+1;

ProdutosCliente.CLOSE;

SETRANGE(Number,1,NoOfrows);

CLEAR(ProdutosCliente);
ProdutosCliente.OPEN;

OnClosePage()

ProdutosCliente.CLOSE;

OnFindRecord(Which : Text) : Boolean

OnNextRecord(Steps : Integer) : Integer

OnAfterGetRecord()
IF NOT ProdutosCliente.READ THEN
EXIT;

After that my goal is to create an action button on the Sales Order Form, with this code, but only to list the products of the sales header sell to customer no.

How can i filter that?