hallo zusammen,
musste meinen pc gerade neu aufsetzten!
bekomme jetzt mit dem windows xp sp3 folgende fehlermeldung im script!
D:\lwc\scripte\Erfassungsbogen\adfunctions.au3 (140) : ==> Variable must be of type "Object".:
Global $strDNSDomain = $objRootDSE.Get("defaultNamingContext")
Global $strDNSDomain = $objRootDSE^ ERROR
script
Spoiler anzeigen
#include <GuiStatusBar.au3>
#include <File.au3>
#include <GUIConstants.au3>
#Include <Array.au3>
#include <adfunctions.au3>
#include <Date.au3>
#include <GUIListBox.au3>
#Include <GuiComboBox.au3>
#Include <Misc.au3>
#include <File.au3>
#include <Process.au3>
#include <String.au3>
DIM $Input7, $Input8 , $Input9, $Input10, $Input11, $Input12, $Input13, $Input14, $Input15
DIM $Label10, $Label11, $Label12, $Label13, $Label14, $Label15, $Label16, $Label17, $Label18
DIM $Group3
DIM $oMyRet
$mail = _ADGetObjectAttribute(@UserName,"mail")
$muser = @UserName
$file = (@ScriptDir & "\portale.txt")
Dim $aRecords
Dim $sString
If Not _FileReadToArray($file,$aRecords) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
For $x = 1 to $aRecords[0]
; Msgbox(0,'Record:' & $x, $aRecords[$x])
;Next
$sString &= $aRecords[$x]
Next
;MsgBox(0,"", $sString)
$DATAC1 = "Angebot|Rückfrage|Stornierung|Umbuchung|RSB Buchung"
$DATAC2 = $sString
;===========================================
; database
;===========================================
$dbn = @ScriptDir & "\portale.mdb"
;===========================================
; table portale
;===========================================
$tbln_1 = "portale"
;$fldname_tbl1_0 = "pr" ;bla
;$format = "Text(150)"
$fldn_tbl1_1 = "projekt" ;bla
$format = "Text(150)"
$fldn_tbl1_2 = "teilprojekt" ;bla
$format = "Text(200)"
$fldn_tbl1_3 = "mail" ;bla
$format = "Text(150)"
;===========================================
; table mails
;===========================================
$tbln_2 = "mails"
[/autoit] [autoit][/autoit] [autoit]$fldn_tbl2_1 = "teilprojekt" ;bla
$format = "Text(150)"
$fldn_tbl2_2 = "mail" ;bla
$format = "Text(150)"
$query = "SELECT * FROM "& $tbln_1
$strData = _ReadOneFld($query, $dbn, $fldn_tbl1_1) ; db auslesen
;MsgBox(0,"",$strData)
$E1 = StringStripWS($strData,3)
#Region ### START Koda GUI section ### Form=C:\Erfassungsbogen\Form1.kxf
$erfbo = GUICreate("Erfassungsbogen 3.0.0.2", 740, 530, 219, 137)
GUISetBkColor(0x00708090) ; setzt hintergrundfarbe
;$Label1 = GUICtrlCreateLabel("Portal", 16, 16, 39, 20)
;GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Anrufgrund", 16, 44, 120, 20)
GUICtrlSetFont(-1, 10, 600, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Vorname, Name", 16, 68, 120, 20)
GUICtrlSetFont(-1, 10, 600, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Telefon", 16, 92, 120, 20)
GUICtrlSetFont(-1, 10, 600, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel("E-Mail", 16, 114, 120, 20)
GUICtrlSetFont(-1, 10, 600, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel("Veranstalter", 16, 136, 120, 20)
GUICtrlSetFont(-1, 10, 600, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label7 = GUICtrlCreateLabel("Vorgang", 16, 160, 120, 20)
GUICtrlSetFont(-1, 10, 600, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label8 = GUICtrlCreateLabel("Fakten", 16, 184, 120, 20)
GUICtrlSetFont(-1, 10, 600, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
;$Input1 = GUICtrlCreateInput("", 136, 16, 249, 21)
$Combo1 = GUICtrlCreateCombo(" ... Bitte auswählen", 145, 40, 240, 25 )
GUICtrlSetData(-1, $DATAC1, " ... Bitte auswählen")
$Input2 = GUICtrlCreateInput("", 145, 64, 240, 21)
$Input3 = GUICtrlCreateInput("", 145, 88, 240, 21)
$Input4 = GUICtrlCreateInput("", 145, 112, 240, 21)
$Input5 = GUICtrlCreateInput("", 145, 136, 240, 21)
$Input6 = GUICtrlCreateInput("", 145, 160, 240, 21)
$Edit2 = GUICtrlCreateEdit("", 145, 184, 240, 81)
GUICtrlSetData(-1, "")
$Group2 = GUICtrlCreateGroup("ITYX", 16, 272, 497, 249)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
;DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
; Local $group = GUICtrlCreateGroup("Group 1", 190, 60, 90, 140)
; GUICtrlSetColor(-1,0x0000FF)
;DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 1)
$List1 = GUICtrlCreateList("", 32, 296, 249, 214)
GUICtrlSetData(-1, $DATAC2)
$List2 = GUICtrlCreateList("", 296, 296, 201, 214)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Löschen", 584, 392, 97, 25, 0)
GUICtrlSetBkColor(-1,0xff4D00)
$Button2 = GUICtrlCreateButton("Senden", 584, 432, 97, 25, 0)
GUICtrlSetBkColor(-1,0x66CC00)
$Label9 = GUICtrlCreateLabel("mail gesendet!", 600, 480, 104, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_HIDE)
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
$Checkbox1 = GUICtrlCreateCheckbox("Dringend", 600, 360, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 7)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit]Sleep(2000)
[/autoit] [autoit][/autoit] [autoit];------------ updater 11.06.2009 versionsvergleich ----------------
$path1 = "\\server\netlogon\ErfassungsbogenUpdate\"
$path2 = "C:\OT-Tools\Erfassungsbogen\"
$file = "CallCenterErfassungsbogen.exe"
$file1 = "portale.mdb"
$file2 = "portale.txt"
$sVersion1 = $path1 & $file
$sVersion2 = $path2 & $file
$quelle = $path1 & $file
$quelle1 = $path1 & $file1
$quelle2 = $path1 & $file2
$ziel = $path2
[/autoit] [autoit][/autoit] [autoit]$ver1 = FileGetVersion($sVersion1) ;server
$ver2 = FileGetVersion($sVersion2) ;local
;MsgBox(0, "Explorer version", $ver1 & " / " & $ver2)
[/autoit] [autoit][/autoit] [autoit]IF $ver1 > $ver2 Then
[/autoit] [autoit][/autoit] [autoit]BlockInput(1)
MsgBox(0,"","Update vorhanden!",1)
Run(@ScriptDir & "\updater.exe") ; run updater.exe Run($sVersion2, "", @SW_MAXIMIZE)
BlockInput(0)
Exit
Else
MsgBox(0,"","kein Update vorhanden!",1)
EndIf
;------------ ende updater 11.06.2009 versionsvergleich ----------------
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $List1
;~ If GUICtrlRead($List1) = "abocard" Then
;~ GUICtrlSetData($List2, "")
;~ GUICtrlSetData($List2, "A1|A3|A3")
;~ EndIf
;If GUICtrlRead($List1) = "abocard" Then GUICtrlSetData($List2, $DATAC2)
$wert1 = GUICtrlRead($List1)
$query1 = "SELECT * FROM "& $tbln_1 & " WHERE projekt = " & "'" & $wert1 & "'"
$strData1 = _ReadOneFld($query1, $dbn, $fldn_tbl1_2) ; db auslesen
;MsgBox(64,"", StringStripWS($strData1,3)) ;leerzeichen abschneiden
;MsgBox(0,"",$strData1)
GUICtrlSetData($List2, "")
GUICtrlSetData($List2, StringStripWS($strData1,3))
Case $Button2
[/autoit] [autoit][/autoit] [autoit]$wert2 = GUICtrlRead($List2)
$query2 = "SELECT * FROM "& $tbln_2 & " WHERE teilprojekt = " & "'" & $wert2 & "'"
$strData2 = _ReadOneFld($query2, $dbn, $fldn_tbl2_2) ; db auslesen
$portal = GUICtrlRead($List1)
$teilp = GUICtrlRead($List2)
$name = GUICtrlRead($Input2)
$tel = GUICtrlRead($Input3)
$tmail = GUICtrlRead($Input4)
$ver = GUICtrlRead($Input5)
$vor = GUICtrlRead($Input6)
$fakt = GUICtrlRead($Edit2)
$gda = GUICtrlRead($Combo1)
;--------------------------
$i1 = GUICtrlRead($Input7)
$i2 = GUICtrlRead($Input8)
$i3 = GUICtrlRead($Input9)
$i4 = GUICtrlRead($Input10)
$i5 = GUICtrlRead($Input11)
$i6 = GUICtrlRead($Input12)
$i7 = GUICtrlRead($Input13)
$i8 = GUICtrlRead($Input14)
$i9 = GUICtrlRead($Input15)
;--------------------------
$cb1 = GUICtrlRead($Checkbox1)
;MsgBox(0,"",$cb1 & "checked")
If $cb1 = 1 Then $cbtext = "Dringend"
If $cb1 = 4 Then $cbtext = ""
$date = _Now()
$sp = "-----------------------------------------"
$sp1 = "#########################################"
;--------------------subjekt-------------------
$sb = "Erfassungsbogen " & $portal & " / " & $teilp & " / " & $cbtext
;----------------------------------------------
;-------------------mail body------------------
$mbody1 = $sp1 & @CRLF & $date & @CRLF & $sp1 & @CRLF & "Portal: " & $portal & @CRLF & $sp & @CRLF & "Vorname, Name: " & $name & @CRLF & $sp & @CRLF & "Telefon: " & $tel & @CRLF & $sp & @CRLF & "Mail: " & $tmail & @CRLF & $sp & @CRLF & "Veranstalter: " & $ver & @CRLF & $sp & @CRLF & "Vorgang: " & $vor & @CRLF & $sp & @CRLF & "Fakten: " & @CRLF & @CRLF & $fakt & @CRLF & @CRLF
;----------------------------------------------
$mbody_angebot = $gda & @CRLF & $sp1 & @CRLF & "Erwachsene: " & $i1 & @CRLF & $sp & @CRLF & "Kinder: " & $i2 & @CRLF & $sp & @CRLF & "Reiseziel: " & $i3 & @CRLF & $sp & @CRLF & "1. Flughafen: " & $i4 & @CRLF & $sp & @CRLF & "2. Flughafen: " & $i5 & @CRLF & $sp & @CRLF & "Verpflegung: " & $i6 & @CRLF & $sp & @CRLF & "Zimmer: " & $i7
;----------------------------------------------
$mbody_umbuchung = $gda & @CRLF & $sp1 & @CRLF & "Hotel: " & $i1 & @CRLF & $sp & @CRLF & "Zimmer: " & $i2 & @CRLF & $sp & @CRLF & "Verpflegung: " & $i3 & @CRLF & $sp & @CRLF & "Termin: " & $i4 & @CRLF & $sp & @CRLF & "Flughafen: " & $i5 & @CRLF & $sp & @CRLF & "Dauer: " & $i6 & @CRLF & $sp & @CRLF & "Personen: " & $i7 & @CRLF & $sp & @CRLF & "Reiseziel: " & $i8 & @CRLF & $sp & @CRLF & "Zimmer: " & $i9
;----------------------------------------------
$mbody_rsbbuchung = $gda & @CRLF & $sp1 & @CRLF & "Agenturnummer: " & $i1 & @CRLF & $sp & @CRLF & "Telefonnummer: " & $i2
;----------------------------------------------
;MsgBox(0,"",$mbody)
[/autoit] [autoit][/autoit] [autoit]If $gda = " ... Bitte auswählen" Then
MsgBox(0,"Info","Bitte Grund des Anrufes auswählen!")
Else
If $portal = "" Then ; MsgBox(0,"",$portal)
MsgBox(0,"Info","Bitte Projekt auswählen!")
Else
If $teilp = "" Then ; MsgBox(0,"",$portal)
MsgBox(0,"Info","Bitte Teilprojekt auswählen!")
Else
BlockInput (1)
[/autoit] [autoit][/autoit] [autoit]Sendmail()
GUICtrlSetState($Button2, $GUI_DISABLE) ;senden button deaktivieren
_GUICtrlListBox_ResetContent($List1)
GUICtrlSetData($List1, $DATAC2)
_GUICtrlListBox_ResetContent($List2)
BlockInput (0)
Sleep (3000)
GUICtrlSetState($Label9, $GUI_SHOW)
;MsgBox(64,"","Mail gesendet",3)
;Sleep (8000) ;8 sekunden
;GUICtrlSetState($Label9, $GUI_HIDE) ;mail gesendet label
;GUICtrlSetState($Button2, $GUI_ENABLE) ;senden button aktivieren
EndIf
EndIf
EndIf
[/autoit] [autoit][/autoit] [autoit]Case $Button1 ;löschen
[/autoit] [autoit][/autoit] [autoit]_Del()
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Label9, $GUI_HIDE)
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "")
GUICtrlSetData($Input4, "")
GUICtrlSetData($Input5, "")
GUICtrlSetData($Input6, "")
GUICtrlSetData($Edit2, "")
GUICtrlDelete($Combo1)
$Combo1 = GUICtrlCreateCombo(" ... Bitte auswählen", 145, 40, 240, 25 )
GUICtrlSetData(-1, $DATAC1, " ... Bitte auswählen")
_GUICtrlListBox_ResetContent($List1)
GUICtrlSetData($List1, $DATAC2)
_GUICtrlListBox_ResetContent($List2)
ControlCommand("","Dringend",$Checkbox1, "UnCheck", "") ;checkbox unchecked
[/autoit] [autoit][/autoit] [autoit]Case $Combo1
[/autoit] [autoit][/autoit] [autoit]$gda = GUICtrlRead($Combo1)
[/autoit] [autoit][/autoit] [autoit];MsgBox(0,"",$gda)
IF $gda = " ... Bitte auswählen" Then _Del()
IF $gda = "Angebot" Then _AngebotShow()
IF $gda = "Rückfrage" Then _Del()
IF $gda = "Stornierung" Then _Del()
IF $gda = "Umbuchung" Then _UmbuchungShow()
IF $gda = "RSB Buchung" Then _RSBBuchungShow()
EndSwitch
WEnd
Func Sendmail()
[/autoit] [autoit][/autoit] [autoit]Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc_1")
;##################################
; Variables
;##################################
$s_SmtpServer = "0.0.0.0" ; address for the smtp-server to use - REQUIRED
$s_FromName = $muser ; name from who the email was sent
$s_FromAddress = $mail ; address from where the mail should come
$s_ToAddress = $strData2 ; destination address of the email - REQUIRED
$s_Subject = $sb ; subject from the email - can be anything you want it to be
;$as_Body = $mbody1 ; the messagebody from the mail - can be left blank but then you get a blank mail
IF $gda = "Stornierung" Then $as_Body = $mbody1
IF $gda = "Rückfrage" Then $as_Body = $mbody1
If $gda = "Angebot" Then $as_Body = $mbody1 & @CRLF & $sp1 & @CRLF & $mbody_angebot
If $gda = "Umbuchung" Then $as_Body = $mbody1 & @CRLF & $sp1 & @CRLF & $mbody_umbuchung
If $gda = "RSB Buchung" Then $as_Body = $mbody1 & @CRLF & $sp1 & @CRLF & $mbody_rsbbuchung
$s_AttachFiles = "" ; the file you want to attach- leave blank if not needed
$s_CcAddress = "" ; address for cc - leave blank if not needed
$s_BccAddress = "" ; address for bcc - leave blank if not needed
$s_Username = "tool" ; username for the account used from where the mail gets sent - Optional (Needed for eg GMail)
$s_Password = "xxxxxxx" ; password for the account used from where the mail gets sent - Optional (Needed for eg GMail)
$IPPort = 25 ; port used for sending the mail
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465 ; GMAIL port used for sending the mail
;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS
;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc_1")
$rc = _INetSmtpMailCom_1($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf
EndFunc ;==>Sendmail
[/autoit] [autoit][/autoit] [autoit];###################################################
[/autoit] [autoit][/autoit] [autoit]Func _INetSmtpMailCom_1($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $Ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
return $oMyRet[1]
EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc_1()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description,3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc_1
;###################################################
[/autoit] [autoit][/autoit] [autoit]Func _ReadOneFld($_sql, $_dbname, $_field)
Dim $_output
$adoCon = ObjCreate ("ADODB.Connection")
$adoCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & $_dbname)
$adoRs = ObjCreate ("ADODB.Recordset")
$adoRs.CursorType = 1
$adoRs.LockType = 3
$adoRs.Open ($_sql, $adoCon)
With $adoRs
If .RecordCount Then
While Not .EOF
$_output = $_output & .Fields ($_field).Value & @CRLF
.MoveNext
WEnd
EndIf
EndWith
$adoCon.Close
Return $_output
EndFunc ;==>_ReadOneFld
Func _AngebotShow()
[/autoit] [autoit][/autoit] [autoit]GUICtrlDelete($Group3)
GUICtrlDelete($Input7)
GUICtrlDelete($Input8)
GUICtrlDelete($Input9)
GUICtrlDelete($Input10)
GUICtrlDelete($Input11)
GUICtrlDelete($Input12)
GUICtrlDelete($Input13)
GUICtrlDelete($Input14)
GUICtrlDelete($Input15)
;----------------------
GUICtrlDelete($Label10)
GUICtrlDelete($Label11)
GUICtrlDelete($Label12)
GUICtrlDelete($Label13)
GUICtrlDelete($Label14)
GUICtrlDelete($Label15)
GUICtrlDelete($Label16)
GUICtrlDelete($Label17)
GUICtrlDelete($Label18)
;----------------------
$Group3 = GUICtrlCreateGroup("Angebot", 400, 16, 321, 249)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label10 = GUICtrlCreateLabel("Erwachsene", 416, 48, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label11 = GUICtrlCreateLabel("Kinder", 416, 72, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label12 = GUICtrlCreateLabel("Reiseziel", 416, 96, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label13 = GUICtrlCreateLabel("1. Flughafen", 416, 120, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label14 = GUICtrlCreateLabel("2. Flughafen", 416, 144, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label15 = GUICtrlCreateLabel("Verpflegung", 416, 168, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label16 = GUICtrlCreateLabel("Zimmer", 416, 192, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Input7 = GUICtrlCreateInput("", 510, 48, 195, 21)
$Input8 = GUICtrlCreateInput("", 510, 72, 195, 21)
$Input9 = GUICtrlCreateInput("", 510, 96, 195, 21)
$Input10 = GUICtrlCreateInput("", 510, 120, 195, 21)
$Input11 = GUICtrlCreateInput("", 510, 144, 195, 21)
$Input12 = GUICtrlCreateInput("", 510, 168, 195, 21)
$Input13 = GUICtrlCreateInput("", 510, 192, 195, 21)
;GUICtrlSetTip($Input13, "test")
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _UmbuchungShow()
[/autoit] [autoit][/autoit] [autoit]GUICtrlDelete($Group3)
GUICtrlDelete($Input7)
GUICtrlDelete($Input8)
GUICtrlDelete($Input9)
GUICtrlDelete($Input10)
GUICtrlDelete($Input11)
GUICtrlDelete($Input12)
GUICtrlDelete($Input13)
GUICtrlDelete($Input14)
GUICtrlDelete($Input15)
;----------------------
GUICtrlDelete($Label10)
GUICtrlDelete($Label11)
GUICtrlDelete($Label12)
GUICtrlDelete($Label13)
GUICtrlDelete($Label14)
GUICtrlDelete($Label15)
GUICtrlDelete($Label16)
GUICtrlDelete($Label17)
GUICtrlDelete($Label18)
;----------------------
$Group3 = GUICtrlCreateGroup("Umbuchung", 400, 16, 321, 258)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("Hotel", 416, 48, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label11 = GUICtrlCreateLabel("Zimmer", 416, 72, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label12 = GUICtrlCreateLabel("Verpflegung", 416, 96, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label13 = GUICtrlCreateLabel("Termin", 416, 120, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label14 = GUICtrlCreateLabel("Flughafen", 416, 144, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label15 = GUICtrlCreateLabel("Dauer", 416, 168, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label16 = GUICtrlCreateLabel("Personen", 416, 192, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label17 = GUICtrlCreateLabel("Reiseziel", 416, 216, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label18 = GUICtrlCreateLabel("Zimmer", 416, 240, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
;----------------------
$Input7 = GUICtrlCreateInput("", 510, 48, 195, 21)
$Input8 = GUICtrlCreateInput("", 510, 72, 195, 21)
$Input9 = GUICtrlCreateInput("", 510, 96, 195, 21)
$Input10 = GUICtrlCreateInput("", 510, 120, 195, 21)
$Input11 = GUICtrlCreateInput("", 510, 144, 195, 21)
$Input12 = GUICtrlCreateInput("", 510, 168, 195, 21)
$Input13 = GUICtrlCreateInput("", 510, 192, 195, 21)
$Input14 = GUICtrlCreateInput("", 510, 216, 195, 21)
$Input15 = GUICtrlCreateInput("", 510, 240, 195, 21)
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _RSBBuchungShow()
[/autoit] [autoit][/autoit] [autoit]GUICtrlDelete($Group3)
GUICtrlDelete($Input7)
GUICtrlDelete($Input8)
GUICtrlDelete($Input9)
GUICtrlDelete($Input10)
GUICtrlDelete($Input11)
GUICtrlDelete($Input12)
GUICtrlDelete($Input13)
GUICtrlDelete($Input14)
GUICtrlDelete($Input15)
;----------------------
GUICtrlDelete($Label10)
GUICtrlDelete($Label11)
GUICtrlDelete($Label12)
GUICtrlDelete($Label13)
GUICtrlDelete($Label14)
GUICtrlDelete($Label15)
GUICtrlDelete($Label16)
GUICtrlDelete($Label17)
GUICtrlDelete($Label18)
;----------------------
$Group3 = GUICtrlCreateGroup("RSB Buchung", 400, 16, 321, 249)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label10 = GUICtrlCreateLabel("Agentur", 416, 48, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label11 = GUICtrlCreateLabel("Telefon", 416, 72, 90, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
;----------------------
$Input7 = GUICtrlCreateInput("", 510, 48, 195, 21)
GUICtrlSetTip(-1, "Agenturnummer")
$Input8 = GUICtrlCreateInput("", 510, 72, 195, 21)
GUICtrlSetTip(-1, "Telefonnummer")
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _Del()
[/autoit] [autoit][/autoit] [autoit]GUICtrlDelete($Group3)
GUICtrlDelete($Input7)
GUICtrlDelete($Input8)
GUICtrlDelete($Input9)
GUICtrlDelete($Input10)
GUICtrlDelete($Input11)
GUICtrlDelete($Input12)
GUICtrlDelete($Input13)
GUICtrlDelete($Input14)
GUICtrlDelete($Input15)
;----------------------
GUICtrlDelete($Label10)
GUICtrlDelete($Label11)
GUICtrlDelete($Label12)
GUICtrlDelete($Label13)
GUICtrlDelete($Label14)
GUICtrlDelete($Label15)
GUICtrlDelete($Label16)
GUICtrlDelete($Label17)
GUICtrlDelete($Label18)
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit]hab das auch mit der neuesten adfunctions ohne erfolg geteset!
hat einer eine idee wie amn das auch mit sp3 gefixt bekommt?
danke
gruß gmmg