ADDDB

Inhaltsverzeichnis

Sammle in Saldo-Tabelle des Tages #

Die Operation ADDDB kumuliert den Wert aus dem Stundenanzahl-Feld unter
der durch Parameter xxxx bestimmten Zeitart in die interne Tabelle der Tagessalden.

Syntax #

ADDDBXXXXY

ADDDB Operationsname

XXXX Angabe der Zeitart, in die der Wert kumuliert wird

  • * Aktuell bearbeitete Zeitart
  • XXXX wird als Name der Zeitart interpretiert

Y Steuerungskennzeichen für die Kumulation Operation ADDDB

  • blank Kumulation, der Wert wird zu einem eventuell schon in der
    Zeitart vorhandenen Wert addiert.
  • Z Initialisieren (zero), ein eventuell in der Zeitart bereits
    enthaltender Wert wird überschrieben.
  • – Umkehrung des Vorzeichens, vor der Kumulation wird das Vorzeichen
    des Stunden-anzahl-Feldes umgekehrt, d.h. der Wert des Stunden-anzahl-Feldes
    wird mit -1 multipliziert.
  • T Sollstunden (target hours), vor der Kumulation wird das Stundenanzahl-Feld
    mit den Sollarbeitsstunden laut Tagesarbeitszeitplan gefüllt. ADDDBxxxxT ist äquivalent zu HRS=S ADDDBxxxx.

Code #

*---------------------------------------------------------------------*
*       FORM OPADDDB                                                  *
*---------------------------------------------------------------------*
*       COLLECT in Tabelle TES                                        *
*---------------------------------------------------------------------*
form opadddb.
  case op+5(1).
    when '*'.
      tes-ztart = act-ztart.
    when others.
      tes-ztart = op+5(4).
  endcase.
  case op+9(1).
*   WHEN 'S'.
    when 'T'.
      tes-anzhl = act_t550a-sollt.
      perform make_time_longer using tes-anzhl.             "K11K100351
      collect tes.
    when '-'.
      tes-anzhl = 0 - act-anz.
      collect tes.
    when 'Z'.
      read table tes with key tes-ztart.
      tes-anzhl = act-anz.
      if sy-subrc ne 0.
        collect tes.
      else.
        modify tes index sy-tabix.
      endif.
    when others.
      tes-anzhl  = act-anz.
      collect tes.
  endcase.
endform.                               "of OPADDDB