/* 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.