Grund für Gutschrift

Grund für Gutschrift

Beschreibung

Beim erstellen einer Gutschrift  wird eine Meldung angezeigt, die zur Angabe des Reklamationsgrunds auffordert. Die Antwort wird in den erweiterten Eigenschaften des Auftrags gespeichert und kann durch LINQ Abfragen abgerufen werden.

Voraussetzung

Auftragsverwaltung ab Version 12.1.6

Ablauf des Skripts

1. Beim Start der Auftragsverwaltung wird der Skript automatisch kompiliert und überwacht das erstellen von neuen Fenstern.
2. Wird ein Fenster erstellt, welches dem Typ “Auftrag” entspricht, wird die Datenquelle auf Änderung des Auftrag Typs überwacht. Wird der Typ auf “Gutschrift” geändert, wird eine Meldung zur Angabe des Reklamationsgrunds eingeblendet.
3. Das Ergebnis wird in den erweiterten Eigenschaften des Auftrags gespeichert und kann zum erstellen von Filtern verwendet werden.

Installation

Der Skript muss sich im Ordner “[Datenpfad]\Skripts\Autostart”  befinden.

Um die Auftragsliste nach den Reklamationsgründen zu filtern kann folgende LINQ Abfrage verwendet werden:

From a In dc.tbl_Auftrag Where (From e In a.tbl_Auftrag_Extendeds Where e.Kategorie = "RMA Grund" And e.Text = "Transportschaden").Any()

Der gelb markierte Text gibt den anzuzeigenden Reklamationsgrund an und kann je nach Bedarf angepasst werden. Dabei ist auf Groß-/Kleinschreibung zu achten.

Im Beispielskript sind folgende RMA Gründe verfügbar:

• falsch bestellt
• falsch geliefert
• neu defekt
• Transportschaden
• sonstiges

Einrichten einer Abfrage

1. Öffnen Sie die Auftragsliste. Klicken Sie dazu im Hauptmenü auf “Aufträge” und anschließend auf “Alle Aufträge anzeigen”
2. Wählen Sie im rechten Navigationsmenü “Filter” aus. Im unteren Bereich des Filterdialogs über der Schaltfläche “Filter anwenden” befindet sich ein Textfeld. Klicken Sie dieses an und bestätigen Sie die angezeigte Warnung.
3. Geben Sie im Textfeld die oben angegebene LINQ abfrage ein. Passen Sie den gelben Text an Ihre Bedürfnisse an.
4. Klicken Sie auf das + neben der Filterliste im oberen Bereich um den Filter als neuen Filter zu speichern.
5. Geben Sie eine Bezeichnung für den neuen Filter ein und klicken Sie auf speichern.

Skript

Imports Microsoft.VisualBasic Imports System Imports System.Collections.Generic Imports System.Linq Imports Styletronix.AuftragsverwaltungV2.Common Imports Styletronix.AuftragsverwaltungV2 Imports Styletronix.AuftragsverwaltungV2.IPC Imports Styletronix Imports Styletronix.Threading.Thread_Manager Namespace LagerstandAbfrage Public Class DynamicCode Implements IPC.IPluginDetails Implements IPC.ICommonPlugIn #Region "Deklarationen" Private _Host As Object #End Region #Region "PluginDetails" Public ReadOnly Property Plugin_Company As String Implements IPC.IPluginDetails.Plugin_Company Get Return "Styletronix.net" End Get End Property Public ReadOnly Property Plugin_Description As String Implements IPC.IPluginDetails.Plugin_Description Get Return "Fragt bei der erstellung einer Gutschrift nach dem Grund für die Gutschrift." End Get End Property Public ReadOnly Property Plugin_Icon As System.Drawing.Image Implements IPC.IPluginDetails.Plugin_Icon Get Return Nothing End Get End Property Public ReadOnly Property Plugin_Name As Object Implements IPC.IPluginDetails.Plugin_Name Get Return "Abfrage Grund für Gutschrift" End Get End Property Public ReadOnly Property Plugin_Version As System.Version Implements IPC.IPluginDetails.Plugin_Version Get Return New Version(1, 0, 0) End Get End Property #End Region #Region "CommonPlugIn" Public Sub Initialize(Host As Object) Implements AuftragsverwaltungV2.IPC.ICommonPlugIn.Initialize Me._Host = Host 'Überwacht das öffnen von Fenstern. AddHandler CType(Me._Host, Styletronix.Auftragsverwaltung.mainApp).XtraTabbedMdiManager2.PageAdded, AddressOf PageAdded End Sub Public ReadOnly Property Plugin_HasConfigMenu As Boolean Implements AuftragsverwaltungV2.IPC.ICommonPlugIn.Plugin_HasConfigMenu Get Return False End Get End Property Public Sub ShowConfigMenu() Implements AuftragsverwaltungV2.IPC.ICommonPlugIn.ShowConfigMenu Throw New NotImplementedException End Sub Public Function ShutDown() As Boolean Implements AuftragsverwaltungV2.IPC.ICommonPlugIn.ShutDown Return True End Function Public Function ShutDownRequest() As AuftragsverwaltungV2.IPC.ICommonPlugIn.Shutdown_Result Implements AuftragsverwaltungV2.IPC.ICommonPlugIn.ShutDownRequest Return New AuftragsverwaltungV2.IPC.ICommonPlugIn.Shutdown_Result With {.Cancel = False} End Function #End Region Private Sub PageAdded(ByVal sender As Object, ByVal e As DevExpress.XtraTabbedMdi.MdiTabPageEventArgs) 'Beim öffnen eines neuen Fensters wird geprüft, ob es sich um einen Auftrag handelt. Dim form = CType(e.Page.MdiChild, Windows.Forms.Form) Dim Auftrag As Styletronix.Auftragsverwaltung.frm_Auftrag = TryCast(form, Styletronix.Auftragsverwaltung.frm_Auftrag) If Not Auftrag Is Nothing Then Dim Monitoring As New AuftragMonitoring(Auftrag, _Host) End If End Sub Private Class AuftragMonitoring Private LetzterAuftragsTyp As Int64 Private Form As Styletronix.Auftragsverwaltung.frm_Auftrag Private Host As Object Public Sub New(Form As Styletronix.Auftragsverwaltung.frm_Auftrag, Host As Object) Me.Form = Form Me.Host = Host AddHandler Me.Form.BindingSource_Auftrag.CurrentItemChanged, AddressOf CurrentItemChanged End Sub Private Sub CurrentItemChanged(ByVal sender As Object, ByVal e As System.EventArgs) Dim Auftragsdaten As tbl_Auftrag = TryCast(sender.Current, tbl_Auftrag) 'Bei Änderung der Datenquelle prüfen, ob sich die KDNr geändert hat. If Not Auftragsdaten.typ Is Nothing AndAlso Not Auftragsdaten.typ = LetzterAuftragsTyp Then 'Auftragstyp prüfen If Auftragsdaten.typ Is Nothing Then Return 'If Auftragsdaten.ID <= 0 Then Return If Not Auftragsdaten.typ = EntityHelper.CustomDataTypes.AuftragTyp.Gutschrift Then Return Me.LetzterAuftragsTyp = Auftragsdaten.typ If (From a In Auftragsdaten.tbl_Auftrag_Extendeds Where a.Kategorie = "RMA Grund").Count > 0 Then Return Using dlg As New Styletronix.ReportSystem.MessageBox2 dlg.Überschrift = "Geben Sie den Grund für die Gutschrift an." dlg.Text = "Grund für Gutschrift" Dim btn As New Styletronix.ReportSystem.MessageBox2.ButtonParameter btn.Caption = "falsch bestellt" btn.Tag = "falsch bestellt" dlg.AddButton(btn) btn = New Styletronix.ReportSystem.MessageBox2.ButtonParameter btn.Caption = "falsch geliefert" btn.Tag = "falsch geliefert" dlg.AddButton(btn) btn = New Styletronix.ReportSystem.MessageBox2.ButtonParameter btn.Caption = "neu defekt" btn.Tag = "neu defekt" dlg.AddButton(btn) btn = New Styletronix.ReportSystem.MessageBox2.ButtonParameter btn.Caption = "Transportschaden" btn.Tag = "Transportschaden" dlg.AddButton(btn) btn = New Styletronix.ReportSystem.MessageBox2.ButtonParameter btn.Caption = "sonstiges" btn.Tag = "sonstiges" dlg.AddButton(btn) btn = New Styletronix.ReportSystem.MessageBox2.ButtonParameter btn.Caption = "abbruch" btn.Description = "Schließt diese Meldung ohne angabe eines Grundes" btn.Image = Styletronix.Auftragsverwaltung.My.Resources.Stop_2 btn.Tag = "cancel" dlg.AddButton(btn) dlg.ShowDialog() If Not dlg.SelectedItem.Tag = "cancel" Then Dim g As New tbl_Auftrag_Extended g.Datum = DateTime.Now g.Kategorie = "RMA Grund" g.Text = dlg.SelectedItem.Tag g.UserID = UserManagement.UserID Auftragsdaten.tbl_Auftrag_Extendeds.Add(g) End If 'From a In dc.tbl_Auftrag 'Where (From e In a.tbl_Auftrag_Extendeds Where e.Kategorie = "RMA Grund" And e.Text = "Transportschaden").Any() End Using End If End Sub End Class End Class End Namespace

Quelle

• Ursprungsdatei: grund_fuer_gutschrift.htm