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.