#include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #Region ### START Koda GUI section ### Form= $hGui_AufmCreater = GUICreate("Aufmaß Creater V2 LV-Eingabe: v2.", 1832, 1021, 503, 206, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP)) $mDatei = GUICtrlCreateMenu("&Datei") $mDatei_newAuf = GUICtrlCreateMenuItem("Neues Aufmaß", $mDatei) $mDatei_openOrdner = GUICtrlCreateMenuItem("Ordner öffnen", $mDatei) $MenuItem1 = GUICtrlCreateMenu("Liste", $mDatei) $mDatei_listaktu = GUICtrlCreateMenuItem("Liste Aktualisieren", $MenuItem1) $mDatei_listimport = GUICtrlCreateMenuItem("Liste Importieren", $MenuItem1) $mDatei_Listsave = GUICtrlCreateMenuItem("Liste Speichern", $MenuItem1) $mDatei_exportExel = GUICtrlCreateMenuItem("Excel Exportieren", $MenuItem1) $mDatei_Listdelete = GUICtrlCreateMenuItem("Liste Löschen", $MenuItem1) $mDatei_Exit = GUICtrlCreateMenuItem("Beenden", $mDatei) $MenuTools = GUICtrlCreateMenu("&Tools") $mAufmh = GUICtrlCreateMenuItem("Aufmaßhilfe", $MenuTools) $mtgruben = GUICtrlCreateMenuItem("Grubentool", $MenuTools) $mtEVaufm = GUICtrlCreateMenuItem("EV-Aufmaß", $MenuTools) $mtAVRB = GUICtrlCreateMenuItem("AVRB-AuftragsVerwaltungsRechnungsBlatt", $MenuTools) $mtEVH = GUICtrlCreateMenuItem("EV-Hilfe", $MenuTools) $Einstellungen = GUICtrlCreateMenu("&Einstellungen") $nEinFenster = GUICtrlCreateMenu("Fenster", $Einstellungen) $mEinFenstPosBigEin = GUICtrlCreateMenuItem("Pos.Fenster ein", $nEinFenster) $mEinFenstPosBigAus = GUICtrlCreateMenuItem("Pos.Fenster aus", $nEinFenster) $mShow_Extern_Buttons = GUICtrlCreateMenuItem("Externe Buttons", $nEinFenster) $nEinEVergabe = GUICtrlCreateMenuItem("E-Vergabe", $Einstellungen) $Tab1 = GUICtrlCreateTab(0, 0, 457, 969) $TabSheet1 = GUICtrlCreateTabItem("LV-Eingabe") $LVE_TAB_LV_PosListe = GUICtrlCreateListView("PosNr|Kurztext|Einheit|Preis", 8, 146, 442, 286, BitOR($LVS_REPORT,$LVS_SHOWSELALWAYS), BitOR($WS_EX_CLIENTEDGE,$LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT)) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label1 = GUICtrlCreateLabel("Vertrag:", 8, 26, 49, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $LVE_TAB_chb_Vertrag = GUICtrlCreateCombo("", 64, 26, 265, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $LVE_TAB_bt_Vertrag_laden = GUICtrlCreateButton("Liste Laden", 336, 26, 115, 33) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Label2 = GUICtrlCreateLabel("Suche:", 8, 66, 41, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $LVE_TAB_txt_suche = GUICtrlCreateCombo("", 64, 66, 265, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $LVE_TAB_bt_suche = GUICtrlCreateButton("Suche", 336, 66, 115, 33) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $Group1 = GUICtrlCreateGroup("Eingabe", 8, 434, 441, 209) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label3 = GUICtrlCreateLabel("PosNr:", 16, 450, 36, 18) $LVE_TAB_txt_posnr = GUICtrlCreateInput("", 104, 450, 121, 22) $LVE_TAB_txt_kurztext = GUICtrlCreateInput("", 232, 450, 209, 22) $Label4 = GUICtrlCreateLabel("RSA-Abschnitt:", 16, 482, 79, 18) $LVE_TAB_txt_rsa = GUICtrlCreateInput("", 104, 482, 337, 22) $Label5 = GUICtrlCreateLabel("Faktor:", 16, 514, 37, 18) $Label6 = GUICtrlCreateLabel("Länge:", 72, 514, 37, 18) $Label7 = GUICtrlCreateLabel("Breite:", 128, 514, 35, 18) $Label8 = GUICtrlCreateLabel("Tiefe:", 184, 514, 31, 18) $Label9 = GUICtrlCreateLabel("Menge:", 240, 514, 39, 18) $LVE_TAB_txt_faktor = GUICtrlCreateInput("", 16, 538, 33, 22) $LVE_TAB_txt_leange = GUICtrlCreateInput("", 72, 538, 41, 22) $LVE_TAB_txt_breite = GUICtrlCreateInput("", 128, 538, 41, 22) $LVE_TAB_txt_tiefe = GUICtrlCreateInput("", 184, 538, 41, 22) $LVE_TAB_txt_menge = GUICtrlCreateInput("", 240, 538, 49, 22) $Label10 = GUICtrlCreateLabel("Bemerkung:", 16, 570, 72, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $LVE_TAB_chb_bemerkung = GUICtrlCreateCombo("", 16, 602, 425, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $LVE_TAB_bt_hinzuPos = GUICtrlCreateButton("hinzufügen", 336, 506, 107, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $LVE_TAB_bt_leereZeile = GUICtrlCreateButton("leere Zeile", 336, 554, 107, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlCreateGroup("", -99, -99, 1, 1) $LVE_TAB_ed_langtext = GUICtrlCreateEdit("", 8, 650, 441, 313) GUICtrlSetData(-1, "") GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetBkColor(-1, 0xF0F0F0) $Label12 = GUICtrlCreateLabel("Gp Suche:", 8, 104, 55, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $LVE_TAB_LV_txt_gpsuche = GUICtrlCreateCombo("", 64, 104, 265, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $LVE_TAB_bt_gpsuche = GUICtrlCreateButton("GP-Suche", 336, 104, 115, 33) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet2 = GUICtrlCreateTabItem("Kopfdaten") $kopf_TAB_rd_teilauf = GUICtrlCreateRadio("Teilaufmaß", 104, 26, 81, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_rd_schluss = GUICtrlCreateRadio("Schlussaufmaß", 200, 26, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label13 = GUICtrlCreateLabel("Vertrag:", 8, 50, 44, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_chb_vertrag = GUICtrlCreateCombo("", 104, 50, 297, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label14 = GUICtrlCreateLabel("AbrufNr:", 8, 74, 46, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_abrufnr = GUICtrlCreateInput("", 104, 74, 297, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label_SM = GUICtrlCreateLabel("SMNr:", 8, 122, 33, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_smnr = GUICtrlCreateInput("", 104, 122, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label16 = GUICtrlCreateLabel("Datum:", 8, 146, 37, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_datum = GUICtrlCreateInput("", 104, 146, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_bt_heute = GUICtrlCreateButton("Heute", 240, 138, 99, 33) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_bt_clearLite = GUICtrlCreateButton("Clear Lite", 341, 142, 55, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label17 = GUICtrlCreateLabel("Baustelle:", 8, 178, 51, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_baustelle = GUICtrlCreateInput("", 104, 178, 297, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label18 = GUICtrlCreateLabel("Bauabschnitt:", 8, 202, 70, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_bauabschnitt = GUICtrlCreateInput("", 104, 202, 297, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label19 = GUICtrlCreateLabel("Zeitraum von:", 8, 226, 70, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_datum_start = GUICtrlCreateInput("", 104, 226, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_datumfeld_start = GUICtrlCreateDate(@YEAR & "/" & @MON & "/" & @MDAY&" 07:00:00", 248, 226, 154, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label20 = GUICtrlCreateLabel("Zeitraum bis:", 8, 250, 66, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_datum_ende = GUICtrlCreateInput("", 104, 250, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_datumfeld_ende = GUICtrlCreateDate(@YEAR & "/" & @MON & "/" & @MDAY&" 07:00:00", 248, 250, 154, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label21 = GUICtrlCreateLabel("Ansprechpartner:", 8, 274, 90, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_aspa = GUICtrlCreateInput("", 104, 274, 297, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label22 = GUICtrlCreateLabel("Tel Nr:", 8, 298, 35, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_telnr = GUICtrlCreateInput("", 104, 298, 273, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label23 = GUICtrlCreateLabel("Kolone:", 8, 322, 40, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_kolone = GUICtrlCreateInput("", 104, 322, 273, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label124 = GUICtrlCreateLabel("Ausgabe Excel:", 6, 352, 80, 18) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_ausgabeExcel = GUICtrlCreateInput("", 104, 347, 271, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_bt_laden = GUICtrlCreateButton("Laden", 8, 546, 123, 41) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_bt_speichern = GUICtrlCreateButton("speichern", 144, 546, 123, 41) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_bt_holedaten = GUICtrlCreateButton("hole Daten von SMNr.", 280, 546, 123, 41) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label11 = GUICtrlCreateLabel("DetailsID:", 8, 98, 50, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_txt_detailsID = GUICtrlCreateInput("", 104, 98, 121, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_bt_open_Evergabe = GUICtrlCreateButton("E-Vergabe öffnen", 240, 98, 115, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_bt_feldzuruck = GUICtrlCreateButton("zurücksetzen", 8, 602, 123, 41) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_bt_change_Vertrag = GUICtrlCreateButton("Vertrag ändern", 148, 605, 115, 41) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label15 = GUICtrlCreateLabel("Export Vorlage:", 4, 378, 79, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $kopf_TAB_chb_exportvorl = GUICtrlCreateCombo("", 104, 378, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet3 = GUICtrlCreateTabItem("Logs") $logs_TAB_ed_logs = GUICtrlCreateEdit("", 0, 26, 441, 889) GUICtrlSetData(-1, "") GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") $LV_Aufm = GUICtrlCreateListView("RSA-Abschnitt|PositionNr|Faktor|Länge|Breite|Tiefe|Menge|ME|Leistungskurztext|Bemerkung|Menge|E-Preis|Summe", 464, 0, 1362, 830, BitOR($LVS_REPORT,$LVS_SHOWSELALWAYS), BitOR($WS_EX_CLIENTEDGE,$LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT)) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 10, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 11, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 12, 50) $bt_LVEingabe_ListImport = GUICtrlCreateButton("Liste importieren", 472, 840, 131, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $bt_lveingabe_exportexcel = GUICtrlCreateButton("Excel Export", 616, 840, 123, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial Narrow") $bt_LVEingabe_markcopy = GUICtrlCreateButton("Mark. kopieren", 752, 840, 139, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $bt_LVEingabe_ListSave = GUICtrlCreateButton("Liste Speichern", 616, 888, 123, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $bt_LVEingabe_open_folder = GUICtrlCreateButton("Ordner öffnen", 472, 888, 131, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $bt_LVEingabe_liste_aktu = GUICtrlCreateButton("Liste aktualisieren", 904, 840, 139, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $bt_in_EV = GUICtrlCreateButton("E-Vergabe", 904, 888, 139, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial Narrow") GUICtrlSetState(-1, $GUI_HIDE) $bt_LVEingabe_markdelete = GUICtrlCreateButton("Mark. Löschen", 752, 888, 139, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $bt_LVEingabe_Listedelete = GUICtrlCreateButton("Liste löschen", 1680, 840, 139, 41) GUICtrlSetFont(-1, 8, 800, 0, "Arial") $chb_text_edit = GUICtrlCreateCheckbox("Text Edit", 1192, 888, 89, 25, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_LEFT)) GUICtrlSetFont(-1, 10, 800, 0, "Arial") $chb_letzteZeile = GUICtrlCreateCheckbox("letzte Zeile", 1296, 888, 97, 25) GUICtrlSetFont(-1, 10, 800, 0, "Arial") $lbl_Summe = GUICtrlCreateLabel("Preis:", 1416, 848, 250, 20) GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow") $lbl_status = GUICtrlCreateLabel("Status:", 1192, 848, 203, 20) GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow") ;~ Dim $hGui_AufmCreater_AccelTable[5][2] = [["!+{BS}", $mDatei_newAuf],["!{HOME}", $mDatei_listaktu],["{PAUSE}", $mDatei_Exit],["^!{F13}", $mEinFenstPosBigEin],["{FESTSTELL}", $mShow_Extern_Buttons]] ;~ GUISetAccelerators($hGui_AufmCreater_AccelTable) ;~ GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ;~ #Region ### START Koda GUI section ### Form=C:\Users\Flo\Documents\ISN AutoIt Studio\Projects\AufmassCreaterV2\Forms\hGui_AufmCreater.kxf ;~ $hGui_AufmCreater = GUICreate("Aufmaß Creater V2 LV-Eingabe: v2.", 1831, 1001, 200, 154, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP)) ;~ $mDatei = GUICtrlCreateMenu("Datei") ;~ $mDatei_newAuf = GUICtrlCreateMenuItem("Neues Aufmaß", $mDatei) ;~ $mDatei_openOrdner = GUICtrlCreateMenuItem("Ordner öffnen", $mDatei) ;~ $MenuItem1 = GUICtrlCreateMenu("Liste", $mDatei) ;~ $mDatei_listaktu = GUICtrlCreateMenuItem("Liste Aktualisieren", $MenuItem1) ;~ $mDatei_listimport = GUICtrlCreateMenuItem("Liste Importieren", $MenuItem1) ;~ $mDatei_Listsave = GUICtrlCreateMenuItem("Liste Speichern", $MenuItem1) ;~ $mDatei_exportExel = GUICtrlCreateMenuItem("Excel Exportieren", $MenuItem1) ;~ $mDatei_Listdelete = GUICtrlCreateMenuItem("Liste Löschen", $MenuItem1) ;~ $mDatei_Exit = GUICtrlCreateMenuItem("Beenden", $mDatei) ;~ $MenuTools = GUICtrlCreateMenu("Tools") ;~ $mAufmh = GUICtrlCreateMenuItem("Aufmaßhilfe", $MenuTools) ;~ $mtgruben = GUICtrlCreateMenuItem("Grubentool", $MenuTools) ;~ $mtEVaufm = GUICtrlCreateMenuItem("EV-Aufmaß", $MenuTools) ;~ $mtAVRB = GUICtrlCreateMenuItem("AVRB-AuftragsVerwaltungsRechnungsBlatt", $MenuTools) ;~ $mtEVH = GUICtrlCreateMenuItem("EV-Hilfe", $MenuTools) ;~ $Einstellungen = GUICtrlCreateMenu("Einstellungen") ;~ $nEinFenster = GUICtrlCreateMenu("Fenster", $Einstellungen) ;~ $mEinFenstPosBigEin = GUICtrlCreateMenuItem("Pos.Fenster ein", $nEinFenster) ;~ $mEinFenstPosBigAus = GUICtrlCreateMenuItem("Pos.Fenster aus", $nEinFenster) ;~ $mShow_Extern_Buttons = GUICtrlCreateMenuItem("Externe Buttons", $nEinFenster) ;~ $nEinEVergabe = GUICtrlCreateMenuItem("E-Vergabe", $Einstellungen) ;~ $Tab1 = GUICtrlCreateTab(0, 0, 457, 929) ;~ $TabSheet1 = GUICtrlCreateTabItem("LV-Eingabe") ;~ Global $LVE_TAB_LV_PosListe = GUICtrlCreateListView("PosNr|Kurztext|Einheit|Preis", 4, 109, 442, 286, BitOR($LVS_REPORT,$LVS_SHOWSELALWAYS,$WS_HSCROLL,$WS_VSCROLL), BitOR($WS_EX_CLIENTEDGE,$LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT)) ;~ GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50) ;~ GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50) ;~ GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50) ;~ GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label1 = GUICtrlCreateLabel("Vertrag:", 4, 29, 49, 18) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $LVE_TAB_chb_Vertrag = GUICtrlCreateCombo("", 60, 29, 265, 25) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $LVE_TAB_bt_Vertrag_laden = GUICtrlCreateButton("Liste Laden", 332, 29, 115, 33) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $Label2 = GUICtrlCreateLabel("Suche:", 4, 69, 41, 18) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $LVE_TAB_txt_suche = GUICtrlCreateCombo("", 60, 69, 265, 25) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $LVE_TAB_bt_suche = GUICtrlCreateButton("Suche", 332, 69, 115, 33) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $Group1 = GUICtrlCreateGroup("Eingabe", 4, 397, 441, 209) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label3 = GUICtrlCreateLabel("PosNr:", 12, 413, 36, 18) ;~ $LVE_TAB_txt_posnr = GUICtrlCreateInput("", 100, 413, 121, 22) ;~ $LVE_TAB_txt_kurztext = GUICtrlCreateInput("", 228, 413, 209, 22) ;~ $Label4 = GUICtrlCreateLabel("RSA-Abschnitt:", 12, 445, 79, 18) ;~ $LVE_TAB_txt_rsa = GUICtrlCreateInput("", 100, 445, 337, 22) ;~ $Label5 = GUICtrlCreateLabel("Faktor:", 12, 477, 37, 18) ;~ $Label6 = GUICtrlCreateLabel("Länge:", 68, 477, 37, 18) ;~ $Label7 = GUICtrlCreateLabel("Breite:", 124, 477, 35, 18) ;~ $Label8 = GUICtrlCreateLabel("Tiefe:", 180, 477, 31, 18) ;~ $Label9 = GUICtrlCreateLabel("Menge:", 236, 477, 39, 18) ;~ $LVE_TAB_txt_faktor = GUICtrlCreateInput("", 12, 501, 33, 22) ;~ $LVE_TAB_txt_leange = GUICtrlCreateInput("", 68, 501, 41, 22) ;~ $LVE_TAB_txt_breite = GUICtrlCreateInput("", 124, 501, 41, 22) ;~ $LVE_TAB_txt_tiefe = GUICtrlCreateInput("", 180, 501, 41, 22) ;~ $LVE_TAB_txt_menge = GUICtrlCreateInput("", 236, 501, 49, 22) ;~ $Label10 = GUICtrlCreateLabel("Bemerkung:", 12, 533, 72, 18) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $LVE_TAB_chb_bemerkung = GUICtrlCreateCombo("", 12, 565, 425, 25) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $LVE_TAB_bt_hinzuPos = GUICtrlCreateButton("hinzufügen", 332, 469, 107, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $LVE_TAB_bt_leereZeile = GUICtrlCreateButton("leere Zeile", 332, 517, 107, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ GUICtrlCreateGroup("", -99, -99, 1, 1) ;~ $LVE_TAB_ed_langtext = GUICtrlCreateEdit("", 4, 613, 441, 305) ;~ GUICtrlSetData(-1, "") ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ GUICtrlSetBkColor(-1, 0xF0F0F0) ;~ $TabSheet2 = GUICtrlCreateTabItem("Kopfdaten") ;~ $kopf_TAB_rd_teilauf = GUICtrlCreateRadio("Teilaufmaß", 108, 29, 81, 17) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_rd_schluss = GUICtrlCreateRadio("Schlussaufmaß", 204, 29, 97, 17) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label13 = GUICtrlCreateLabel("Vertrag:", 12, 53, 44, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_chb_vertrag = GUICtrlCreateCombo("", 108, 53, 297, 25) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label14 = GUICtrlCreateLabel("AbrufNr:", 12, 77, 46, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_abrufnr = GUICtrlCreateInput("", 108, 77, 297, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label_SM = GUICtrlCreateLabel("SMNr:", 12, 125, 33, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_smnr = GUICtrlCreateInput("", 108, 125, 121, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label16 = GUICtrlCreateLabel("Datum:", 12, 149, 37, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_datum = GUICtrlCreateInput("", 108, 149, 121, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_bt_heute = GUICtrlCreateButton("Heute", 244, 141, 99, 33) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_bt_clearLite = GUICtrlCreateButton("Clear Lite", 345, 145, 55, 25) ;~ $Label17 = GUICtrlCreateLabel("Baustelle:", 12, 181, 51, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_baustelle = GUICtrlCreateInput("", 108, 181, 297, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label18 = GUICtrlCreateLabel("Bauabschnitt:", 12, 205, 70, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_bauabschnitt = GUICtrlCreateInput("", 108, 205, 297, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label19 = GUICtrlCreateLabel("Zeitraum von:", 12, 229, 70, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_datum_start = GUICtrlCreateInput("", 108, 229, 121, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_datumfeld_start = GUICtrlCreateDate("2019/11/25 07:44:51", 252, 229, 154, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label20 = GUICtrlCreateLabel("Zeitraum bis:", 12, 253, 66, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_datum_ende = GUICtrlCreateInput("", 108, 253, 121, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_datumfeld_ende = GUICtrlCreateDate("2019/11/25 07:44:51", 252, 253, 154, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label21 = GUICtrlCreateLabel("Ansprechpartner:", 12, 277, 90, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_aspa = GUICtrlCreateInput("", 108, 277, 297, 25) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label22 = GUICtrlCreateLabel("Tel Nr:", 12, 301, 35, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_telnr = GUICtrlCreateInput("", 108, 301, 273, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label23 = GUICtrlCreateLabel("Kolone:", 12, 325, 40, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_kolone = GUICtrlCreateInput("", 108, 325, 273, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label124 = GUICtrlCreateLabel("Ausgabe Excel:", 10, 355, 80, 18) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_ausgabeExcel = GUICtrlCreateInput("", 110, 350, 271, 22) ;~ $kopf_TAB_bt_laden = GUICtrlCreateButton("Laden", 12, 549, 123, 41) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_bt_speichern = GUICtrlCreateButton("speichern", 148, 549, 123, 41) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_bt_holedaten = GUICtrlCreateButton("hole Daten von SMNr.", 284, 549, 123, 41) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $Label11 = GUICtrlCreateLabel("DetailsID:", 12, 101, 50, 17) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_txt_detailsID = GUICtrlCreateInput("", 108, 101, 121, 22) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_bt_open_Evergabe = GUICtrlCreateButton("E-Vergabe öffnen", 244, 101, 115, 25) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_bt_feldzuruck = GUICtrlCreateButton("zurücksetzen", 12, 605, 123, 41) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $kopf_TAB_bt_change_Vertrag = GUICtrlCreateButton("Vertrag ändern", 152, 608, 115, 41) ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ $TabSheet3 = GUICtrlCreateTabItem("Logs") ;~ $logs_TAB_ed_logs = GUICtrlCreateEdit("", 4, 29, 441, 889) ;~ GUICtrlSetData(-1, "") ;~ GUICtrlSetFont(-1, 8, 400, 0, "Arial") ;~ GUICtrlCreateTabItem("") ;~ Global $LV_Aufm =_GUICtrlListView_Create($hGui_AufmCreater, "RSA-Abschnitt|PositionNr|Faktor|Länge|Breite|Tiefe|Menge|ME|Leistungskurztext|Bemerkung|Menge|E-Preis|Summe", 464, 0, 1362, 830,$LVS_SHOWSELALWAYS) ;~ _GUICtrlListView_SetExtendedListViewStyle($LV_Aufm, BitOR($WS_EX_CLIENTEDGE,$LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT, $LVS_REPORT,$WS_HSCROLL,$WS_VSCROLL)) ;~ Global $LV_Aufm = GUICtrlCreateListView("RSA-Abschnitt|PositionNr|Faktor|Länge|Breite|Tiefe|Menge|ME|Leistungskurztext|Bemerkung|Menge|E-Preis|Summe", 464, 0, 1362, 830, BitOR($LVS_REPORT,$LVS_SHOWSELALWAYS,$WS_HSCROLL,$WS_VSCROLL), BitOR($WS_EX_CLIENTEDGE,$LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT)) ;~ $bt_LVEingabe_ListImport = GUICtrlCreateButton("Liste importieren", 472, 840, 131, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $bt_lveingabe_exportexcel = GUICtrlCreateButton("Excel Export", 616, 840, 123, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial Narrow") ;~ $bt_LVEingabe_markcopy = GUICtrlCreateButton("Mark. kopieren", 752, 840, 139, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $bt_LVEingabe_ListSave = GUICtrlCreateButton("Liste Speichern", 616, 888, 123, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $bt_LVEingabe_open_folder = GUICtrlCreateButton("Ordner öffnen", 472, 888, 131, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $bt_LVEingabe_liste_aktu = GUICtrlCreateButton("Liste aktualisieren", 904, 840, 139, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $bt_in_EV = GUICtrlCreateButton("E-Vergabe", 904, 888, 139, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial Narrow") ;~ GUICtrlSetState(-1, $GUI_HIDE) ;~ $bt_LVEingabe_markdelete = GUICtrlCreateButton("Mark. Löschen", 752, 888, 139, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $bt_LVEingabe_Listedelete = GUICtrlCreateButton("Liste löschen", 1680, 840, 139, 41) ;~ GUICtrlSetFont(-1, 8, 800, 0, "Arial") ;~ $chb_text_edit = GUICtrlCreateCheckbox("Text Edit", 1192, 888, 89, 25, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_LEFT)) ;~ GUICtrlSetFont(-1, 10, 800, 0, "Arial") ;~ $chb_letzteZeile = GUICtrlCreateCheckbox("letzte Zeile", 1296, 888, 97, 25) ;~ GUICtrlSetFont(-1, 10, 800, 0, "Arial") ;~ $lbl_Summe = GUICtrlCreateLabel("Preis:", 1416, 848, 250, 20) ;~ GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow") ;~ $lbl_status = GUICtrlCreateLabel("Status:", 1192, 848, 203, 20) ;~ GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow") ;~ Dim $hGui_AufmCreater_AccelTable[5][2] = [["", $mDatei_newAuf],["", $mDatei_listimport],["", $mtEVaufm],["", $mEinFenstPosBigEin],["", $mEinFenstPosBigAus]] ;~ GUISetAccelerators($hGui_AufmCreater_AccelTable) ;~ GUISetState(@SW_SHOW) ;~ #EndRegion ### END Koda GUI section ###