GeMIS_WEB/GUI/v8/aufze_anzeig.i

DO WHILE TRUE:

    F_Bez1          = {1}.Bez1.
    F_Bez2          = {1}.Bez2.

    IF {1}.Artnr = 0 THEN LEAVE.

    FIND Artst USE-INDEX Artst-k1
               WHERE Artst.Firma  = GVFirma
               AND   Artst.Artnr  = {1}.Artnr
               AND   Artst.Inhalt = {1}.Inhalt
               AND   Artst.Jahr   = {1}.Jahr NO-LOCK.

    FIND Wust  USE-INDEX Wust-k3
               WHERE Wust.CodeK   = 99
               AND   Wust.CodeA   = {1}.WC   NO-LOCK.
               
    FIND KGebinde USE-INDEX KGebinde-k1 NO-LOCK
                  WHERE KGebinde.Firma  = GVFirma
                  AND   KGebinde.Geb_Cd = {1}.KGeb_Cd NO-ERROR.
    FIND VGebinde USE-INDEX VGebinde-k1 NO-LOCK
                  WHERE VGebinde.Firma  = GVFirma
                  AND   VGebinde.Geb_Cd = {1}.VGeb_Cd NO-ERROR.

    F_KGebinde      = (IF AVAILABLE KGebinde THEN KGebinde.KBez ELSE '').
    xKGebinde       = (IF AVAILABLE KGebinde THEN KGebinde.KBez ELSE '').
    F_VGebinde      = (IF AVAILABLE VGebinde THEN VGebinde.KBez ELSE '').
    F_MWST          = Wust.KText.
    F_Artnr         = STRING({1}.Artnr,"999999").
    F_Inhalt        = {1}.Inhalt.
    F_Jahr          = {1}.Jahr.
    F_Alk_Gehalt    = {1}.Alk_Gehalt.
    F_MBest         = {1}.MBest.
    F_MGeli         = {1}.MGeli.
    F_MRuek         = {1}.MRuek.
    F_Preis         = {1}.Preis.
    F_Rab_Art       = {1}.Rab_Art.
    F_Rab_Wert      = {1}.Rab_Wert.
    F_Zus_Art       = {1}.Zus_Art.
    F_Zus_Wert      = {1}.Zus_Wert.
    F_AlteNr        = Artst.FremdNr.
    
    LEAVE.
END.