libild.i 333 B

12345678910
  1. Helptext = "".
  2. FOR EACH LiBild USE-INDEX LiBild-k1
  3. WHERE LiBild.Sprcd = GVSprcd
  4. AND LiBild.Prog = LiDruck.Listprog
  5. AND LiBild.Tenr > 0 NO-LOCK ix = 1 TO 20:
  6. Helptext[ix] = LiBild.Litext.
  7. END.
  8. Breite = INTEGER(SUBSTRING(Helptext[01],02,03)).