|
|
| Swaps the contents of two string variables |
 |
| StringA |
String that will receive with StringB value |
| StringB |
String that will receive with StringA value |
|
external procedure SwapStr(var string,var string);
global
updating procedure ReverseAltINsm()
begin
Integer wn;
record AltINVc AltINr;
string 255 tstr;
wn = CurWindow;
if (WindowState(wn)==Rs_normal) then begin
GetWindowRecord(wn,AltINr);
CloseWindow(wn);
SwapStr(AltINr.ItemCode,AltINr.AltItemCode);
SwapStr(AltINr.ItemName,AltINr.AltItemName);
wn = OpenWindow("AltINDClass",1,0,"","",AltINr);
WindowDoOk(wn,0);
end else begin
Beep;
end;
return;
end;
««