Die Funktion kann sowohl in einer Formel als auch im Makro verwendet werden.

Zugrundeliegende Stakeholderinformationen:

Formeltext für Spalte "MAZ-Mitarbeiter #1":

Formeltext für Spalte "MAZ-Mitarbeiter #2":

// Es wird zuerst die Makrostringlist generiert und diese dann an die Aufroll-Funktion übergeben.

lList := MacroObject.CreateMacroStringList('VgIds');
lList.Add ('123456789012345');
lList.Add ('123456789012346');
Result := BMD_PEP_VG_LEA_AUFROLLEN (lList);

Definition der Benachrichtigung

Makro zum Auslösen der Benachrichtigung:

//==============================================
// Erstelldatum : 07.01.2020 08:26:23
// Ersteller : BMDWWS#1
// Eingerichtet von/am :
// Beschreibung : Aktionsmakro zur Funktion Neu (MCS_MDPPSDELAYBREAKDOWNMGR_NEW)

// im Fenster Betriebsmeldungen (MCS_MDPPSDELAYBREAKDOWNMGR_CREATE)
//==============================================

// IDs der Benachrichtigungen:
//1379238786000100550
//1379251302000100520  

lVobs := '1379238786000100550, 1379251302000100520';

lMeldung := MacroObject.CreateMacroModel('1');  //CreateMacroModel
lVgId := lMeldung.GetValue('MCA_IDP_PPSKAPAID');                          

if lVgId <> '' then begin
    BMD_PEP_FIRE_VOB(lVgId, lVobs, 'Es wurde eine Betriebsmeldung erfasst.', 'bmd@bmd.at', 0)
end;                      

Hier der E-Mail-Vorschlag für den Versand an die zusätzlich definierte E-Mail-Adresse.

// Anmerkung: Es können mehrere Benachrichtigungen wie folgt ausgelöst werden:

lVobs := '1379238786000100550, 1379251302000100520';

In Makro-Auslöser kann z. B. die Bedingung ermittelt werden:

Für die erfüllte Bedingung kann dann ein bestimmtes Makro-Event ausgelöst werden.

Makro für Makro-Auslöser:

Wenn die Bedingung lt. Makro-Auslöser zutrifft, soll eine Aufgabe für den Ersteller des Produktionsloses mit Info bezüglich des Auftrages angelegt werden, dass diese Information an den Kunden weitergegeben werden kann.

Result := true;              
                       
    lFirmenNr :=  MCA_PCK_FIRMENNR; 
    lPLos :=  MCA_PCK_PCHARGENID;
    lErfassNr :=  MCV_VPP_WWSERF_NR;
    lErstellUser := MCA_PCK_ERSTELLUSER;
    lSEnde := MCA_PCK_SOLL_ENDE;
     
    lQuery := MacroObject.CreateMacroQuery('auf');
    lQuery.setSQLText('select VPP_WWSERF_KZ, VPP_PCHARGE, VPP_WWSERF_NR, VPP_WWSERFPOS_KOMTERMIN from PRODUKTION.VPP_VIEW_PLC_PPS_CHARGE where VPP_PCHARGENID = :VPP_PCHARGENID');
    lQuery.setParamAsString('VPP_PCHARGENID',lPLos);
    lQuery.Open();
    lErfKz := lQuery.getAsString('VPP_PCHARGE');
    lPLosNr := lQuery.getAsString('VPP_WWSERF_NR');
    lErfNr := lQuery.getAsString('VPP_WWSERF_NR');
    lKomTermin := lQuery.getAsString('VPP_WWSERFPOS_KOMTERMIN');
    lQuery.Close();     
                    
    //Mitarbeiterermittlung
    lQuery := MacroObject.CreateMAcroQuery('get');
    lQuery.setSQLText('SELECT MIT_FIRMENNR, MIT_MITARBEITERID FROM BUERO.MIT_MITARBEITER WHERE MIT_BMDUSERID = :lErstellUser ');
    lQuery.setParamAsString('lErstellUser',lErstellUser);
    lQuery.Open();
    lMitFirmenNr := lQuery.getAsString('MIT_FIRMENNR');
    lMitId := lQuery.getAsString('MIT_MITARBEITERID');
    lQuery.Close();
                       
    // Aufgabe anlegen                      
    BMD_Task := CRMMacroObject.CreateTaskMgr('Auftrag');  //CreateTaskMgr               
    BMD_Task.New();  //New                                                            
    BMD_Task.SetCaption('Lieferterminänderung!');  //SetCaption
    BMD_Task.SetEmployee(lMitFirmenNr,lMitId);  //SetEmployee
    lTxt :=  'Bei folgendem Auftrag gibt es eine Lieferterminverschiebung '+lErfNr+'
    Neuer Liefertermin lt. Produktion: (Kommissionstermin): '+lSEnde+'.
    Alter Liefertermin lt. Produktion (Kommissionstermin): '+lKomTermin+'
    Bitte Kommissionstermin am Kundenauftrag anpassen und AB neu drucken!';
    BMD_Task.SetText(lTxt);  //SetText                
    BMD_Task.Save();  //Save

Übergabe folgender Parameter an die Formelfunktion, welche im Fenster "Einsätze" hinterlegt ist:

Anmerkung: Da die Soll-Durchführungszeit-Mitarbeiter in Sekunden übergeben wird, muss der Rückgabewert durch 3600 dividiert werden, um die Dauer in Stunden (Industrieformat) zu erhalten.

Für die Übergabe dieser Formel kann unter anderem auch folgende Formelfunktion interessant sein:

Die Formel, die dafür verwendet wird, sieht folgendermaßen aus:

Das Beispiel zeigt, wie für das Einstiegsfeld "KW" das Startdatum der ausgewerteten Kalenderwoche ermittelt werden kann.

Die Formelfunktion kann unter anderem dazu verwendet werden, im Reiter "MAZ-Matrix" die verfügbaren, geplanten sowie freien Kapazitäten eines Mitarbeiters darzustellen.

Anmerkung: Um die freien Kapazitäten darzustellen, können die Ergebnisse der beiden Formeln in einer Formel subtrahiert werden: verfügbar minus geplant

Die 43,16 geplanten Stunden für Mitarbeiter "Jansen" im Oktober ermitteln sich wie folgt:

3 + 20 + 10,16 = 43,16 Stunden

Die verfügbaren Stunden werden lt. Parameter von der Soll-Arbeitszeit ermittelt:

// ==============================================
// Erstelldatum : 25.02.2022
// Ersteller : BMDWWS#1
// Beschreibung : Fenstermakro im Fenster Projektliste (MCS_FRMPROJEKT_CREATE)
// ==============================================
                                          
lZielProFirmenNr  := '1';
lZielProjektNr    := '8';
lZielProjekttyp   := '1';                                          
lQuellProFirmenNr := '1';
lQuellProjektNr   := '900000';
lKopiermodus      := '5';

// Kopiermodus
//  2 ... Von Projektvorlage
//  3 ... Von Vorgängerprojekt
//  4 ... Von anderem Projekt
//  5 ... Von anderer Vorlage   
                              
lParams :=  'STP_PRO_COMPANYNO='        + lZielProFirmenNr     + ',' +
            'STP_PRO_PROJECTNO='        + lZielProjektNr       + ',' +
            'STP_PRO_PROJECTTYPE='      + lZielProjekttyp      + ',' +
            'STP_PRO_BASECOMPANYNO='    + lQuellProFirmenNr    + ',' +
            'STP_PRO_BASEPROJECTNO='    + lQuellProjektNr      + ',' +
            'PEP_DC_PROJEKT_COPY_MODE=' + lKopiermodus; // 5 dcpmVonAndererVorlage

BMD_STARTFUNCTION('MCS_PEP_DEEPCOPY_PROJEKT_ADDONS_SC', lParams);  

Es wurde die Scorecard von der Vorlage auf das Projekt 8 übernommen:

Firmennummer des Zielprojekts

Fixer Wert "VORLAGE"

Steuert, ob das Dialogfenster zur Projektplanübernahme geöffnet werden soll.

Wert 0 ... Das Dialogfenster wird geöffnet. Es wird vorbelegt, von welchem Projekt der Projektplan übernommen werden soll.

Wert 1 ... Das Dialogfenster wird nicht geöffnet.

APA_NEU_MAKRO

MIT_TRANSAKTION

Fixer Wert 1

APA_SOLL_START

Übergibt den Soll-Start für das Zielprojekt.

PRO_VORLAGE_PROJEKTID

Projekt-Id des Quellprojekts (von dem der Projektplan kopiert werden soll)

// ==============================================
// Erstelldatum : 25.02.2022
// Ersteller : BMDWWS#1
// Beschreibung : Fenstermakro im Fenster Projektliste (MCS_FRMPROJEKT_CREATE)
// ==============================================
                  
lZielProjektId   := BMD_GETDBVALUE('MCA_PRO_PROJEKTID');
lZielProFirmenNr := BMD_GETDBVALUE('MCA_PRO_FIRMENNR');                  
lStartdatum      := BMD_DATE()
lQuellProjektId  := '482452889280161'; // Id der Projekt-Vorlage

lParams := 'PRO_PROJEKTID='         + lZielProjektId + ',' +
           'APA_FIRMENNR='          + lZielProFirmenNr + ',' +
           'PPLAN_VON=VORLAGE,' + 
           'OHNE_DIALOG=1,' +            
           'APA_NEU_MAKRO=1,' +                    
           'MIT_TRANSAKTION=1,' +           
           'APA_SOLL_START='        + lStartdatum + ',' +
           'PRO_VORLAGE_PROJEKTID=' + lQuellProjektId;
          
BMD_STARTFUNCTION('MCS_MDPEPPRJAPMGR_DEEPCOPY', lParams);  

Auf das Projekt 100 wird der Projektplan von der Vorlage kopiert.

Für den folgenden Einsatz wird die Funktion "Einlasten" aufgerufen:

Ergebnis in der Zwischenablage:

"DispatchFunction=pdfPlc;DispatchMode=5;DispatchDateType=pddNone;DispatchDate=44986;DispatchDateRev=-1;

SingleVgElTyp=-1;DispatchRelative=pdrNone;ApplyOn=1;ConcatDate=False;Manual=False;DispatchCombined=False;

ResetOverride=True;DispatchUnplaned=False;DispatchDateRel=0;DispatchDateRevRel=0;DispatchPpc=True;

DispatchOp=True;SaveToExpected=False;ResetFixed=False;DispatchActive=True"

Im Fenster "Einsätze" wurde dann dieses Fenstermakro erstellt, das dann im Anschluss für den ausgewählten Einsatz ausgeführt wird.

lEinsatz := MacroObject.CreateMacroModel('TBMDMDPepEeAgMgr');
lVgId := lEinsatz.GetValue('MCA_PCK_PPSKAPAID');

lParams := BMD_CONCAT('PCK_PPSKAPAID=', lVgId);
BMD_STARTFUNCTION('MCS_FRMPEPSHOWALLGAP', lParams);

bzw.

lParams := BMD_CONCAT('STP_SHOWMODAL=1,PCK_PPSKAPAID=', lVgId);
BMD_STARTFUNCTION('MCS_FRMPEPSHOWALLGAG', lParams);  // die Übergabe, ob das Fenster modal gestartet werden soll wird berücksichtigt.

Modal geöffnetes Fenster: