Štampanje Alt-P napomene umesto naziva artikla u fakturama

%WHILE i_fak == faktur->f_id
%IF i_usl == 0
%COMMAND CalcFakRec()
//
%COMMAND m_memo := DodArtRead(i_id)                     // Ucitaj napomenu
%IF Empty(m_memo)                                       // Ako je prazna, uzmi naziv artikla
%COMMAND m_memo := Artikli->a_naziv            
%ENDIF
%COMMAND m_lines := MLCount (m_memo)                    // Broj linija u napomeni
%COMMAND i := 1                                         // Ispisi stavku
%WHILE i <= m_lines
%COMMAND m_line := PadR(MemoLine (m_memo,,i),62)
//
%IF i == 1
│%Right(Cnt(),3)%│%m_line%│ %m_jm%│%Tk(m_kol)%│%Tc(i_cena)%│%Tc(m_kol*i_cena)%│
%ELSE
│   │%m_line%│    │      │           │           │
%ENDIF
%COMMAND i := i+1
%ENDDO
//
%ENDIF
%SKIP
%ENDDO