Event "bei Weiterverarbeitung Belegarchiv"

| nEvtNo:P1, oDab700:P2, cDocNo:P3, nDocType:P4, a |
//################################################################################
// Event wird bei jeder Weiterverarbeitung des Belegs aus dem Belegarchiv.
//
// oDab700  - die Positionierte Dab700.
// cDocNo   - die Belegnummer des ausgewählten Belegs.
// nDocType - der Belegtyp des ausgewählten Belegs.
// ACHTUNG bei der Anpassung der Werte oder beim Navigieren der oDab700 sind
// die Auswirkungen ggf. nicht überschaubar und könnten bestimmte Prozesse kaputt machen!
//################################################################################

//******************************************************************************
function AppendInfo(aText, aKey, aValue)
   Result := aText,

   if not Empty(Result) then
      Result += crlf,
   endif,
   Result += aKey,
   Result += '| ',
   case ValType(aValue)
      of 'C' :: Result += '(str) ''' + aValue + '''',
      of 'D' :: Result += '(dat) ' + DtoC(aValue),
      of 'L' :: Result += '(log) ' + iif(aValue, 'true', 'false'),
      of 'N' :: Result += '(int) ' + Str(aValue),
      of 'O' :: Result += '(obj) ' + iif(aValue = nil, 'nil', ClassName(aValue)),
      otherwise Result += '(unsupported data type)',
   endcase,
end,

if (nDocType = DT_RECH) and not Empty(oDab700) and (oDab700:PERSNR = 12345678) then
   SetBeParam('isStornoRechnung', ArrToStr({true})),
else
   SetBeParam('isStornoRechnung', ArrToStr({false})),
endif,

// Code für Rechnungslayout (variable Hintergrund) (Printmanager)
// |a, v, arr|
//
// v := false,
// a := GetBeParam('isStornoRechnung'),
// if not Empty(a) then
//    arr := StrToArr(a),
//    if ALen(arr) > 0 then
//       v := arr[1],
//    endif,
// endif,
//
// iif(v, 5, 1)  
a := '',
a := AppendInfo(a, 'oDab700  ' + Chr(9), oDab700),
a := AppendInfo(a, 'cDocNo   ' + Chr(9), cDocNo),
a := AppendInfo(a, 'nDocType ' + Chr(9), nDocType),
a := AppendInfo(a, 'isStorno  ' + Chr(9), GetBeParam('isStornoRechnung')),

Meld(a)