LEA Parameter zur Ermittlung der Kostenstelle auf Leistungen

In der Kostentypenfindung sind Einstellungen für die Leistungserfassung auf Vorgängen und für die Leistungserfassung ohne Vorgangsbezug vorhanden:

Für die Ermittlung des Kostenträgers wird als Erstes der Kostenträger laut Vorgang ermittelt.

Als Rückfallebene dient die Kostenträgernummer des Projekts, das auf der Leistung eingetragen worden ist:

In der fett dargestellten Zeile ist die Zahl des Kostentyps einzutragen. Welche Zahl für welchen Kostentyp verwendet wird, ist daneben ersichtlich.

// ==============================================
// Ersteller: BMD
// Eingerichtet von/am: BMD
// Beschreibung: 
// Ermittelt die Kostentypen der Leistung
//  anhand des jeweiligen Kostentyps des Vorgangs
// ==============================================

// =============================================
// EINSTELLUNG
// =============================================
const         
cKostentyp = 2; //1-Kostenstelle, 2-Kostenträger, 3-Abteilung, 4-Dimension, 5-Geschäftsbereich

// =============================================
// MAKRO-CODE
// =============================================
// Main ----------------------------------------------------------------------------------------

lKostentyp := '';
case (cKostentyp) of
    1: lKostentyp := 'PCK_KOSTENST_KOSTENSTAMMNR';
    2: lKostentyp := 'PCK_KOSTENTR_KOSTENSTAMMNR';
    3: lKostentyp := 'PCK_ABT_KOSTENSTAMMNR';
    4: lKostentyp := 'PCK_DIM_KOSTENSTAMMNR';
    5: lKostentyp := 'PCK_GBR_KOSTENSTAMMNR';
end;  
         
Result := ''; 
if (lKostentyp<>'') then begin
   
    lQuery := MacroObject.createMacroQuery('get_'+bmd_getGUID());
    lQuery.setSQLText(' SELECT '+lKostentyp+' as Kostentyp' +
                      ' FROM ZLE.LEI_LEISTUNG ' +
                      ' INNER JOIN PRODUKTION.PCK_PPS_KAPA ON PCK_PPSKAPAID = LEI_PPSKAPAID' +
                      ' WHERE LEI_LEISTUNGLFDNR = :lLfdnr');
    lQuery.setParamAsString('lLfdnr',BMD_LEISTUNG_LFDNR());
   
    lQuery.open();
   
    if(not lQuery.eof()) then begin
        Result := lQuery.getAsString('Kostentyp');
    end;
    lQuery.close();
    lQuery.free();
end;