TeilRech()

TeilRech() – Teilrechnung aufrufen / drucken

Die Funktion ruft das Fenster zur Eingabe einer Teilrechnung auf oder gibt das Fenster als Objekt zurück.

Rückgabewert

Keiner, für lModal = True, ansonsten das Fenster-Objekt (Klasse: TBePartInvWin)
Hinweis lModal = True ist nur zulässig, wenn lVisible ebenfalls True ist.

Eigenschaften des Rückgabe-Objekts 'TBePartInvWin':
Dab050 Memory-Tabelle, Kopie von Dab050
Dab055 Memory-Tabelle, Kopie von Dab055

Funktionen des Rückgabe-Objekts 'TBePartInvWin':
ExecPrint:L Aufruf der Druckausgabe.
Falls die Anzeige des Druckdialogs nicht erwünscht ist, muss die Druckerzuweisung für
"Teilrechnung" entsprechend angepasst werden ("kein Druckdialog").
Diese Anpassung könnte auch vorübergehend durch ein Codeblock-Programm geschehen.
ExecDelete:L Satz aus Memory-Tabelle Dab055 löschen

Zusätzliche Datenfelder in der Memory-Tabelle Dab055:
TLFDNR Zähler (lfd. Nummer)
TLF_NR entspricht LF_NUMMER aus Dab020
TLF_DAT entspricht DATUM aus Dab020
TLF_DATEX entspricht LF_DATUM aus Dab020
TLF_MENGE entspricht MENGE aus Dab020
TMENGE In dieses Feld muss die Teilrechnungs-Menge der Position eingetragen werden.
Wird versucht, eine größere als die aktuell berechenbare Menge einzutragen, so wird die
maximal berechenbare Menge gesetzt.

Beispiel

| oTRWin, oDab055, lDoPrint |

if !Empty(oTRWin := TeilRech(171282, false, false)) then
   startseq,
      lDoPrint := false,
      oDab055  := oTRWin.Dab055,
      DBGoTop(oDab055),
      while !EoF(oDab055) do
         if Trim(oDab055:ArtNr) <> '@@@@@' and DBEdit(oDab055) then
            oDab055:TMenge := oDab055:TLF_Menge,
            if DBPost(oDab055) then
               lDoPrint := true
            endif,
         endif,
         DBSkip(1, oDab055),
      end,
      if lDoPrint and oTRWin.ExecPrint then
         WriteLn('Ok')
      endif,
   always
      DestroyObject(oTRWin)
   stopseq,
else,
   WriteLn('Teilrechnung kann nicht ausgeführt werden !')
endif