420 lines
24 KiB
AutoIt
420 lines
24 KiB
AutoIt
#include <ButtonConstants.au3>
|
|
#include <ComboConstants.au3>
|
|
#include <DateTimeConstants.au3>
|
|
#include <EditConstants.au3>
|
|
#include <GUIConstantsEx.au3>
|
|
#include <ListViewConstants.au3>
|
|
#include <StaticConstants.au3>
|
|
#include <TabConstants.au3>
|
|
#include <WindowsConstants.au3>
|
|
|
|
#include <ButtonConstants.au3>
|
|
#include <ComboConstants.au3>
|
|
#include <DateTimeConstants.au3>
|
|
#include <EditConstants.au3>
|
|
#include <GUIConstantsEx.au3>
|
|
#include <ListViewConstants.au3>
|
|
#include <StaticConstants.au3>
|
|
#include <TabConstants.au3>
|
|
#include <WindowsConstants.au3>
|
|
#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 ### |