Event "Kd.Auftr.Pos Versand-Mengen-Kalkulation"

Event "Kd.Auftr.Pos Versand-Mengen-Kalkulation" (ab V4.4)

Dieser Event stellt folgende Möglichkeiten zur Verfügung:

Kalkulation einer Vorgabe-Versandmenge bei Pos.Erfassung in der Auftragsbearbeitung (nModus = 0)
Kalkulation einer verfügbaren Versandmenge, welche zur Validierung bzw. Freigabe einer Menge an folgenden Programmstellen verwendet wird (nModus = 1):
1. Bei manueller Eingabe einer Versandmenge, bzw. bei Aufruf von AufPosPost()
2. Bei der manuellen Lieferfreigabe aus der Auftragsverwaltung
3. Bei der automatischen Lieferfreigabe
4. Bei der Lieferfreigabe nach Wareneingang

Beispiel

CODE

// =============================================================================
// Event zur Berechnung einer eigenen Versand-Menge (DAB055:VMENGE)
// je nach Aufruf entweder als Vorbelegung in der Eingabemaske oder als
// maximal verfügbare Menge
// =============================================================================

// =============================================================================
// Variablen Deklarationen
// =============================================================================
| nEvtNo:P1, oDab000:P2, oDab050:P3, oDab055:P4, oDab010:P5,
  oOld055:P6, nModus:P7, nVMenge:P8, x,
  cTest:C:="", oCalc055:DB:='waDAB055, DAB057', nPrioDays:N:=0, nPMenge:N:=0 |
// oOld050, oOld055 enthalten alte Versionen der Datensätze (vor dem Editieren)
// nVMenge    : Errechnete VMenge (Vorgabe bzw. verfügbar)
// nModus = 0 : Rückgabe = Vorgabe VMenge
// nModus = 1 : Rückgabe = Verfügbare VMenge
// Rückgabe   : leer = keine Änderung, sonst Vorgabe- bzw. verfügbare VMenge

// =============================================================================

// Vorgaben zum Testen in Programmierung ...

//oDab000 := DBOpen(waDAB000),
//oDab010 := DBOpen(waDAB010),
//oDab050 := DBOpen(waDAB050),
//oDab055 := DBOpen(waDAB055),
//oOld055 := DBOpen(waDAB055),
//
//nModus := 0,
//nVMenge:= 99,
//
//DbSeek( {100287},        oDab000 ),
//DbSeek( {"100211"},      oDab050 ),
//DbSeek( {"100211  1"},   oDab055 ),
//DbSeek( {"100211  1"},   oOld055 ),
//DbSeek( {oDab055:ARTNR}, oDab010 ),

// =============================================================================
// Beginn Hauptprogramm
// =============================================================================

startseq
  if (mAbteilung = oDab055:LAGER) and // Abt = LAGER (sollte immer der Fall sein)
     (oDab055:AUF_LAG = "J") and      // Auftr.Pos. lagerwirksam
     (oDab055:LAGER   >  0) and       // Lager 1-9
     (oDab055:LAGER   <= 9) and
     (oDab055:BMENGE  >  0) and       // Bestell-Menge > 0
     (oDab010:ARTTYP  = "T") then     // Kaufteil

     // Prioritäts-Vorschau-Tage ermitteln (Allg.Param)
     nPrioDays := 0,
     DbRefresh(dabpar),
     if not Empty(DabPar:PRIOR_TAGE) then
        nPrioDays := Eval( "| Dab010 | " + DabPar:PRIOR_TAGE, oDab010 ),
     endif,

     // Filter auf Dab055 setzten auf Auftr.Pos. nur mit
     // - jeweils bis oder ohne Prioritäts-Vorschau-Tage
     // - Priotitäts-Menge grö&szlig;er 0
     // - Priorität grö&szlig;er Prio. der aktuellen Pos.
     // - nur aktuelles Lager berücksichtigen
     //   (===> Abweichung von BE-Standard-Logik <===)
     if nPrioDays > 0 then
        oCalc055.Filter := 'artnr<>"' + oDab055:ARTNR + '" .or. ('
           + 'TERM_INDEX <= "' +
             FormatDateTime( 'yyyymmdd', mBDatum + nPrioDays ) + '" '
           + ' .and. PMENGE >0 '
           + ' .and. PRIORI > "' + oDab055:PRIORI + '") '
           + ' .and. LAGER = ' + Str(oDab055:LAGER),
     else
        oCalc055.Filter := 'artnr<>"' + oDab055:ARTNR + '" .or. ('
           + 'PMENGE >0 '
           + ' .and. PRIORI > "' + oDab055:PRIORI + '") '
           + ' .and. LAGER = ' + Str(oDab055:LAGER),
     endif,
     // Filter aktivieren
     oCalc055.Filtered := True,
     // oCalc055 auf aktuellen Artikel filtern
     DBScope( oDab055:ARTNR, oDab055:ARTNR, oCalc055 ),
     DBGotop( oCalc055 ),
     // offene Mengen mit höherer Priorität kumulieren
     nPMenge := 0,
     while not Eof(oCalc055) do
        nPMenge := nPMenge + max(min(oCalc055:PMENGE, oCalc055:BMENGE</p>
<ul class="alternate">
	<li>oCalc055:VMENGE - oCalc055:LMENGE ), 0),
        DbSkip( 1, oCalc055 ),
     end,
     // Kum.Prio.Mengen von Lagerbestand subtrahieren
     nVMenge := Lager( Str(oDab055:LAGER), oDab010 ),
     nVMenge := nVMenge - nPMenge,
     // Bereits freigegebene Menge wieder addieren
     nVMenge := Min( oDab055:BMENGE, nVMenge + oOld055:VMENGE ),

     oCalc055.Filtered := False,
     DBScope( , , oCalc055 ),

  endif,
onerror
  MessageDlg( 'Event : '+ 'Events\Kd.Auftr.Pos. VMengen-Kalk.' + crlf +
              'Fehler: '+ GetErrorText() + crlf +
              'Zeile : '+ Str(GetErrorLine()) + crlf +
              'Info  : '+ Classname(GetErrorObj()), mtError, mbOK, 0 ),
stopseq,

// =============================================================================
// Ende Hauptprogramm
// =============================================================================

// Rückgabe der (ggf. neuen) Vorgabe/Verfügbarkeit
nVMenge

// =============================================================================
// Ende
// =============================================================================