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.