| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546 |
- 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.
|
