#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Res_Language=1031 #AutoIt3Wrapper_Run_AU3Check=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ;***************************************** ;AufmassCreaterV2.au3 by kra88 ;Erstellt mit ISN AutoIt Studio v. 1.08 ;***************************************** ;Versions Info Global $VersionBuild = "20260401" ;YEAR|MON|DAY Global $Studioversion = "v2.36" Global $ERSTELLUNGSTAG = $Studioversion & " (" & $VersionBuild & ")" ;Includes AutoStandart #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include ;include HardwareID #include #include ;Includes Exteren AppFolder #include "includes\GUIListViewEx-Melba.au3" #include "includes\ListViewColorsFonts.au3" #include "includes\LV_Eingabe_func.au3" #include "includes\EVergabe.au3" #include "includes\Lizens.au3" #include "includes\inc_AVRB.au3" #include "includes\EV-Hilfe.au3" #include "includes\EVvergabeWebobj.au3" #include "includes\x31_txt2Dataflor.au3" #include "includes\Aufmasshelferv2neu.au3" ;AufmaßHelper Includes #include "includes\aHelper\ahelper_gf.au3" #include "includes\aHelper\ahelper_FTTH.au3" #include "includes\aHelper\ahelper_gruben.au3" #include "includes\aHelper\ahelper_Kabelzug.au3" #include "includes\aHelper\ahelper_absperrung.au3" #include "includes\aHelper\ahelper_sasmecka.au3" #include "includes\aHelper\ahelper_neffachberg.au3" #include "Forms\GUI_Aufmacreater_BIG.au3" #include "Forms\GUI_AufmHilfe_BIG.au3" #include "Forms\GUI_PosFensterBIG_BIG.au3" #include "Forms\GUI_Grubentool.au3" #include "Forms\GUI_EVAufm.au3" #include "Forms\GUI_AVRB.au3" #include "Forms\GUI_frm_extern_Buttons.au3" #include "Forms\GUI_EV_Hilfe.au3" #include "includes\inc_amh.au3" WinSetTitle($hGui_AufmCreater, "", "Aufmaß Creater: " & $ERSTELLUNGSTAG) Opt("GUICloseOnESC", 0) Global $sPfadIni = @ScriptDir & "\daten\conf.ini" Global $g_bDebug = IniRead(@ScriptDir & "\daten\conf.ini", "Setup", "debug", "False") = "True" Global $iLV_Aufma_Index = "" Global $iLV_PosList_Index = "" Global $sEinheit Global $idMarkPreis, $idSave Global $statusBar Global $g_iIDCnt = 1000000 Global $g_iIdCounter = 1000001 Global $hLV = GUICtrlGetHandle($LV_Aufm) ListViewColorsFonts_Init($hLV, 7) Global Enum $idEdit = 1000, $idCopy, $idCalc, $idDel, $idleereZ, $idlvListAktu GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND") ;only used for EN_CHANGE so far GUIRegisterMsg($WM_SIZE, "WM_SIZE") ; Listview Melba Global $iLV_Aufma_Index = _GUIListViewEx_Init($LV_Aufm, "", 0, 0xFF0000, True, 2) Global $iLV_PosList_Index = _GUIListViewEx_Init($lve_tab_lv_posliste, "", 0, 0, False, 1 + 512) _GUIListViewEx_MsgRegister() Global $iEditMode = 1 Global $sPfad_Conf = @ScriptDir & "\daten\conf.ini" Global $sPfad_Conf_GP = @ScriptDir & "\daten\gp.ini" HotKeySet("{F7}", "_search_posList") HotKeySet("{F5}", "_klick_ListAktu") _Lizens_GET_UserID() _formload() GUISetState(@SW_SHOW, $hGui_AufmCreater) Local $aMsg Global $aLVListe[1][13] Global $tab1_bt_add, $tab1_bt_zurucksetz Global $tab2_bt_add, $tab2_bt_zurucksetz Global $tab7_bt_add, $tab7_bt_zuru, $tab7_bt_import_csv Global $tab4_bt_lv_clear, $tab4_bt_adSplei, $tab4_bt_hinzuf, $tab4_bt_zurucksetz Global $tab6_bt_add, $tab6_bt_zuruck Global $tab_ab_bt_aktu, $tab_ab_bt_add_Pos Global $tab1_txt_leange = "" Global $iFolderCreate = IniRead(@ScriptDir & "\daten\conf.ini", "Setup", "createFolder", "NA") If IniRead(@ScriptDir & "\daten\conf.ini", "Setup", "textedit", "False") = "True" Then GUICtrlSetState($chb_text_edit, $GUI_CHECKED) Else GUICtrlSetState($chb_text_edit, $GUI_UNCHECKED) EndIf If IniRead(@ScriptDir & "\daten\conf.ini", "Setup", "lastcell", "False") = "True" Then GUICtrlSetState($chb_letzteZeile, $GUI_CHECKED) Else GUICtrlSetState($chb_letzteZeile, $GUI_UNCHECKED) EndIf While 1 $nMsg = GUIGetMsg(1) Switch $nMsg[1] Case $hGui_AufmCreater Switch $nMsg[0] Case $GUI_EVENT_CLOSE _WinAPI_DestroyIcon($hIcon) Exit ;Gui Menü Datei Case $mDatei_Exit Exit Case $mDatei_listaktu _klick_ListAktu() Case $mDatei_listimport _klick_Listimport() Case $mDatei_Listdelete _klick_ListDelete() Case $mDatei_exportExel _Export_Optionen() Case $mDatei_openOrdner ShellExecute(@ScriptDir & "\_Aufmaße") $aVertragsPos = _read_VertragsPositionen2Array() ;~ _grabenbreite($aVertragsPos) + ; GUI Menu Einstellungen Case $mEinFenstPosBigEin _ShowGui_PosFensterBig() Case $mEinFenstPosBigAus GUISetState(@SW_HIDE, $frm_PosBig) Case $nEinEVergabe MsgBox(64, "", "") Case $mShow_Extern_Buttons _ShowGui_Extern_Buttons() ;Gui Tools Case $mAufmh _ShowGui_Aufmhilfe() Case $mDatei_Listsave _LV_LVAufMa_save2temp() _LV_LVAufMa_save2txt() Case $mtgruben _ShowGui_Grubentool() Case $mtEVaufm _ShowGui_EVAufm() Case $mtAVRB _ShowGui_AVRB() Case $mtEVH _ShowGui_Extern_EVH() ; Gui Sonstige Buttons Case $bt_lveingabe_open_folder ShellExecute(@ScriptDir & "\_Aufmaße") Case $bt_lveingabe_listimport _klick_Listimport() _klick_ListAktu() Case $bt_lveingabe_liste_aktu _klick_ListAktu() _LV_Farben() Case $bt_LVEingabe_Listedelete _klick_ListDelete() Case $bt_lveingabe_exportexcel _Export_Optionen() Case $bt_in_EV ;~ _start_Evergabe_Neu() $aInhalt = _GUIListViewEx_ReadToArray($LV_Aufm, 1) If IsArray($aInhalt) Then If GUICtrlRead($kopf_TAB_txt_detailsID) = "" Then ; Positionen nach SM Eintragen _EV_Pos_eintragen_obj($aInhalt) Else ; Positionen nach DetailsID eintragen ;~ _EV_Pos_eintragen_Bestellung($aInhalt) EndIf Else _Write_to_Console("AufmaßListe ist leer") EndIf Case $bt_lveingabe_listsave _LV_LVAufMa_save2temp() _LV_LVAufMa_save2txt() Case $bt_LVEingabe_markdelete _LV_LVAufMa_save2temp() _GUIListViewEx_DeleteSpec($iLV_Aufma_Index) _LV_LVAufMa_save2temp() ;Gui Tab LV-Eingabe Case $lve_tab_bt_suche _search_posList() Case $lve_tab_bt_vertrag_laden _GUIListViewEx_Close($iLV_PosList_Index) _Load_LV_From_Chb() Case $lve_tab_bt_leerezeile _LV_LVAufMa_save2temp() _LV_LVaufMa_add_empty_zeile() Case $lve_tab_bt_hinzupos _LV_LVaufMa_add_Zeile() _LV_LVAufMa_save2temp() ;~ MsgBox(64, "", _GUIListViewEx_GetActive()) GUICtrlSetState($LVE_TAB_LV_PosListe, $GUI_FOCUS) Case $bt_lveingabe_markcopy _LV_LVAufMA_mark_copy() _LV_LVAufMa_save2temp() Case $LVE_TAB_bt_gpsuche _GroupSearch() Case $Label_SM ClipPut(GUICtrlRead($kopf_TAB_txt_smnr)) GUICtrlSetData($txt_sm_EVH, GUICtrlRead($kopf_TAB_txt_smnr)) Case $chb_text_edit If GUICtrlRead($chb_text_edit) = $GUI_CHECKED Then _GUIListViewEx_SetEditStatus($iLV_Aufma_Index, "0;1;2;3;4;5;6;9;11") Else _chb_bemerkung_from_ini() _GUIListViewEx_SetEditStatus($iLV_Aufma_Index, "0;1:2;3;4;5;6;11") _GUIListViewEx_SetEditStatus($iLV_Aufma_Index, 9, 2, $cDatab, True) EndIf Case $frm_extern_chb_txtedit If GUICtrlRead($chb_letztezeile) = $GUI_CHECKED Then IniWrite($sPfadIni, "Setup", "addmarkpos", "False") Else IniWrite($sPfadIni, "Setup", "addmarkpos", "True") EndIf ;Gui Tab Kopfdaten Case $kopf_TAB_bt_holedaten If GUICtrlRead($kopf_tab_txt_smnr) = "" Then _Write_to_Console("Feld SM-Nr darf nicht leer sein!") MsgBox(64, "Fehler SMnr", "Feld SM-Nr darf nicht leer sein!") Else _EV_Hole_Kopfdaten_obj() EndIf Case $lve_tab_bt_vertrag_laden _GUIListViewEx_Close($iLV_PosList_Index) _Load_LV_From_Chb() Case $kopf_tab_bt_laden _kopf_load_from_ini() $sKopf = GUICtrlRead($kopf_tab_chb_vertrag) _GUICtrlComboBox_SelectString($lve_tab_chb_vertrag, StringReplace($sKopf, "Vertrag=", "")) _GUIListViewEx_Close($iLV_PosList_Index) _Load_LV_From_Chb() Case $kopf_tab_datumfeld_start GUICtrlSetData($kopf_tab_datum_start, GUICtrlRead($kopf_tab_datumfeld_start)) Case $kopf_tab_datumfeld_ende GUICtrlSetData($kopf_tab_txt_datum_ende, GUICtrlRead($kopf_tab_datumfeld_ende)) Case $kopf_tab_bt_heute GUICtrlSetData($kopf_tab_txt_datum, @MDAY & "." & @MON & "." & @YEAR) Case $kopf_TAB_bt_speichern _kopf_save_2_ini() Case $kopf_tab_bt_laden _kopf_load_from_ini() Case $kopf_TAB_bt_open_Evergabe ShellExecute("https://www.evergabe.telekom.de/sheet/index?c=1&importId=" & GUICtrlRead($kopf_TAB_txt_detailsID) & "&c=1") Case $kopf_TAB_bt_feldzuruck _felder_Kopfdaten_zurucksetzen() Case $kopf_TAB_bt_change_Vertrag _LV_Change_VertragsDaten() Case $kopf_TAB_bt_clearLite GUICtrlSetData($kopf_TAB_txt_abrufnr, "") GUICtrlSetData($kopf_tab_txt_smnr, "") GUICtrlSetData($kopf_TAB_txt_detailsID, "") EndSwitch ;############### Gui Aufmaßhilfe Case $hGui_AufmH Switch $nMsg[0] Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $hGui_AufmH) Case $frmdatei_exit GUISetState(@SW_HIDE, $hGui_AufmH) Case $frmdatei_zu_alle _felder_tab1_zurucksetzen() _felder_tab2_zurucksetzen() _felder_tab4_zurucksetzen() _felder_tab6_zurucksetzen() _felder_tab7_zurucksetzen() Case $tab1_bt_add _add_Graben() ;~ _ReadInputs2Array_graben() Case $tab2_bt_add _add_Gruben() Case $tab1_bt_zurucksetz _felder_tab1_zurucksetzen() Case $tab2_bt_zurucksetz _felder_tab2_zurucksetzen() Case $tab4_bt_zurucksetz _felder_tab4_zurucksetzen() Case $tab7_bt_zuru _felder_tab7_zurucksetzen() Case $tab6_bt_zuruck _felder_tab6_zurucksetzen() Case $tab4_bt_hinzuf _add_GF_Montage() Case $tab6_bt_add _add_Kabelzug() Case $tab7_bt_import_csv _Aufmass_Bestuckungsplan() Case $tab7_bt_add _add_ftth() Case $tab4_bt_adSplei ;~ _GUICtrlListView_AddArray($tab4_lv_verb, $aItems) _add_spleiss_LV() Case $tab4_bt_lv_clear _GUICtrlListView_DeleteAllItems($tab4_lv_verb) Case $frm_aufmh_emptyRow _LV_LVAufMa_save2temp() _LV_LVaufMa_add_empty_zeile() Case $tab_ab_bt_aktu _absperrungsPosAktu() Case $tab_ab_bt_add_Pos _add_Absperrung() Case $tab_sto_bt_hinzu _add_STO_Pos() Case $tab_tvum_bt_add _add_TVUM_Pos() Case $tab_plan_bt_add _add_Plan_Pos() Case $tab_zw_rv_bt_add _add_zw_rv_Pos() Case $tab_zw_rv_bt_import _ProcessDataFromFile() ;~ _ZW_RV_HS_CSV_Import() Case $tab_zw_rv_bt_zuruck _clear_zw_rv_gui() Case $tab_sto_sam_bt_add _STOE_Sammler_AddPositionen() Case $tab_sas_bt_ha_add _add_Mecka_HA() Case $tab_sas_bt_tb_add _add_Mecka_TB() Case $tab_sas_bt_ha_feldback _feld_back_ha() Case $tab_sas_bt_tb_feldback _feld_back_tb() Case $tab_neff_ach_bt_add_pos _add_nett_achberg_HA() Case $tab_neff_ach_bt_feld_delete _feld_back_neff_HA() Case $tab_neff_ach_tb_bt_add_pos _add_nett_achberg_TB() Case $tab_neff_ach_tb_bt_feld_delete _feld_back_neff_TB() EndSwitch Case $frm_PosBig Switch $nMsg[0] Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $frm_PosBig) Case $frm_PosBig_bt_save ;~ MsgBox(64, "test", "asdfadf") _txt_save_Langtext() Case $frm_PosBig_bt_c_posnr ;~ MsgBox(64, "test", "Posnr") ClipPut(GUICtrlRead($frm_posfenst_posnr)) Case $frm_PosBig_bt_c_kurztext ;~ MsgBox(64, "test", "kurztext") ClipPut(GUICtrlRead($frm_posfenst_ltex)) Case $frm_PosBig_bt_c_langtext ;~ MsgBox(64, "test", "langtext") ClipPut(GUICtrlRead($frm_posfenst_ltext)) EndSwitch Case $formGT Switch $nMsg[0] Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $formGT) Case $bt_gf_rechne _berechneFaktor() Case $bt_gt_leeren GUICtrlSetData($ed_gf_ausgabe, "") EndSwitch Case $frm_ev_aufm Switch $nMsg[0] Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $frm_ev_aufm) Case $frm_evaufm_bt_get_aufm _EV_GET_AufmPositioinen() Case $frm_evaufm_bt_lv_loeschen If MsgBox(3, "Liste Löschen???", "Wollen Sie die Liste wirklich löschen?") = 6 Then _GUICtrlListView_DeleteAllItems($frm_lv_evaufm) EndIf Case $frm_evaufm_bt_lvAktu _ListviewAutoWidthHeader($frm_lv_evaufm) _Summe_Aktuallisieren_EVAufm() Case $frm_evaufm_bt_export_excel _EVAufmLV_Export_Exel() Case $frm_evaufm_bt_mark_einf _EVAufmLV_mark_copi() Case $frm_evaufm_bt_import_txt _EVAufmLV_import_txt() EndSwitch Case $frm_Main_AVRB Switch $nMsg[0] Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $frm_Main_AVRB) ;Tab Lokal Case $bt_tab_lokal_load $sPfad_NC_L_Auftrage = GUICtrlRead($txt_pfad_Lokal) _GUICtrlListView_DeleteAllItems($lv_AVRB_lokal) _Load_LV_Pfad_txt($lv_AVRB_lokal, $sPfad_NC_L_Auftrage) $iSum1 = _PriceRound(_Summe_LV_Liste($lv_AVRB_lokal)) GUICtrlSetData($lbl_tab_NC_L_summe, _StringAddThousandsSepEx($iSum1) & " €") Case $bt_tab_NC_L_add _klick_Import_from_Liste($lv_AVRB_lokal) Case $bt_tab_lokal_suche $sSuche = GUICtrlRead($txt_tab_lokal_suche) _SearchLV_Liste($lv_AVRB_lokal, $sSuche) ; Tab Robert Case $bt_tab_NC_R_load $sPfad_NC_R_Auftrage = GUICtrlRead($txt_pfad_NC_R) _GUICtrlListView_DeleteAllItems($lv_AVRB_NC_R) _Load_LV_Pfad_txt($lv_AVRB_NC_R, $sPfad_NC_R_Auftrage) $iSum1 = _PriceRound(_Summe_LV_Liste($lv_AVRB_NC_R)) GUICtrlSetData($lbl_tab_NC_R_summe, _StringAddThousandsSepEx($iSum1) & " €") Case $bt_tab_NC_R_add _klick_Import_from_Liste($lv_AVRB_NC_R) Case $bt_tab_NC_R_suche $sSuche = GUICtrlRead($txt_tab_NC_R_suche) _SearchLV_Liste($lv_AVRB_NC_R, $sSuche) ; Tab Server in E-Vergabe Case $bt_tab_NC_E_load $sPfad_NC_EV_Auftrage = GUICtrlRead($txt_pfad_NC_E) _GUICtrlListView_DeleteAllItems($lv_AVRB_NC_E) _Load_LV_Pfad_txt($lv_AVRB_NC_E, $sPfad_NC_EV_Auftrage) $iSum1 = _PriceRound(_Summe_LV_Liste($lv_AVRB_NC_E)) GUICtrlSetData($lbl_tab_NC_E_summe, _StringAddThousandsSepEx($iSum1) & " €") Case $bt_tab_NC_E_add _klick_Import_from_Liste($lv_AVRB_NC_E) Case $bt_tab_NC_E_suche $sSuche = GUICtrlRead($txt_tab_NC_E_suche) _SearchLV_Liste($lv_AVRB_NC_E, $sSuche) ; Tab Server Freigegeben Case $bt_tab_NC_F_load $sPfad_NC_F_Auftrage = GUICtrlRead($txt_pfad_NC_F) _GUICtrlListView_DeleteAllItems($lv_AVRB_NC_F) _Load_LV_Pfad_txt($lv_AVRB_NC_F, $sPfad_NC_F_Auftrage) $iSum1 = _PriceRound(_Summe_LV_Liste($lv_AVRB_NC_F)) GUICtrlSetData($lbl_tab_NC_F_summe, _StringAddThousandsSepEx($iSum1) & " €") Case $bt_tab_NC_F_add _klick_Import_from_Liste($lv_AVRB_NC_F) Case $bt_tab_local_massEVImport _MassImportEV() Case $bt_tab_NC_F_suche $sSuche = GUICtrlRead($lv_AVRB_NC_F) _SearchLV_Liste($lv_AVRB_NC_F, $sSuche) Case $bt_tab_Ein_load _load_PFade_from_ini() Case $bt_tab_Ein_save _Save_Pfade_to_ini() Case $AVRB_bt_lv_delete _klick_ListDelete() EndSwitch Case $frm_extern_buttons Switch $nMsg[0] Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $frm_extern_buttons) Case $frm_extern_bt_lv_import _klick_Listimport() _klick_ListAktu() Case $frm_extern_bt_export_Excel _klick_exportCSV() _LV_LVAufMa_export2Excel() Case $frm_extern_bt_open_ordner ShellExecute(@ScriptDir & "\_Aufmaße") Case $frm_extern_bt_lv_save _LV_LVAufMa_save2temp() _LV_LVAufMa_save2txt() Case $frm_extern_bt_mark_copy _LV_LVAufMA_mark_copy() _LV_LVAufMa_save2temp() Case $frm_extern_bt_mark_delete _LV_LVAufMa_save2temp() _GUIListViewEx_DeleteSpec($iLV_Aufma_Index) _LV_LVAufMa_save2temp() Case $frm_extern_bt_lv_akt _klick_ListAktu() Case $frm_extern_bt_inEV _start_Evergabe_Neu() Case $frm_extern_bt_lv_delete _klick_ListDelete() EndSwitch Case $frm_Main_EVH Switch $nMsg[0] Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $frm_Main_EVH) Case $bt_sm_copy_EVH ClipPut(GUICtrlRead($txt_sm_EVH)) Case $bt_beleg_copy_EVH ClipPut(GUICtrlRead($txt_beleg_EVH)) Case $bt_beleg_ein_copy_EVH ClipPut(GUICtrlRead($txt_beleg_eingang_EVH)) Case $bt_ausfu_copy_EVH ClipPut(GUICtrlRead($txt_ausfuehrungsfrist_EVH)) Case $bt_ausgabe01_copy_EVH ClipPut(GUICtrlRead($txt_ausgabe01_EVH)) Case $bt_ausgabe02_copy_EVH ClipPut(GUICtrlRead($txt_ausgabe02_EVH)) Case $bt_ppreis_copy_EVH ClipPut(GUICtrlRead($bt_ppreis_copy_EVH)) Case $bt_start_EVH _EVH_start() _EVH_open_NC() _EVH_ausgabe1() _EVH_ausgabe2() _Write_to_Console_EVH("Fertig!") Case $bt_NC_open_EVH _EVH_open_NC() Case $bt_abruf_details_open_EVH ShellExecute(GUICtrlRead($txt_abruf_details_ev_EVH)) Case $bt_leistugnserfassung_open_EVH ShellExecute(GUICtrlRead($txt_Leistungserfassung_EVH)) Case $bt_lv_geab_open_EVH ShellExecute(GUICtrlRead($txt_lv_geab_EVH)) Case $bt_rv_copy_EVH ClipPut(GUICtrlRead($txt_rv_EVH)) Case $bt_nc_ordner_copy_EVH ClipPut(GUICtrlRead($txt_nc_ordner_EVH)) Case $bt_copy_ncpfad_EVH ClipPut(GUICtrlRead($txt_ncpfad_EVH)) Case $bt_ort_copy_EFH ClipPut(GUICtrlRead($txt_ort_EVH)) Case $bt_strasse_copy_EVH ClipPut(GUICtrlRead($txt_strasse_EVH)) Case $bt_hsnr_copy_EVH ClipPut(GUICtrlRead($txt_hsnr_EVH)) EndSwitch EndSwitch $state = WinGetState($frm_extern_buttons, "") ; Is the "minimized" value set? If BitAND($state, 2) Then If GUICtrlRead($frm_extern_chb_txtedit) = $GUI_CHECKED Then _GUIListViewEx_SetEditStatus($iLV_Aufma_Index, "0;1;2;3;4;5;6;9;11") Else _chb_bemerkung_from_ini() _GUIListViewEx_SetEditStatus($iLV_Aufma_Index, "0;1:2;3;4;5;6;11") _GUIListViewEx_SetEditStatus($iLV_Aufma_Index, 9, 2, $cDatab, True) EndIf If GUICtrlRead($frm_extern_chb_lastrow) = $GUI_CHECKED Then IniWrite($sPfadIni, "Setup", "addmarkpos", "False") Else IniWrite($sPfadIni, "Setup", "addmarkpos", "True") EndIf EndIf Global $vRet = _GUIListViewEx_EventMonitor($iEditMode) If @error Then If @error = 3 Then ;~ ;_ArrayDisplay($vRet) ;~ ;MsgBox($MB_SYSTEMMODAL, "Fehler", "Spalteninhalt kann nicht verändert werden!" & @CRLF & $vRet) Else ;MsgBox($MB_SYSTEMMODAL, "Error", "Event error: " & @error) EndIf EndIf Switch @extended Case 0 ; No event detected Case 1 If $vRet = "" Then MsgBox($MB_SYSTEMMODAL, "Ändern abgebrochen", "Die Änderung wurde nicht übernommen" & @CRLF) $stest1234 = "False" Else ;~ ;_ArrayDisplay($vRet, "ListView " & _GUIListViewEx_GetActive() & " content edited", Default, 8) $stest1234 = "False" EndIf Case 2 If $vRet = "" Then MsgBox($MB_SYSTEMMODAL, "Header edit", "Header edit aborted" & @CRLF) Else _ArrayDisplay($vRet, "ListView " & _GUIListViewEx_GetActive() & " header edited", Default, 8) EndIf Case 3 ;~ ;MsgBox($MB_SYSTEMMODAL, "Sorted", "ListView: " & $vRet & @CRLF) GUICtrlSetData($lbl_status, "PositionsListe wurde sortiert...") Case 4 ;~ ;Local $aRet = StringSplit($vRet, ":") ;~ ;MsgBox($MB_SYSTEMMODAL, "Dragged", "From ListView " & $aRet[1] & @CRLF & "To ListView " & $aRet[2]) Case 9 ;~ ;_DebugArrayDisplay($vRet) ;~ ;_GUIListViewEx_SetActive($iLV_PosList_Index) ;_GUIListViewEx_EventMonitor ziemlich unten auf Komentar achten EndSwitch WEnd Func _chb_group_from_ini() _GUICtrlComboBox_ResetContent($LVE_TAB_LV_txt_gpsuche) $sData = FileRead($sPfad_Conf) ;Datei einlesen $hFile = FileOpen($sPfad_Conf, $FO_OVERWRITE + $FO_UNICODE) ;im richtigen Format ein Handle zum schreiben eröffnen FileWrite($hFile, $sData) ;in Datei schreiben FileClose($hFile) ;Handle schliessen Local $aKV = IniReadSection($sPfad_Conf, "Groups") _ArrayDelete($aKV, 0) _ArraySort($aKV) ;~ _ArrayDisplay($aKV) For $i = 0 To UBound($aKV) - 1 _GUICtrlComboBox_AddString($LVE_TAB_LV_txt_gpsuche, $aKV[$i][1]) Next EndFunc ;==>_chb_group_from_ini Func _chb_templateExport_from_ini() _GUICtrlComboBox_ResetContent($kopf_TAB_chb_exportvorl) $sData = FileRead($sPfad_Conf) ;Datei einlesen $hFile = FileOpen($sPfad_Conf, $FO_OVERWRITE + $FO_UNICODE) ;im richtigen Format ein Handle zum schreiben eröffnen FileWrite($hFile, $sData) ;in Datei schreiben FileClose($hFile) ;Handle schliessen Local $aKV = IniReadSection($sPfad_Conf, "Template") _ArrayDelete($aKV, 0) ;~ _ArraySort($aKV) ;~ _ArrayDisplay($aKV) For $i = 0 To UBound($aKV) - 1 _GUICtrlComboBox_AddString($kopf_TAB_chb_exportvorl, $aKV[$i][0]) Next EndFunc ;==>_chb_templateExport_from_ini Func _GroupSearch() $sText = GUICtrlRead($LVE_TAB_LV_txt_gpsuche) If $sText = "" Then _LV_load_from_txt() Else Local $aKV = IniReadSection($sPfad_Conf_GP, $sText) _ArrayDelete($aKV, 0) ;~ _ArraySort($aKV) ;~ _ArrayDisplay($aKV) Dim $aArrayLV[1][4] For $i = 0 To UBound($aKV) - 1 $sTemp = StringSplit($aKV[$i][0], "|") ;~ _DebugArrayDisplay($sTemp) If IsArray($sTemp) Then _ArrayAdd($aArrayLV, $sTemp[1] & "|" & $sTemp[2] & "|" & $sTemp[3] & "|" & $sTemp[4]) EndIf Next _GUICtrlListView_DeleteAllItems($LVE_TAB_LV_PosListe) _GUIListViewEx_Close($LVE_TAB_LV_PosListe) _ArrayDelete($aArrayLV, 0) _GUICtrlListView_AddArray($LVE_TAB_LV_PosListe, $aArrayLV) _ListviewAutoWidthHeader($LVE_TAB_LV_PosListe) Global $aArrayRead = _GUIListViewEx_ReadToArray($LVE_TAB_LV_PosListe, 1) $iLV_LVE_LV = _GUIListViewEx_Init($LVE_TAB_LV_PosListe, $aArrayRead, 0, 0, True, 1 + 2 + 8) EndIf EndFunc ;==>_GroupSearch Func _klick_ListDelete() _LV_LVAufMa_clear() _GUIListViewEx_ReadToArray($LV_Aufm) $iLV_Aufma_Index = _GUIListViewEx_Init($LV_Aufm, "", 0, 0xFF0000, True, 2) EndFunc ;==>_klick_ListDelete Func _klick_ListAktu() _ListviewAutoWidthHeader($LV_Aufm) _Aufma_Listview_werte_aktu() _Check_Positionen_ImVertrag() _GUIListViewEx_ReadToArray($LV_Aufm) $aitem = _GUIListViewEx_GetLastSelItem() $aTempslit = StringSplit($aitem, "|") If UBound($aTempslit) > 3 Then _GUICtrlListView_ScrollToItem($LV_Aufm, $aTempslit[2]) _GUICtrlListView_EnsureVisible($LV_Aufm, $aTempslit[2]) EndIf EndFunc ;==>_klick_ListAktu Func _klick_mark_delete() _LV_LVAufMa_save2temp() _GUIListViewEx_DeleteSpec($iLV_Aufma_Index) _LV_LVAufMa_save2temp() EndFunc ;==>_klick_mark_delete Func _klick_Listimport() _GUIListViewEx_Close($iLV_Aufma_Index) $iDatei = _LV_LVAaufMa_List_import_from_TXT() If $iDatei = "No Datei" Then Else _GUIListViewEx_Close($iLV_PosList_Index) _Load_LV_From_Chb() _GUIListViewEx_ReadToArray($LV_Aufm) _Aufma_Listview_werte_aktu() EndIf EndFunc ;==>_klick_Listimport Func _ConvertGermanDateToISO($sDate) ; Überprüfen, ob das Eingabeformat korrekt ist (TT.MM.JJJJ) If StringRegExp($sDate, "^\d{2}\.\d{2}\.\d{4}$") Then ; Datum in Teile zerlegen Local $aParts = StringSplit($sDate, ".") ; Teile in umgekehrter Reihenfolge zusammenfügen Return $aParts[3] & "-" & $aParts[2] & "-" & $aParts[1] Else ; Fehlermeldung oder leeren String zurückgeben, wenn das Format nicht passt Return "" EndIf EndFunc ;==>_ConvertGermanDateToISO Func _klick_exportCSV() Local $po_number = GUICtrlRead($kopf_TAB_txt_abrufnr) Local $po_item = "00010" Local $finalMark = "No" Local $lzvon = _ConvertGermanDateToISO(GUICtrlRead($kopf_TAB_datum_start)) Local $lzbis = _ConvertGermanDateToISO(GUICtrlRead($kopf_TAB_txt_datum_ende)) Local $txz01 = GUICtrlRead($kopf_TAB_txt_bauabschnitt) Local $sbnaman = IniRead($sPfadIni, "EVergabe", "Sub", "FK") Local $dlort = GUICtrlRead($kopf_TAB_txt_baustelle) $sBaustelle = GUICtrlRead($kopf_tab_txt_baustelle) $sAbrufNr = GUICtrlRead($kopf_tab_txt_abrufnr) $sBauabschnitt = GUICtrlRead($kopf_tab_txt_bauabschnitt) $sSMnr = GUICtrlRead($kopf_tab_txt_smnr) $sDateiname = "" $sDateiname = $sBaustelle & "_" & $sBauabschnitt & "_" & $sSMnr & "_" & $sAbrufNr $sDateiname = StringReplace($sDateiname, "?", " ") $sDateiname = StringReplace($sDateiname, "*", " ") $sDateiname = StringReplace($sDateiname, "<", " ") $sDateiname = StringReplace($sDateiname, ">", " ") $sDateiname = StringReplace($sDateiname, ",", " ") $sDateiname = StringReplace($sDateiname, "\", " ") $sDateiname = StringReplace($sDateiname, "+", " ") $sDateiname = StringReplace($sDateiname, ":", " ") $sDateiname = StringReplace($sDateiname, "=", " ") $sDateiname = StringReplace($sDateiname, "/", " ") $sDateiname = StringReplace($sDateiname, '"', " ") $sDateiname = StringReplace($sDateiname, ";", " ") $sDateiname = StringReplace($sDateiname, "[", " ") $sDateiname = StringReplace($sDateiname, "]", " ") $sDateiname = StringReplace($sDateiname, "[", " ") $sDateiname = StringReplace($sDateiname, "{", " ") $sDateiname = StringReplace($sDateiname, "}", " ") $sDateiname = StringReplace($sDateiname, "|", " ") $sDateiname = StringReplace($sDateiname, " ", "_") $sDateiname = StringReplace($sDateiname, "__", "_") ; Längenbegrenzungen anwenden $txz01 = StringLeft($txz01, 40) $sbnaman = StringLeft($sbnaman, 12) $dlort = StringLeft($dlort, 25) $aData = "" ;~ $aGLVEx_Data[$iLV_Left_Index][19] = 1 _GUIListViewEx_SetActive($iLV_Aufma_Index) $aData = _GUIListViewEx_ReturnArray($iLV_Aufma_Index, 3) $S_srvpos = "" $S_sectionText = "" $S_longText = "" $S_menge = "" For $i = 0 To UBound($aData) - 1 If $aData[$i][2] <> "" Then $S_srvpos &= $aData[$i][1] & ";" $S_sectionText &= $aData[$i][0] & ";" $S_longText &= $aData[$i][9] & ";" ; Anpassung der Zeichenkette für $S_menge ohne Berechnung, nur Ausdruck Local $expr = "" Switch $aData[$i][7] Case "ST" $expr = $aData[$i][2] & "*" & $aData[$i][6] Case "M" $expr = $aData[$i][2] & "*" & $aData[$i][3] Case "M2" $expr = $aData[$i][2] & "*" & $aData[$i][3] & "*" & $aData[$i][4] Case "M3" $expr = $aData[$i][2] & "*" & $aData[$i][3] & "*" & $aData[$i][4] & "*" & $aData[$i][5] EndSwitch $S_menge &= $expr & ";" EndIf Next ; Entfernen des letzten Semikolons von jeder Variable, um Übereinstimmung zu gewährleisten $S_srvpos = StringTrimRight($S_srvpos, 1) $S_sectionText = StringTrimRight($S_sectionText, 1) $S_longText = StringTrimRight($S_longText, 1) $S_menge = StringTrimRight($S_menge, 1) ; Ausgabe generieren $sFirst = "po_number;po_item;finalMark;lzvon;lzbis;txz01;sbnaman;dlort;srvpos;menge;longText;sectionText" $dataLine = $po_number & ";" & $po_item & ";" & $finalMark & ";" & $lzvon & ";" & $lzbis & ";" & _ $txz01 & ";" & $sbnaman & ";" & $dlort & ';"' & $S_srvpos & '";"' & $S_menge & '";"' & _ $S_longText & '";"' & $S_sectionText ; Ausgabe in Konsole _DebugLog($sFirst & @CRLF & $dataLine) If $iFolderCreate = "True" Then DirCreate(@ScriptDir & "\_Aufmaße\" & $sDateiname & "\") $sOutputFilePath = @ScriptDir & "\_Aufmaße\" & $sDateiname & "\" & $sDateiname & ".csv" Else $sOutputFilePath = @ScriptDir & "\_Aufmaße\" & $sDateiname & ".csv" EndIf ; Ausgabedateipfad definieren ; Datei im Schreibmodus öffnen, UTF-8 ohne BOM $hFile = FileOpen($sOutputFilePath, $FO_OVERWRITE + $FO_UTF8_NOBOM) If $hFile = -1 Then MsgBox($MB_SYSTEMMODAL, "Fehler", "Konnte die Ausgabedatei nicht öffnen.") Exit EndIf ; Kopfzeile und Datenzeile schreiben FileWrite($hFile, $sFirst & @CRLF & $dataLine & @CRLF) ; Datei schließen FileClose($hFile) EndFunc ;==>_klick_exportCSV Func _klick_Import_from_Liste($hLV_LV) $array = _GUICtrlListView_GetSelectedIndices($hLV_LV, True) $spfad = _GUICtrlListView_GetItemText($hLV_LV, Int($array[1]), 2) _GUIListViewEx_Close($iLV_Aufma_Index) _LV_LVAaufMa_List_import_from_TXT_Pfad($spfad) _GUIListViewEx_Close($iLV_PosList_Index) _Load_LV_From_Chb() _GUIListViewEx_ReadToArray($LV_Aufm) _Aufma_Listview_werte_aktu() EndFunc ;==>_klick_Import_from_Liste Func _ShowGui_Aufmhilfe() WinActivate($hGui_AufmH) GUISetState(@SW_SHOW, $hGui_AufmH) EndFunc ;==>_ShowGui_Aufmhilfe Func _ShowGui_PosFensterBig() WinActivate($frm_PosBig) GUISetState(@SW_SHOW, $frm_PosBig) EndFunc ;==>_ShowGui_PosFensterBig Func _ShowGui_Grubentool() WinActivate($formGT) GUISetState(@SW_SHOW, $formGT) EndFunc ;==>_ShowGui_Grubentool Func _ShowGui_EVAufm() WinActivate($frm_ev_aufm) GUISetState(@SW_SHOW, $frm_ev_aufm) EndFunc ;==>_ShowGui_EVAufm Func _ShowGui_AVRB() _load_PFade_from_ini() WinActivate($frm_Main_AVRB) GUISetState(@SW_SHOW, $frm_Main_AVRB) EndFunc ;==>_ShowGui_AVRB Func _ShowGui_Extern_Buttons() WinActivate($frm_extern_buttons) GUISetState(@SW_SHOW, $frm_extern_buttons) EndFunc ;==>_ShowGui_Extern_Buttons Func _ShowGui_Extern_EVH() WinActivate($frm_Main_EVH) GUISetState(@SW_SHOW, $frm_Main_EVH) EndFunc ;==>_ShowGui_Extern_EVH Func _formload() _chb_bemerkung_from_ini() _chb_vertragsnr_from_ini() _chb_group_from_ini() _chb_templateExport_from_ini() $hiDate_start = GUICtrlGetHandle($kopf_tab_datumfeld_start) $hiDate_ende = GUICtrlGetHandle($kopf_tab_datumfeld_ende) _GUICtrlDTP_SetFormat($hiDate_start, "dd.MM.yyyy") _GUICtrlDTP_SetFormat($hiDate_ende, "dd.MM.yyyy") _formload_Aufmh() _GUICtrlCreateStatusBar($hGui_AufmCreater, 260) _Rules() ;Template Ini wenn eins vorhanden direkt laden Local $aKV = IniReadSection($sPfad_Conf, "Template") _ArrayDelete($aKV, 0) ;~ _ArraySort($aKV) ;~ _ArrayDisplay($aKV) If UBound($aKV) = 1 Then ;~ _GUICtrlComboBox_AddString($kopf_TAB_chb_exportvorl, $aKV[0][0]) _GUICtrlComboBox_SetCurSel ($kopf_TAB_chb_exportvorl,0) Else _GUICtrlComboBox_SetCurSel ($kopf_TAB_chb_exportvorl,0) EndIf GUICtrlSetImage($bt_LVEingabe_open_folder, @ScriptDir & "\daten\ico\29_House.ico") GUICtrlSetImage($LVE_TAB_bt_suche, @ScriptDir & "\daten\ico\search.ico") GUICtrlSetImage($LVE_TAB_bt_hinzuPos, @ScriptDir & "\daten\ico\add.ico") GUICtrlSetImage($LVE_TAB_bt_leereZeile, @ScriptDir & "\daten\ico\leer.ico") GUICtrlSetImage($bt_lveingabe_exportexcel, @ScriptDir & "\daten\ico\table.ico") GUICtrlSetImage($bt_LVEingabe_ListSave, @ScriptDir & "\daten\ico\04_Save.ico") GUICtrlSetImage($bt_LVEingabe_markcopy, @ScriptDir & "\daten\ico\16_Copy.ico") GUICtrlSetImage($bt_LVEingabe_liste_aktu, @ScriptDir & "\daten\ico\sync.ico") GUICtrlSetImage($bt_LVEingabe_Listedelete, @ScriptDir & "\daten\ico\müll.ico") Global $bt_LVEingabe_markdelete GUICtrlSetImage($bt_LVEingabe_markdelete, @ScriptDir & "\daten\ico\14_Delete.ico") GUICtrlSetImage($bt_in_EV, @ScriptDir & "\daten\ico\magic.ico") GUICtrlSetImage($bt_LVEingabe_ListImport, @ScriptDir & "\daten\ico\fold.ico") GUICtrlSetImage($kopf_TAB_bt_heute, @ScriptDir & "\daten\ico\date.ico") EndFunc ;==>_formload Func ListView_RClick() $hMenu = _GUICtrlMenu_CreatePopup() _GUICtrlMenu_AddMenuItem($hMenu, "Mark Pos berechnen", $idCalc) _GUICtrlMenu_AddMenuItem($hMenu, "Mark Pos kopieren", $idCopy) _GUICtrlMenu_AddMenuItem($hMenu, "leere Zeile hinzufügen", $idleereZ) _GUICtrlMenu_AddMenuItem($hMenu, "Liste aktualisieren", $idlvListAktu) _GUICtrlMenu_AddMenuItem($hMenu, "") _GUICtrlMenu_AddMenuItem($hMenu, "Mark Pos löschen", $idDel) ; ======================================================================== ; Shows how to capture the context menu selections ; ======================================================================== Switch _GUICtrlMenu_TrackPopupMenu($hMenu, $hLV, -1, -1, 1, 1, 2) Case $idCalc _Calc_Mark_Pos() Case $idCopy _LV_LVAufMA_mark_copy() _LV_LVAufMa_save2temp() Case $idDel _GUIListViewEx_DeleteSpec($iLV_Aufma_Index) _LV_LVAufMa_save2temp() Case $idleereZ _LV_LVaufMa_add_empty_zeile() _LV_LVAufMa_save2temp() Case $idlvListAktu _klick_ListAktu() EndSwitch _GUICtrlMenu_DestroyMenu($hMenu) EndFunc ;==>ListView_RClick Func _Calc_Mark_Pos() Local $iGesamtsumme $array = _GUICtrlListView_GetSelectedIndices($lv_aufm, True) $iCount = _GUICtrlListView_GetItemCount($lv_aufm) ;~ _ArrayDisplay($array) Dim $aListAufmass[1][13] For $i = 1 To $array[0] Local $sZeile = "" $aTemp = _GUICtrlListView_GetItemTextArray($lv_aufm, $array[$i]) ;~ $sZeile = _GUICtrlListView_GetItemTextString($LV_AM, $array[$i]) ;~ _ArrayDisplay($aTemp) $aListAufmass[0][0] = $aTemp[1] $aListAufmass[0][1] = $aTemp[2] $aListAufmass[0][2] = $aTemp[3] $aListAufmass[0][3] = $aTemp[4] $aListAufmass[0][4] = $aTemp[5] $aListAufmass[0][5] = $aTemp[6] $aListAufmass[0][6] = $aTemp[7] $aListAufmass[0][7] = $aTemp[8] $aListAufmass[0][8] = $aTemp[9] $aListAufmass[0][9] = $aTemp[10] $aListAufmass[0][10] = $aTemp[11] $aListAufmass[0][11] = $aTemp[12] $aListAufmass[0][12] = $aTemp[13] $iMengeHinten = _replaceKom2Punkt($aListAufmass[0][10]) $iGesamtsumme = $iGesamtsumme + $iMengeHinten * _replaceKom2Punkt($aListAufmass[0][11]) Next $iGesamtsumme = _replacePunkt2Koma($iGesamtsumme) & " €" _Write_to_Console("Summe mark. Positionen = " & _replacePunkt2Koma($iGesamtsumme)) MsgBox(64, "Preis für mark Pos", $iGesamtsumme) EndFunc ;==>_Calc_Mark_Pos Func _testlistclick() $sEinklickPostext = IniRead($sPfadIni, "Setup", "Einklickpostext", "") If $sEinklickPostext = "True" Then ;_GUIListViewEx_WM_NOTIFY_Handler in der Funktion udf von Melba ;kein Arraydisplay verwenden Programm hängt sich dann auf. $iLastItem = _GUIListViewEx_GetLastSelItem() $aCordList = StringSplit($iLastItem, "|") If UBound($aCordList) = 4 Then If IsArray($aCordList) Then $iZeile = $aCordList[2] $iSpalte = $aCordList[1] ; PositionNr $iPosNr = _GUICtrlListView_GetItemText($lv_aufm, Int($iZeile), Int($iSpalte)) $iKurztext = _GUICtrlListView_GetItemText($lv_aufm, Int($iZeile), 8) ;Fenster PosBig GUICtrlSetData($frm_posfenst_posnr, $iPosNr) GUICtrlSetData($frm_posfenst_ltex, $iKurztext) _txt_load_Liste_Langtxt($iPosNr) ;fenster Big in funktion integriert. EndIf EndIf EndIf EndFunc ;==>_testlistclick Func _createtxt($spfad, $stxt) Local Const $sFilePath = $spfad ; Erstellt eine temporäre Datei in die Daten geschrieben werden sollen. ; Öffnet die Datei zum schreiben (hängt den Text an das Ende der Datei) und speichert das Handle in einer Variable. Local $hFileOpen = FileOpen($sFilePath, 8 + 2 + 64) If $hFileOpen = -1 Then MsgBox($MB_SYSTEMMODAL, "", "Es ist während dem lesen der Datei ein Fehler aufgetreten.") Return False EndIf $stxt = StringReplace($stxt, @LF, @CR & @LF) ; Schreibt durch die Verwendung des von FileOpen zurückgegebenen Handles Daten in die Datei. FileWrite($hFileOpen, $stxt) ; Schließt das Handle welches von FileOpen zurückgegeben wurde. FileClose($hFileOpen) EndFunc ;==>_createtxt Func _StringBetween($sString, $sStart, $sEnd, $iMode = $STR_ENDISSTART, $bCase = False) ; If starting from beginning of string $sStart = $sStart ? "\Q" & $sStart & "\E" : "\A" ; Set mode If $iMode <> $STR_ENDNOTSTART Then $iMode = $STR_ENDISSTART ; If ending at end of string If $iMode = $STR_ENDISSTART Then ; Use lookahead $sEnd = $sEnd ? "(?=\Q" & $sEnd & "\E)" : "\z" Else ; Capture end string $sEnd = $sEnd ? "\Q" & $sEnd & "\E" : "\z" EndIf ; Set correct case sensitivity If $bCase = Default Then $bCase = False EndIf Local $aReturn = StringRegExp($sString, "(?s" & (Not $bCase ? "i" : "") & ")" & $sStart & "(.*?)" & $sEnd, $STR_REGEXPARRAYGLOBALMATCH) If @error Then Return SetError(1, 0, 0) Return $aReturn EndFunc ;==>_StringBetween Func _DebugLog($s_text) If Not $g_bDebug Then Return ConsoleWrite("[DEBUG] " & $s_text & @LF) EndFunc ;==>_DebugLog Func _DebugPrint($s_text, $line = @ScriptLineNumber) If Not $g_bDebug Then Return ConsoleWrite( _ "!===========================================================" & @LF & _ "+======================================================" & @LF & _ "-->Line(" & StringFormat("%04d", $line) & "):" & @TAB & $s_text & @LF & _ "+======================================================" & @LF) EndFunc ;==>_DebugPrint Func _berechneFaktor() $sLeange = GUICtrlRead($txt_gf_l) $sBreite = GUICtrlRead($txt_gf_b) $sFaktor = _grubenfaktorrechner($sLeange, $sBreite) $sText = "Faktor = " & $sFaktor & " bei Grubenmaß (l x b) " & $sLeange & " x " & $sBreite GUICtrlSetData($ed_gf_ausgabe, GUICtrlRead($ed_gf_ausgabe) & @CRLF & $sText) _GUICtrlEdit_LineScroll($ed_gf_ausgabe, 0, _GUICtrlEdit_GetLineCount($ed_gf_ausgabe)) EndFunc ;==>_berechneFaktor Func _Auftragsliste2Array2EVergabe($sPfad_EV, $sAusgabetxt) Dim $aReturn Dim $aArray $sPfadE_Vergabe = $sPfad_EV $aReturn = _FileListToArrayRec($sPfadE_Vergabe, "*.txt", 1, 0, 1) For $iix = 1 To UBound($aReturn) - 1 _FileReadToArray($sPfadE_Vergabe & $aReturn[$iix], $aArray) Dim $aListeImport[$aArray[0] - 15][13] $iZ = 0 For $i = 16 To UBound($aArray) - 1 $aTemp = StringSplit($aArray[$i], "|") For $ii = 1 To UBound($aTemp) - 1 $aListeImport[$iZ][$ii - 1] = $aTemp[$ii] Next $iZ = $iZ + 1 Next For $ix = 0 To UBound($aListeImport) - 1 Select Case $aListeImport[$ix][7] = "M" ;ändere meter Zeile 3 mit Menge $aListeImport[$ix][6] = $aListeImport[$ix][3] Case $aListeImport[$ix][7] = "M2" ;Länge x Breite = Menge vorne $sMengeM2 = _replaceKom2Punkt($aListeImport[$ix][3]) * _replaceKom2Punkt($aListeImport[$ix][4]) $aListeImport[$ix][6] = _replacePunkt2Koma($sMengeM2) ;Menge neu Berechnen; Case $aListeImport[$ix][7] = "M3" ;länge x Breite x Tiefe = Menge $sMengeM3 = _replaceKom2Punkt($aListeImport[$ix][3]) * _replaceKom2Punkt($aListeImport[$ix][4]) * _replaceKom2Punkt($aListeImport[$ix][5]) $aListeImport[$ix][6] = _replacePunkt2Koma($sMengeM3) Case $aListeImport[$ix][7] = "LE" ;~ $aListeImport[$ix][6] = $aListeImport[$ix][3] Case $aListeImport[$ix][7] = "ST" ;~ $aListeImport[$ix][6] = $aListeImport[$ix][3] Case $aListeImport[$ix][7] = "STD" ;~ $aListeImport[$ix][6] = $aListeImport[$ix][3] EndSelect ;ändere Menge hinten mit Mengevorne * Faktor $ixMengeVorne = _replaceKom2Punkt($aListeImport[$ix][6]) $ixFakotr = _replaceKom2Punkt($aListeImport[$ix][2]) $ixMengeHinten = $ixMengeVorne * $ixFakotr $aListeImport[$ix][10] = _replacePunkt2Koma($ixMengeHinten) ;ändere Gesamtpreishinten (MengeHinten*Einzellpreis) $ixGesamtsumme = $ixMengeHinten * _replaceKom2Punkt($aListeImport[$ix][11]) $aListeImport[$ix][12] = _replacePunkt2Koma($ixGesamtsumme) Next $iSummeset = 0 For $iii = 0 To UBound($aListeImport) - 1 ; Menge * Faktor = G-Menge $sMenge = _replaceKom2Punkt($aListeImport[$iii][6]) * _replaceKom2Punkt($aListeImport[$iii][2]) $aListeImport[$iii][10] = _replacePunkt2Koma($sMenge) ; Menge (Menge * Faktor) ;G-Menge * Einzellspreis = Summe $iSumme = _replaceKom2Punkt($aListeImport[$iii][10]) * _replaceKom2Punkt($aListeImport[$iii][11]) ;Menge hinten * Faktor) $aListeImport[$iii][12] = _replacePunkt2Koma($iSumme) $iSummeset = _replacePunkt2Koma($iSummeset + $iSumme) Next _DebugLog($aReturn[$iix] & "|" & $iSummeset) FileWrite(@ScriptDir & "\" & $sAusgabetxt, $aReturn[$iix] & "|" & $iSummeset & @CRLF) Next EndFunc ;==>_Auftragsliste2Array2EVergabe Func _Rules() ;~ $sUserID = _license_userid() ;~ $sReturn = _GetServerRules($sUserID) ;Aufmaßhilfe + Tabs If IniRead($sPfadIni, "Rules", "E-Vergabe", "False") = "True" Then GUICtrlSetState($bt_in_EV, $GUI_ENABLE) GUICtrlSetState($bt_in_EV, $GUI_SHOW) ; AVRB Massen in EV GUICtrlSetState($bt_tab_local_massEVImport, $GUI_ENABLE) GUICtrlSetState($bt_tab_local_massEVImport, $GUI_SHOW) Else GUICtrlSetState($bt_in_EV, $GUI_DISABLE) GUICtrlSetState($bt_in_EV, $GUI_HIDE) ;AVRB Massen in EV GUICtrlSetState($bt_tab_local_massEVImport, $GUI_DISABLE) GUICtrlSetState($bt_tab_local_massEVImport, $GUI_HIDE) EndIf If IniRead($sPfadIni, "Rules", "Aufmashilfe", "False") = "True" Then GUICtrlSetState($mAufmh, $GUI_ENABLE) Else GUICtrlSetState($mAufmh, $GUI_DISABLE) EndIf If IniRead($sPfadIni, "Rules", "AddTAB_Graben", "False") = "True" Then _add_Tab_graben() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_Gruben", "False") = "True" Then _add_Tab_gruben() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_GF", "False") = "True" Then _add_Tab_GF() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_FTTH", "False") = "True" Then _add_Tab_FTTH() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_Kabelzug", "False") = "True" Then _add_Tab_Kabelzug() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_Absperrung", "False") = "True" Then _add_Tab_Absperrung() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_STO", "False") = "True" Then _add_Tab_Stoerung() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_TVUM", "False") = "True" Then _add_Tab_TVUM() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_Planung", "False") = "True" Then _add_Tab_Planung() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_ZW_RV", "False") = "True" Then _add_Tab_ZW_RV() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_Doku", "False") = "True" Then _add_Tab_Doku() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_StoSam", "False") = "True" Then _add_Tab_sto_sammler() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_SASMeck", "False") = "True" Then _add_SAS_Meck() EndIf If IniRead($sPfadIni, "Rules", "AddTAB_NeffAchberg", "False") = "True" Then _add_NEFF_Achberg() EndIf EndFunc ;==>_Rules Func _GetServerRules($sUser) Global $hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:63.0) Gecko/20100101 Firefox/63.0") Global $aHosts[2][2] $aHosts[1][0] = "creater.fk-coding.de" $aHosts[1][1] = _WinHttpConnect($hSession, $aHosts[1][0]) Global $sHeader = "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & "Accept-Language: de,en-US;q=0.7,en;q=0.3" & @CRLF & "Accept-Encoding: gzip, deflate, br" & @CRLF $sLink = IniRead(@ScriptDir & "\daten\conf.ini", "Firma", "Data", "xxx") $sUser = IniRead(@ScriptDir & "\daten\conf.ini", "Firma", "User", "xxx") $sHTML = _send_Winhttp_GET_low($aHosts[1][1], "/FA/" & $sLink & "/user/" & $sUser & "/" & "Rules.dat", "https://local-Tool/") Return $sHTML EndFunc ;==>_GetServerRules Func _add_Tab_graben() GUISwitch($hGui_AufmH, $Tab1) ;~ Global $hGui_AufmH = GUICreate("Aufmaßhilfe v1", 991, 517, 771, 633, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP)) Global $frmdatei_zu_akttan = GUICtrlCreateMenuItem("Aktueller Tab", $frmdatei_zu) Global $frmdatei_zu_alle = GUICtrlCreateMenuItem("Alle Tabs / Felder", $frmdatei_zu) Global $frmdatei_exit = GUICtrlCreateMenuItem("Beenden", $frmdatei) Global $Tab1 = GUICtrlCreateTab(8, 32, 969, 449) Global $graeben = GUICtrlCreateTabItem("Gräben") Global $tab1_gb_ob = GUICtrlCreateGroup("Oberfläche", 8, 250, 425, 209) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab1_chb_wiese = GUICtrlCreateCheckbox("Wiese", 12, 271, 49, 17) Global $tab1_chb_kies = GUICtrlCreateCheckbox("Kies", 76, 271, 41, 17) Global $tab1_chb_asphalt = GUICtrlCreateCheckbox("Asphalt", 12, 295, 57, 17) Global $tab1_chb_pflaster = GUICtrlCreateCheckbox("Pflaster", 76, 295, 57, 17) Global $tab1_chb_fels = GUICtrlCreateCheckbox("Fels", 288, 271, 49, 17) Global $tab1_chb_winterbau = GUICtrlCreateCheckbox("Winterbau", 352, 271, 73, 17) Global $tab1_chb_mosaik = GUICtrlCreateCheckbox("Mosaik", 140, 271, 49, 17) Global $tab1_chb_bodentausch = GUICtrlCreateCheckbox("Bodentausch", 200, 271, 85, 17) Global $tab1_chb_pflaster_gr = GUICtrlCreateCheckbox("Groß/Natursteinpfl", 140, 295, 129, 17) Global $tab1_chb_inBeton = GUICtrlCreateCheckbox("in Beton Pflaster/Moasik", 288, 295, 137, 17) Global $Label7 = GUICtrlCreateLabel("Reststreifen: (l x b)", 16, 362, 91, 17) Global $Label8 = GUICtrlCreateLabel("länge:", 16, 386, 33, 17) Global $Label9 = GUICtrlCreateLabel("breite:", 16, 418, 33, 17) Global $tab1_txt_rest_laenge = GUICtrlCreateInput("", 64, 386, 49, 22) Global $tab1_txt_rest_breite = GUICtrlCreateInput("", 64, 418, 49, 22) Global $Label18 = GUICtrlCreateLabel("Asphaltstärke:", 16, 330, 71, 17) Global $tab1_txt_asphaltstark = GUICtrlCreateInput("", 88, 330, 57, 22) Global $Label19 = GUICtrlCreateLabel("Anzahl Einzeiler:", 176, 370, 81, 17) Global $tab1_txt_anz_einz = GUICtrlCreateInput("", 264, 370, 25, 22) Global $tab1_txt_lm_bre = GUICtrlCreateInput("", 176, 394, 25, 22) Global $Label = GUICtrlCreateLabel("m Borad/Rinne/Einzeiler", 208, 394, 120, 17) Global $tab1_chb_liefern = GUICtrlCreateCheckbox("Bord/Rinne/Einzeiler liefern", 176, 426, 153, 17) Global $tab1_chb_bord = GUICtrlCreateCheckbox("Boardstein", 176, 346, 73, 17) Global $tab1_chb_kante = GUICtrlCreateCheckbox("Kantenstein", 352, 346, 73, 17) Global $tab1_chb_rinne = GUICtrlCreateCheckbox("Einzeiler/Rinne", 256, 346, 89, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $tab1_gb_medien = GUICtrlCreateGroup("Medien", 448, 58, 513, 209) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab1_chb_cu_kabel = GUICtrlCreateCheckbox("6-100 DA CU-Kabel", 456, 82, 121, 17) Global $tab1_chb_anz_g_100CU = GUICtrlCreateCheckbox("> 100 DA CU-Kabel", 584, 82, 97, 17) Global $tab1_txt_anz_cu_kabel = GUICtrlCreateInput("", 696, 82, 41, 22) Global $Label10 = GUICtrlCreateLabel("Anzahl Kupfer", 752, 82, 124, 17) Global $tab1_chb_dn50 = GUICtrlCreateCheckbox("1xDN 50", 456, 146, 65, 17) Global $tab1_txt_anz_dn50 = GUICtrlCreateInput("", 528, 146, 41, 22) Global $Label11 = GUICtrlCreateLabel("Anzahl 1xDN 50", 584, 146, 81, 17) Global $tab1_chb_snrve7x12 = GUICtrlCreateCheckbox("SNRVe 7x12", 696, 178, 81, 17) Global $tab1_txt_anz_snrve712 = GUICtrlCreateInput("", 792, 178, 41, 22) Global $tab1_chb_dn110 = GUICtrlCreateCheckbox("DN110", 456, 114, 57, 17) Global $tab1_txt_anz_dn110 = GUICtrlCreateInput("", 528, 114, 41, 22) Global $Label12 = GUICtrlCreateLabel("Anzahl DN110", 584, 114, 73, 17) Global $tab1_chb_snrve22x7 = GUICtrlCreateCheckbox("SNRVe 22x7", 696, 146, 81, 17) Global $tab1_txt_anz_snrve22x7 = GUICtrlCreateInput("", 792, 146, 41, 22) Global $Label13 = GUICtrlCreateLabel("Anzahl SNRVe 22x7", 848, 146, 101, 17) Global $Label14 = GUICtrlCreateLabel("Anzahl SNRVe 7x12", 848, 178, 101, 17) Global $tab1_chb_snrve8x7 = GUICtrlCreateCheckbox("SNRVe 8x7", 696, 210, 81, 17) Global $tab1_txt_anz_snrve_8x7 = GUICtrlCreateInput("", 792, 210, 41, 22) Global $Label15 = GUICtrlCreateLabel("Anazhl SNRVe 8x7", 848, 210, 95, 17) Global $tab1_chb_2xdn50 = GUICtrlCreateCheckbox("2xDN50", 456, 178, 65, 17) Global $tab1_txt_anz_2xdn50 = GUICtrlCreateInput("", 528, 178, 41, 22) Global $Label16 = GUICtrlCreateLabel("Anzahl 2xDN50", 584, 178, 78, 17) Global $tab1_chb_3xdn50 = GUICtrlCreateCheckbox("3xDN50", 456, 210, 57, 17) Global $tab1_txt_anz_3xdn50 = GUICtrlCreateInput("", 528, 210, 41, 22) Global $Label17 = GUICtrlCreateLabel("Anzahl 3xDN50", 584, 210, 78, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $tab1_bt_add = GUICtrlCreateButton("hinzufügen", 448, 330, 123, 41) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab1_bt_zurucksetz = GUICtrlCreateButton("zurücksetzen", 576, 330, 83, 41) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab1_chb_trasseeinmessen = GUICtrlCreateCheckbox("Trasse einmessen", 448, 306, 105, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab1_chb_stahplatte = GUICtrlCreateCheckbox("Stahlplatte", 448, 282, 81, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab1_txt_stahplatteBemerk = GUICtrlCreateInput("", 536, 274, 225, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Group1 = GUICtrlCreateGroup("Graben", 12, 53, 425, 193) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label1 = GUICtrlCreateLabel("Abschnitt:", 16, 67, 51, 17) Global $tab1_txt_abschnitt = GUICtrlCreateInput("", 18, 87, 401, 22) $Label2 = GUICtrlCreateLabel("Länge:", 20, 113, 37, 17) $Label3 = GUICtrlCreateLabel("Breite:", 76, 113, 34, 17) $Label4 = GUICtrlCreateLabel("Tiefe:", 132, 113, 31, 17) Global $tab1_txt_leange = GUICtrlCreateInput("", 20, 137, 33, 22) Global $tab1_txt_breite = GUICtrlCreateInput("", 76, 137, 33, 22) Global $tab1_txt_tiefe = GUICtrlCreateInput("", 132, 137, 33, 22) $Label6 = GUICtrlCreateLabel("Bemerkung:", 20, 185, 61, 17) Global $tab1_txt_bemerkung = GUICtrlCreateInput("", 20, 209, 401, 22) Global $gp_mindertiefe = GUICtrlCreateGroup("Mindertiefe Breite: 0,15-0,30 | Tiefe: 0,3-0,45", 180, 113, 241, 65) Global $chb_g_mind_L = GUICtrlCreateCheckbox("Längstrasse", 188, 137, 97, 17) Global $chb_g_mind_ftth = GUICtrlCreateCheckbox("FTTH Hausanschluss", 188, 153, 137, 17) Global $tab1_chb_1x7 = GUICtrlCreateCheckbox("SNRVe 1x7", 696, 240, 89, 17) Global $tab1_txt_anz_1x7 = GUICtrlCreateInput("", 792, 240, 41, 21) Global $Label72 = GUICtrlCreateLabel("Anzahl SNRVE 1x7", 848, 240, 96, 17) ;~ GUISwitch($hGui_AufmCreater) EndFunc ;==>_add_Tab_graben Func _add_Tab_gruben() GUISwitch($hGui_AufmH, $Tab1) Global $Gruben = GUICtrlCreateTabItem("Gruben") Global $Label20 = GUICtrlCreateLabel("Abschnitt:", 24, 72, 51, 17, 0) Global $tab2_txt_abschnitt = GUICtrlCreateInput("", 24, 96, 265, 21, $GUI_SS_DEFAULT_INPUT) Global $Label21 = GUICtrlCreateLabel("Länge:", 24, 128, 37, 17, 0) Global $Label22 = GUICtrlCreateLabel("Breite:", 72, 128, 34, 17, 0) Global $Label23 = GUICtrlCreateLabel("Tiefe:", 120, 128, 31, 17, 0) Global $tab2_txt_leange = GUICtrlCreateInput("", 24, 152, 33, 21, $GUI_SS_DEFAULT_INPUT) Global $tab2_txt_breite = GUICtrlCreateInput("", 72, 152, 33, 21, $GUI_SS_DEFAULT_INPUT) Global $tab2_txt_tiefe = GUICtrlCreateInput("", 120, 152, 33, 21, $GUI_SS_DEFAULT_INPUT) Global $Label24 = GUICtrlCreateLabel("Bemerkung:", 24, 184, 61, 17, 0) Global $tab2_txt_bemerkung = GUICtrlCreateInput("", 24, 208, 249, 21, $GUI_SS_DEFAULT_INPUT) Global $Group1 = GUICtrlCreateGroup("Oberfläche", 304, 64, 521, 209) Global $tab2_chb_wiese = GUICtrlCreateCheckbox("Wiese", 312, 88, 49, 17) Global $tab2_chb_kies = GUICtrlCreateCheckbox("Kies", 375, 88, 49, 17) Global $tab2_chb_asphalt = GUICtrlCreateCheckbox("Asphalt", 312, 112, 57, 17) Global $tab2_chb_pflaster = GUICtrlCreateCheckbox("Pflaster", 440, 88, 57, 17) Global $tab2_chb_mosaik = GUICtrlCreateCheckbox("Mosaik", 375, 112, 49, 17) Global $tab2_chb_bodentausch = GUICtrlCreateCheckbox("Bodentausch", 505, 88, 80, 17) Global $tab2_chb_fels = GUICtrlCreateCheckbox("Fels", 600, 88, 49, 17) Global $tab2_chb_grnaturpfl = GUICtrlCreateCheckbox("Groß/Natursteinplfaster", 440, 112, 137, 17) Global $tab2_chb_inBeton = GUICtrlCreateCheckbox("in Beton Pflaster/Moasik", 600, 109, 137, 17) Global $tab2_chb_winterbau = GUICtrlCreateCheckbox("Winterbau", 680, 88, 73, 17) Global $Label25 = GUICtrlCreateLabel("Reststreifen: (l x b)", 312, 184, 91, 17, 0) Global $Label26 = GUICtrlCreateLabel("länge:", 312, 216, 33, 17, 0) Global $Label27 = GUICtrlCreateLabel("breite:", 312, 240, 33, 17, 0) Global $tab2_txt_rest_laenge = GUICtrlCreateInput("", 360, 208, 49, 21, $GUI_SS_DEFAULT_INPUT) Global $tab2_txt_rest_breite = GUICtrlCreateInput("", 360, 240, 49, 21, $GUI_SS_DEFAULT_INPUT) Global $Label28 = GUICtrlCreateLabel("Asphaltstärke:", 312, 136, 71, 17, 0) Global $tab2_txt_asphaltstark = GUICtrlCreateInput("", 384, 136, 57, 21, $GUI_SS_DEFAULT_INPUT) Global $Label29 = GUICtrlCreateLabel("Anzahl Einzeiler:", 472, 168, 81, 17, 0) Global $tab2_txt_anz_einz = GUICtrlCreateInput("", 560, 168, 33, 21, $GUI_SS_DEFAULT_INPUT) Global $tab2_txt_lm_bre = GUICtrlCreateInput("", 472, 192, 25, 21, $GUI_SS_DEFAULT_INPUT) Global $Label30 = GUICtrlCreateLabel("m Borad/Rinne/Einzeiler", 504, 192, 120, 17, 0) Global $tab2_chb_liefern = GUICtrlCreateCheckbox("Bord/Rinne/Einzeiler liefern", 472, 216, 153, 17) Global $tab2_chb_bord = GUICtrlCreateCheckbox("Boardstein", 472, 144, 73, 17) Global $tab2_chb_kante = GUICtrlCreateCheckbox("Kantenstein", 656, 144, 73, 17) Global $tab2_chb_rinne = GUICtrlCreateCheckbox("Einzeiler/Rinne", 552, 144, 97, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $tab2_bt_add = GUICtrlCreateButton("hinzufügen", 24, 256, 123, 41) Global $tab2_chb_einmessengr = GUICtrlCreateCheckbox("Grube/Muffe einmessen", 304, 280, 137, 17) Global $tab2_txt_einmessengr = GUICtrlCreateInput("", 448, 280, 289, 21) Global $tab2_bt_zurucksetz = GUICtrlCreateButton("zurücksetzen", 152, 256, 123, 41) Global $tab2_chb_kugelmarker = GUICtrlCreateCheckbox("Kugelmarker", 304, 304, 97, 17) Global $tab2_chb_Rohrinstand = GUICtrlCreateCheckbox("Punktuelle Rohrinstansetzung", 304, 328, 169, 17) Global $Group2 = GUICtrlCreateGroup("Vorlagen Gruben", 16, 352, 321, 145) Global $chb_gr_gfm = GUICtrlCreateCheckbox("GF-Muffe", 24, 368, 89, 25) Global $chb_gr_mfg12 = GUICtrlCreateCheckbox("MFG 12", 176, 368, 97, 17) Global $chb_gr_mfg15 = GUICtrlCreateCheckbox("MFG 15", 176, 384, 97, 17) Global $chb_gr_mfg18 = GUICtrlCreateCheckbox("MFG 18", 176, 400, 97, 17) Global $chb_gr_enas = GUICtrlCreateCheckbox("ENAS", 176, 416, 97, 17) EndFunc ;==>_add_Tab_gruben Func _add_Tab_GF() GUISwitch($hGui_AufmH, $Tab1) Global $GFMontage = GUICtrlCreateTabItem("GF-Montage") Global $Label62 = GUICtrlCreateLabel("NVT Bezeichnung:", 24, 72, 94, 17) Global $tab4_txt_nvtbez = GUICtrlCreateInput("", 136, 72, 121, 21) Global $Label31 = GUICtrlCreateLabel("Muffen Bezeichnung:", 24, 96, 105, 17) Global $tab4_txt_Muffbz = GUICtrlCreateInput("", 136, 96, 121, 21) Global $Label32 = GUICtrlCreateLabel("Anzahl Fasern A1:", 22, 120, 90, 17) Global $Label33 = GUICtrlCreateLabel("Anzahl Fasern G1:", 228, 121, 91, 17) Global $Label34 = GUICtrlCreateLabel("Anzahl Fasern G2:", 20, 143, 91, 17) Global $Label35 = GUICtrlCreateLabel("Anzahl Fasern G3:", 228, 145, 91, 17) Global $Label36 = GUICtrlCreateLabel("Anzahl Fasern G4:", 23, 172, 91, 17) Global $Label37 = GUICtrlCreateLabel("Anzahl Fasern G5:", 228, 169, 91, 17) Global $tab4_txt_AF_A1 = GUICtrlCreateInput("", 122, 120, 57, 21) Global $tab4_txt_AF_G1 = GUICtrlCreateInput("", 324, 121, 57, 21) Global $tab4_txt_AF_G2 = GUICtrlCreateInput("", 122, 144, 57, 21) Global $tab4_txt_AF_G3 = GUICtrlCreateInput("", 324, 145, 57, 21) Global $tab4_txt_AF_G4 = GUICtrlCreateInput("", 122, 168, 57, 21) Global $tab4_txt_AF_G5 = GUICtrlCreateInput("", 324, 169, 57, 21) Global $tab4_bt_hinzuf = GUICtrlCreateButton("hinzufügen", 24, 376, 83, 33) Global $tab4_bt_zurucksetz = GUICtrlCreateButton("zurücksetzen", 112, 376, 83, 33) Global $tab4_chb_indoor = GUICtrlCreateCheckbox("Indoor", 24, 200, 49, 17) Global $tab4_chb_outdoor = GUICtrlCreateCheckbox("Outdoor", 80, 200, 65, 17) Global $Label38 = GUICtrlCreateLabel("Anzahl Fasern Verbinden:", 32, 224, 125, 17) Global $tab4_txt_anz_Fasern_verb = GUICtrlCreateInput("", 160, 224, 41, 21) Global $Label39 = GUICtrlCreateLabel("Anzahl Fasern Messen:", 432, 64, 114, 17) Global $tab4_txt_anz_fasern_mess = GUICtrlCreateInput("", 560, 64, 41, 21) Global $tab4_chb_A1_neu = GUICtrlCreateCheckbox("neu", 184, 120, 41, 17) Global $tab4_chb_G2_neu = GUICtrlCreateCheckbox("neu", 184, 147, 41, 17) Global $tab4_chb_G4_neu = GUICtrlCreateCheckbox("neu", 184, 173, 41, 17) Global $tab4_chb_G1_neu = GUICtrlCreateCheckbox("neu", 384, 128, 41, 17) Global $tab4_chb_G3_neu = GUICtrlCreateCheckbox("neu", 384, 151, 41, 17) Global $tab4_chb_G5_neu = GUICtrlCreateCheckbox("neu", 384, 171, 41, 17) Global $Label234 = GUICtrlCreateLabel("Anzahl Pigtails Ein. IN:", 432, 96, 110, 17) Global $tab4_txt_anz_pig_e_in = GUICtrlCreateInput("", 560, 96, 41, 21) Global $Label40 = GUICtrlCreateLabel("Anzahl Pigtails Ein. OUT:", 432, 120, 122, 17) Global $tab4_txt_anz_pig_e_out = GUICtrlCreateInput("", 560, 120, 41, 21) Global $Label41 = GUICtrlCreateLabel("Anzahl GruppPigtails:", 432, 144, 104, 17) Global $tab4_txt_anz_g_pig = GUICtrlCreateInput("", 560, 144, 41, 21) Global $tab4_chb_mess_mass = GUICtrlCreateCheckbox("Masse", 616, 64, 57, 17) Global $tab4_chb_mess_indi = GUICtrlCreateCheckbox("Individual", 680, 64, 65, 17) Global $tab4_chb_mess_gpon = GUICtrlCreateCheckbox("GPON FTTH", 752, 64, 81, 17) Global $tab4_chb_s_bau_ein = GUICtrlCreateCheckbox("Spleiß Baugruppe einbauen", 616, 120, 161, 17) Global $tab4_chb_p_bau_ein = GUICtrlCreateCheckbox("Patch Baugruppe einbauen", 616, 136, 177, 17) Global $tab4_chb_sp_bau_ein = GUICtrlCreateCheckbox("Spleiß / Patch Baugr. einbauen", 616, 152, 177, 17) Global $tab4_txt_m_verl = GUICtrlCreateInput("", 616, 192, 41, 21) Global $tab4_chb_GFInnen = GUICtrlCreateCheckbox("GF-Innenkabel befestiegen/ einziehen", 664, 184, 201, 17) Global $tab4_chb_kanSNr = GUICtrlCreateCheckbox("Install. Kanäle / SNR befestiegen", 664, 200, 185, 17) Global $tab4_chb_ausenbe = GUICtrlCreateCheckbox("Außenkabel befestiegen", 664, 216, 193, 17) Global $tab4_chb_mess_kontro = GUICtrlCreateCheckbox("Kontrol (FTTH Bayern)", 840, 64, 129, 17) Global $tab4_chb_mess_pegel = GUICtrlCreateCheckbox("Pegel (Bayern)", 840, 80, 97, 17) Global $tab4_chb_Muffe_neu = GUICtrlCreateCheckbox("neu", 264, 96, 41, 17) Global $tab4_chb_MuffeKsch = GUICtrlCreateCheckbox("Muffe im Ksch", 152, 200, 89, 17) Global $tab4_lv_verb = GUICtrlCreateListView("Kabel|Spleiß", 248, 200, 114, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50) Global $tab4_bt_lv_clear = GUICtrlCreateButton("Liste löschen", 272, 352, 75, 25) Global $tab4_cb_kabel = GUICtrlCreateCombo("", 32, 272, 49, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "A1|G1|G2|G3|G4|G5") Global $labe = GUICtrlCreateLabel("Kabel:", 32, 248, 34, 17) Global $Label43 = GUICtrlCreateLabel("Spleiße:", 96, 248, 42, 17) Global $tab4_txt_Splei = GUICtrlCreateInput("", 96, 272, 41, 21) Global $tab4_bt_adSplei = GUICtrlCreateButton("hinzugügen", 144, 272, 67, 25) Global $tab4_chb_gfap = GUICtrlCreateCheckbox("GF-AP befestiegen", 616, 240, 105, 17) Global $tab4_chb_gfap_mfg = GUICtrlCreateCheckbox("GF-AP in MFG", 616, 256, 97, 17) EndFunc ;==>_add_Tab_GF Func _add_Tab_CU() GUISwitch($hGui_AufmH, $Tab1) Global $CUMontage = GUICtrlCreateTabItem("CU-Montage") Global $tab5_chb_muffebis10 = GUICtrlCreateCheckbox("Muffe bis 10 DA montieren", 16, 88, 153, 17) Global $tab5_chb_aplbis10 = GUICtrlCreateCheckbox("APL bis 10 DA montieren", 16, 104, 145, 17) Global $Checkbox1 = GUICtrlCreateCheckbox("Anschluss-/Trennleisten einbauen", 16, 120, 185, 17) Global $Label57 = GUICtrlCreateLabel("Anzahl CU-Verbinden:", 16, 152, 108, 17) Global $tab5_txt_anz_cuverb = GUICtrlCreateInput("", 128, 152, 57, 21) Global $tab5_chb_CuDaVerbGr = GUICtrlCreateCheckbox("CU-DA > 0,8 mm verbinden", 16, 176, 169, 17) Global $tab5_chb_CuDaVerbkl = GUICtrlCreateCheckbox("CU-DA < 0,8 mm verbinden", 16, 192, 153, 17) Global $tab5_chb_stopfstelle = GUICtrlCreateCheckbox("Druckluftstuzen Stopfstelle einbauen", 16, 224, 193, 17) Global $tab5_chb_zulangeStopf = GUICtrlCreateCheckbox("Zulage Stopfstelle DLR", 16, 240, 193, 17) Global $tab5_chb_Muffebauen = GUICtrlCreateCheckbox("Schrumpfmuffe herstellen", 16, 264, 193, 17) Global $tab5_chb_klemmmuffe = GUICtrlCreateCheckbox("Klemmmuffe herstellen", 16, 280, 137, 17) Global $tab5_chb_GelMuffen = GUICtrlCreateCheckbox("Gel-Muffen herstellen", 16, 296, 137, 17) Global $tab5_chb_klemmdlr = GUICtrlCreateCheckbox("Klemmmuffen für DLR", 16, 312, 137, 17) Global $tab5_chb_EVseinb = GUICtrlCreateCheckbox("EVs einbauen", 272, 112, 97, 17) Global $Label58 = GUICtrlCreateLabel("Anzahl:", 272, 88, 39, 17) Global $tab5_txt_anzstk = GUICtrlCreateInput("", 312, 88, 57, 21) Global $tab5_chb_kanlegen = GUICtrlCreateCheckbox("Kabel anlegen EVs/TrLe", 272, 128, 145, 17) Global $Label59 = GUICtrlCreateLabel("Abschnitt:", 16, 72, 51, 17) Global $tab5_txt_abschnitt = GUICtrlCreateInput("", 72, 64, 337, 21) EndFunc ;==>_add_Tab_CU Func _add_Tab_Kabelzug() GUISwitch($hGui_AufmH, $Tab1) Global $Kabelzug = GUICtrlCreateTabItem("Kabelzug") Global $Label53 = GUICtrlCreateLabel("Abschnit von:", 24, 64, 69, 17) Global $tab6_txt_abschn_von = GUICtrlCreateInput("", 104, 64, 121, 21) Global $Label54 = GUICtrlCreateLabel("Abschnitt bis:", 24, 88, 67, 17) Global $tab6_txt_abschnitt_bis = GUICtrlCreateInput("", 104, 88, 121, 21) Global $Label55 = GUICtrlCreateLabel("Absch. Länge:", 24, 112, 73, 17) Global $tab6_txt_lang = GUICtrlCreateInput("", 104, 112, 121, 21) Global $tab6_belegtrh = GUICtrlCreateCheckbox("in belegtes Rohr", 232, 64, 97, 17) Global $Medien = GUICtrlCreateGroup("Medien Rohre", 24, 168, 265, 145) Global $tab6_chb_3pipes = GUICtrlCreateCheckbox("3 Pipes in MFR kl.", 32, 184, 105, 17) Global $tab6_chb_5pipes = GUICtrlCreateCheckbox("5 Pipes in MFR gr.", 32, 200, 105, 17) Global $tab6_chb_7pipes = GUICtrlCreateCheckbox("7 Pipes in DN 50", 32, 216, 113, 17) Global $tab6_chb_7x12 = GUICtrlCreateCheckbox("SNRVe 7x12 einziehen", 32, 232, 145, 17) Global $tab6_chb_8x7 = GUICtrlCreateCheckbox("SNRVe 8x7", 32, 248, 89, 17) Global $tab6_chb_22x7 = GUICtrlCreateCheckbox("SNRVe 22x7", 32, 264, 97, 17) Global $Label56 = GUICtrlCreateLabel("VerbandFarbe:", 128, 248, 74, 17) Global $tab6_dl_verbfarbe = GUICtrlCreateCombo("", 208, 248, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "or|or/ws|or/sw|or/rt", "or") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group4 = GUICtrlCreateGroup("Median Kabel", 304, 168, 233, 145) Global $tab6_chb_12gf = GUICtrlCreateCheckbox("12 GF-Kabel", 312, 184, 81, 17) Global $tab6_chb_24gf = GUICtrlCreateCheckbox("24 GF-Kabel", 312, 200, 81, 17) Global $tab6_chb_36gf = GUICtrlCreateCheckbox("36 GF-Kabel", 312, 216, 81, 17) Global $tab6_chb_48gf = GUICtrlCreateCheckbox("48 GF-Kabel", 312, 232, 81, 17) Global $tab6_chb_72gf = GUICtrlCreateCheckbox("72 GF-Kabel", 312, 248, 81, 17) Global $tab6_chb_96gf = GUICtrlCreateCheckbox("96 GF-Kabel", 312, 264, 81, 17) Global $tab6_chb_cukl = GUICtrlCreateCheckbox("6-100 DA CU", 424, 184, 97, 17) Global $tab6_chb_cugr = GUICtrlCreateCheckbox("> 100 DA CU", 424, 200, 97, 17) Global $tab6_cb_pipefarbe = GUICtrlCreateCombo("", 376, 288, 81, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "rt|gn|bl|ge|ws|gr|br|vi|tk|sw|or|rs") Global $Label63 = GUICtrlCreateLabel("Pipe Farbe:", 312, 288, 58, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $tab6_bt_add = GUICtrlCreateButton("hinzufügen", 24, 328, 75, 25) Global $tab6_bt_zuruck = GUICtrlCreateButton("zurücksetzten", 104, 328, 75, 25) Global $Label60 = GUICtrlCreateLabel("Anzahl Ksch öffnen", 24, 144, 96, 17) Global $tab6_txt_anzksch = GUICtrlCreateInput("", 128, 144, 41, 21) Global $Label61 = GUICtrlCreateLabel("Bezeichnung Ksch:", 176, 144, 96, 17) Global $tab6_txt_bezeichKsch = GUICtrlCreateInput("", 280, 144, 257, 21) EndFunc ;==>_add_Tab_Kabelzug Func _add_Tab_FTTH() GUISwitch($hGui_AufmH, $Tab1) Global $FTTH = GUICtrlCreateTabItem("FTTH") Global $Group2 = GUICtrlCreateGroup("GF-Montage", 328, 55, 297, 353) Global $tab7_chb_adGFMontage = GUICtrlCreateCheckbox("GF-Montage hinzufügen", 331, 71, 153, 17) Global $tab7_chb_GFAP_mon = GUICtrlCreateCheckbox("GF-AP Montieren", 448, 191, 105, 17) Global $tab7_txt_nvtname = GUICtrlCreateInput("", 384, 143, 121, 22) Global $Label42 = GUICtrlCreateLabel("NVT:", 336, 143, 29, 17) Global $tab7_bt_import_csv = GUICtrlCreateButton("Import CVS", 544, 343, 75, 25) Global $Label46 = GUICtrlCreateLabel("AP-Nr:", 336, 167, 35, 17) Global $tab7_txt_apnr = GUICtrlCreateInput("", 384, 167, 121, 22) Global $label12324 = GUICtrlCreateLabel("Anzahl Mess.:", 336, 199, 60, 17) Global $tab7_txt_anzWE = GUICtrlCreateInput("", 400, 191, 41, 22) Global $Label47 = GUICtrlCreateLabel("Straße:", 336, 223, 38, 17) Global $tab7_txt_str = GUICtrlCreateInput("", 384, 223, 121, 22) Global $Label48 = GUICtrlCreateLabel("Hs Nr:", 512, 223, 34, 17) Global $tab7_txt_hsnr = GUICtrlCreateInput("", 552, 223, 41, 22) Global $Label49 = GUICtrlCreateLabel("GF-Kabel", 336, 247, 48, 17) Global $tab7_dl_gfkabel = GUICtrlCreateCombo("", 400, 247, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "4E|12E") Global $Label50 = GUICtrlCreateLabel("Einblas Länge:", 336, 271, 74, 17) Global $tab7_txt_einblang = GUICtrlCreateInput("", 416, 271, 41, 22) Global $Label51 = GUICtrlCreateLabel("Instal Rohr:", 336, 295, 58, 17) Global $tab7_txt_instrohr = GUICtrlCreateInput("", 416, 295, 41, 22) Global $tab7_chb_koordinationp = GUICtrlCreateCheckbox("Koordinationspauschale", 336, 319, 137, 17) Global $Label52 = GUICtrlCreateLabel("Ausgabe:", 336, 351, 49, 17) Global $tab7_txt_ausgabe = GUICtrlCreateInput("", 336, 375, 281, 22) Global $tab7_chb_b_kAbl = GUICtrlCreateCheckbox("Bayern kein Fasern Ablegen", 332, 122, 169, 17) Global $tab7_chb_einblge = GUICtrlCreateCheckbox("Einblas Gerät vorhalten", 490, 70, 127, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group3 = GUICtrlCreateGroup("Tiefbau", 16, 58, 297, 81) Global $Label44 = GUICtrlCreateLabel("Abschnitt:", 24, 82, 51, 17) Global $tab7_txt_abschnitt = GUICtrlCreateInput("", 80, 82, 225, 22) Global $tab7_txt_lang_privat = GUICtrlCreateInput("", 96, 106, 57, 22) Global $Label45 = GUICtrlCreateLabel("länge Privat:", 24, 106, 63, 17) Global $tab7_chb_oO = GUICtrlCreateCheckbox("o.O", 160, 106, 49, 17) Global $tab7_chb_ring_gg = GUICtrlCreateCheckbox("Ring GG", 216, 106, 65, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $tab7_bt_add = GUICtrlCreateButton("Hinzufügen", 12, 149, 75, 25) Global $tab7_bt_zurucksetz = GUICtrlCreateButton("zurücksetzten", 92, 149, 75, 25) Global $tab7_chb_gponmess_konv = GUICtrlCreateCheckbox("GPON Mess konventionial", 330, 90, 167, 17) Global $tab7_chb_gponmess_ein = GUICtrlCreateCheckbox("GPON Mess vereinfacht", 330, 105, 142, 17) GUICtrlSetData($tab7_dl_gfkabel, "4E|12E", "4E") ; vorauswahl bei 4E EndFunc ;==>_add_Tab_FTTH Func _add_Tab_Absperrung() GUISwitch($hGui_AufmH, $Tab1) Global $Absperrung = GUICtrlCreateTabItem("Absperrung") Global $Group5 = GUICtrlCreateGroup("Absperrung", 11, 57, 480, 200) Global $tab_ab_txt_abschnitt = GUICtrlCreateInput("tab_ab_txt_abschnitt", 70, 85, 321, 22) Global $tab_ab_txt_Meter = GUICtrlCreateInput("", 16, 117, 66, 22) Global $tab_ab_txt_m_rpo_st = GUICtrlCreateInput("10", 16, 142, 66, 22) Global $tab_ab_txt_anz_tage = GUICtrlCreateInput("", 321, 117, 66, 22) Global $tab_ab_txt_anz_tag = GUICtrlCreateInput("5", 351, 142, 36, 22) Global $tab_ab_ePreis = GUICtrlCreateInput("", 36, 172, 36, 22) Global $tab_ab_txt_anzTGe = GUICtrlCreateInput("", 201, 172, 46, 22) Global $tab_ab_txt_GP = GUICtrlCreateInput("", 301, 172, 121, 22) Global $tab_ab_txt_bemerkung = GUICtrlCreateInput("", 36, 202, 306, 22) Global $tab_ab_bt_aktu = GUICtrlCreateButton("aktualisieren", 36, 227, 75, 25) Global $tab_ab_bt_add_Pos = GUICtrlCreateButton("hinzufügen", 121, 227, 75, 25) Global $Label64 = GUICtrlCreateLabel("Asperrung in Meter", 86, 122, 93, 17) Global $Label65 = GUICtrlCreateLabel("Meter Pro Stück", 86, 147, 81, 17) Global $Label66 = GUICtrlCreateLabel("Anzahl Tage:", 251, 122, 67, 17) Global $Label67 = GUICtrlCreateLabel("Abzug Tage lt Pos:", 256, 147, 94, 17) Global $Label68 = GUICtrlCreateLabel("E-Preis", 76, 177, 37, 17) Global $Label69 = GUICtrlCreateLabel("M Pro Tag:", 126, 177, 67, 17) Global $Label70 = GUICtrlCreateLabel("Preis:", 256, 177, 30, 17) Global $Label71 = GUICtrlCreateLabel("Bemerkung", 346, 207, 58, 17) Global $Label1 = GUICtrlCreateLabel("Abschnitt:", 15, 85, 53, 18) EndFunc ;==>_add_Tab_Absperrung Func _add_Tab_Stoerung() GUISwitch($hGui_AufmH, $Tab1) Global $STo = GUICtrlCreateTabItem("Störung") Global $Group1 = GUICtrlCreateGroup("CU-Messung", 14, 80, 313, 57) Global $tab_sto_chb_fehlerortun = GUICtrlCreateCheckbox("Fehlerortung von Kabelfehlern an Cu-Kabel", 22, 96, 297, 17) Global $tab_sto_chb_zul_instan = GUICtrlCreateCheckbox("Zulage lnstandsetzung v. Kabelfehlern", 22, 112, 297, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group2 = GUICtrlCreateGroup("CU-Kabelabriss", 14, 141, 313, 57) Global $tab_sto_chb_schaden_bewe = GUICtrlCreateCheckbox("Schadens-/Beweissicherung an TK-Anlagen", 22, 157, 297, 17) Global $tab_sto_chb_instan_beweis = GUICtrlCreateCheckbox("lnstands. nach Schadensbeweis", 22, 173, 297, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group3 = GUICtrlCreateGroup("CU-Kabel", 13, 203, 313, 73) Global $Label1 = GUICtrlCreateLabel("Kabel bis 30mm auslegen in Meter:", 21, 219, 168, 17) Global $tab_sto_txt_kabelkl30 = GUICtrlCreateInput("", 213, 219, 57, 22) Global $Label2 = GUICtrlCreateLabel("Kabel größer 30mm auslegen in Meter:", 21, 243, 185, 17) Global $tab_sto_txt_kabelgr30 = GUICtrlCreateInput("", 213, 243, 57, 22) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group4 = GUICtrlCreateGroup("Sonstiges", 14, 362, 313, 73) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab_sto_chb_anfahrt_mon = GUICtrlCreateCheckbox("Anfahrt Montagestelle", 22, 378, 185, 17) Global $Label3 = GUICtrlCreateLabel("VAO mit Preis von:", 22, 402, 92, 17) Global $tab_sto_txt_vao_preis = GUICtrlCreateInput("", 126, 402, 73, 22) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $tab_sto_bt_zuruck = GUICtrlCreateButton("zurücksetzen", 95, 443, 75, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab_sto_bt_hinzu = GUICtrlCreateButton("hinzufügen", 12, 443, 75, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $Group5 = GUICtrlCreateGroup("CU-Montage", 12, 281, 313, 73) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $Label4 = GUICtrlCreateLabel("Cu-DA> 0,8mm verbinden:", 20, 297, 130, 18) Global $tab_sto_txt_cu_da_kl = GUICtrlCreateInput("", 156, 321, 73, 22) Global $Label6 = GUICtrlCreateLabel("Cu-DA< 0,8mm verbinden :", 20, 321, 133, 18) Global $tab_sto_txt_cu_da_gr = GUICtrlCreateInput("", 156, 297, 73, 22) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group6 = GUICtrlCreateGroup("GF-Messung", 336, 80, 305, 57) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab_sto_chb_fehlor_gf = GUICtrlCreateCheckbox("Fehlerortung v. Kabelfehlern an Gf-Kabel", 344, 96, 241, 17) Global $tab_sto_chb_inst_n_fehl_gf = GUICtrlCreateCheckbox("Instands. v. Gf- Kabel nach Fehlerortung", 344, 112, 233, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group7 = GUICtrlCreateGroup("GF-Kabelabriss", 336, 141, 305, 57) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab_sto_chb_beweis_gf = GUICtrlCreateCheckbox("Schadens-/Beweissicherung an TK?Anlagen", 344, 157, 273, 17) Global $tab_sto_instand_ohne_mess_gf = GUICtrlCreateCheckbox("Instands. v. Gf- Kabel ohne Fehlerortung", 344, 173, 241, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group8 = GUICtrlCreateGroup("GF-Kabel", 336, 203, 305, 73) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab_sto_txt_ausblm = GUICtrlCreateInput("", 344, 219, 41, 22) Global $Label5 = GUICtrlCreateLabel("Meter ausblaen GF-Kabel", 392, 221, 126, 18) Global $tab_sto_txt_einblm = GUICtrlCreateInput("", 344, 243, 41, 22) Global $Label7 = GUICtrlCreateLabel("Meter einblasen GF-Kabel", 392, 245, 128, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group9 = GUICtrlCreateGroup("GF-Montage", 336, 281, 305, 153) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab_sto_txt_unge_Kas_abl = GUICtrlCreateInput("", 344, 296, 41, 22) Global $Label8 = GUICtrlCreateLabel("Gf ungeschweißt in Kassetten ablegen", 392, 300, 193, 18) Global $tab_sto_txt_anz_gf_schw_indoor = GUICtrlCreateInput("", 344, 320, 41, 22) Global $Label9 = GUICtrlCreateLabel("Glasfasern vorb. u. verbinden Indoor", 392, 323, 182, 18) Global $tab_sto_txt_anz_gf_schw_outdoor = GUICtrlCreateInput("", 344, 344, 41, 22) Global $Label10 = GUICtrlCreateLabel("Glasfasern vorb. und verbinden Outdoor", 392, 346, 200, 18) Global $Checkbox1 = GUICtrlCreateCheckbox("Neue GF-Muffe öffnen", 344, 368, 193, 17) Global $Checkbox2 = GUICtrlCreateCheckbox("Bestandsmuffe öffnen", 344, 384, 153, 17) EndFunc ;==>_add_Tab_Stoerung Func _add_Tab_TVUM() GUISwitch($hGui_AufmH, $Tab1) $TVUM = GUICtrlCreateTabItem("TVUM") Global $Group1 = GUICtrlCreateGroup("TVUM GF-AP", 16, 80, 265, 145) Global $tab_tvum_chb_tvumap_mont = GUICtrlCreateCheckbox("TVUM-AP montieren Wand", 24, 96, 193, 17) Global $tab_tvum_txt_instsnr_bef = GUICtrlCreateInput("", 24, 120, 41, 21) Global $Label1 = GUICtrlCreateLabel("Inst. Kanäle / SNR befestiegen", 72, 122, 152, 17) Global $tab_tvum_txt_gfinnen_bef = GUICtrlCreateInput("", 24, 144, 41, 21) Global $Label2 = GUICtrlCreateLabel("GF-Innenkabel befestiegen / einziehen", 72, 146, 188, 17) Global $tab_tvum_txt_TVumAP_anz_spl = GUICtrlCreateInput("", 24, 168, 41, 21) Global $Label4 = GUICtrlCreateLabel("Anzahl Spleiße", 72, 170, 74, 17) Global $tab_tvum_anz_mess = GUICtrlCreateInput("", 24, 192, 41, 21) Global $Label6 = GUICtrlCreateLabel("Anzahl Messungen", 72, 194, 94, 17) Global $Group2 = GUICtrlCreateGroup("FTTH GF-Spleißbox", 16, 232, 265, 49) Global $tab_tvum_txt_ftthap_anz_spl = GUICtrlCreateInput("", 24, 250, 41, 21) Global $Label3 = GUICtrlCreateLabel("Anzahl Spleiße", 72, 253, 74, 17) Global $Group3 = GUICtrlCreateGroup("NVT", 16, 288, 265, 49) Global $tab_tvum_nvt_anz_spl = GUICtrlCreateInput("", 24, 304, 41, 21) Global $Label5 = GUICtrlCreateLabel("Abzahl Spleiße", 72, 307, 74, 17) Global $Group4 = GUICtrlCreateGroup("Kabelzug", 16, 344, 265, 73) Global $tab_tvum_txt_ausblm = GUICtrlCreateInput("", 24, 360, 41, 21) Global $Label7 = GUICtrlCreateLabel("Meter ausblasen", 72, 362, 82, 17) Global $tab_tvum_txt_einblm = GUICtrlCreateInput("", 24, 384, 41, 21) Global $Label8 = GUICtrlCreateLabel("Meter einblasen", 72, 387, 79, 17) Global $tab_tvum_bt_add = GUICtrlCreateButton("hinzufügen", 16, 456, 75, 25) Global $tab_tvum_bt_zuru = GUICtrlCreateButton("zurücksetzen", 104, 456, 75, 25) EndFunc ;==>_add_Tab_TVUM Func _add_Tab_Planung() GUISwitch($hGui_AufmH, $Tab1) Global $Planung = GUICtrlCreateTabItem("Planung") Global $Group1 = GUICtrlCreateGroup("Planung S", 542, 59, 401, 225) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab_plan_ed_SListe = GUICtrlCreateEdit("", 550, 75, 385, 177) GUICtrlSetData(-1, "") Global $tab_plan_chb_05 = GUICtrlCreateCheckbox("S-Planung 0,5", 552, 256, 97, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group2 = GUICtrlCreateGroup("Planung M/L", 540, 287, 409, 201) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab_plan_chb_ap_sgs = GUICtrlCreateCheckbox("GF.AP + Patchfeld", 546, 307, 97, 17) Global $tab_plan_txt_gfminik = GUICtrlCreateInput("", 546, 327, 36, 22) Global $Label1 = GUICtrlCreateLabel("m GF-Kabel einbl.verlegen gesamt", 586, 330, 168, 18) Global $tab_plan_txt_ivk = GUICtrlCreateInput("", 546, 352, 36, 22) Global $Label2 = GUICtrlCreateLabel("m IVK", 586, 355, 32, 18) Global $tab_plan_zulage_kl_baum = GUICtrlCreateInput("", 546, 397, 36, 22) Global $Label3 = GUICtrlCreateLabel("m zulage kl. Baumaßnahme (neue Anlage Rohr or TB", 586, 400, 258, 18) Global $tab_plan_chb_proj_kl_baum = GUICtrlCreateCheckbox("Proj. kl. Baumaßnahme", 546, 377, 257, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group3 = GUICtrlCreateGroup("Planung FTTH/NBG", 12, 59, 520, 427) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab_plan_proj_n_struk_mTB = GUICtrlCreateCheckbox("Projektierung nach Strukturplanung mit TB bis 100m bis 4", 16, 76, 482, 17) Global $tab_plan_txt_proj_n_struk_mTB = GUICtrlCreateInput("", 16, 96, 36, 22) Global $Label4 = GUICtrlCreateLabel("m Zulage ab 101m bis 4", 56, 98, 310, 18) Global $tab_plan_zu_proj_n_struk_oTB = GUICtrlCreateCheckbox("Projektierung nach Strukturplanung ohne TB bis 100m bis 4", 16, 121, 502, 17) Global $tab_plan_proj_n_struk_oTB = GUICtrlCreateInput("", 16, 141, 36, 22) Global $Label5 = GUICtrlCreateLabel("m Zulage ab 101m bis 4", 56, 144, 307, 18) Global $tab_plan_mpp_gfk_nvt_ap = GUICtrlCreateCheckbox("MP.Proj. FTTH-Gf-Kabel v. NVT- GF-AP", 16, 166, 212, 17) Global $tab_plan_txt_mpp_gfk_ZN = GUICtrlCreateInput("", 16, 186, 36, 22) Global $Label6 = GUICtrlCreateLabel("m MP- Proj. Gf-Kabel im ZN-Netz", 56, 189, 159, 18) Global $tab_plan_chb_mpp_gfap = GUICtrlCreateCheckbox("MP-Proj.Gf-AP", 16, 211, 97, 17) Global $tab_plan_txt_mpp_kr = GUICtrlCreateInput("", 16, 231, 36, 22) Global $Label7 = GUICtrlCreateLabel("m MP-Proj. KR-Anlagen", 56, 236, 115, 18) Global $tab_plan_txt_mpp_snrv = GUICtrlCreateInput("", 16, 256, 36, 22) Global $Label8 = GUICtrlCreateLabel("m MP-Proj.", 56, 259, 97, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $tab_plan_bt_add = GUICtrlCreateButton("Hinzufügen", 12, 493, 75, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") Global $tab_plan_bt_zuruck = GUICtrlCreateButton("Zurücksetzten", 100, 493, 75, 25) GUICtrlSetFont(-1, 8, 400, 0, "Arial") EndFunc ;==>_add_Tab_Planung Func _add_Tab_ZW_RV() GUISwitch($hGui_AufmH, $Tab1) ; Neues Tab "ZW-RV" erstellen Global $zw_rv_tab = GUICtrlCreateTabItem("ZW-RV") ; Groupbox "Hausanschluss" erstellen $grpHausanschluss = GUICtrlCreateGroup("Hausanschluss", 20, 60, 440, 290) ; Label "Abschnitt" und Textfeld erstellen GUICtrlCreateLabel("Abschnitt:", 30, 75, 50, 20) Global $tab_zw_rv_txt_abschnitt = GUICtrlCreateInput("", 85, 75, 100, 20) ; Checkboxen in einer Zeile mit 5px Abstand Global $tab_zw_rv_chb_vegetation = GUICtrlCreateCheckbox("Vegetation", 30, 100, 100, 20) Global $tab_zw_rv_chb_pflaster = GUICtrlCreateCheckbox("Pflaster", 135, 100, 100, 20) Global $tab_zw_rv_chb_asphalt = GUICtrlCreateCheckbox("Asphalt", 240, 100, 100, 20) ; Inputfelder unter den Checkboxen Global $tab_zw_rv_txt_vegetation_meter = GUICtrlCreateInput("", 30, 125, 100, 20) Global $tab_zw_rv_txt_pflaster_meter = GUICtrlCreateInput("", 135, 125, 100, 20) Global $tab_zw_rv_txt_asphalt_meter = GUICtrlCreateInput("", 240, 125, 100, 20) ; Weitere Checkboxen untereinander Global $tab_zw_rv_chb_kopfloch_gebaeude = GUICtrlCreateCheckbox("Kopfloch Gebäude", 30, 150, 150, 20) Global $tab_zw_rv_chb_kopfloch_haupttrasse = GUICtrlCreateCheckbox("Kopfloch Haupttrasse", 30, 175, 150, 20) Global $tab_zw_rv_chb_koordinieren_hausanschluss = GUICtrlCreateCheckbox("Koordinieren Hausanschluss", 30, 200, 180, 20) ; Neue Checkboxen unter "Koordinieren Hausanschluss" Global $tab_zw_rv_chb_md1 = GUICtrlCreateCheckbox("MD1-FttH", 30, 225, 100, 20) Global $tab_zw_rv_chb_kernb = GUICtrlCreateCheckbox("Kernbohrung", 30, 250, 100, 20) GUICtrlCreateGroup("", -99, -99) ; Groupbox schließen ; Buttons erstellen Global $tab_zw_rv_bt_add = GUICtrlCreateButton("Hinzufügen", 30, 360, 120, 30) Global $tab_zw_rv_bt_zuruck = GUICtrlCreateButton("Zurücksetzen", 170, 360, 120, 30) Global $tab_zw_rv_bt_import = GUICtrlCreateButton("Import CSV", 310, 360, 120, 30) EndFunc ;==>_add_Tab_ZW_RV Func _add_Tab_Doku() GUISwitch($hGui_AufmH, $Tab1) ; Neues Tab "Doku" hinzufügen GUICtrlCreateTabItem("Doku") $hGroup = GUICtrlCreateGroup("Dokumentation", 16, 67, 420, 176) GUICtrlCreateLabel("MP- Einarbeitung von Gelände/Gebäude:", 26, 87, 200, 20) Global $tab_doku_txt_lang = GUICtrlCreateInput("", 236, 87, 44, 22) Global $tab_doku_txt_breit = GUICtrlCreateInput("", 290, 87, 44, 22) GUICtrlCreateLabel("Dokumentation von Cu/Gf HK-Trassen:", 26, 119, 200, 20) Global $tab_doku_txt_m_hktr = GUICtrlCreateInput("", 236, 119, 44, 22) GUICtrlCreateLabel("Dokumentation von Cu/Gf VzK-Trassen:", 26, 151, 200, 20) Global $tab_doku_txt_m_vzktr = GUICtrlCreateInput("", 236, 151, 44, 22) Global $tab_doku_chb_dokGeh = GUICtrlCreateCheckbox("Dokumentation von Gehäusen", 26, 215, 200, 20) GUICtrlCreateLabel("Dokumentation Gf-Hausanschluss:", 26, 183, 200, 20) Global $tab_doku_txt_anzGFHaus = GUICtrlCreateInput("", 236, 183, 44, 22) $Label1 = GUICtrlCreateLabel("Länge x Breite", 344, 88, 74, 18) $Label2 = GUICtrlCreateLabel("Meter", 288, 120, 31, 18) $Label3 = GUICtrlCreateLabel("Meter", 289, 151, 31, 18) $Label4 = GUICtrlCreateLabel("Stück", 290, 183, 31, 18) Global $tab_doku_bt_add = GUICtrlCreateButton("Hinzufügen", 14, 279, 100, 30) Global $tab_doku_bt_zuruck = GUICtrlCreateButton("Zurücksetzen", 120, 279, 100, 30) EndFunc ;==>_add_Tab_Doku Func _add_Tab_sto_sammler() GUISwitch($hGui_AufmH, $Tab1) $tab_sto_sam = GUICtrlCreateTabItem("STÖ-Sammler") Global $tab_sto_sam_ed_ssliste = GUICtrlCreateEdit("", 16, 64, 481, 305) Global $tab_sto_sam_bt_add = GUICtrlCreateButton("hinzufügen", 16, 376, 75, 25) EndFunc ;==>_add_Tab_sto_sammler Func _add_SAS_Meck() GUISwitch($hGui_AufmH, $Tab1) Global $sasMeck = GUICtrlCreateTabItem("SAS Mecka") Global $Group6 = GUICtrlCreateGroup("Hausanschluss", 8, 58, 393, 345) Global $tab_sas_chb_ha = GUICtrlCreateCheckbox("HA Herstellen", 12, 74, 97, 17) Global $Label84 = GUICtrlCreateLabel("Scan Name:", 12, 97, 62, 18) Global $tab_sas_txtscanname = GUICtrlCreateInput("", 81, 97, 311, 22) Global $Label76 = GUICtrlCreateLabel("Trassenmeter:", 12, 123, 74, 17) Global $tab_sas_txt_trmeter = GUICtrlCreateInput("", 93, 123, 45, 22) Global $Label78 = GUICtrlCreateLabel("Kabelsichern Meter:", 12, 151, 98, 17) Global $tab_sas_txt_kabelm = GUICtrlCreateInput("", 110, 151, 45, 22) Global $Label79 = GUICtrlCreateLabel("Anzahl Q Kabel Rohre:", 146, 125, 112, 17) Global $tab_sas_txt_anz_qkr = GUICtrlCreateInput("", 263, 123, 45, 22) Global $Label85 = GUICtrlCreateLabel("Anzahl Querungs Stellen:", 160, 152, 127, 18) Global $tab_sas_txt_anzqst = GUICtrlCreateInput("", 288, 151, 45, 22) Global $Label89 = GUICtrlCreateLabel("Straßenquerung Meter:", 12, 176, 116, 18) Global $tab_sas_txt_strqm = GUICtrlCreateInput("", 136, 176, 45, 22) Global $Label90 = GUICtrlCreateLabel("Anzahl Suchgrube:", 192, 176, 97, 18) Global $tab_sas_txt_anzsuchgr = GUICtrlCreateInput("", 296, 176, 45, 22) Global $tab_sas_chb_einzug10 = GUICtrlCreateCheckbox("Einzug 10er Pipes", 12, 200, 113, 17) Global $tab_sas_bt_ha_add = GUICtrlCreateButton("HA hinfügen", 12, 219, 75, 25) Global $tab_sas_bt_ha_feldback = GUICtrlCreateButton("Felder zurücksetzen", 276, 365, 115, 25) Global $Group7 = GUICtrlCreateGroup("Tiefbau", 408, 58, 553, 345) Global $Label77 = GUICtrlCreateLabel("Scan Name:", 411, 72, 62, 18) Global $tab_sas_txt_scantb = GUICtrlCreateInput("", 476, 72, 401, 22) Global $tab_sas_chb_unbe = GUICtrlCreateCheckbox("unbefestiegt (Wiese, Kies, Schotter)", 416, 97, 192, 17) Global $tab_sas_chb_be = GUICtrlCreateCheckbox("befestiegt (Pflaster, Asphalt, Beton)", 611, 97, 197, 17) Global $Label80 = GUICtrlCreateLabel("Länge:", 420, 124, 37, 17) Global $Label81 = GUICtrlCreateLabel("Tiefe:", 510, 123, 31, 17) Global $Label82 = GUICtrlCreateLabel("Anzahl Rohre 12x10:", 415, 152, 103, 17) Global $Label83 = GUICtrlCreateLabel("Anzahl Rohre 4x12", 415, 176, 94, 17) Global $tab_sas_txt_tb_lang = GUICtrlCreateInput("", 460, 119, 45, 22) Global $tab_sas_txt_tb_tief = GUICtrlCreateInput("", 545, 118, 45, 22) Global $tab_sas_txt_tb_anz_12x10 = GUICtrlCreateInput("", 524, 147, 57, 22) Global $tab_sas_txt_tb_anz_4x20 = GUICtrlCreateInput("", 524, 171, 57, 22) Global $tab_sas_chb_kg2 = GUICtrlCreateCheckbox("Kabelgraben 2", 600, 120, 97, 17) Global $tab_sas_chb_kg4 = GUICtrlCreateCheckbox("Kabelgraben 4", 600, 136, 97, 17) Global $tab_sas_chb_kg6 = GUICtrlCreateCheckbox("Kabelgraben 6", 600, 152, 97, 17) Global $Label86 = GUICtrlCreateLabel("Anzahl Q Kabel Rohre:", 698, 120, 120, 17) Global $tab_sas_txt_tbanzqk = GUICtrlCreateInput("", 827, 116, 45, 22) Global $Label87 = GUICtrlCreateLabel("Anzahl Querungs Stellen:", 698, 145, 127, 18) Global $tab_sas_txt_tb_anzqs = GUICtrlCreateInput("", 827, 142, 45, 22) Global $Label88 = GUICtrlCreateLabel("Kabelsichern Meter:", 697, 173, 98, 17) Global $tab_sas_txt_tb_kabelm = GUICtrlCreateInput("", 803, 170, 45, 22) Global $Label91 = GUICtrlCreateLabel("Anzahl Suchgrube:", 413, 200, 97, 18) Global $tab_sas_txt_tb_anzsuchgr = GUICtrlCreateInput("", 521, 200, 45, 22) Global $tab_sas_bt_tb_add = GUICtrlCreateButton("TB hinzfügen", 411, 251, 75, 25) Global $tab_sas_bt_tb_feldback = GUICtrlCreateButton("Felder zurücksetzen", 839, 373, 115, 25) EndFunc ;==>_add_SAS_Meck Func _add_NEFF_Achberg() GUISwitch($hGui_AufmH, $Tab1) Global $FTThNeff = GUICtrlCreateTabItem("FTTX Achberg") Global $Group8 = GUICtrlCreateGroup("Hausanschluss", 16, 56, 425, 400) Global $Label89 = GUICtrlCreateLabel("ScanName:", 24, 96, 60, 17) Global $tab_neff_ach_txt_scanname = GUICtrlCreateInput("", 88, 96, 345, 21) Global $tab_neff_ach_chb_ha = GUICtrlCreateCheckbox("HA herstellen", 24, 72, 97, 17) Global $Group10 = GUICtrlCreateGroup("vorh. Leitungen Unterfahren", 24, 224, 193, 121) Global $tab_neff_ach_chb_unt_kabel = GUICtrlCreateCheckbox("Kabel u. Rohre", 32, 264, 89, 17) Global $tab_neff_ach_chb_unt_Vers = GUICtrlCreateCheckbox("Versorgungsleitungen", 32, 288, 121, 17) Global $tab_neff_ach_chb_unt_Abwas = GUICtrlCreateCheckbox("Abwasserleitungen", 32, 312, 121, 17) Global $Label91 = GUICtrlCreateLabel("Anzahl stellen:", 136, 240, 72, 17) Global $tab_neff_ach_txt_anz_st_kabel = GUICtrlCreateInput("", 160, 264, 45, 21) Global $tab_neff_ach_txt_anz_st_verso = GUICtrlCreateInput("", 160, 288, 45, 21) Global $tab_neff_ach_txt_anz_st_abw = GUICtrlCreateInput("", 161, 311, 45, 21) Global $Group11 = GUICtrlCreateGroup("vorh. LTG sichern Längs", 224, 224, 209, 121) Global $label122 = GUICtrlCreateLabel("Meter:", 360, 240, 34, 17) Global $tab_neff_ach_txt_m_kabel = GUICtrlCreateInput("", 368, 264, 45, 21) Global $tab_neff_ach_chb_sichern_l_KabRohr = GUICtrlCreateCheckbox("Kabel u. Rohr", 232, 264, 97, 17) Global $tab_neff_ach_chb_sichern_l_Vers = GUICtrlCreateCheckbox("Versorgungsleitungen", 232, 288, 129, 17) Global $tab_neff_ach_chb_sichern_l_Abwas = GUICtrlCreateCheckbox("Abwasserleitungen", 232, 320, 121, 17) Global $tab_neff_ach_txt_m_verso = GUICtrlCreateInput("", 368, 290, 45, 21) Global $tab_neff_ach_txt_m_abw = GUICtrlCreateInput("", 368, 319, 45, 21) Global $Group12 = GUICtrlCreateGroup("Kabelgraben", 24, 120, 177, 97) Global $tab_neff_ach_chb_kg_Gruen = GUICtrlCreateCheckbox("Grünflächen", 30, 140, 89, 17) Global $tab_neff_ach_txt_kg_gr_m = GUICtrlCreateInput("", 136, 136, 45, 21) Global $tab_neff_ach_chb_kg_as = GUICtrlCreateCheckbox(" Asphaltflächen", 30, 160, 97, 17) Global $tab_neff_ach_txt_kg_as_m = GUICtrlCreateInput("", 136, 160, 45, 21) Global $tab_neff_ach_chb_kg_Pflaster = GUICtrlCreateCheckbox("Pflasterflächen", 30, 184, 105, 17) Global $tab_neff_ach_txt_kg_Pf_m = GUICtrlCreateInput("", 136, 184, 45, 21) Global $Group13 = GUICtrlCreateGroup("Kopfloch", 208, 120, 73, 57) Global $tab_neff_ach_chb_kopfl_ha = GUICtrlCreateCheckbox("Gebäude", 216, 136, 65, 17) Global $tab_neff_ach_chb_kopfl_tr = GUICtrlCreateCheckbox("Trasse", 216, 152, 65, 17) Global $Group14 = GUICtrlCreateGroup("Sonstiges", 288, 120, 145, 81) Global $tab_neff_ach_chb_HA_koor = GUICtrlCreateCheckbox("HA Koordinieren", 296, 136, 97, 17) Global $tab_neff_ach_chb_Kernb = GUICtrlCreateCheckbox("Kernbohrung herstellen", 296, 152, 129, 17) Global $tab_neff_ach_chb_MD1 = GUICtrlCreateCheckbox("MD1 FttH herstellen", 296, 168, 129, 17) Global $Group19 = GUICtrlCreateGroup("Rohrverbinder", 22, 348, 185, 43) Global $tab_neff_ach_chb_ha_dop10 = GUICtrlCreateCheckbox("Doppelsteckverb 10", 30, 364, 120, 17) Global $tab_ach_ha_txt_anz_dop10 = GUICtrlCreateInput("", 155, 364, 45, 21) Global $tab_neff_ach_bt_add_pos = GUICtrlCreateButton("hinzufügen", 24, 424, 75, 25) Global $tab_neff_ach_bt_feld_delete = GUICtrlCreateButton("Felder zurücksetzten", 312, 424, 123, 25) Global $Group9 = GUICtrlCreateGroup("Tiefbau", 448, 56, 521, 400) Global $Label90 = GUICtrlCreateLabel("ScanName:", 451, 71, 60, 17) Global $tab_neff_ach_tb_txt_scanname = GUICtrlCreateInput("", 514, 66, 345, 21) Global $tab_neff_ach_tb_bt_add_pos = GUICtrlCreateButton("hinzufügen", 459, 376, 75, 25) Global $tab_neff_ach_tb_bt_feld_delete = GUICtrlCreateButton("Felder zurücksetzten", 837, 376, 123, 25) Global $Group15 = GUICtrlCreateGroup("Kabelgraben", 460, 96, 257, 209) Global $tab_neff_ach_tb_chb_kg_Gruen = GUICtrlCreateCheckbox("Grünflächen", 466, 138, 89, 17) Global $tab_neff_ach_tb_chb_kg_as = GUICtrlCreateCheckbox(" Asphaltflächen", 466, 160, 97, 17) Global $tab_neff_ach_tb_chb_kg_pfl = GUICtrlCreateCheckbox("Pflasterflächen", 466, 184, 97, 17) Global $tab_neff_ach_tb_txt_kg_gr_m = GUICtrlCreateInput("", 572, 136, 45, 21) Global $tab_neff_ach_tb_txt_kg_guen_b = GUICtrlCreateInput("", 623, 135, 40, 21) Global $tab_neff_ach_tb_txt_kg_as_m = GUICtrlCreateInput("", 572, 160, 45, 21) Global $tab_neff_ach_tb_txt_kg_as_b = GUICtrlCreateInput("", 624, 160, 40, 21) Global $tab_neff_ach_tb_txt_kg_pf_m = GUICtrlCreateInput("", 572, 184, 45, 21) Global $tab_neff_ach_tb_txt_kg_pf_b = GUICtrlCreateInput("", 624, 184, 40, 21) Global $Label93 = GUICtrlCreateLabel("Meter", 576, 112, 31, 17) Global $Label94 = GUICtrlCreateLabel("Breite", 632, 112, 31, 17) Global $tab_neff_ach_tb_chb_ltgT070_090 = GUICtrlCreateCheckbox("Leitungsgraben (T) >0,70 m bis 0,90 m", 464, 216, 217, 17) Global $tab_neff_ach_tb_chb_ltgT090_100 = GUICtrlCreateCheckbox("Leitungsgraben (T) >0,90 m bis 1,00 m", 464, 232, 209, 17) Global $Label96 = GUICtrlCreateLabel("Anzahl Rohre 12x10:", 464, 254, 103, 17) Global $tab_ach_tb_txt_tb_anz_12x10 = GUICtrlCreateInput("", 576, 251, 40, 21) Global $Label97 = GUICtrlCreateLabel("Anzahl Rohre 4x20:", 464, 279, 103, 17) Global $tab_ach_tb_txt_tb_anz_4x20 = GUICtrlCreateInput("", 577, 276, 40, 21) Global $Group16 = GUICtrlCreateGroup("Kopfloch", 461, 304, 73, 57) Global $tab_neff_ach_tb_chb_kopfl_tr = GUICtrlCreateCheckbox("Trasse", 469, 320, 57, 17) Global $Group17 = GUICtrlCreateGroup("vorh. Leitungen Unterfahren", 738, 96, 201, 121) Global $tab_neff_ach_tb_chb_unt_kabel = GUICtrlCreateCheckbox("Kabel u. Rohre", 746, 136, 89, 17) Global $tab_neff_ach_tb_chb_unt_Vers = GUICtrlCreateCheckbox("Versorgungsleitungen", 746, 160, 121, 17) Global $tab_neff_ach_tb_chb_unt_Abwas = GUICtrlCreateCheckbox("Abwasserleitungen", 746, 184, 121, 17) Global $Label92 = GUICtrlCreateLabel("Anzahl stellen:", 850, 112, 72, 17) Global $tab_neff_ach_tb_txt_anz_st_kabel = GUICtrlCreateInput("", 874, 136, 45, 21) Global $tab_neff_ach_tb_txt_anz_st_verso = GUICtrlCreateInput("", 874, 160, 45, 21) Global $tab_neff_ach_tb_txt_anz_st_abw = GUICtrlCreateInput("", 874, 183, 45, 21) Global $Group18 = GUICtrlCreateGroup("vorh. LTG sichern Längs", 736, 220, 201, 129) Global $Label95 = GUICtrlCreateLabel("Meter:", 872, 236, 34, 17) Global $tab_neff_ach_tb_txt_m_kabel = GUICtrlCreateInput("", 880, 260, 45, 21) Global $tab_neff_ach_tb_chb_sichern_l_KabRohr = GUICtrlCreateCheckbox("Kabel u. Rohr", 744, 260, 97, 17) Global $tab_neff_ach_tb_chb_sichern_l_Vers = GUICtrlCreateCheckbox("Versorgungsleitungen", 744, 284, 129, 17) Global $tab_neff_ach_tb_chb_sichern_l_Abwas = GUICtrlCreateCheckbox("Abwasserleitungen", 744, 316, 121, 17) Global $tab_neff_ach_tb_txt_m_verso = GUICtrlCreateInput("", 880, 286, 45, 21) Global $tab_neff_ach_tb_txt_m_abw = GUICtrlCreateInput("", 880, 315, 45, 21) Global $tab_neff_ach_chb_tb_dop10 = GUICtrlCreateCheckbox("Doppelsteckverb 10", 546, 321, 120, 17) Global $tab_ach_tb_txt_tb_anz_dop10 = GUICtrlCreateInput("", 670, 315, 40, 21) Global $tab_neff_ach_chb_tb_dop20 = GUICtrlCreateCheckbox("Doppelsteckverb 20", 546, 339, 116, 17) Global $tab_ach_tb_txt_tb_anz_dop20 = GUICtrlCreateInput("", 670, 340, 40, 21) EndFunc ;==>_add_NEFF_Achberg ; Function Name: _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF) ; Description:: gibt Verzeichnisse und/oder Dateien (rekursiv) zurück, die ; einem RegExp-Pattern entsprechen ; Parameter(s): $sPath = Startverzeichnis ; $sPattern = ein beliebiges RexExp-Pattern für die Auswahl ; $iFlag = Auswahl ; 0 = Dateien & Verzeichnisse ; 1 = nur Dateien ; 2 = nur Verzeichnisse ; $iFormat = Rückgabeformat ; 0 = String ; 1 = Array mit [0] = Anzahl ; 2 = Nullbasiertes Array ; $sDelim = Trennzeichen für die String-Rückgabe Func _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF) Local $hSearch, $sFile, $sReturn = '' If StringRight($sPath, 1) <> '\' Then $sPath &= '\' $hSearch = FileFindFirstFile($sPath & '*.*') If @error Or $hSearch = -1 Then Return SetError(0, 0, $sReturn) While True $sFile = FileFindNextFile($hSearch) If @error Then ExitLoop If StringInStr(FileGetAttrib($sPath & $sFile), 'D') Then If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0) ContinueLoop EndIf If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim WEnd FileClose($hSearch) If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat) Return $sReturn EndFunc ;==>_RecursiveFileListToArray ;~ $aFiles = _FileListToArrayRecursiv($sPath_Src, "*.*", 1) ;~ _ArrayDisplay($atest) Func _FileListToArrayRecursiv($sPath, $sFilter = "*", $iFlag = 0) Local $aFiles = _FileListToArray($sPath, $sFilter, $iFlag) If Not IsArray($aFiles) Then Local $aFiles[1] $aFiles[0] = 0 EndIf Local $aFolders = _FileListToArray($sPath, "*", 2) If Not IsArray($aFolders) Then If $aFiles[0] = 0 Then Return 0 Else $bResult = False For $i = 1 To $aFolders[0] $aSearchTmp = _FileListToArrayRecursiv($sPath & "\" & $aFolders[$i], $sFilter, $iFlag) If IsArray($aSearchTmp) Then $bResult = True ReDim $aFiles[$aFiles[0] + $aSearchTmp[0] + 1] For $j = 1 To $aSearchTmp[0] $aFiles[$aFiles[0] + $j] = $aFolders[$i] & "\" & $aSearchTmp[$j] Next $aFiles[0] += $aSearchTmp[0] EndIf Next EndIf Return $aFiles EndFunc ;==>_FileListToArrayRecursiv Func _PriceRound($iZa) $iZa = _replaceKom2Punkt($iZa) $iZa = Round($iZa, 3) $iZa = _replacePunkt2Koma($iZa) Return $iZa EndFunc ;==>_PriceRound ; Name...........: _StringAddThousandsSepEx ; Description ...: Returns the original numbered string with the Thousands delimiter inserted. ; Syntax.........: _StringAddThousandsSep($sString[, $sThousands = -1[, $sDecimal = -1]]) ; Parameters ....: $sString - The string to be converted. ; $sThousands - Optional: The Thousands delimiter ; $sDecimal - Optional: The decimal delimiter ; Return values .: Success - The string with Thousands delimiter added. ; Author ........: SmOke_N (orignal _StringAddComma Func _StringAddThousandsSepEx($sString, $sThousands = -1, $sDecimal = -1) Local $sResult = "" ; Force string Local $rKey = "HKCU\Control Panel\International" If $sDecimal = -1 Then $sDecimal = RegRead($rKey, "sDecimal") If $sThousands = -1 Then $sThousands = RegRead($rKey, "sThousand") ;~ Local $aNumber = StringRegExp($sString, "(\d+)\D?(\d*)", 1) Local $aNumber = StringRegExp($sString, "(\D?\d+)\D?(\d*)", 1) ; This one works for negatives. If UBound($aNumber) = 2 Then Local $sLeft = $aNumber[0] While StringLen($sLeft) $sResult = $sThousands & StringRight($sLeft, 3) & $sResult $sLeft = StringTrimRight($sLeft, 3) WEnd ;~ $sResult = StringTrimLeft($sResult, 1) ; Strip leading thousands separator $sResult = StringTrimLeft($sResult, StringLen($sThousands)) ; Strip leading thousands separator If $aNumber[1] <> "" Then $sResult &= $sDecimal & $aNumber[1] EndIf Return $sResult EndFunc ;==>_StringAddThousandsSepEx Func _GUICtrlCreateStatusBar($gui, $space = 280, $text = 'Developed by Florian Kramer', $copyright = 'FK-Coding') $sUser = IniRead(@ScriptDir & "\daten\conf.ini", "Firma", "User", "NA") $sUser = StringReplace($sUser, ".dat", "") Global $statusBar = _GUICtrlStatusBar_Create($gui) Local $aParts[3] = [180, 350, -1] _GUICtrlStatusBar_SetParts($statusBar, $aParts) _GUICtrlStatusBar_SetText($statusBar, $text, 0) _GUICtrlStatusBar_SetText($statusBar, 'Copyright ' & Chr(169) & ' ' & @YEAR & ' ' & $copyright, 1) _GUICtrlStatusBar_SetText($statusBar, 'Version; ' & $ERSTELLUNGSTAG & ' Lizens: ' & $sUser, 2) ;~ _GUICtrlStatusBar_SetText($statusBar, 'Lizens: ' & $sUser, 3) _GUICtrlStatusBar_SetMinHeight($statusBar, 2) Global $hIcon = _WinAPI_LoadShell32Icon(13) _GUICtrlStatusBar_SetIcon($statusBar, 0, $hIcon) Return $statusBar EndFunc ;==>_GUICtrlCreateStatusBar ; Resize the status bar when GUI size changes Func WM_SIZE($hWnd, $iMsg, $wParam, $lParam) #forceref $hWnd, $iMsg, $wParam, $lParam _GUICtrlStatusBar_Resize($statusBar) Return $GUI_RUNDEFMSG EndFunc ;==>WM_SIZE Func _felder_tab1_zurucksetzen() GUICtrlSetData($tab1_txt_abschnitt, "") GUICtrlSetData($tab1_txt_leange, "") GUICtrlSetData($tab1_txt_breite, "") GUICtrlSetData($tab1_txt_tiefe, "") GUICtrlSetData($tab1_txt_bemerkung, "") GUICtrlSetData($tab1_txt_rest_laenge, "") GUICtrlSetData($tab1_txt_rest_breite, "") GUICtrlSetData($tab1_txt_asphaltstark, "") GUICtrlSetData($tab1_txt_anz_einz, "") GUICtrlSetData($tab1_txt_lm_bre, "") GUICtrlSetData($tab1_txt_anz_cu_kabel, "") GUICtrlSetData($tab1_txt_anz_dn50, "") GUICtrlSetData($tab1_txt_anz_snrve712, "") GUICtrlSetData($tab1_txt_anz_dn110, "") GUICtrlSetData($tab1_txt_anz_snrve22x7, "") GUICtrlSetData($tab1_txt_anz_snrve_8x7, "") GUICtrlSetData($tab1_txt_anz_2xdn50, "") GUICtrlSetData($tab1_txt_anz_3xdn50, "") GUICtrlSetData($tab1_txt_stahplatteBemerk, "") GUICtrlSetState($tab1_chb_wiese, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_kies, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_asphalt, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_pflaster, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_mosaik, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_inBeton, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_winterbau, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_liefern, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_bord, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_kante, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_rinne, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_fels, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_cu_kabel, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_anz_g_100CU, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_dn50, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_snrve7x12, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_dn110, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_snrve22x7, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_snrve8x7, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_2xdn50, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_3xdn50, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_trasseeinmessen, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_stahplatte, $GUI_UNCHECKED) GUICtrlSetState($tab1_chb_bodentausch, $GUI_UNCHECKED) EndFunc ;==>_felder_tab1_zurucksetzen func _Export_Optionen() If IniRead($sPfadIni, "Exports", "x31", "") = "x"Then local $sRefPrjName = "" local $sRefPrjID = "" local $sOwnerName = "" If GUICtrlRead($kopf_TAB_chb_exportvorl) <> "" Then $sDateiname = _CheckDateiname() If $iFolderCreate = "True" Then DirCreate(@ScriptDir & "\_Aufmaße\" & $sDateiname & "\") $sImportTxt = @ScriptDir & "\_Aufmaße\" & $sDateiname & "\" & $sDateiname & ".txt" $ausgabePfadX31 = @ScriptDir & "\_Aufmaße\" & $sDateiname & "\" & $sDateiname & "_x31.x31" $ausgabe = @ScriptDir & "\_Aufmaße\" & $sDateiname & "\" & $sDateiname & "_California_x31.x31" _X31_Export($sImportTxt, $ausgabePfadX31) Dataflor_Zu_California($ausgabePfadX31, $ausgabe, $sRefPrjName = "", $sRefPrjID = "", $sOwnerName = "") Else $sImportTxt = @ScriptDir & "\_Aufmaße\" & $sDateiname & ".txt" $ausgabePfadX31 = @ScriptDir & "\_Aufmaße\" & $sDateiname & "_x31.x31" $ausgabe = @ScriptDir & "\_Aufmaße\" & $sDateiname & "_California_x31.x31" _X31_Export($sImportTxt, $ausgabePfadX31) Dataflor_Zu_California($ausgabePfadX31, $ausgabe, $sRefPrjName = "", $sRefPrjID = "", $sOwnerName = "") EndIf EndIf EndIf If IniRead($sPfadIni, "Exports", "csv", "") = "x"Then _klick_exportCSV() EndIf If IniRead($sPfadIni, "Exports", "excel", "") = "x"Then _LV_LVAufMa_export2Excel() EndIf If IniRead($sPfadIni, "Exports", "excel_dlp", "") = "x"Then _LV_LVAufMa_export2Excel_DLP() EndIf If IniRead($sPfadIni, "Exports", "excel_California", "") = "x"Then If GUICtrlRead($kopf_TAB_chb_exportvorl) <> "" Then $sDateiname = _CheckDateiname() If $iFolderCreate = "True" Then DirCreate(@ScriptDir & "\_Aufmaße\" & $sDateiname & "\") $sImportTxt = @ScriptDir & "\_Aufmaße\" & $sDateiname & "\" & $sDateiname & ".txt" $ausgabePfadX31 = @ScriptDir & "\_Aufmaße\" & $sDateiname & "\" & $sDateiname & "_California.xlsx" _REB_TXT_to_Excel($sImportTxt, $ausgabePfadX31) Else $sImportTxt = @ScriptDir & "\_Aufmaße\" & $sDateiname & ".txt" $ausgabePfadX31 = @ScriptDir & "\_Aufmaße\" & $sDateiname & "_California.xlsx" _REB_TXT_to_Excel($sImportTxt, $ausgabePfadX31) EndIf EndIf EndIf _LV_LVAufMa_save2txt() MsgBox(64, "Export", "Export fertig.") EndFunc Func _ProcessDataFromFile() ; Dialog zum Auswählen der Datei Local $sFilePath = FileOpenDialog("Bitte wählen Sie die Datei aus", "", "Textdateien (*.txt)", 1) If @error Then Return ; Datei zeilenweise einlesen Local $hFile = FileOpen($sFilePath, $FO_READ) If $hFile = -1 Then MsgBox(16, "Fehler", "Die Datei konnte nicht geöffnet werden.") Return EndIf ; Initialisieren der Variablen Local $aData Local $iLine = 0 Local $iStartLine = 16 Local $fGesamtsumme = 0.0 Local $posDict = ObjCreate("Scripting.Dictionary") ; Dictionary für Positionen ; Datei Zeile für Zeile lesen While True $sLine = FileReadLine($hFile) If @error = -1 Then ExitLoop $iLine += 1 ; Beginne erst ab Zeile 16 mit der Verarbeitung If $iLine >= $iStartLine Then $aData = StringSplit($sLine, "|", $STR_NOCOUNT) ; Prüfen, ob die Zeile genug Spalten hat (mindestens 12 Spalten, da wir bei jeder Spalte 1 abziehen) If IsArray($aData) And UBound($aData) >= 12 Then Local $sPosNummer = $aData[1] ; Positionnummer (Spalte 2 in der Datei, also [1] im Array) Local $sLeistungstext = $aData[8] ; Leistungskurztext (Spalte 9 in der Datei, also [8] im Array) ; Korrigieren der Dezimaltrennzeichen von Komma zu Punkt Local $fMenge = Number(StringReplace($aData[10], ",", ".")) ; Menge (Spalte 11 in der Datei, also [10] im Array) Local $fEinzelpreis = Number(StringReplace($aData[11], ",", ".")) ; Einzelpreis (Spalte 12 in der Datei, also [11] im Array) Local $fSumme = Number(StringReplace($aData[12], ",", ".")) ; Summe pro Zeile (Spalte 13 in der Datei, also [12] im Array) ; Gesamtsumme aktualisieren $fGesamtsumme += $fSumme ; Wenn die Position schon existiert, addiere die Werte If $posDict.Exists($sPosNummer) Then Local $aOldData = StringSplit($posDict.Item($sPosNummer), "|", $STR_NOCOUNT) $aOldData[0] = Number($aOldData[0]) + $fMenge $aOldData[1] = Number($aOldData[1]) + $fSumme $posDict.Item($sPosNummer) = $aOldData[0] & "|" & $aOldData[1] & "|" & $sLeistungstext & "|" & $fEinzelpreis Else $posDict.Add($sPosNummer, $fMenge & "|" & $fSumme & "|" & $sLeistungstext & "|" & $fEinzelpreis) EndIf EndIf EndIf WEnd FileClose($hFile) ; Ausgabe der zusammengefassten Positionen ConsoleWrite("Zusammenstellung der Summen:" & @CRLF) For $sPosNummer In $posDict.Keys Local $aData = StringSplit($posDict.Item($sPosNummer), "|", $STR_NOCOUNT) ConsoleWrite("Position: " & $sPosNummer & " | Leistungstext: " & $aData[2] & " | Menge: " & _FormatNumber($aData[0]) & " | Einzelpreis: " & _FormatNumber($aData[3]) & " | Summe: " & _FormatNumber($aData[1]) & " EUR" & @CRLF) Next ConsoleWrite("Gesamtsumme: " & _FormatNumber($fGesamtsumme) & " EUR" & @CRLF) ; Ausgabe in die Zwischenablage Local $sOutput = "" For $sPosNummer In $posDict.Keys Local $aData = StringSplit($posDict.Item($sPosNummer), "|", $STR_NOCOUNT) $sOutput &= "Position: " & $sPosNummer & " | Leistungstext: " & $aData[2] & " | Menge: " & _FormatNumber($aData[0]) & " | Einzelpreis: " & _FormatNumber($aData[3]) & " | Summe: " & _FormatNumber($aData[1]) & " EUR" & @CRLF Next $sOutput &= "Gesamtsumme: " & _FormatNumber($fGesamtsumme) & " EUR" ClipPut($sOutput) ; Ausgabe als Array Local $aOutputArray = [] For $sPosNummer In $posDict.Keys Local $aData = StringSplit($posDict.Item($sPosNummer), "|", $STR_NOCOUNT) _ArrayAdd($aOutputArray, $sPosNummer & "|" & $aData[2] & "|" & _FormatNumber($aData[0]) & "|" & _FormatNumber($aData[3]) & "|" & _FormatNumber($aData[1])) Next _ArrayDisplay($aOutputArray, "Zusammenfassung der Positionen") EndFunc ;==>_ProcessDataFromFile ; Hilfsfunktion zur Formatierung der Dezimalzahlen (Punkt -> Komma) Func _FormatNumber($fNumber) Return StringReplace(StringFormat("%.2f", $fNumber), ".", ",") EndFunc ;==>_FormatNumber