Auftragsmodul: "in Ordner verschieben.."

[Forum2007]

Hallo,
hier ein Vorschlag für ein schnelleres Arbeiten mit Kontor:

Auftragsmodul:
In der Praxis ist es meistens so, dass man nicht mehrere Aufträge sondern nur einen Auftrag in einen Unterordner verschieben muss.

Jedoch muss man eher umständlich vorher die Mehrfach-Auswahl-Ansicht aktivieren, dann den Datensatz anhacken und wieder oben auf "in den Ordner verschieben" klicken.

Könnte man das nicht ein bisschen schneller machen, z.B. so:


Man klickt mit rechter Maustaste auf den Datensatz, es wird das Menü mit den Filtern angezeigt, unterhalb steht: "Verschieben in Ordner": Hier kann man dann den jeweiligen Unterordner auswählen.

lg Josef

[Forum2007]

Hallo,
ich habe diese Verbesserung nun programmiert:

Einfach dieses lokale Skript im Auftragsmodul-Skriptdesigner hineinkopieren und dann im Listenmenü (mit Programmdesigner) einen Verweis auf dieses Skript machen:

Code:
Sub MoveRecordsToFolder2()
Try
Dim selset As String = KON.GetContextField("AUFTR_HD.Auftrnr")
Dim folder As String = KON.DisplayQuickselection(KONAPP.dftools.GetQueryAsDatatable("Select Folder, Foldername from FOLDER Where Tabelle = 'AUFTR_HD' order by 1"), "FOLDER")
If folder = "" Then Exit Sub
Dim fname As String = KONAPP.dftools.GetQueryAsScalar("Select TOP 1 Foldername from FOLDER Where Folder = '" & folder & "'")
If MsgBox("Sollte der markierte Auftrag " & selset & " in den Ordner '" & fname & "' verschoben werden?", MsgboxStyle.Question Or MsgboxStyle.Yesno, "Achtung") <> MsgboxResult.Yes Then
Exit Sub
End If
KONAPP.DfTools.GetQueryAsScalar("UPDATE AUFTR_HD Set Folder = '" & folder & "' Where Auftrnr = '" & selset & "'")
UpdateFilters()
Catch
MsgBox(err.description)
End Try
End Sub


lg Josef

[codegarden]

Hallo,

Ich werde dies mal an die Geschäftsleitung weitergeben.

Mfg TRI

[andreas]

Hallo,
Wir haben dieses Skript nochmal dahingehend angepasst, dass auch eine Mehrfachauswahl verschoben werden kann. Derzeit ist es mit dem Script von Josef nämlich so, dass eine Mehrfachauswahl ignoriert wird und nur der erste selektierte Datensatz verschoben wird.
Nun kann man ohne bzw. mit Selektion einen einzelnen Datensatz verschieben oder aber auch mehrere ausgewählte Datensätze.

Code: Alles auswählen

Sub MoveRecordsToFolder2()
Try
   Dim selset As String   
   If Not KON.LVSearchlist.Checkboxes Or KON.LVSearchlist.CheckedItems.Count < 2 Then
      selset  = "Auftrnr = '" & KON.GetContextField("AUFTR_HD.Auftrnr") & "'"
   Else
      selset  = KON.GetSelectionset("AUFTR_HD.Auftrnr")
   End If
   
   Dim folder As String = KON.DisplayQuickselection(KONAPP.dftools.GetQueryAsDatatable("Select Folder, Foldername from FOLDER Where Tabelle = 'AUFTR_HD' order by 1"), "FOLDER")
   If folder = "" Then Exit Sub
   Dim fname As String = KONAPP.dftools.GetQueryAsScalar("Select TOP 1 Foldername from FOLDER Where Folder = '" & folder & "'")
   Dim cnt As String = KONAPP.DfTools.GetQueryAsScalar("Select count(*) from AUFTR_HD Where " & selset)
   If MsgBox("Sollen die markierten " & cnt & " Aufträge in den Ordner '" & fname & "' verschoben werden?", MsgboxStyle.Question Or MsgboxStyle.Yesno, "Achtung") <> MsgboxResult.Yes Then
      Exit Sub
   End If
   
   Dim sql As String = "UPDATE AUFTR_HD Set Folder = '" & folder & "' Where " & selset
   'InputBox("","",sql)
   KONAPP.DfTools.GetQueryAsScalar(sql)
   UpdateFilters()
   Catch
 MsgBox(err.description)

End Try
End Sub

MfG STOOPID Technik

PS: Falls nötig und wenn möglich diesen Thread in den Kundenbereich verschieben...

[jhoelzl]

Hallo andreas,

vielen Dank!
Wir haben das Skript auch noch weiter ausgebaut:
Wenn ein Auftrag in einen bestimmten Ordner (z.B. Erledigt / Versendet / Lieferverzögerung) gelegt wird, bekommt der Kunde ein automatisches E-Mail aus Kontor. Die E-Mail-Texte habe ich als Formulare gespeichert.

In der Datenbank habe ich einfach bei der Folder-Tabelle eine weitere Spalte hinzugefügt, in der der Fomularname gespeichert ist. Man kann jedoch natürlich die Zuordnung der Texte auch im Skript selbst hineinschreiben.

Wenn man den Auftrag verschiebt (Einfach oder Mehrfach-Auswahl) kommt ein Fenster ob man dem Kunden ein E-Mail schicken will oder nicht.

Im Grunde genommen muss man nur den Code zum E-Mail versenden aus dem System-Skript kopieren und einfügen/anpassen.

lg Josef