| 1234567891011121314151617181920 |
- /* 29/06/99 COPY assignment */
- ASSIGN {1}.Artnr = INTEGER(F_Artnr)
- {1}.Inhalt = F_Inhalt
- {1}.Jahr = F_Jahr
- {1}.Bez1 = F_Bez1
- {1}.Bez2 = F_Bez2
- {1}.MBest = F_MBest
- {1}.MGeli = F_MGeli
- {1}.MRuek = F_MRuek
- {1}.Preis = F_Preis
- {1}.Rab_Art = F_Rab_Art
- {1}.Rab_Wert = F_Rab_Wert
- {1}.Zus_Art = F_Zus_Art
- {1}.Zus_Wert = F_Zus_Wert.
- IF {1}.Artnr <> 0 THEN DO:
- ASSIGN {1}.GGeb_Cd = GGebinde.Geb_Cd
- {1}.VGeb_Cd = VGebinde.Geb_Cd
- {1}.KGeb_Cd = KGebinde.Geb_Cd.
- END.
|
