Vendrs.RESET;
Vendrs.SETRANGE(Vendrs.“No.”,“Vendor No.”);
IF Vendrs.FIND(’-’) THEN BEGIN
vend:=Vendrs.“No.”;
name:=Vendrs.Name;
add:=Vendrs.Address;
END;
Vendrs.RESET;
Vendrs.SETRANGE(Vendrs.“No.”,“Vendor No.”);
IF Vendrs.FIND(’-’) THEN BEGIN
vend:=Vendrs.“No.”;
name:=Vendrs.Name;
add:=Vendrs.Address;
END;