Event "nach Befüllung der Versand-Adressfelder"

Event “nach Befüllung der Versand-Adressfelder”

Dieser Event wird aufgerufen nachdem die automatische Befüllung der Adressfelder durchgeführt wurde.

Der optionale Parameter aState:N liefert die Art mit der die automatische Befüllung durchgeführt wird.

Mithilfe der folgenden numerischen Konstanten kann die Art identifiziert werden:

bdffsDelivNoteNr - Nach Eingabe einer Lieferscheinnummer
bdffsOrderNr - Nach Eingabe einer Auftragsnummer
bdffsPersNr - Nach Eingabe einer Empfängernummer

Beispiel

CODE

| nEvtNo:P1, oDab750:P2, aState:P3 |
//################################################################################
// Event wird nach der automatischen Befüllungen der Adressfeldes im Versandkopfe ausgeführt.
// Die automatische Befüllung wird durch die Eingaben von einer
//    - Lieferscheinnummer
//    - Auftragsnummer
//    - Empfängernummer
// ausgelöst.
//
// oDab750  - die positionierte Dab750.
// aState:N - Optionaler Parameter der angibt welcher Befüllungszustand vorliegt:
//              (1): bdffsDelivNoteNr - Befüllung nach Eingabe der Lieferscheinnummer
//              (2): bdffsOrderNr     - Befüllung nach Eingabe der Auftragsnummer
//              (3): bdffsPersNr      - Befüllung nach Eingabe der Empfängernummer
//################################################################################

function SetDeliveryAdress(aName1:C, aName2:C, aStrasse:C, aPLZOrt:C),
   oDab750:NAME1    := aName1,
   oDab750:NAME2    := aName2,
   oDab750:STRASSE  := aStrasse,
   oDab750:PLZORT   := aPLZOrt,
end,

//################################################################################
// Hauptroutine
//################################################################################
startseq,
   case aState
      of bdffsDelivNoteNr:: SetDeliveryAdress('Huber', 'GmbH & Co.KG', 'Hauptstraße 1', '80331 München'),

      of bdffsOrderNr:: SetDeliveryAdress('Mayer', 'KG', 'Hauptstraße 2', '80331 München'),

      of bdffsPersNr:: SetDeliveryAdress('Müller', 'AG', 'Hauptstraße 3', '80331 München'),
   endcase,
stopseq,