FUNCTION "Trolleydaten_neu_anlegen" : Void
TITLE = Trolleydaten neu anlegen (nur für Inbetriebnahme / zum Testen)
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
   VAR_INPUT 
      Gesamt_Trolley_DL : Int;
      TrolleyID : DInt;
      Endziel : Word;
      ShopGroup : DInt;
   END_VAR

   VAR_TEMP 
      Lager_DB : Int;
      Lager_DW : Int;
      SSDW : Int;
      Position : Int;
   END_VAR


BEGIN
NETWORK
TITLE = GesamtTrolly-DL angegeben?
      L #Gesamt_Trolley_DL;
      L 0;//sinnvolle Angabe?
      <=I;//Nein!
      BEB;//Abbruch

NETWORK
TITLE = Erst mal alte Daten löschen
      CALL "Trolleydaten_löschen"
      (  Gesamt_Trolley_DL           := #Gesamt_Trolley_DL , 
         TrolleyID                   := #TrolleyID
      );

NETWORK
TITLE = Trolleydaten speichern

//Trolleydaten manipulieren:
      L #TrolleyID;
      T "TrolleyDL_INDaten".INDaten.TrolleyID;

      L #Endziel              ;//Eingabe über Beobachtungstabelle (Tests)
      T "TrolleyDL_INDaten".INDaten.EndZiel;
      L #ShopGroup;
      T "TrolleyDL_INDaten".INDaten.ShopGroup;

//Rest nullen
      L 0;
      T "TrolleyDL_INDaten".INDaten.ZwischenZiel;
      T "TrolleyDL_INDaten".INDaten.Standort;

//Daten in Datenbank schreiben:
      CALL "DatenIn"
      (  SSDB                        := #Gesamt_Trolley_DL , 
         SSDW                        := 0 , 
         INDATEN                     := %DB1010.DBX0.0 , 
         RE_VAL                      := "MB198"
      );

      L "TrolleyDL_INDaten".INDaten.TrolleyID;

NETWORK
TITLE = Ende
      BE;

END_FUNCTION

