/************************************************************
 *
 * Einlesen des Konzerns, der Firmen und Filiale
 * 
 ************************************************************/
    
        AdFirma  = DYNAMIC-FUNCTION('getADMandant':U) NO-ERROR.
        FBFirma  = DYNAMIC-FUNCTION('getFBMandant':U) NO-ERROR.
        Firma    = DYNAMIC-FUNCTION('getMandant'  :U) NO-ERROR.