Usluge u OTP

Evo sta treba dodati u P_OTP.SYS:
//
// USLUGE
//
%COMMAND cKey := "O" + Str(Otprem->o_id,10)
%IF ImaUsl(cKey)
┌─────────────────────────────────────────────────────────┬───────────┐
│          OPIS                                           │  VREDNOST │
├─────────────────────────────────────────────────────────┼───────────┤
%SELECT Usl
%SEEK cKey
%WHILE (a := GetUsl(cKey)) <> NIL
│ %a[1]% │%Emp(Tc(a[2]))%│
%ENDDO
//
Jedina razlika u odnosu na fakturu je %SEEK cKey komanda koja vraca "kursor" na pocetak.