Hier für Drag'nDrop:
EDIT: Auto-Ausfüllen bei Eintrag Kontoname hinzugefügt.
EDIT2: Auto-Ausfüllen bei Eintrag Nummer hinzugefügt. Jetzt mußt du nur noch komplettieren.
EDIT3: Wohl hoffentlich das letzte Edit - Fehlerbehandlung eingefügt, falls Nummer/Name nicht gefunden
Spoiler anzeigen
$input1 = GUICtrlCreateInput("", 195, 35, 155, 15)
GUICtrlSetState(-1, $GUI_DROPACCEPTED )
GUICtrlSetOnEvent(-1, 'NameChg1')
;..
$input11 = GUICtrlCreateInput("", 360, 35, 60, 15)
GUICtrlSetOnEvent(-1, 'NumberChg1')
;..
;..
Func NameChg1() ; ###### für jedes $Input eine Funktion #########
If StringInStr(GUICtrlRead($input1), '|') Then
$str = StringSplit(GUICtrlRead($input1), '|')
GUICtrlSetData($input1, $str[1])
GUICtrlSetData($input11, $str[2])
Else
$index = _LV_Search($list, GUICtrlRead($input1))
If $index < 0 Then
MsgBox(0, 'Fehler', 'Kontoname nicht vorhanden!')
Return
EndIf
$number = _GUICtrlListViewGetItemText($list, $index, 1)
GUICtrlSetData($input11, $number)
EndIf
EndFunc
Func NumberChg1()
$index = _LV_Search($list, GUICtrlRead($input11))
If $index < 0 Then
MsgBox(0, 'Fehler', 'Kontonummer nicht vorhanden!')
Return
EndIf
$name = _GUICtrlListViewGetItemText($list, $index, 0)
GUICtrlSetData($input1, $name)
EndFunc
; Die Funktion _GUICtrlListViewFindItem() ist zwar schön kompliziert, findet aber nix in SubItems.
; Also habe ich hier noch eine neue Suchfunktion geschrieben.
Func _LV_Search($LV, $What2Find)
$count = _GUICtrlListViewGetItemCount($LV)
If $count < 1 Then Return -1 ; Return -1 ; leere Liste
$countSub = _GUICtrlListViewGetSubItemsCount($LV)
For $i = 0 To $count-1
For $k = 0 To $countSub-1
If _GUICtrlListViewGetItemText($LV, $i, $k) = $What2Find Then Return $i
Next
Next
Return -2 ; Return -2 ; nicht gefunden
EndFunc
Wenn der Wert in Input1 (.. 8 ) gezogen wurde, muß ENTER gedrückt werden damit das Ereignis eintritt.
Deshalb kannst du deinen Speicher-Button NICHT als $BS_DEFPUSHBUTTON definieren.
GUICtrlCreateButton("speicher Buchungssatz", 280, 245);, -1, -1, $BS_DEFPUSHBUTTON)
[/autoit]