Zu welchem Zeitpunkt wird die Kostentypenfindung für die Funktionsarten "Vorgang" (für Vorgänge, Einsätze etc.) bzw. "Vorgang-Mitarbeiter" (für Mitarbeiterzuordnung) ausgelöst.

0 - Nein: Die Kostentypenfindung wird bei dieser Einstellung nie ausgelöst.

1 - bei Neuanlage: Die Kostentypenfindung wird nur bei der Neuanlage ausgelöst.

2 - bei Neuanlage und bedingt bei Bearbeiten: Die Kostentypenfindung erfolgt bei Neuanlage und beim Bearbeiten des Datensatzes, wenn das Feld, von welchem der jeweilige Kostentyp ermittelt wird, abgeändert wird.

Für die Kostentypen-Felder am Vorgang und auf der Mitarbeiterzuordnung besteht auch die Möglichkeit, diese Werte zu übersteuern (siehe dazu Übersteuern von Feldern am Vorgang und MAZ). Sobald das jeweilige Kostentyp-Feld übersteuert worden ist, wird es bei Änderungen nicht mehr neu ermittelt!

Es gelten dabei folgende Einschränkungen:

Hier kann ein Makro hinterlegt werden, das bei der Neuanlage eines Einsatzes aus dem WWS Auftrag ausgeführt wird. Damit können Daten am angelegten Einsatz beeinflusst werden.

Beispiel-Makro: Dieses übernimmt bei Einsätzen, die nicht nach Aufwand verrechnet werden, die Information aus dem Feld "Anzahl" der Auftragsposition in das Feld "Soll-Durchführungszeit-Mitarbeiter".

//==============================================
// Ersteller : BMD              
// Eingerichtet von/am : BMD
// Beschreibung : Makroeinsprungspunkt bei Neuanlage eines Einsatzes aus dem WWS Auftrag.
//==============================================

lEinsatz :=  MacroObject.CreateMacroModel('TBMDMDPepEeAgMgr');

lVerrechnung := BMD_TEXTTONUMDEF(lEinsatz.GetValue('MCA_PCK_ISTVERRECHENBAR')); 

lErfFirmenNr := lEinsatz.GetValue('MCA_PCK_EFK_FIRMENNR');
lErfKz := lEinsatz.GetValue('MCA_PCK_EFK_ERFASSUNGSKZ');
lErfNr := lEinsatz.GetValue('MCA_PCK_EFK_ERFASSUNGSNR');
lErfPosLfdNr := lEinsatz.GetValue('MCA_PCK_ERP_ERFASSPOSLFDNR');    

if (lVerrechnung = 2) then begin            
    lQuery := MacroObject.FindMacroQuery('Abfrage');
    If not Assigned (lQuery) then lQuery := MacroObject.CreateMacroQuery('Abfrage');
   
    lSqlText := 'SELECT ERO_ANZAHL FROM WWS.ERO_ERFASSPOSORIG WHERE '+
    ' ERO_FIRMENNR = :FIRMA '+
    ' AND ERO_ERFASSUNGSKZ = :ERFKZ '+
    ' AND ERO_ERFASSUNGSNR = :ERFNR '+
    ' AND ERO_ERFASSPOSLFDNR = :ERFPOSLFDNR';
   
    lQuery.SetSQLText(lSqlText);
    lQuery.SetParamAsString('FIRMA', lErfFirmenNr);
    lQuery.SetParamAsString('ERFKZ', lErfKz);
    lQuery.SetParamAsString('ERFNR', lErfNr);
    lQuery.SetParamAsString('ERFPOSLFDNR', lErfPosLfdNr);
    lQuery.Open();                                    
   
    lEroAnzahl := lQuery.GetAsString('ERO_ANZAHL');
   
    if (lEroAnzahl > 0) then lEinsatz.SetValue('MCA_PCK_SOLL_MA_ZEIT', lEroAnzahl * 60 * 60); 
   
    lQuery.Close();
    lQuery.Free();                       
end;