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
Auftragsmodul: "in Ordner verschieben.."
Moderator: codegarden
Re: Auftragsmodul: "in Ordner verschieben.."
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
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
-
- Administrator
- Beiträge: 107
- Registriert: Freitag 15. August 2008, 12:50
Re: Auftragsmodul: "in Ordner verschieben.."
Hallo,
Ich werde dies mal an die Geschäftsleitung weitergeben.
Mfg TRI
Ich werde dies mal an die Geschäftsleitung weitergeben.
Mfg TRI
Re: Auftragsmodul: "in Ordner verschieben.."
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.
MfG STOOPID Technik
PS: Falls nötig und wenn möglich diesen Thread in den Kundenbereich verschieben...
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...
Re: Auftragsmodul: "in Ordner verschieben.."
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
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
Zurück zu „Verbesserungswünsche“
Wer ist online?
Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste