• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

Adds a new item to a string of values using a specified separator. NOTE: blank string will not be added to the list.

Parameters:
Original	A string that is filled with character (eg. comma) separated values
AddThis	String that will be added to the string of character separated values.
Separator	A character that will be considered as the separator between the values

external inner function string 255 AddStr(string,string,string);

global
procedure CUVc_PasteCountryCode(var record CUVc CUr)
begin
  record CountryVc Countryr;
  
  Countryr.Code = CUr.CountryCode;
  if (ReadFirstMain(Countryr,1,true)) then begin
    CUr.FreightCode = Countryr.FreightCode;
    CUr.PLCode = Countryr.PLCode;
    CUr.RebCode = Countryr.RebCode;
    if (!SetInSet(Countryr.Objects,CUr.Objects)) then begin
      CUr.Objects = AddStr(CUr.Objects,Countryr.Objects,",");
    end;
    CUr.ExportFlag = Countryr.ExportFlag;
  end;
  return;
end;

Related topics: