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.