&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: Output Parameters: 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: ------------------------------------------------------------------------------*/ 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: 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: 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: 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: 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: 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: 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