GeMIS_WEB/GUI/w-haupt.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI ADM2
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME wHauptmenu
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS wHauptmenu 
/*------------------------------------------------------------------------

  File: 

  Description: from cntnrwin.w - ADM SmartWindow Template

  Input Parameters:
      <none>

  Output Parameters:
      <none>

  History: New V9 Version - January 15, 1998
          
------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AB.              */
/*----------------------------------------------------------------------*/

/* Create an unnamed pool to store all the widgets created 
     by this procedure. This is a good default which assures
     that this procedure's triggers and internal procedures 
     will execute in this procedure's storage, and that proper
     cleanup will occur on deletion of the procedure. */

CREATE WIDGET-POOL.

/* ***************************  Definitions  ************************** */

/* Parameters Definitions ---                                           */

/* Local Variable Definitions ---                                       */

DEFINE VARIABLE NodeName       AS CHARACTER NO-UNDO.
DEFINE VARIABLE NodeIndex      AS INTEGER   NO-UNDO.
DEFINE VARIABLE AnzProg        AS INTEGER   NO-UNDO.
DEFINE VARIABLE hMenu          AS HANDLE    NO-UNDO.
DEFINE VARIABLE FErst          AS LOG       INIT TRUE NO-UNDO.
DEFINE VARIABLE EscFlag        AS LOG       INIT FALSE NO-UNDO.
DEFINE VARIABLE EndFlag        AS LOG       INIT TRUE NO-UNDO.
DEFINE VARIABLE cSysUser       AS CHARACTER NO-UNDO.
DEFINE VARIABLE GlobKon        AS CHARACTER INIT '9999' NO-UNDO.
DEFINE VARIABLE GlobFir        AS CHARACTER INIT '1000' NO-UNDO.
DEFINE VARIABLE GlobFil        AS CHARACTER INIT '0000' NO-UNDO.
DEFINE VARIABLE cBenutzerDaten AS CHARACTER NO-UNDO.
DEFINE VARIABLE cBenutzer      AS CHARACTER NO-UNDO.
DEFINE VARIABLE cInstallation  AS CHARACTER NO-UNDO.
DEFINE VARIABLE iBenuSprcd     AS INTEGER   NO-UNDO.

{ incl/maindef.i }

DEFINE TEMP-TABLE tMenu
    FIELD Nummer AS INTEGER
    FIELD cMenu  AS CHARACTER
    FIELD hMenu  AS HANDLE

    INDEX tMenu-k1 AS PRIMARY
    Nummer
    INDEX tMenu-k2
    cMenu
    .

DEFINE TEMP-TABLE tMenuProg NO-UNDO
    FIELD cMenu AS CHARACTER
    FIELD cProg AS CHARACTER
    FIELD cName AS CHARACTER
    FIELD Typ   AS CHARACTER
    FIELD hMenu AS HANDLE

    INDEX tMenuProg-k1 AS PRIMARY
    cMenu
    .

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE SmartWindow
&Scoped-define DB-AWARE no

&Scoped-define ADM-CONTAINER WINDOW

&Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source

/* Name of designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME fMain

/* Standard List Definitions                                            */
&Scoped-Define ENABLED-OBJECTS Btn_Inventar Btn_Adresse Btn_Artikel ~
Btn_Auftrag Btn_Lager Btn_Bestell Btn_Abhol Btn_Debitoren Btn_Aussendienst ~
Btn_Scand IMAGE-1 RECT-4 

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */

/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME


/* ************************  Function Prototypes ********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setAuditUser wHauptmenu 
FUNCTION setAuditUser RETURNS LOGICAL
    ( ipcUser AS CHARACTER ) FORWARD.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


/* ***********************  Control Definitions  ********************** */

/* Define the widget handle for the window                              */
DEFINE VAR wHauptmenu AS WIDGET-HANDLE NO-UNDO.

/* Menu Definitions                                                     */
DEFINE SUB-MENU m_Anwendungen 
    MENU-ITEM m_Adressen     LABEL "&Adressen"     
    MENU-ITEM m_Artikel      LABEL "Ar&tikel"      
    MENU-ITEM m_w-auftrag    LABEL "Auftra&g"      
    MENU-ITEM m_Lagerbuchungen LABEL "Lagerbuchungen"
    MENU-ITEM m_Bestellwesen LABEL "Bestellwesen"  
    MENU-ITEM m_Abholverkauf LABEL "Ab&holverkauf" 
    MENU-ITEM m_Debitoren2   LABEL "&Debitoren"    
    MENU-ITEM m_Aussendienst2 LABEL "Aussendiens&t" .

DEFINE SUB-MENU m_Adressen2 
    MENU-ITEM m_Kontaktformular_Rauch LABEL "Kontaktformular (Rauch)".

DEFINE SUB-MENU m_Debitoren 
    MENU-ITEM m_Verbandsabrechnung LABEL "Verbandsabrechnung"
    MENU-ITEM m_Vertreter-Provisionsabrechn LABEL "Vertreter-Provisionsabrechnung"
    MENU-ITEM m_Kreditlimiten LABEL "Kreditlimiten" .

DEFINE SUB-MENU m_Kunden 
    MENU-ITEM m_EtikettenListe LABEL "&Etiketten/Liste"
    MENU-ITEM m_Bonusabrechnung LABEL "Bonusabrechnung"
    MENU-ITEM m_Skontoabrechnung LABEL "Skontoabrechnung"
    MENU-ITEM m_Gebindekontrolle LABEL "Gebindekontrolle"
    MENU-ITEM m_Kundenumstze LABEL "Kundenumsätze" 
    MENU-ITEM m_Kundenumstze_alle_Mandaten LABEL "Kundenumsätze (alle Mandaten)"
    MENU-ITEM m_Kunden-Detail-Umstze LABEL "Kunden-Detail-Umsätze"
    MENU-ITEM m_Kundengruppenumstze LABEL "Kundengruppenumsätze"
    MENU-ITEM m_Verkauf_Alkoholika_gebrannt LABEL "Verkauf Alkoholika (gebrannte Wasser)"
    MENU-ITEM m_Calanda-Verkaufszahlen LABEL "Calanda-Verkaufszahlen"
    MENU-ITEM m_Hersteller_Rckvergtungen LABEL "Hersteller Rückvergütungen"
    MENU-ITEM m_Kanalabrechnung LABEL "Kanalabrechnung".

DEFINE SUB-MENU m_Artikel2 
    MENU-ITEM m_Aktionsliste LABEL "Aktionsliste"  
    MENU-ITEM m_Aktionen_nach_Kundengruppen LABEL "Aktionen nach Kundengruppen (Rauch)"
    MENU-ITEM m_Artikel-Karte LABEL "Artikel-Karte" 
    MENU-ITEM m_Bestellvoschlag LABEL "Bestellvoschlag"
    MENU-ITEM m_g-excel-preisliste LABEL "EXCEL-Preisliste aktualisieren"
    MENU-ITEM m_Gratislieferungen LABEL "&Gratislieferungen"
    MENU-ITEM m_Inventar-Bestandes-Listen LABEL "Inventar-/Bestandes-Listen"
    MENU-ITEM m_Lagerhueter  LABEL "Lagerhüter"    
    MENU-ITEM m_Mutationsliste LABEL "Mutationsliste"
    MENU-ITEM m_Preisliste   LABEL "&Preisliste (alle Preise) eines Herstellers"
    MENU-ITEM m_Preisliste_fr_Kunde LABEL "Preisliste für Kunde"
    MENU-ITEM m_Preislisten-Interface_HOGAL LABEL "Preislisten-Interface HOGALOG"
    MENU-ITEM m_PreislistePreisgruppe LABEL "Preisliste/Preisgruppe"
    MENU-ITEM m_w-Sortimentspreisliste LABEL "Preisliste Sortiment"
    MENU-ITEM m_Umsatzzahlen LABEL "Umsatzzahlen"  
    MENU-ITEM m_Umsatzzahlen_ProdGruppen LABEL "Umsatzzahlen ProdGruppen"
    MENU-ITEM m_Verkaufszahlen LABEL "Verkaufszahlen pro Kunde"
    MENU-ITEM m_WeinpreislistePreisgruppe LABEL "Weinpreisliste/Preisgruppe"
    MENU-ITEM m_Weinhaldelskontrollkommissi LABEL "Weinhandelskontrollkommission"
    MENU-ITEM m_Eindg_Alkoholverwaltung LABEL "Eidg. Alkoholverwaltung"
    MENU-ITEM m_Artikel-Lagerort LABEL "Artikel-Lagerort"
    MENU-ITEM m_Artikel_-_Analyse LABEL "Artikel - Analyse"
    MENU-ITEM m_Artikeletiketten LABEL "Artikeletiketten".

DEFINE SUB-MENU m_Auftrag2 
    MENU-ITEM m_Auftragsdokumente_drucken LABEL "Auftragsdokumente drucken"
    MENU-ITEM m_Auftragsstatistik LABEL "Auftragsstatistik"
    MENU-ITEM m_Formular_LaTorre LABEL "Formular (LaTorre)".

DEFINE SUB-MENU m_Bestellungen 
    MENU-ITEM m_Lieferungen  LABEL "Lieferungen"   
    MENU-ITEM m_Lieferantenumstze LABEL "Lieferantenumsätze"
    MENU-ITEM m_Lagereingangsliste LABEL "Lagereingangsliste".

DEFINE SUB-MENU m_Auswertungen 
    SUB-MENU  m_Adressen2    LABEL "&Adressen"     
    SUB-MENU  m_Debitoren    LABEL "&Debitoren"    
    SUB-MENU  m_Kunden       LABEL "&Kunden"       
    SUB-MENU  m_Artikel2     LABEL "Arti&kel"      
    SUB-MENU  m_Auftrag2     LABEL "Auftrag"       
    SUB-MENU  m_Bestellungen LABEL "Bestellungen"  
    MENU-ITEM m_Umsatzstatistik LABEL "Umsatzstatistik".

DEFINE SUB-MENU m_Adresstabellen 
    MENU-ITEM m_Adressarten  LABEL "&Adressarten"  .

DEFINE SUB-MENU m_Allgemeine_Tabellen 
    MENU-ITEM m_Anreden      LABEL "&Anreden"      
    MENU-ITEM m_Bankenstamm  LABEL "Bankenstamm"   
    MENU-ITEM m_Landtabelle  LABEL "Landtabelle"   
    MENU-ITEM m_Orte_Tabelle LABEL "Orte Tabelle"  
    MENU-ITEM m_Mehrwertsteuerkombinationen LABEL "Mehrwertsteuerkombinationen"
    MENU-ITEM m_Mehrwertsteueranstze LABEL "Mehrwertsteueransätze"
    MENU-ITEM m_Sprachen     LABEL "&Sprachen"     
    MENU-ITEM m_Whrungen     LABEL "Währungen"     
    MENU-ITEM w-Kalender     LABEL "Kalender"      
    MENU-ITEM m_ordner-index LABEL "Ordnerindex"   
    MENU-ITEM m_w-HogaShop-Gruppen LABEL "HogaShop-Gruppen"
    MENU-ITEM m_w-HogaShop-Kunden LABEL "HogaShop-Kunden"
    MENU-ITEM m_Export_Daten_fr_HOGA-Shop LABEL "HogaShop-EXPORT"
    MENU-ITEM m_w-waehrung   LABEL "Fremdwährungen".

DEFINE SUB-MENU m_Debitortabellen 
    MENU-ITEM m_ABC-Gruppen  LABEL "&ABC-Gruppen"  
    MENU-ITEM m_Abladevorschriften LABEL "Ablade&vorschriften"
    MENU-ITEM m_Avisierung   LABEL "A&visierung"   
    MENU-ITEM m_BESR-Arten-Banken LABEL "BESR-Arten/-Banken"
    MENU-ITEM m_Biergruppen  LABEL "B&iergruppen"  
    MENU-ITEM m_Bonusgruppen2 LABEL "&Bonusgruppen" 
    MENU-ITEM m_Fakturarten  LABEL "&Fakturarten"  
    MENU-ITEM m_w-fahrer     LABEL "Fah&rer"       
    MENU-ITEM m_Kundengruppen LABEL "&Kundengruppen"
    MENU-ITEM m_Lieferbedingungen LABEL "&Lieferbedingungen"
    MENU-ITEM m_Mehrwertsteuer LABEL "&Mehrwertsteuer"
    MENU-ITEM m_Preisgruppen LABEL "&Preisgruppen" 
    MENU-ITEM m_Rabattgruppen2 LABEL "&Rabattgruppen"
    MENU-ITEM m_Tourenplne   LABEL "&Tourenpläne"  
    MENU-ITEM m_Verbandsgruppen LABEL "Verbandsgruppen"
    MENU-ITEM m_Vertreter    LABEL "&Vertreter"    
    MENU-ITEM m_Wirtesonntage LABEL "&Wirtesonntage"
    MENU-ITEM m_Zahlungskonditionen LABEL "Zahlungskonditionen"
    MENU-ITEM m_w-mahntexte  LABEL "Mahntexte VIPER".

DEFINE SUB-MENU m_Artikeltabellen 
    MENU-ITEM m_Gebindekonti LABEL "Gebindek&onti" 
    MENU-ITEM m_Kleingebinde LABEL "&Kleingebinde" 
    MENU-ITEM m_Verkaufsgebinde LABEL "&Verkaufsgebinde"
    MENU-ITEM m_Grossgebinde LABEL "&Grossgebinde" 
    MENU-ITEM m_Warengruppen LABEL "&Waren-,Produkte-,Artikelgruppen"
    MENU-ITEM m_rabattgruppen LABEL "&Rabattgruppen"
    MENU-ITEM m_Bonusgruppen LABEL "&Bonusgruppen" 
    MENU-ITEM m_Farben       LABEL "&Farben"       
    MENU-ITEM m_Trauben      LABEL "&Trauben"      
    MENU-ITEM m_Regionen     LABEL "&Regionen"     
    MENU-ITEM m_Hersteller   LABEL "&Hersteller"   
    MENU-ITEM m_Umsatzgruppen LABEL "&Umsatzgruppen"
    MENU-ITEM m_Mehrwertsteuer2 LABEL "&Mehrwertsteuer"
    MENU-ITEM m_Eidg_Weinhandelskommission LABEL "Eidg. Weinhandelskommission"
    MENU-ITEM m_Eidg_Alkoholverwaltung LABEL "Eidg. Alkoholverwaltung"
    MENU-ITEM m_w-shopfeld   LABEL "eShop - Felder"
    MENU-ITEM m_Bilder_den_Artikeln_zuordne LABEL "Bilder den Artikeln zuordnen"
    MENU-ITEM m_Weinstyle    LABEL "Weinstyle"     
    MENU-ITEM m_Ersatzartikel LABEL "Ersatzartikel" .

DEFINE SUB-MENU m_Auftragstabellen 
    MENU-ITEM m_Rabatt-Summengruppen LABEL "Rabatt-/Summengruppen"
    MENU-ITEM m_Gebinderuecknahmetexte LABEL "Gebinderücknahmetexte"
    MENU-ITEM m_Gebinde-Rcknahme-Tabelle LABEL "Gebinde-Rücknahme-Tabelle"
    MENU-ITEM m_LKW          LABEL "LKW"           
    MENU-ITEM m_FahrerFahrzeug LABEL "Fahrer/Fahrzeug"
    MENU-ITEM m_Beifahrer    LABEL "Beifahrer"     
    MENU-ITEM m_Lieferart    LABEL "Lieferart"     
    MENU-ITEM m_Ihre_Bestellung LABEL "Ihre Bestellung"
    MENU-ITEM m_Zahlungsarten LABEL "Zahlungsarten" 
    MENU-ITEM m_AuftragstextSchlusstexte LABEL "Auftragstext(Schlusstexte)"
    MENU-ITEM m_Bonus-Summengruppen LABEL "Bonus-/Summengruppen"
    MENU-ITEM m_Provisions-Summengruppen LABEL "Provisions-/Summengruppen"
    MENU-ITEM m_Auftragstatus LABEL "Auftragstatus" 
    MENU-ITEM m_Dokumentverlauf LABEL "Dokumentverlauf".

DEFINE SUB-MENU m_Preise 
    MENU-ITEM m_AktionenAktionspreise LABEL "Aktionen/Aktionspreise"
    MENU-ITEM m_Preise_Reorganisieren LABEL "Preise Reorganisieren"
    MENU-ITEM m_Preismutationen_Linear LABEL "Preismutationen (Linear)"
    MENU-ITEM m_g-preismutepmarge LABEL "Preismutationen EP/Marge"
    MENU-ITEM m_Spezialpreise_mutieren_line LABEL "Spezialpreise mutieren (linear)".

DEFINE SUB-MENU m_Lagertabellen 
    MENU-ITEM m_Transaktionsarten LABEL "Transaktionsarten"
    MENU-ITEM m_LagerortStrichcode LABEL "Lagerort/Strichcode"
    MENU-ITEM m_Lager        LABEL "Lager"         
    MENU-ITEM w-lagerarten   LABEL "Lagerarten"    
    MENU-ITEM w-horelager    LABEL "Lagerverwaltung".

DEFINE SUB-MENU m_Bestelltabellen 
    MENU-ITEM m_Bestellstatus LABEL "Bestellstatus" .

DEFINE SUB-MENU m_Aussendienst 
    MENU-ITEM m_Besuchsarten LABEL "Besuchsarten"  
    MENU-ITEM m_Spesenarten  LABEL "Spesenarten"   .

DEFINE SUB-MENU m_Tabellen 
    SUB-MENU  m_Adresstabellen LABEL "&Adresstabellen"
    SUB-MENU  m_Allgemeine_Tabellen LABEL "A&llgemeine Tabellen"
    SUB-MENU  m_Debitortabellen LABEL "&Debitortabellen"
    SUB-MENU  m_Artikeltabellen LABEL "&Artikeltabellen"
    SUB-MENU  m_Auftragstabellen LABEL "Auftra&gstabellen"
    SUB-MENU  m_Preise       LABEL "Preise"        
    SUB-MENU  m_Lagertabellen LABEL "&Lagertabellen"
    SUB-MENU  m_Bestelltabellen LABEL "&Bestelltabellen"
    SUB-MENU  m_Aussendienst LABEL "Aussendienst"  .

DEFINE SUB-MENU m_Aktionenverwaltung 
    MENU-ITEM m_Aktionen     LABEL "Akti&onen pflegen".

DEFINE SUB-MENU m_ExportImport_von_Auftrgen 
    MENU-ITEM m_Export_Auftrge LABEL "Export Aufträge".

DEFINE SUB-MENU m_Verwaltung 
    MENU-ITEM m_Listentexte  LABEL "Listentexte"   
    MENU-ITEM m_Formulartexte LABEL "Formulartexte" 
    MENU-ITEM m_Druckertypen LABEL "Druckertypen"  
    MENU-ITEM m_Drucker_den_Dokumenten_zuor LABEL "Drucker den Dokumenten zuordnen"
    MENU-ITEM m_Drucker_umbenennen LABEL "Drucker umbenennen"
    MENU-ITEM w-drucker-schriften LABEL "Druckerverwaltung neu"
    MENU-ITEM m_VIPER_Druckersteuerung LABEL "VIPER Druckersteuerung"
    SUB-MENU  m_Aktionenverwaltung LABEL "Aktionenverwaltung"
    MENU-ITEM m_Lagerbestnde_rechnen LABEL "Lagerbestände rechnen"
    MENU-ITEM m_InstallierenKorrigieren LABEL "&Installieren/Korrigieren"
    SUB-MENU  m_ExportImport_von_Auftrgen LABEL "Export/Import von Aufträgen"
    MENU-ITEM m_SESAM-FIBU-Interface LABEL "SESAM-FIBU-Interface"
    MENU-ITEM m_BESR-ArtenEinzahlungsschein LABEL "BESR-Arten/Einzahlungsscheine"
    MENU-ITEM m_Selektionsfelder LABEL "Selektionsfelder"
    MENU-ITEM m_Export_XML-CoCa LABEL "Export XML-Datei für Coca Cola"
    MENU-ITEM m_Export_eShop_realwines LABEL "Export eShop realwines"
        DISABLED
    MENU-ITEM m_w-translate  LABEL "Labeltexte"    .

DEFINE SUB-MENU m_Mandantenverwaltung 
    MENU-ITEM m_Mandanten    LABEL "&Mandanten"    
    MENU-ITEM m_Mandanten-Daten LABEL "Mandanten-&Daten"
    MENU-ITEM m_NummernKontiFIBU LABEL "Nummern/Konti(FIBU)"
    MENU-ITEM m_Fehlwerte_fr_Mandanten LABEL "Fehlwerte für Mandanten"
    MENU-ITEM m_w-ruestart   LABEL "Rüstarten"     
    MENU-ITEM m_Kontrolle_Rster LABEL "Kontrolle Rüster".

DEFINE SUB-MENU m_BenutzerPassworte 
    MENU-ITEM m_w-benutzer   LABEL "Benutzerverwaltung"
    MENU-ITEM m_Benutzerdaten_kopieren LABEL "Benutzerdaten kopieren".

DEFINE SUB-MENU m_Fehlwerte 
    MENU-ITEM m_FwAllgemein  LABEL "Allgemeine Fehlwerte"
    MENU-ITEM m_FwAdressen   LABEL "&Adressen"     
    MENU-ITEM m_FwDebitor    LABEL "&Debitor"      
    MENU-ITEM m_FwAuftrag    LABEL "Auftrag"       
    MENU-ITEM m_FwAbholverkauf LABEL "Abholverkauf"  
    MENU-ITEM m_Fehlwerteverwaltung LABEL "Fehlwerteverwaltung".

DEFINE SUB-MENU m_Reorganisationen 
    MENU-ITEM m_Reorg_gelschte_Artikel LABEL "Reorg gelöschte Artikel"
    MENU-ITEM m_Reorg_gelschte_Kunden LABEL "Reorg gelöschte Kunden"
    MENU-ITEM m_Reorg_gelschte_Preise LABEL "Reorg gelöschte Preise"
    MENU-ITEM m_automatisches_Ruesten LABEL "automatisches Rüsten".

DEFINE SUB-MENU m_DigitalDrink 
    MENU-ITEM m_Abgleich_Artikelstammdaten LABEL "Abgleich Artikelstammdaten"
    MENU-ITEM m_g-ddumsaetze LABEL "Absatzzahlen"  
    MENU-ITEM m_w-DDAktionen LABEL "DD-Aktionen"   
    MENU-ITEM m_w-DDKampanie LABEL "Kampanien"     .

DEFINE SUB-MENU m_Administration 
    MENU-ITEM m_MeldungenFragen LABEL "&Meldungen/Fragen"
    SUB-MENU  m_Verwaltung   LABEL "Verwaltung"    
    SUB-MENU  m_Mandantenverwaltung LABEL "Mandantenverwaltung"
    SUB-MENU  m_BenutzerPassworte LABEL "Benutzer/Passworte"
    SUB-MENU  m_Fehlwerte    LABEL "&Fehlwerte"    
    SUB-MENU  m_Reorganisationen LABEL "Reorganisationen"
    MENU-ITEM m_Ruestkontrolle LABEL "Rüstkontrolle" 
    SUB-MENU  m_DigitalDrink LABEL "DigitalDrink"  .

DEFINE MENU MB_wHauptmenu MENUBAR
    SUB-MENU  m_Anwendungen  LABEL "&Anwendungen"  
    SUB-MENU  m_Auswertungen LABEL "Au&swertungen" 
    SUB-MENU  m_Tabellen     LABEL "&Tabellen"     
    SUB-MENU  m_Administration LABEL "Ad&ministration".


/* Definitions of the field level widgets                               */
DEFINE BUTTON Btn_Abhol 
    LABEL "A&bholverkauf" 
    SIZE 20 BY 1.

DEFINE BUTTON Btn_Adresse 
    LABEL "&Adressen" 
    SIZE 20 BY 1.

DEFINE BUTTON Btn_Artikel 
    LABEL "Ar&tikel" 
    SIZE 20 BY 1.

DEFINE BUTTON Btn_Auftrag 
    LABEL "A&uftrag" 
    SIZE 20 BY 1.

DEFINE BUTTON Btn_Aussendienst 
    LABEL "Aussendiens&t" 
    SIZE 20 BY 1.

DEFINE BUTTON Btn_Bestell 
    LABEL "&Bestellwesen" 
    SIZE 20 BY 1.

DEFINE BUTTON Btn_Debitoren 
    LABEL "&Debitoren" 
    SIZE 20 BY 1.

DEFINE BUTTON Btn_Inventar 
    LABEL "Inventaraufnahme" 
    SIZE 20 BY 1.

DEFINE BUTTON Btn_Lager 
    LABEL "&Lagerbuchungen" 
    SIZE 20 BY 1.

DEFINE BUTTON Btn_Scand 
    LABEL "Artikel Strichcode" 
    SIZE 20 BY 1.

DEFINE IMAGE IMAGE-1
    FILENAME "grafik/wallpaper_primegemis.jpg":U
    STRETCH-TO-FIT
    SIZE 100 BY 15.24.

DEFINE RECTANGLE RECT-4
    EDGE-PIXELS 2 GRAPHIC-EDGE    
    SIZE 22 BY 8.57
    BGCOLOR 1 .


/* ************************  Frame Definitions  *********************** */

DEFINE FRAME fMain
    Btn_Inventar AT ROW 5 COL 27 WIDGET-ID 2
    Btn_Adresse AT ROW 2.43 COL 3.8
    Btn_Artikel AT ROW 3.43 COL 3.8
    Btn_Auftrag AT ROW 4.43 COL 3.8
    Btn_Lager AT ROW 5.43 COL 3.8
    Btn_Bestell AT ROW 6.43 COL 3.8
    Btn_Abhol AT ROW 7.43 COL 3.8
    Btn_Debitoren AT ROW 8.43 COL 3.8
    Btn_Aussendienst AT ROW 9.43 COL 3.8
    Btn_Scand AT ROW 7 COL 27 WIDGET-ID 4
    IMAGE-1 AT ROW 1 COL 1
    RECT-4 AT ROW 2.14 COL 2.6
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
    SIDE-LABELS NO-UNDERLINE THREE-D 
    AT COL 1.2 ROW 1.05
    SIZE 100.6 BY 15.38
    BGCOLOR 8 .


/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: SmartWindow
   Allow: Basic,Browse,DB-Fields,Query,Smart,Window
   Container Links: Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source
   Other Settings: COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
    CREATE WINDOW wHauptmenu ASSIGN
        HIDDEN             = YES
        TITLE              = "HANDEL"
        HEIGHT             = 15.38
        WIDTH              = 99.2
        MAX-HEIGHT         = 46.52
        MAX-WIDTH          = 384
        VIRTUAL-HEIGHT     = 46.52
        VIRTUAL-WIDTH      = 384
        RESIZE             = NO
        SCROLL-BARS        = NO
        STATUS-AREA        = NO
        BGCOLOR            = ?
        FGCOLOR            = ?
        THREE-D            = YES
        MESSAGE-AREA       = NO
        SENSITIVE          = YES.
ELSE {&WINDOW-NAME} = CURRENT-WINDOW.

ASSIGN 
    {&WINDOW-NAME}:MENUBAR = MENU MB_wHauptmenu:HANDLE.

&IF '{&WINDOW-SYSTEM}' NE 'TTY' &THEN
IF NOT wHauptmenu:LOAD-ICON("grafik/appl.ico":U) THEN
    MESSAGE "Unable to load icon: grafik/appl.ico"
        VIEW-AS ALERT-BOX WARNING BUTTONS OK.
&ENDIF
/* END WINDOW DEFINITION                                                */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB wHauptmenu 
/* ************************* Included-Libraries *********************** */

    {src/adm2/containr.i}

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME




/* ***********  Runtime Attributes and AppBuilder Settings  *********** */

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW wHauptmenu
  VISIBLE,,RUN-PERSISTENT                                               */
/* SETTINGS FOR FRAME fMain
   FRAME-NAME Custom                                                    */
ASSIGN 
    IMAGE-1:RESIZABLE IN FRAME fMain = TRUE.

IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wHauptmenu)
    THEN wHauptmenu:HIDDEN = YES.

/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME

 



/* ************************  Control Triggers  ************************ */

&Scoped-define SELF-NAME wHauptmenu
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wHauptmenu wHauptmenu
ON END-ERROR OF wHauptmenu /* HANDEL */
    OR ENDKEY OF {&WINDOW-NAME} ANYWHERE 
    DO:
        IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY.
        RUN ENDE.
        RETURN NO-APPLY.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL wHauptmenu wHauptmenu
ON WINDOW-CLOSE OF wHauptmenu /* HANDEL */
    DO:
        EndFlag = TRUE.
        RUN ENDE.
        RETURN NO-APPLY.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Abhol
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Abhol wHauptmenu
ON CHOOSE OF Btn_Abhol IN FRAME fMain /* Abholverkauf */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-abholverkauf.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Adresse
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Adresse wHauptmenu
ON CHOOSE OF Btn_Adresse IN FRAME fMain /* Adressen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-adresse.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Artikel
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Artikel wHauptmenu
ON CHOOSE OF Btn_Artikel IN FRAME fMain /* Artikel */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-artst.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Auftrag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Auftrag wHauptmenu
ON CHOOSE OF Btn_Auftrag IN FRAME fMain /* Auftrag */
    DO:
        CASE cInstallation:
            WHEN 'Huber'       OR
            WHEN 'realwines'   OR
            WHEN 'Wiederkehr'  OR
            WHEN 'LaTorre'     OR
            WHEN 'Oswald'      OR
            WHEN 'California'  OR
            WHEN 'SanMartino'  THEN RUN START_PROGRAMM ( INPUT 'w-auftrag.w':U ).
            OTHERWISE               RUN START_PROGRAMM ( INPUT 'v8/w-auftrag.w':U ).
        END CASE.
    
        RETURN NO-APPLY.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Aussendienst
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Aussendienst wHauptmenu
ON CHOOSE OF Btn_Aussendienst IN FRAME fMain /* Aussendienst */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-kubes.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Bestell
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Bestell wHauptmenu
ON CHOOSE OF Btn_Bestell IN FRAME fMain /* Bestellwesen */
    DO:
        CASE cInstallation:
            WHEN 'Huber' THEN RUN START_PROGRAMM ( 'w-bestellung.w' ).
            OTHERWISE         RUN START_PROGRAMM ( INPUT 'v8/w-bestellung.w':U ).
        END CASE.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Debitoren
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Debitoren wHauptmenu
ON CHOOSE OF Btn_Debitoren IN FRAME fMain /* Debitoren */
    DO:
        CASE cInstallation:
            WHEN 'realwines' THEN RUN START_PROGRAMM ( 'w-debitoren.w':U).        
            OTHERWISE             RUN START_PROGRAMM ( INPUT 'v8/w-debitoren.w':U ).
        END CASE.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Inventar
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Inventar wHauptmenu
ON CHOOSE OF Btn_Inventar IN FRAME fMain /* Inventaraufnahme */
    DO:
        SESSION:SET-WAIT-STATE('GENERAL').
        RUN START_PROGRAMM ( INPUT 'w-inventar.w':U ).
        SESSION:SET-WAIT-STATE('').
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Lager
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Lager wHauptmenu
ON CHOOSE OF Btn_Lager IN FRAME fMain /* Lagerbuchungen */
    DO:
        RUN START_PROGRAMM ( INPUT 'v8/w-lager.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME Btn_Scand
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Btn_Scand wHauptmenu
ON CHOOSE OF Btn_Scand IN FRAME fMain /* Artikel Strichcode */
    DO:
        SESSION:SET-WAIT-STATE('GENERAL').
        RUN START_PROGRAMM ( INPUT 'w-lagerort-scan.w':U ).
        SESSION:SET-WAIT-STATE('').
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_ABC-Gruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_ABC-Gruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_ABC-Gruppen /* ABC-Gruppen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'ABCGRP':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Abgleich_Artikelstammdaten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Abgleich_Artikelstammdaten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Abgleich_Artikelstammdaten /* Abgleich Artikelstammdaten */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-ddartikelabgleich.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Abholverkauf
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Abholverkauf wHauptmenu
ON CHOOSE OF MENU-ITEM m_Abholverkauf /* Abholverkauf */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-abholverkauf.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Abladevorschriften
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Abladevorschriften wHauptmenu
ON CHOOSE OF MENU-ITEM m_Abladevorschriften /* Abladevorschriften */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'ABLAD':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Adressarten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Adressarten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Adressarten /* Adressarten */
    DO:
        RUN START_PROGRAMM ( 'w-adrart.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Adressen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Adressen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Adressen /* Adressen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-adresse.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Aktionen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Aktionen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Aktionen /* Aktionen pflegen */
    DO:
        RUN START_PROGRAMM ( 'w-aktionen.w':u ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_AktionenAktionspreise
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_AktionenAktionspreise wHauptmenu
ON CHOOSE OF MENU-ITEM m_AktionenAktionspreise /* Aktionen/Aktionspreise */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-aktionen.w':u ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Aktionen_nach_Kundengruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Aktionen_nach_Kundengruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Aktionen_nach_Kundengruppen /* Aktionen nach Kundengruppen (Rauch) */
    DO:
        RUN 'g-aktionen-kugrp.w':U .
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Aktionsliste
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Aktionsliste wHauptmenu
ON CHOOSE OF MENU-ITEM m_Aktionsliste /* Aktionsliste */
    DO:
        RUN 'g-aktionen.w':U .
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Anreden
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Anreden wHauptmenu
ON CHOOSE OF MENU-ITEM m_Anreden /* Anreden */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-anrede.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Artikel
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Artikel wHauptmenu
ON CHOOSE OF MENU-ITEM m_Artikel /* Artikel */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-artst.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Artikel-Karte
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Artikel-Karte wHauptmenu
ON CHOOSE OF MENU-ITEM m_Artikel-Karte /* Artikel-Karte */
    DO:
        RUN g-artikelkarte.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Artikel-Lagerort
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Artikel-Lagerort wHauptmenu
ON CHOOSE OF MENU-ITEM m_Artikel-Lagerort /* Artikel-Lagerort */
    DO:
        RUN g-artikel-lagerort.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Artikeletiketten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Artikeletiketten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Artikeletiketten /* Artikeletiketten */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-artikel-etiketten.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Artikel_-_Analyse
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Artikel_-_Analyse wHauptmenu
ON CHOOSE OF MENU-ITEM m_Artikel_-_Analyse /* Artikel - Analyse */
    DO:
        RUN g-artikel-analyse.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Auftragsdokumente_drucken
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Auftragsdokumente_drucken wHauptmenu
ON CHOOSE OF MENU-ITEM m_Auftragsdokumente_drucken /* Auftragsdokumente drucken */
    DO:
        RUN g-p_auftraege.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Auftragsstatistik
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Auftragsstatistik wHauptmenu
ON CHOOSE OF MENU-ITEM m_Auftragsstatistik /* Auftragsstatistik */
    DO:
        RUN g-p_auftrag-analyse.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Auftragstatus
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Auftragstatus wHauptmenu
ON CHOOSE OF MENU-ITEM m_Auftragstatus /* Auftragstatus */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-aufstatus.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_AuftragstextSchlusstexte
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_AuftragstextSchlusstexte wHauptmenu
ON CHOOSE OF MENU-ITEM m_AuftragstextSchlusstexte /* Auftragstext(Schlusstexte) */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-auftragstexte.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Aussendienst2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Aussendienst2 wHauptmenu
ON CHOOSE OF MENU-ITEM m_Aussendienst2 /* Aussendienst */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-kubes.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_automatisches_Ruesten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_automatisches_Ruesten wHauptmenu
ON CHOOSE OF MENU-ITEM m_automatisches_Ruesten /* automatisches Rüsten */
    DO:
        RUN 'tools/AutomatischesRuesten.p'.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Avisierung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Avisierung wHauptmenu
ON CHOOSE OF MENU-ITEM m_Avisierung /* Avisierung */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'AVIS':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Bankenstamm
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Bankenstamm wHauptmenu
ON CHOOSE OF MENU-ITEM m_Bankenstamm /* Bankenstamm */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-bankst.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Beifahrer
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Beifahrer wHauptmenu
ON CHOOSE OF MENU-ITEM m_Beifahrer /* Beifahrer */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'BEIFAHR':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Benutzerdaten_kopieren
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Benutzerdaten_kopieren wHauptmenu
ON CHOOSE OF MENU-ITEM m_Benutzerdaten_kopieren /* Benutzerdaten kopieren */
    DO:
        RUN START_PROGRAMM ( 'w-bendaten-kopieren.w' ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_BESR-Arten-Banken
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_BESR-Arten-Banken wHauptmenu
ON CHOOSE OF MENU-ITEM m_BESR-Arten-Banken /* BESR-Arten/-Banken */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-besrart.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_BESR-ArtenEinzahlungsschein
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_BESR-ArtenEinzahlungsschein wHauptmenu
ON CHOOSE OF MENU-ITEM m_BESR-ArtenEinzahlungsschein /* BESR-Arten/Einzahlungsscheine */
    DO:
        RUN START_PROGRAMM ( 'w-besrschein.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Bestellstatus
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Bestellstatus wHauptmenu
ON CHOOSE OF MENU-ITEM m_Bestellstatus /* Bestellstatus */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'BESTAT':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Bestellvoschlag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Bestellvoschlag wHauptmenu
ON CHOOSE OF MENU-ITEM m_Bestellvoschlag /* Bestellvoschlag */
    DO:
        RUN 'g-bestellvorschlag.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Bestellwesen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Bestellwesen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Bestellwesen /* Bestellwesen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-bestellung.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Besuchsarten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Besuchsarten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Besuchsarten /* Besuchsarten */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'BESUCH':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Biergruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Biergruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Biergruppen /* Biergruppen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'BIER':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Bilder_den_Artikeln_zuordne
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Bilder_den_Artikeln_zuordne wHauptmenu
ON CHOOSE OF MENU-ITEM m_Bilder_den_Artikeln_zuordne /* Bilder den Artikeln zuordnen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-bilder.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Bonus-Summengruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Bonus-Summengruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Bonus-Summengruppen /* Bonus-/Summengruppen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-bonusgrp.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Bonusabrechnung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Bonusabrechnung wHauptmenu
ON CHOOSE OF MENU-ITEM m_Bonusabrechnung /* Bonusabrechnung */
    DO:
        RUN v8/d-bonusabrechnung.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Bonusgruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Bonusgruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Bonusgruppen /* Bonusgruppen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'ABONUS':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Bonusgruppen2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Bonusgruppen2 wHauptmenu
ON CHOOSE OF MENU-ITEM m_Bonusgruppen2 /* Bonusgruppen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'BONUS':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Calanda-Verkaufszahlen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Calanda-Verkaufszahlen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Calanda-Verkaufszahlen /* Calanda-Verkaufszahlen */
    DO:
        RUN g-calanda.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Debitoren2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Debitoren2 wHauptmenu
ON CHOOSE OF MENU-ITEM m_Debitoren2 /* Debitoren */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-debitoren.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Dokumentverlauf
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Dokumentverlauf wHauptmenu
ON CHOOSE OF MENU-ITEM m_Dokumentverlauf /* Dokumentverlauf */
    DO:
        RUN 'g-dokumentverlauf.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Druckertypen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Druckertypen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Druckertypen /* Druckertypen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-drucker.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Drucker_den_Dokumenten_zuor
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Drucker_den_Dokumenten_zuor wHauptmenu
ON CHOOSE OF MENU-ITEM m_Drucker_den_Dokumenten_zuor /* Drucker den Dokumenten zuordnen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-dokudrucker.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Drucker_umbenennen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Drucker_umbenennen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Drucker_umbenennen /* Drucker umbenennen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-rename-drucker.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Eidg_Alkoholverwaltung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Eidg_Alkoholverwaltung wHauptmenu
ON CHOOSE OF MENU-ITEM m_Eidg_Alkoholverwaltung /* Eidg. Alkoholverwaltung */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETEAVCODE':U, INPUT '0100' ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-eav.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Eidg_Weinhandelskommission
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Eidg_Weinhandelskommission wHauptmenu
ON CHOOSE OF MENU-ITEM m_Eidg_Weinhandelskommission /* Eidg. Weinhandelskommission */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETEWKCODE':U, INPUT '01010100' ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-ewk.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Eindg_Alkoholverwaltung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Eindg_Alkoholverwaltung wHauptmenu
ON CHOOSE OF MENU-ITEM m_Eindg_Alkoholverwaltung /* Eidg. Alkoholverwaltung */
    DO:
        RUN v8/d-p_eav.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Ersatzartikel
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Ersatzartikel wHauptmenu
ON CHOOSE OF MENU-ITEM m_Ersatzartikel /* Ersatzartikel */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-produktempfehlung.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_EtikettenListe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_EtikettenListe wHauptmenu
ON CHOOSE OF MENU-ITEM m_EtikettenListe /* Etiketten/Liste */
    DO:
        RUN g-adressetikett.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Export_Auftrge
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Export_Auftrge wHauptmenu
ON CHOOSE OF MENU-ITEM m_Export_Auftrge /* Export Aufträge */
    DO:
        RUN g-exportauftrag.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Export_Daten_fr_HOGA-Shop
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Export_Daten_fr_HOGA-Shop wHauptmenu
ON CHOOSE OF MENU-ITEM m_Export_Daten_fr_HOGA-Shop /* HogaShop-EXPORT */
    DO:
        RUN 'g-preisliste-verbandskunden.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Export_eShop_realwines
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Export_eShop_realwines wHauptmenu
ON CHOOSE OF MENU-ITEM m_Export_eShop_realwines /* Export eShop realwines */
    DO:
        RUN artikelexport.p.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Export_XML-CoCa
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Export_XML-CoCa wHauptmenu
ON CHOOSE OF MENU-ITEM m_Export_XML-CoCa /* Export XML-Datei für Coca Cola */
    DO:
        RUN 'g-cocacola.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_FahrerFahrzeug
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_FahrerFahrzeug wHauptmenu
ON CHOOSE OF MENU-ITEM m_FahrerFahrzeug /* Fahrer/Fahrzeug */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'FAHRER':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Fakturarten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Fakturarten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Fakturarten /* Fakturarten */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-fakart.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Farben
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Farben wHauptmenu
ON CHOOSE OF MENU-ITEM m_Farben /* Farben */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'FARB':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Fehlwerteverwaltung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Fehlwerteverwaltung wHauptmenu
ON CHOOSE OF MENU-ITEM m_Fehlwerteverwaltung /* Fehlwerteverwaltung */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-fehlwerte.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Fehlwerte_fr_Mandanten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Fehlwerte_fr_Mandanten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Fehlwerte_fr_Mandanten /* Fehlwerte für Mandanten */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-mandantfw.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Formulartexte
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Formulartexte wHauptmenu
ON CHOOSE OF MENU-ITEM m_Formulartexte /* Formulartexte */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-formulartexte.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Formular_LaTorre
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Formular_LaTorre wHauptmenu
ON CHOOSE OF MENU-ITEM m_Formular_LaTorre /* Formular (LaTorre) */
    DO:
        RUN v8/d-p_latorre-form.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_FwAbholverkauf
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_FwAbholverkauf wHauptmenu
ON CHOOSE OF MENU-ITEM m_FwAbholverkauf /* Abholverkauf */
    DO:
        RUN g-fehlwerte.w ( INPUT 'Abholverkauf' ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_FwAdressen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_FwAdressen wHauptmenu
ON CHOOSE OF MENU-ITEM m_FwAdressen /* Adressen */
    DO:
        RUN g-fehlwerte.w ( INPUT 'FwAdresse' ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_FwAllgemein
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_FwAllgemein wHauptmenu
ON CHOOSE OF MENU-ITEM m_FwAllgemein /* Allgemeine Fehlwerte */
    DO:
        RUN g-fehlwerte.w ( INPUT 'FwSteuer' ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_FwAuftrag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_FwAuftrag wHauptmenu
ON CHOOSE OF MENU-ITEM m_FwAuftrag /* Auftrag */
    DO:
        RUN g-fehlwerte.w ( INPUT 'FwAuftrag' ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_FwDebitor
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_FwDebitor wHauptmenu
ON CHOOSE OF MENU-ITEM m_FwDebitor /* Debitor */
    DO:
        RUN g-fehlwerte.w ( INPUT 'FwDebitor' ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_g-ddumsaetze
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_g-ddumsaetze wHauptmenu
ON CHOOSE OF MENU-ITEM m_g-ddumsaetze /* Absatzzahlen */
    DO:
        RUN 'g-ddumsaetze.w' NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_g-excel-preisliste
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_g-excel-preisliste wHauptmenu
ON CHOOSE OF MENU-ITEM m_g-excel-preisliste /* EXCEL-Preisliste aktualisieren */
    DO:
        RUN 'g-excel-preisliste.w'.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_g-preismutepmarge
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_g-preismutepmarge wHauptmenu
ON CHOOSE OF MENU-ITEM m_g-preismutepmarge /* Preismutationen EP/Marge */
    DO:
        RUN 'g-preismutepmarge.w'.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Gebinde-Rcknahme-Tabelle
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Gebinde-Rcknahme-Tabelle wHauptmenu
ON CHOOSE OF MENU-ITEM m_Gebinde-Rcknahme-Tabelle /* Gebinde-Rücknahme-Tabelle */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-gebrueck.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Gebindekonti
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Gebindekonti wHauptmenu
ON CHOOSE OF MENU-ITEM m_Gebindekonti /* Gebindekonti */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-gebkonto.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Gebindekontrolle
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Gebindekontrolle wHauptmenu
ON CHOOSE OF MENU-ITEM m_Gebindekontrolle /* Gebindekontrolle */
    DO:
        RUN 'v8/d-p_gebkontr.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Gebinderuecknahmetexte
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Gebinderuecknahmetexte wHauptmenu
ON CHOOSE OF MENU-ITEM m_Gebinderuecknahmetexte /* Gebinderücknahmetexte */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-gebinderetouren.w':u ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Gratislieferungen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Gratislieferungen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Gratislieferungen /* Gratislieferungen */
    DO:
        RUN g-gratislieferung.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Grossgebinde
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Grossgebinde wHauptmenu
ON CHOOSE OF MENU-ITEM m_Grossgebinde /* Grossgebinde */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-ggebinde.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Hersteller
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Hersteller wHauptmenu
ON CHOOSE OF MENU-ITEM m_Hersteller /* Hersteller */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'HERST':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Hersteller_Rckvergtungen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Hersteller_Rckvergtungen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Hersteller_Rckvergtungen /* Hersteller Rückvergütungen */
    DO:
        RUN g-herstrueck.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Ihre_Bestellung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Ihre_Bestellung wHauptmenu
ON CHOOSE OF MENU-ITEM m_Ihre_Bestellung /* Ihre Bestellung */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'IBEST':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_InstallierenKorrigieren
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_InstallierenKorrigieren wHauptmenu
ON CHOOSE OF MENU-ITEM m_InstallierenKorrigieren /* Installieren/Korrigieren */
    DO:
        RUN 'g-install.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Inventar-Bestandes-Listen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Inventar-Bestandes-Listen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Inventar-Bestandes-Listen /* Inventar-/Bestandes-Listen */
    DO:
        RUN v8/d-p_inventar.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Kanalabrechnung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Kanalabrechnung wHauptmenu
ON CHOOSE OF MENU-ITEM m_Kanalabrechnung /* Kanalabrechnung */
    DO:
        RUN v8/d-kanalabrechnung.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Kleingebinde
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Kleingebinde wHauptmenu
ON CHOOSE OF MENU-ITEM m_Kleingebinde /* Kleingebinde */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-kgebinde.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Kontaktformular_Rauch
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Kontaktformular_Rauch wHauptmenu
ON CHOOSE OF MENU-ITEM m_Kontaktformular_Rauch /* Kontaktformular (Rauch) */
    DO:
        RUN 'g-kontakt.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Kontrolle_Rster
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Kontrolle_Rster wHauptmenu
ON CHOOSE OF MENU-ITEM m_Kontrolle_Rster /* Kontrolle Rüster */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-geruestet-kontrolle.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Kreditlimiten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Kreditlimiten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Kreditlimiten /* Kreditlimiten */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-kreditlimiten.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Kunden-Detail-Umstze
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Kunden-Detail-Umstze wHauptmenu
ON CHOOSE OF MENU-ITEM m_Kunden-Detail-Umstze /* Kunden-Detail-Umsätze */
    DO:
        RUN g-p_debums-detail.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Kundengruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Kundengruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Kundengruppen /* Kundengruppen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'KUNDGRP':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Kundengruppenumstze
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Kundengruppenumstze wHauptmenu
ON CHOOSE OF MENU-ITEM m_Kundengruppenumstze /* Kundengruppenumsätze */
    DO:
        RUN 'g-p_debums-kugrp.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Kundenumstze
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Kundenumstze wHauptmenu
ON CHOOSE OF MENU-ITEM m_Kundenumstze /* Kundenumsätze */
    DO:
        RUN g-p_debums.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Kundenumstze_alle_Mandaten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Kundenumstze_alle_Mandaten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Kundenumstze_alle_Mandaten /* Kundenumsätze (alle Mandaten) */
    DO:
        RUN 'g-p_debums-mand.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Lager
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Lager wHauptmenu
ON CHOOSE OF MENU-ITEM m_Lager /* Lager */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'LAGER':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Lagerbestnde_rechnen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Lagerbestnde_rechnen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Lagerbestnde_rechnen /* Lagerbestände rechnen */
    DO:
        RUN 'v8/d-best-rech.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Lagerbuchungen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Lagerbuchungen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Lagerbuchungen /* Lagerbuchungen */
    DO:
        RUN START_PROGRAMM ( INPUT 'v8/w-lager.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Lagereingangsliste
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Lagereingangsliste wHauptmenu
ON CHOOSE OF MENU-ITEM m_Lagereingangsliste /* Lagereingangsliste */
    DO:
        RUN 'g-lagereingang.w':U NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Lagerhueter
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Lagerhueter wHauptmenu
ON CHOOSE OF MENU-ITEM m_Lagerhueter /* Lagerhüter */
    DO:
        RUN 'g-lagerhueter.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_LagerortStrichcode
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_LagerortStrichcode wHauptmenu
ON CHOOSE OF MENU-ITEM m_LagerortStrichcode /* Lagerort/Strichcode */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-lagerort-scan.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Landtabelle
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Landtabelle wHauptmenu
ON CHOOSE OF MENU-ITEM m_Landtabelle /* Landtabelle */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-land.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Lieferantenumstze
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Lieferantenumstze wHauptmenu
ON CHOOSE OF MENU-ITEM m_Lieferantenumstze /* Lieferantenumsätze */
    DO:
        RUN g-p_liefums-detail.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Lieferart
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Lieferart wHauptmenu
ON CHOOSE OF MENU-ITEM m_Lieferart /* Lieferart */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'LIEFART':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Lieferbedingungen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Lieferbedingungen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Lieferbedingungen /* Lieferbedingungen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'LIEFBED':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Lieferungen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Lieferungen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Lieferungen /* Lieferungen */
    DO:
        RUN 'g-lieferungen.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Listentexte
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Listentexte wHauptmenu
ON CHOOSE OF MENU-ITEM m_Listentexte /* Listentexte */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-libild.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_LKW
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_LKW wHauptmenu
ON CHOOSE OF MENU-ITEM m_LKW /* LKW */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'LKW':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Mandanten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Mandanten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Mandanten /* Mandanten */
    DO:
        RUN START_PROGRAMM ( 'w-mandant.w' ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Mandanten-Daten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Mandanten-Daten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Mandanten-Daten /* Mandanten-Daten */
    DO:
        RUN START_PROGRAMM ( 'w-steuer.w' ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Mehrwertsteuer
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Mehrwertsteuer wHauptmenu
ON CHOOSE OF MENU-ITEM m_Mehrwertsteuer /* Mehrwertsteuer */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-mwst-kunde.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Mehrwertsteuer2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Mehrwertsteuer2 wHauptmenu
ON CHOOSE OF MENU-ITEM m_Mehrwertsteuer2 /* Mehrwertsteuer */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-mwst-artikel.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Mehrwertsteueranstze
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Mehrwertsteueranstze wHauptmenu
ON CHOOSE OF MENU-ITEM m_Mehrwertsteueranstze /* Mehrwertsteueransätze */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-mwst-ansatz.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Mehrwertsteuerkombinationen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Mehrwertsteuerkombinationen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Mehrwertsteuerkombinationen /* Mehrwertsteuerkombinationen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-mwst-code.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_MeldungenFragen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_MeldungenFragen wHauptmenu
ON CHOOSE OF MENU-ITEM m_MeldungenFragen /* Meldungen/Fragen */
    DO:
        RUN START_PROGRAMM ( 'w-femeld.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Mutationsliste
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Mutationsliste wHauptmenu
ON CHOOSE OF MENU-ITEM m_Mutationsliste /* Mutationsliste */
    DO:
        RUN 'g-mutartikel.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_NummernKontiFIBU
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_NummernKontiFIBU wHauptmenu
ON CHOOSE OF MENU-ITEM m_NummernKontiFIBU /* Nummern/Konti(FIBU) */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-steunr.w':U ).  
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_ordner-index
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_ordner-index wHauptmenu
ON CHOOSE OF MENU-ITEM m_ordner-index /* Ordnerindex */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-ordner-index.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Orte_Tabelle
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Orte_Tabelle wHauptmenu
ON CHOOSE OF MENU-ITEM m_Orte_Tabelle /* Orte Tabelle */
    DO:
        RUN w-orte.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Preise_Reorganisieren
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Preise_Reorganisieren wHauptmenu
ON CHOOSE OF MENU-ITEM m_Preise_Reorganisieren /* Preise Reorganisieren */
    DO:
        RUN g-artpreis-reorg.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Preisgruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Preisgruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Preisgruppen /* Preisgruppen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'PREGRP':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Preisliste
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Preisliste wHauptmenu
ON CHOOSE OF MENU-ITEM m_Preisliste /* Preisliste (alle Preise) eines Herstellers */
    DO:
        RUN 'g-preisliste-total.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Preislisten-Interface_HOGAL
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Preislisten-Interface_HOGAL wHauptmenu
ON CHOOSE OF MENU-ITEM m_Preislisten-Interface_HOGAL /* Preislisten-Interface HOGALOG */
    DO:
        RUN g-preisliste-verbandskunden.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_PreislistePreisgruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_PreislistePreisgruppe wHauptmenu
ON CHOOSE OF MENU-ITEM m_PreislistePreisgruppe /* Preisliste/Preisgruppe */
    DO:
        RUN 'g-preisliste.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Preisliste_fr_Kunde
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Preisliste_fr_Kunde wHauptmenu
ON CHOOSE OF MENU-ITEM m_Preisliste_fr_Kunde /* Preisliste für Kunde */
    DO:
        RUN g-preisliste-kunde.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Preismutationen_Linear
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Preismutationen_Linear wHauptmenu
ON CHOOSE OF MENU-ITEM m_Preismutationen_Linear /* Preismutationen (Linear) */
    DO:
        RUN g-preismut.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Provisions-Summengruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Provisions-Summengruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Provisions-Summengruppen /* Provisions-/Summengruppen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-provisionsgrp.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Rabatt-Summengruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Rabatt-Summengruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Rabatt-Summengruppen /* Rabatt-/Summengruppen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-rabattgrp.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_rabattgruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_rabattgruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_rabattgruppen /* Rabattgruppen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'ARABGRP':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Rabattgruppen2
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Rabattgruppen2 wHauptmenu
ON CHOOSE OF MENU-ITEM m_Rabattgruppen2 /* Rabattgruppen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'RABGRP':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Regionen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Regionen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Regionen /* Regionen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'AREG':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Reorg_gelschte_Artikel
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Reorg_gelschte_Artikel wHauptmenu
ON CHOOSE OF MENU-ITEM m_Reorg_gelschte_Artikel /* Reorg gelöschte Artikel */
    DO:
        RUN g-reorg-artikel.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Reorg_gelschte_Kunden
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Reorg_gelschte_Kunden wHauptmenu
ON CHOOSE OF MENU-ITEM m_Reorg_gelschte_Kunden /* Reorg gelöschte Kunden */
    DO:
        RUN g-reorg-adressen.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Reorg_gelschte_Preise
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Reorg_gelschte_Preise wHauptmenu
ON CHOOSE OF MENU-ITEM m_Reorg_gelschte_Preise /* Reorg gelöschte Preise */
    DO:
        RUN 'g-reorg-preise.w'.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Ruestkontrolle
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Ruestkontrolle wHauptmenu
ON CHOOSE OF MENU-ITEM m_Ruestkontrolle /* Rüstkontrolle */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-aufko-ruestkontrolle.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Selektionsfelder
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Selektionsfelder wHauptmenu
ON CHOOSE OF MENU-ITEM m_Selektionsfelder /* Selektionsfelder */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-selekt-adresse.w':U) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_SESAM-FIBU-Interface
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_SESAM-FIBU-Interface wHauptmenu
ON CHOOSE OF MENU-ITEM m_SESAM-FIBU-Interface /* SESAM-FIBU-Interface */
    DO:
        RUN 'g-sesam-debi.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Skontoabrechnung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Skontoabrechnung wHauptmenu
ON CHOOSE OF MENU-ITEM m_Skontoabrechnung /* Skontoabrechnung */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-skontoabrechnung.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Spesenarten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Spesenarten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Spesenarten /* Spesenarten */
    DO:
        RUN START_PROGRAMM ( 'w-spesenarten.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Spezialpreise_mutieren_line
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Spezialpreise_mutieren_line wHauptmenu
ON CHOOSE OF MENU-ITEM m_Spezialpreise_mutieren_line /* Spezialpreise mutieren (linear) */
    DO:
        RUN g-spezpreismut.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Sprachen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Sprachen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Sprachen /* Sprachen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-sprache.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Tourenplne
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Tourenplne wHauptmenu
ON CHOOSE OF MENU-ITEM m_Tourenplne /* Tourenpläne */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'TOUR1':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Transaktionsarten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Transaktionsarten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Transaktionsarten /* Transaktionsarten */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'LAGKORR':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Trauben
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Trauben wHauptmenu
ON CHOOSE OF MENU-ITEM m_Trauben /* Trauben */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'TRAUB':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Umsatzgruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Umsatzgruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Umsatzgruppen /* Umsatzgruppen */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'UMSGRP':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Umsatzstatistik
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Umsatzstatistik wHauptmenu
ON CHOOSE OF MENU-ITEM m_Umsatzstatistik /* Umsatzstatistik */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-umsatzstat.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Umsatzzahlen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Umsatzzahlen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Umsatzzahlen /* Umsatzzahlen */
    DO:
        RUN 'g-artikelumsatz.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Umsatzzahlen_ProdGruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Umsatzzahlen_ProdGruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Umsatzzahlen_ProdGruppen /* Umsatzzahlen ProdGruppen */
    DO:
        RUN 'g-prodgrpums.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Verbandsabrechnung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Verbandsabrechnung wHauptmenu
ON CHOOSE OF MENU-ITEM m_Verbandsabrechnung /* Verbandsabrechnung */
    DO:
        RUN g-verbandsabr.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Verbandsgruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Verbandsgruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Verbandsgruppen /* Verbandsgruppen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-verband.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Verkaufsgebinde
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Verkaufsgebinde wHauptmenu
ON CHOOSE OF MENU-ITEM m_Verkaufsgebinde /* Verkaufsgebinde */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-vgebinde.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Verkaufszahlen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Verkaufszahlen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Verkaufszahlen /* Verkaufszahlen pro Kunde */
    DO:
        RUN 'g-verkaufszahlen.w':U.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Verkauf_Alkoholika_gebrannt
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Verkauf_Alkoholika_gebrannt wHauptmenu
ON CHOOSE OF MENU-ITEM m_Verkauf_Alkoholika_gebrannt /* Verkauf Alkoholika (gebrannte Wasser) */
    DO:
        RUN g-p_alkoholverkauf.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Vertreter
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Vertreter wHauptmenu
ON CHOOSE OF MENU-ITEM m_Vertreter /* Vertreter */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'VERTR':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Vertreter-Provisionsabrechn
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Vertreter-Provisionsabrechn wHauptmenu
ON CHOOSE OF MENU-ITEM m_Vertreter-Provisionsabrechn /* Vertreter-Provisionsabrechnung */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-provabrechnung.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_VIPER_Druckersteuerung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_VIPER_Druckersteuerung wHauptmenu
ON CHOOSE OF MENU-ITEM m_VIPER_Druckersteuerung /* VIPER Druckersteuerung */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-viperdoc.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-auftrag
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-auftrag wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-auftrag /* Auftrag */
    DO:
        IF cInstallation = 'Wiederkehr' OR
            cInstallation = 'SanMartino' THEN RUN START_PROGRAMM ( INPUT 'v8/w-auftrag.w':U ). 
        ELSE                                 RUN START_PROGRAMM ( INPUT 'w-auftrag.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-benutzer
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-benutzer wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-benutzer /* Benutzerverwaltung */
    DO:
        RUN START_PROGRAMM ( 'w-benutzer.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-DDAktionen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-DDAktionen wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-DDAktionen /* DD-Aktionen */
    DO:
        RUN START_PROGRAMM ( 'w-ddaktionen.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-DDKampanie
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-DDKampanie wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-DDKampanie /* Kampanien */
    DO:
        RUN START_PROGRAMM ( 'w-ddkampanie.w' ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-fahrer
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-fahrer wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-fahrer /* Fahrer */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-fahrer.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-HogaShop-Gruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-HogaShop-Gruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-HogaShop-Gruppen /* HogaShop-Gruppen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-hogagrp.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-HogaShop-Kunden
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-HogaShop-Kunden wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-HogaShop-Kunden /* HogaShop-Kunden */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-hogauser.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-mahntexte
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-mahntexte wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-mahntexte /* Mahntexte VIPER */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-mahntexte.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-ruestart
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-ruestart wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-ruestart /* Rüstarten */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-ruestart.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-shopfeld
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-shopfeld wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-shopfeld /* eShop - Felder */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-shopfeld.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-Sortimentspreisliste
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-Sortimentspreisliste wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-Sortimentspreisliste /* Preisliste Sortiment */
    DO:
        RUN g-preisliste-sortiment.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-translate
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-translate wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-translate /* Labeltexte */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-translate.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_w-waehrung
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_w-waehrung wHauptmenu
ON CHOOSE OF MENU-ITEM m_w-waehrung /* Fremdwährungen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-waehrung.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Warengruppen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Warengruppen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Warengruppen /* Waren-,Produkte-,Artikelgruppen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-warengruppen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Weinhaldelskontrollkommissi
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Weinhaldelskontrollkommissi wHauptmenu
ON CHOOSE OF MENU-ITEM m_Weinhaldelskontrollkommissi /* Weinhandelskontrollkommission */
    DO:
        RUN g-p_ewk.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_WeinpreislistePreisgruppe
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_WeinpreislistePreisgruppe wHauptmenu
ON CHOOSE OF MENU-ITEM m_WeinpreislistePreisgruppe /* Weinpreisliste/Preisgruppe */
    DO:
        RUN g-preisliste-wein.w.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Weinstyle
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Weinstyle wHauptmenu
ON CHOOSE OF MENU-ITEM m_Weinstyle /* Weinstyle */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'STYLE':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Whrungen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Whrungen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Whrungen /* Währungen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-waehrung.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Wirtesonntage
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Wirtesonntage wHauptmenu
ON CHOOSE OF MENU-ITEM m_Wirtesonntage /* Wirtesonntage */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'WISO':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Zahlungsarten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Zahlungsarten wHauptmenu
ON CHOOSE OF MENU-ITEM m_Zahlungsarten /* Zahlungsarten */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'ZAHART':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME m_Zahlungskonditionen
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Zahlungskonditionen wHauptmenu
ON CHOOSE OF MENU-ITEM m_Zahlungskonditionen /* Zahlungskonditionen */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-kondi.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME w-drucker-schriften
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL w-drucker-schriften wHauptmenu
ON CHOOSE OF MENU-ITEM w-drucker-schriften /* Druckerverwaltung neu */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-drucker-schriften.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME w-horelager
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL w-horelager wHauptmenu
ON CHOOSE OF MENU-ITEM w-horelager /* Lagerverwaltung */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-horelager.w':U ) NO-ERROR.
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME w-Kalender
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL w-Kalender wHauptmenu
ON CHOOSE OF MENU-ITEM w-Kalender /* Kalender */
    DO:
        RUN START_PROGRAMM ( INPUT 'w-kalender.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME w-lagerarten
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL w-lagerarten wHauptmenu
ON CHOOSE OF MENU-ITEM w-lagerarten /* Lagerarten */
    DO:
        IF SAktiv THEN DYNAMIC-FUNCTION('SETTABELLE':U, INPUT 'LAGERART':U ) NO-ERROR.
        RUN START_PROGRAMM ( INPUT 'w-tabellen.w':U ).
    END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK wHauptmenu 


/* ***************************  Main Block  *************************** */

SUBSCRIBE TO 'STARTGEBINDEKONTI' ANYWHERE.

DEFINE VARIABLE xString  AS CHARACTER NO-UNDO.
DEFINE VARIABLE cWinUser AS CHARACTER NO-UNDO.
DEFINE VARIABLE i1       AS INTEGER   NO-UNDO.
DEFINE VARIABLE lOK      AS LOGICAL   NO-UNDO.

GET-KEY-VALUE SECTION 'GrundEinstellungen'
    KEY     'EscapeAufHauptmenu'
    VALUE   xString.
IF xString = ?  THEN xString = ''.
IF xString = '' THEN 
DO:
    xString = 'ja'.
    PUT-KEY-VALUE SECTION 'GrundEinstellungen'
        KEY     'EscapeAufHauptmenu'
        VALUE   xString NO-ERROR.
END.
IF xString BEGINS 'n' THEN EscFlag = FALSE.
ELSE                       EscFlag = TRUE .
EndFlag = FALSE.

SESSION:DATA-ENTRY-RETURN = TRUE.

SAktiv   = DYNAMIC-FUNCTION('getSuperAktiv':U)     NO-ERROR.
Progname = ENTRY(1, THIS-PROCEDURE:FILE-NAME, '.') NO-ERROR.
IF Progname = '' THEN Progname = 'Haupt'.

/*  ------------------------------------------------------------------
    TRIGGERS
    ------------------------------------------------------------------  */
ON 'CTRL-F':U ANYWHERE
    DO:
        DEFINE VARIABLE hParent AS HANDLE NO-UNDO.
        DEFINE VARIABLE hFocus  AS HANDLE NO-UNDO.
    
        hFocus = FOCUS.
        DO WHILE VALID-HANDLE(hFocus):
            hParent = hFocus.
            hFocus  = hFocus:PARENT.
        END.
        MESSAGE hParent:TITLE.
        RETURN.
    END.
ON 'HELP':U ANYWHERE 
    DO:
        DEFINE VARIABLE hFocus  AS HANDLE    NO-UNDO.
        DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
    
        hFocus = FOCUS.
        IF NOT VALID-HANDLE(hFocus) THEN RETURN.
        cString = hFocus:HELP NO-ERROR.
        IF cString = ?      OR
            cString = '?'    OR
            cString = ''     THEN cString = hFocus:TOOLTIP.
        IF cString = ?      THEN cString = 'Keine Hilfe verfügbar '.
        IF cString = '?'    THEN cString = 'Keine Hilfe verfügbar '.
        MESSAGE hFocus:NAME SKIP
            cString VIEW-AS ALERT-BOX INFORMATION.
        RETURN.
    END.

PROCEDURE GetSystemMetrics EXTERNAL "USER32.DLL":
    DEFINE INPUT PARAMETER nIndex AS LONG.
    DEFINE RETURN PARAMETER nRet AS LONG.
END PROCEDURE.
    
{src/adm2/windowmn.i}

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


/* **********************  Internal Procedures  *********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects wHauptmenu  _ADM-CREATE-OBJECTS
PROCEDURE adm-create-objects :
/*------------------------------------------------------------------------------
  Purpose:     Create handles for all SmartObjects used in this procedure.
               After SmartObjects are initialized, then SmartLinks are added.
  Parameters:  <none>
------------------------------------------------------------------------------*/

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI wHauptmenu  _DEFAULT-DISABLE
PROCEDURE disable_UI :
    /*------------------------------------------------------------------------------
      Purpose:     DISABLE the User Interface
      Parameters:  <none>
      Notes:       Here we clean-up the user-interface by deleting
                   dynamic widgets we have created and/or hide 
                   frames.  This procedure is usually called when
                   we are ready to "clean-up" after running.
    ------------------------------------------------------------------------------*/
    /* Delete the WINDOW we created */
    IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(wHauptmenu)
        THEN DELETE WIDGET wHauptmenu.
    IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enableObject wHauptmenu 
PROCEDURE enableObject :
    /*------------------------------------------------------------------------------
                  Purpose:     Super Override
                  Parameters:  
                  Notes:       
                ------------------------------------------------------------------------------*/

    DEFINE VARIABLE ja       AS LOG       NO-UNDO.
    DEFINE VARIABLE Firma    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE hSubMenu AS HANDLE    NO-UNDO.
    
    { incl/winenableobject.i }

    RUN SUPER.

    Firma = DYNAMIC-FUNCTION('GETMANDANT':U)   NO-ERROR.
    FIND Steuer NO-LOCK USE-INDEX Steuer-k1
        WHERE Steuer.Firma = Firma NO-ERROR.
    /*
    RUN MENU_SAMMELN.
    */
    DO WHILE FErst:
        FErst = FALSE.

        cBenutzer = DYNAMIC-FUNCTION('GETBENUTZERDATEN':U) NO-ERROR.
        IF ENTRY(4, cBenutzer, CHR(01)) <> 'ja' THEN 
        DO:
            MENU m_Administration:SENSITIVE = FALSE.
            MENU m_Tabellen      :SENSITIVE = FALSE.
        END.
        
        IF SAktiv THEN RUN FENSTER_TITEL ( INPUT wHauptmenu:HANDLE ).
    END.

    RUN GRUNDEINSTELLUNGEN.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI wHauptmenu  _DEFAULT-ENABLE
PROCEDURE enable_UI :
    /*------------------------------------------------------------------------------
      Purpose:     ENABLE the User Interface
      Parameters:  <none>
      Notes:       Here we display/view/enable the widgets in the
                   user-interface.  In addition, OPEN all queries
                   associated with each FRAME and BROWSE.
                   These statements here are based on the "Other 
                   Settings" section of the widget Property Sheets.
    ------------------------------------------------------------------------------*/
    ENABLE Btn_Inventar Btn_Adresse Btn_Artikel Btn_Auftrag Btn_Lager Btn_Bestell 
        Btn_Abhol Btn_Debitoren Btn_Aussendienst Btn_Scand IMAGE-1 RECT-4 
        WITH FRAME fMain IN WINDOW wHauptmenu.
    {&OPEN-BROWSERS-IN-QUERY-fMain}
    VIEW wHauptmenu.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ENDE wHauptmenu 
PROCEDURE ENDE :
    /*------------------------------------------------------------------------------
                  Purpose:     
                  Parameters:  <none>
                  Notes:       
                ------------------------------------------------------------------------------*/

    DEFINE VARIABLE XString AS CHARACTER NO-UNDO.
    DEFINE VARIABLE hWindow AS HANDLE    NO-UNDO.
    DEFINE VARIABLE wx      AS INTEGER   NO-UNDO.
    DEFINE VARIABLE wy      AS INTEGER   NO-UNDO.
    
    RUN OFFENE_PROGRAMME ( OUTPUT XString ).

    IF NUM-ENTRIES ( XString, CHR(01) ) > 0 THEN 
    DO:
        MESSAGE 'Erst alle programme schliessen ' XString VIEW-AS ALERT-BOX.
        EndFlag = FALSE.
        RETURN NO-APPLY.
    END.

    IF NOT EscFlag THEN 
    DO:
        IF NOT EndFlag THEN 
        DO:
            EndFlag = FALSE.
            RETURN NO-APPLY.
        END.
    END.

    wx = {&WINDOW-NAME}:X NO-ERROR.
    wy = {&WINDOW-NAME}:Y NO-ERROR.

    DYNAMIC-FUNCTION('setFensterposition':U, INPUT 'Fensterposition',
        INPUT Progname,
        INPUT wx,
        INPUT wy) NO-ERROR.

    RUN CLOSE_FUNKTIONEN.
    
    APPLY "CLOSE":U TO THIS-PROCEDURE.
    
    RETURN NO-APPLY.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE exitObject wHauptmenu 
PROCEDURE exitObject :
    /*------------------------------------------------------------------------------
                  Purpose:  Window-specific override of this procedure which destroys 
                            its contents and itself.
                    Notes:  
                ------------------------------------------------------------------------------*/

    RUN ENDE.
    RETURN NO-APPLY.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GRUNDEINSTELLUNGEN wHauptmenu 
PROCEDURE GRUNDEINSTELLUNGEN :
    /*------------------------------------------------------------------------------
                  Purpose:     
                  Parameters:  <none>
                  Notes:       
                ------------------------------------------------------------------------------*/

    DEFINE VARIABLE xString AS CHARACTER NO-UNDO.
    DEFINE VARIABLE Ja      AS LOG       NO-UNDO.

    GET-KEY-VALUE SECTION 'GrundEinstellungen'
        KEY     'EpAufArtikelSuchen'
        VALUE   xString.
    IF xString = ? THEN 
    DO:
        ja = ?.
        MESSAGE 'Möchten Sie in Zukunft den Listen-EP auf der'  SKIP
            'Artikel-Suchmaske angezeigt haben ? '
            VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO-CANCEL
            UPDATE  ja.
        IF ja <> ? THEN PUT-KEY-VALUE SECTION 'GrundEinstellungen'
                KEY     'EpAufArtikelSuchen'
                VALUE   STRING(ja,'ja/nein').
    END.

    GET-KEY-VALUE SECTION 'GrundEinstellungen'
        KEY     'EscapeAufAuftrag'
        VALUE   xString.
    IF xString = ? THEN 
    DO:
        ja = ?.
        MESSAGE 'Möchten Sie die Auftragsbearbeitung mit ESC '  SKIP
            'beenden können ? '
            VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO-CANCEL
            UPDATE  ja.
        IF ja <> ? THEN PUT-KEY-VALUE SECTION 'GrundEinstellungen'
                KEY     'EscapeAufAuftrag'
                VALUE   STRING(ja,'ja/nein').
    END.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject wHauptmenu 
PROCEDURE initializeObject :
    /*------------------------------------------------------------------------------
                  Purpose:     Super Override
                  Parameters:  
                  Notes:       
                ------------------------------------------------------------------------------*/

    /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER.

    DEFINE VARIABLE fAdmin AS LOG INIT TRUE NO-UNDO.
    DEFINE VARIABLE fSpez  AS LOG INIT FALSE NO-UNDO.
    DEFINE VARIABLE lFound AS LOG INIT TRUE NO-UNDO.

    cSysUser  = DYNAMIC-FUNCTION('getSysUser':U      ) NO-ERROR.
    hMenu     = {&WINDOW-NAME}:MENU-BAR.
    IF NOT VALID-HANDLE(hMenu) THEN RETURN.
    CASE cInstallation:
        WHEN 'realwines' THEN 
            DO:
                hMenu = hMenu:FIRST-CHILD.
            
                MASTER00:
                DO WHILE VALID-HANDLE(hMenu):
                    DO WHILE TRUE:
                        IF hMenu:NAME <> 'm_administration' THEN LEAVE.
                        LEAVE MASTER00.
                    END.
                    hMenu = hMenu:NEXT-SIBLING.
                END.
                hMenu = hMenu:FIRST-CHILD.
            
                MASTER01:
                DO WHILE VALID-HANDLE(hMenu):
                    DO WHILE TRUE:
                        IF hMenu:NAME <> 'm_Verwaltung' THEN LEAVE.
                        LEAVE MASTER01.
                    END.
                    hMenu = hMenu:NEXT-SIBLING.
                END.
                hMenu = hMenu:FIRST-CHILD.
            
                MASTER02:
                DO WHILE VALID-HANDLE(hMenu):
                    DO WHILE TRUE:
                        IF hMenu:NAME <> 'm_Export_eShop_realwines' THEN LEAVE.
                        hMenu:SENSITIVE = TRUE.
                        LEAVE MASTER02.
                    END.
                    hMenu = hMenu:NEXT-SIBLING.
                END.
            END.
    END CASE.
    
    fAdmin    = (IF ENTRY(4, cBenutzerDaten, CHR(01)) BEGINS 'j' THEN TRUE ELSE FALSE).
    fSpez     = DYNAMIC-FUNCTION('getBenutzerSpezFlag':U) NO-ERROR.
    IF fAdmin THEN RETURN.
    
    MENU m_Administration:SENSITIVE = FALSE.
    MENU m_Tabellen      :SENSITIVE = FALSE.
    
    /*  oswald Psezial  */
    cBenutzer = DYNAMIC-FUNCTION ('getBenutzer':U) NO-ERROR.
    IF cBenutzer = 'gt' THEN MENU m_Auswertungen:SENSITIVE = FALSE.
    
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE MENU_SAMMELN wHauptmenu 
PROCEDURE MENU_SAMMELN :
    /*------------------------------------------------------------------------------
                  Purpose:     
                  Parameters:  <none>
                  Notes:       
                ------------------------------------------------------------------------------*/

    DEFINE VARIABLE hSubMenu AS HANDLE    NO-UNDO.
    DEFINE VARIABLE cName    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cProg    AS CHARACTER NO-UNDO.
    DEFINE VARIABLE i1       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE J1       AS INTEGER   NO-UNDO.
    DEFINE VARIABLE J2       AS INTEGER   NO-UNDO.

    DEFINE BUFFER BMenu FOR TMenu.

    hMenu = {&WINDOW-NAME}:MENU-BAR.
    IF NOT VALID-HANDLE(hMenu) THEN RETURN.

    hMenu = hMenu:FIRST-CHILD.
    DO WHILE VALID-HANDLE(hMenu):
        DO WHILE TRUE:
            IF hMenu:TYPE <> 'SUB-MENU' THEN LEAVE.
            FIND FIRST BMenu USE-INDEX TMenu-k2
                WHERE BMenu.cMenu = hMenu:NAME NO-LOCK NO-ERROR.
            IF AVAILABLE BMenu THEN LEAVE.
            i1 = i1 + 1.
            CREATE  BMenu.
            ASSIGN  
                BMenu.Nummer = i1
                BMenu.cMenu  = hMenu:NAME
                BMenu.hMenu  = hMenu.
            LEAVE.
        END.
        hMenu = hMenu:NEXT-SIBLING.
    END.

    FOR EACH TMenu USE-INDEX TMenu-k1:
        hMenu    = TMenu.hMenu.
        hSubMenu = hMenu:FIRST-CHILD.
        DO WHILE VALID-HANDLE(hSubMenu):
            DO WHILE TRUE:
                IF hSubMenu:TYPE <> 'SUB-MENU' THEN LEAVE.
                FIND FIRST BMenu USE-INDEX TMenu-k2
                    WHERE BMenu.cMenu = hSubMenu:NAME NO-LOCK NO-ERROR.
                IF AVAILABLE BMenu THEN LEAVE.
                i1 = i1 + 1.
                CREATE  BMenu.
                ASSIGN  
                    BMenu.Nummer = i1
                    BMenu.cMenu  = hSubMenu:NAME
                    BMenu.hMenu  = hSubMenu.
                LEAVE.
            END.
            hSubMenu = hSubMenu:NEXT-SIBLING.
        END.
    END.

    EMPTY TEMP-TABLE TMenuProg.
    FOR EACH TMenu USE-INDEX TMenu-k1:
        hMenu = TMenu.hMenu.
        hMenu = hMenu:FIRST-CHILD.
        DO WHILE VALID-HANDLE(hMenu):
            DO WHILE TRUE:
                IF hMenu:TYPE <> 'MENU-ITEM' THEN LEAVE.
                IF hMenu:NAME = ?            THEN LEAVE.
                cName = hMenu:NAME.
                CREATE  TMenuProg.
                ASSIGN  
                    TMenuProg.cMenu = cName
                    TMenuProg.Typ   = 'WI'
                    TMenuProg.hMenu = hMenu.
                /*
                DO WHILE TRUE:
                    IF NOT cName BEGINS 'm_' THEN LEAVE.
                    cName = SUBSTRING(cName,03).
                END.
                TMenuProg.cName = cName.
                IF cName BEGINS 'd-' THEN DO:
                    TMenuProg.Typ = 'DI'.
                    LEAVE.
                END.
                IF cName BEGINS 'g-' THEN DO:
                    TMenuProg.Typ = 'DI'.
                    LEAVE.
                END.
                IF cName BEGINS 'w-' THEN DO:
                    TMenuProg.Typ = 'WI'.
                    LEAVE.
                END.
                IF cName BEGINS 'f-' THEN DO:
                    TMenuProg.Typ = 'FR'.
                    LEAVE.
                END.
                */
                LEAVE.
            END.
            /*             cProg = ''.                                                   */
            /*             DO WHILE TRUE:                                                */
            /*                 cProg = cName + '.r'.                                     */
            /*                 cProg = SEARCH(cProg) NO-ERROR.                           */
            /*                 IF cProg <> ? THEN LEAVE.                                 */
            /*                 cProg = cName + '.w'.                                     */
            /*                 cProg = SEARCH(cProg) NO-ERROR.                           */
            /*                 IF cProg <> ? THEN LEAVE.                                 */
            /*                 cProg = cName + '.p'.                                     */
            /*                 cProg = SEARCH(cProg) NO-ERROR.                           */
            /*                 IF cProg <> ? THEN LEAVE.                                 */
            /*                 cProg = ''.                                               */
            /*                 LEAVE.                                                    */
            /*             END.                                                          */
            /*             j1 = INDEX(cProg, '<<').                                      */
            /*             j2 = INDEX(cProg, '>>').                                      */
            /*             IF j1 > 0   AND                                               */
            /*                j2 > 0   THEN cProg = SUBSTRING(cProg,j1 + 2,j2 - j1 - 2). */
            /*             cProg = REPLACE(cProg, '.\', '').                             */
            /*             TMenuProg.cProg = cProg.                                      */
            hMenu = hMenu:NEXT-SIBLING.
        END.
    END.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE STARTGEBINDEKONTI wHauptmenu 
PROCEDURE STARTGEBINDEKONTI :
    /*------------------------------------------------------------------------------
                  Purpose:     
                  Parameters:  <none>
                  Notes:       
                ------------------------------------------------------------------------------*/

    RUN START_PROGRAMM ( INPUT 'w-gebkonto.w':U ).

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE viewObject wHauptmenu 
PROCEDURE viewObject :
    /*------------------------------------------------------------------------------
                  Purpose:     Super Override
                  Parameters:  
                  Notes:       
                ------------------------------------------------------------------------------*/

    /* Code placed here will execute PRIOR to standard behavior. */

    RUN SUPER.

/* Code placed here will execute AFTER standard behavior.    */

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

/* ************************  Function Implementations ***************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setAuditUser wHauptmenu 
FUNCTION setAuditUser RETURNS LOGICAL
    ( ipcUser AS CHARACTER ):
    /*------------------------------------------------------------------------------*/
    /* Purpose:                                                                     */
    /* Notes:                                                                       */
    /*------------------------------------------------------------------------------*/

    DEFINE VARIABLE hClientPrincipal AS HANDLE    NO-UNDO.
    DEFINE VARIABLE cLDBName         AS CHARACTER NO-UNDO.
    DEFINE VARIABLE cDBName          AS CHARACTER NO-UNDO.
    DEFINE VARIABLE ii               AS INTEGER   NO-UNDO.

    DO ii = 1 TO NUM-DBS:
        IF INDEX(LDBNAME(ii), 'pse') <> 0 THEN NEXT.
        cLDBName = LDBNAME(ii).
        cDBName  = DBNAME.
        LEAVE.
    END.
    
    IF cLDBName = '' THEN RETURN FALSE.
        
    DO WHILE TRUE:
        SECURITY-POLICY:LOAD-DOMAINS(cLDBName).
        
        hClientPrincipal = SECURITY-POLICY:GET-CLIENT().
        IF VALID-HANDLE ( hClientPrincipal ) THEN 
        DO:
            IF hClientPrincipal:USER-ID = ipcUser THEN LEAVE.
              
            hClientPrincipal:LOGOUT() NO-ERROR.
            SECURITY-POLICY:SET-CLIENT( ? ) NO-ERROR.
            DELETE OBJECT hClientPrincipal NO-ERROR.
        END.

        CREATE CLIENT-PRINCIPAL hClientPrincipal.
        ASSIGN  
            hClientPrincipal:USER-ID     = ipcUser
            hClientPrincipal:DOMAIN-NAME = cDBName
            hClientPrincipal:DOMAIN-TYPE = cDBName
            hClientPrincipal:SESSION-ID  = SUBSTRING(BASE64-ENCODE(GENERATE-UUID),1,22).

        hClientPrincipal:SEAL("0123456789").
        SECURITY-POLICY:SET-CLIENT(hClientPrincipal).

        LEAVE.
    END.
    
    IF NOT VALID-HANDLE (hClientPrincipal) THEN RETURN FALSE.
     
    RETURN TRUE.
    
END FUNCTION.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME