| 1234567891011121314151617181920212223242526 |
- REPEAT TRANSACTION WITH FRAME {&FRAME-NAME}:
-
- FIND Listen WHERE RECID(Listen) = ARecid.
- FIND LiDruck WHERE RECID(LiDruck) = BRecid.
-
- ASSIGN {&List-2}.
- ASSIGN {&List-1}.
-
- ASSIGN Listen.Sort = F_Sort
- LiDruck.Listtzz = F_TZZ
- LiDruck.Listkzz = F_KZZ
- LiDruck.Listfzz = F_FZZ
- LiDruck.Listlq = F_LQ
- LiDruck.ListCopy = F_KOPIE
- LiDruck.Schacht = F_SCHACHT
- LiDruck.ListDru = ASchname
- LiDruck.ListBild = ASchbild.
-
- RELEASE Listen.
- RELEASE LiDruck.
- LEAVE.
- END.
- FIND Listen WHERE RECID(Listen) = ARecid NO-LOCK NO-ERROR.
- FIND LiDruck WHERE RECID(LiDruck) = BRecid NO-LOCK NO-ERROR.
|
