=== FC 4: ShopGroup to Rein-Lager ermitteln  [STL] ===
INTERFACE:
  Input:
    ShopGroup : DInt                                    // Aufgrunf dieser ShopGroup
  Output:
    Puffer : Word                                       // Puffer ermitteln
  InOut:
  Temp:
    Position : Int
  Constant:
  Return:
    Ret_Val : Void

--- NW 1: Aktives Puffer für diese ShopGroup zum Einfahren ---
      L      16#0
      T      Puffer

      L      ShopGroup
      T      "MD220"                                         // Sinvoller Wert ?
      L      DINT#0
      <D                                                     // Nein !
      A(
      CAC
      L      DINT#-1                                         // Leerer Trolley ohne Sack?
      <>D                                                    // Nein !
      )
      BEC


--- NW 2: Puffer mit dieser ShopGroup schon zum Einlagern aktiv? ---

CALL FC "DatenOut" (SSDB:=101, SSDW:=0, PARA:=16#0202, SEARCHDATEN:=P#M220.0, RE_VAL:="MB199", OUTDATEN:=P#M220.0, Position:=Position)   // DL Puffer ShopGroup einfahren | Eintrag lesen (ab 2.DW)

      A      "M199.7"                                        // Eintrag vorhanden
      JC     Puffer


--- NW 3: Leeres Puffer vorhanden? ---

CALL FC "DatenOut" (SSDB:=100, SSDW:=0, PARA:=16#F100, SEARCHDATEN:=P#M220.0, RE_VAL:="MB199", OUTDATEN:=P#M220.0, Position:=Position)   // DL Puffer leer | 1.Eintrag lesen

      A      "M199.7"                                        // Eintrag vorhanden
      JC     Puffer

      BEU


--- NW 4: Puffer aufbereiten ---
Puffer: L      "MW220"
      ITB
      L      16#B000
      OW
      T      Puffer


--- NW 5: Ende ---
      BE

