Event "Validierung - Rechnungskontroll-Abschluss"

Dieser Event wird ausgeführt, sobald man im Rechnungsfreigabe-Fenster der Rechnungskontrolle mittels des OK-Buttons alle Werte bestätigt.

Beispiel

CODE

|
  nEvtNo:P1, oDab100:P2, nFiBuLiNr:P3, dRechDatum:P4, cRechNr:P5, cBelegIntern:P6, cBuchText:P7,
  cLastDeliveryNo:P8, lUseNewVATKey:P9
|

// oDab100   - befindet sich auf dem Original-Lieferanten
// nFiBuLiNr - Kreditoren-Nr. in Finanzbuchh.
// dRechDatum, cRechNr, cBelegIntern, cBuchText - beinhalten die
// entsprechenden Werte aus dem Buchungsdialog.
// cLastDeliveryNo  - die letzte Lieferschein-Nummer aus Dab235
// lUseNewVATKey    - Verwendung der neuen Steuersätze (Checkbox bei Steuersatz-Umstellung)
// -> False als Rückgabe für Abbruch.

// Rückfrage wenn Buchungsmonat <> Rechnungsmonat
Function CheckDatum()
   result := true,
   if dRechDatum < Date() and Month(dRechDatum) <> Month(Date()) then
      if not JN("Rechnungsmonat <> Buchungsmonat - Trotzdem weiter ?") then
         result := false,
      endif,
   endif,
end,

CheckDatum()