(

Description:

Returns the number of UNIQUE item codes on the invoice


Parameters:
Invoice	Invoice type of record

external function Integer CountNrofItemsIV(record IVVc);

global
updating procedure OnApplicationStartup()
begin
  record IVVc IVr;

  SetCompany(1,true);
  LoopMain(IVr,1,true);
  stopalert(CountNrofItemsIV(IVr));

  return;
end;


Related topics:

««