=== FC 1002: Trolley_DL_Neue_Pos  [STL] ===
INTERFACE:
  Input:
    Gesamt_Trolley_DL : Int
    TrolleyID : DInt
    Position : Word
    ShopGroup : DInt
  Output:
    Err : Bool
  InOut:
  Temp:
  Constant:
  Return:
    Ret_Val : Void

--- NW 1: GesamtTrolly-DL angegeben? ---
      L      Gesamt_Trolley_DL
      L      0                                               // sinnvolle Angabe?
      <=I                                                    // Nein!
      BEC                                                    // Abbruch


--- NW 2: Trolley auslesen  ---
      L      TrolleyID
      T      "MD220"

CALL FC "DatenOut" (SSDB:=Gesamt_Trolley_DL, SSDW:=0, PARA:=16#0000, SEARCHDATEN:=P#M220.0, RE_VAL:="MB199", OUTDATEN:=DB1011.DBX0.0, Position:="MW196")   // Eintrag lesen

      L      "MB199"
      L      2#1111111                                       // Bit 7 ausblenden
      AW
      L      0                                               // Fehler vorhanden?
      <>I                                                    // Ja
      =      Err
      BEC


--- NW 3: Zeit übegeben ---
      L      TrolleyID
      T      "TrolleyDL_OutDaten".OUTDaten.TrolleyID
      L      "SGes".DATE_TIME.Jahr
      T      "TrolleyDL_OutDaten".OUTDaten.LastTime.Jahr
      L      "SGes".DATE_TIME.Monat
      T      "TrolleyDL_OutDaten".OUTDaten.LastTime.Monat
      L      "SGes".DATE_TIME.Tag
      T      "TrolleyDL_OutDaten".OUTDaten.LastTime.Tag
      L      "SGes".DATE_TIME.Stunde
      T      "TrolleyDL_OutDaten".OUTDaten.LastTime.Stunde
      L      "SGes".DATE_TIME.Minute
      T      "TrolleyDL_OutDaten".OUTDaten.LastTime.Minute
      L      "SGes".DATE_TIME.Sekunde
      T      "TrolleyDL_OutDaten".OUTDaten.LastTime.Sekunde


--- NW 4: Neue Position übergeben ---
      L      Position
      L      0
      ==I
      JC     NoNewPos

      CAC
      T      "TrolleyDL_OutDaten".OUTDaten.Standort

NoNewPos: NOP 0


--- NW 5: ShopGroup übergeben ? (bei 0 nichts ändern!) ---
      L      ShopGroup
      L      DINT#0
      ==D
      JC     NoShopGroup

      CAC
      T      "TrolleyDL_OutDaten".OUTDaten.ShopGroup

NoShopGroup: NOP 0


--- NW 6: Daten schreiben ---
CALL FC "DatenIn" (SSDB:=Gesamt_Trolley_DL, SSDW:=0, INDATEN:=DB1011.DBX0.0, RE_VAL:="MB199")



--- NW 7: Ende ---
      BE

