|
|
| Returns selected row number in specified window. |
 |
| window_nr |
Window number |
|
global
procedure RetPUVc_SerialNrSClass(integer type, integer wn, integer mwn, var array string asernrstr, var integer acnt)
begin
record RetPUVc RetPUr;
row RetPUVc RetPUrw;
integer rn, rwcnt;
GetWindowRecord(mwn, RetPUr);
rn = WindowActiveRow(mwn);
rwcnt = MatRowCnt(RetPUr);
if (rn <= rwcnt) then begin
MatRowGet(RetPUr, rn, RetPUrw);
switch (type) begin
case 1: FillSerialNr(RetPUrw.ArtCode, RetPUr.Location, asernrstr, acnt);
case 2: FillSerialNr2(RetPUrw.ArtCode, RetPUr.Location, wn);
end;
end;
return;
end;
««