Shop Artikelgruppen

Möglichkeit für den Shop gesonderte Artikelgruppen (alternative Artikelgruppen) zu pflegen und damit auch mehreren Artikelgruppen einem Artikel zuordnen zu können. 
 Bitte beachte Sie. Die darüber zugewiesenen Artikel, werden bei eingeblendeten Artikelgruppenbaum in der Artikelmaske in den alternativen Gruppen nicht mit dargestellt. 
 Extratabelle (Extradialog) 
 
 Anlegen der Extratabelle im Dialogmanager 
 
 
 
 
 Feld 
 Wert 
 
 
 Kürzel 
 #D 
 
 
 Tabelle 
 XArtikelgruppenzuordnung 
 
 
 Beschreibung 
 Artikelgruppenzuordnung 
 
 
 Indexfeld 
 AG_ID 
 
 
 Indextyp 
 Integer 
 
 
 
 Bitte darauf achten, dass die Felder „Angelegt/Bearbeitet“ aktiv ist 
 
 2.

Anlegen der Felder in der Extratabelle unter  Vorgabewerte 
 Tabelle: ART 
 Extrafelder: 
 
 
 
 Name 
 Typ / Größe 
 Beschreibung / Inhalt 
 
 
 _ARTIKELNUMMER 
 Text 40 
 Artikelnummer des Artikels 
 
 
 _NUMMER 
 Text 13 
 Nummer der alternativen Artikelgruppe 
 
 
 
 Berechnende Spalten Berechnete Felder / Spalten: Gruppen.Bezeichnung 
 Verknüpfte Tabellen: LEFT JOIN Gruppen ON Gruppen.Nummer = master._Nummer AND Gruppen.ID = 'AG' 
 
 Tabelle: Gruppen 
 Für die klare Trennung der Verwendung von Artikelgruppen (Alternative-, oder Hauptgruppe) ist für den Anwender hilfreich, die alternativen Artikelgruppen zu Kennzeichnen. 
 Tabelle: Artikelgruppe (GRUPPEN) 
 
 
 
 Name 
 Typ / Größe 
 Beschreibung 
 
 
 _AAG 
 Logisch 
 dient als Filterkriterium 
 
 
 
 Nacharbeit: update [GRUPPEN] set [_AAG] = 0 
 3. Anpassen der Dialoge 
 
 
 Eingabefeld Artikelnummer Tabellenverweis: Art 
 Eingabefeld Nummer Tabellenverweis: Artikelgruppe Filter optional: "_AAG = 1" 
 Wenn der Filter gesetzt ist, müssen die Artikelgruppen vor der Verwendung für AAG aktiviert werden 
 Ausrichtung der Felder 
 
 
 
 Feld 
 Position 
 Breite | Höhe 
 
 
 Artikelnummer Bezeichnung 
 20 | 0 
 80 | 19 
 
 
 Artikelnummer Eingabe 
 110 | 0 
 105 | 19 
 
 
 Artikelgruppe Bezeichnung 
 20 | 25 
 80 | 19 
 
 
 Artikelgruppe Eingabe Nummer 
 110 | 25 
 115 | 19 
 
 
 Artikelgruppe Eingabe Bezeichnung 
 230 | 25 
 250 | 19 
 
 
 
 
 Manueller Feldeditor 
 inherited DlgExtraXtraPanel: TXtraPanel   Margins.Left = 8   Margins.Top = 8   Margins.Right = 8   Margins.Bottom = 8   object LaExtraArtikelnummer: TXPanel     Left = 10     Top = 10     Width = 87     Height = 19     Margins.Left = 8     Margins.Top = 8     Margins.Right = 8     Margins.Bottom = 8     Alignment = taRightJustify     BevelOuter = bvNone     BorderWidth = 0     Caption = 'Artikelnummer'     Font.Charset = DEFAULT_CHARSET     Font.Color = clWindowText     Font.Height = -11     Font.Name = 'Microsoft Sans Serif'     Font.Style = []     ParentBackground = True     ParentFont = False     PopupMenu = LaExtraArtikelnummer.SysMenu     TabOrder = 0     MaskenEditor.DarfUmbenennen = True   end   object LaExtraArtikelgruppe: TXPanel     Left = 10     Top = 40     Width = 87     Height = 19     Margins.Left = 8     Margins.Top = 8     Margins.Right = 8     Margins.Bottom = 8     Alignment = taRightJustify     BevelOuter = bvNone     BorderWidth = 0     Caption = 'Artikelgruppe'     Font.Charset = DEFAULT_CHARSET     Font.Color = clWindowText     Font.Height = -11     Font.Name = 'Microsoft Sans Serif'     Font.Style = []     ParentBackground = True     ParentFont = False     PopupMenu = LaExtraArtikelgruppe.SysMenu     TabOrder = 2     MaskenEditor.DarfUmbenennen = True   end   object EdExtraARTIKELNUMMER: TXDBEdit     Left = 100     Top = 10     Width = 97     Margins.Left = 8     Margins.Top = 8     Margins.Right = 8     Margins.Bottom = 8     ParentFont = False     ConnectBlobKey = 'AR'     Font.Charset = DEFAULT_CHARSET     Font.Color = clWindowText     Font.Height = -11     Font.Name = 'Microsoft Sans Serif'     Font.Style = []     TabOrder = 1     ConnectFilterFormel = '"Shopaktiv = 1"'     ConnectFiltered = True     ChoiceButton = cbConnect     DataField = '_ARTIKELNUMMER'   end   object EdExtraNUMMER: TXDBEdit     Left = 100     Top = 40     Width = 97     Margins.Left = 8     Margins.Top = 8     Margins.Right = 8     Margins.Bottom = 8     ParentFont = False     ConnectBlobKey = 'AG'     ConnectFields.Strings = (       'LaExtraAG_Bezeichnung|Bezeichnung')     Font.Charset = DEFAULT_CHARSET     Font.Color = clWindowText     Font.Height = -11     Font.Name = 'Microsoft Sans Serif'     Font.Style = []     TabOrder = 3     ConnectFilterFormel = '"_AAG = 1"'     ConnectFiltered = True     ChoiceButton = cbConnect     DataField = '_NUMMER'   end   object LaExtraAG_Bezeichnung: TXPanel     Left = 200     Top = 40     Width = 300     Height = 19     Margins.Left = 8     Margins.Top = 8     Margins.Right = 8     Margins.Bottom = 8     Alignment = taLeftJustify     BevelOuter = bvNone     BorderWidth = 0     Caption = '#AG_Bezeichnung#'     Font.Charset = DEFAULT_CHARSET     Font.Color = clWindowText     Font.Height = -11     Font.Name = 'Microsoft Sans Serif'     Font.Style = []     ParentBackground = True     ParentFont = False     ParentShowHint = False     PopupMenu = LaExtraAG_Bezeichnung.SysMenu     ShowHint = False     TabOrder = 4     MaskenEditor.DarfUmbenennen = True   end end 
 4. Eventuelle Datenpflege 
 Bei Kunden die schon länger mit Alternativen Artikelgruppen arbeiten, ist es möglich, dass bereits Daten über die Makro methode gepflegt wurden. Dies kann mit dieser Abfrage geprüft werden. 
 select [Artikelnummer] ,[AlternativArtikel] AS "Alternative AG"  ,[Bezeichnung]AS "Alternative AG Bezeichnung"  from [ARTALTER], [GRUPPEN]  Where [AlternativArtikel] = [Nummer] 
 Mit dieser Abfrage, können Sie die Daten auch als .csv Export speichern und mit dem Import Assistenten in die neue Tabelle "XArtikelgruppenzuordnung" importieren.