1052 lines
35 KiB
AutoIt
1052 lines
35 KiB
AutoIt
;ahelper_ftth.au3
|
|
|
|
Func _add_ftth()
|
|
Dim $aProzent[6]
|
|
|
|
Global $sIni_Kategorie = "FTTH"
|
|
$sText_Bemerkung = ""
|
|
|
|
Global $aAngaben_FTTH[2][11] = [["Abschnitt", "Länge Privat", "NVT", "APNr", "AnzWE", "Str", "HsNr", "GF-Kabel", "GF-BlasLang", "InstalRohrlang", "Ausgabe"]]
|
|
|
|
Global $sIniDatei = GUICtrlRead($chb_vertrag)
|
|
If GUICtrlRead($chb_vertrag) = "" Then
|
|
MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
|
|
Else
|
|
|
|
|
|
|
|
_ini_umwandeln_pfad($sIniDateiPfad & $sIniDatei)
|
|
|
|
_ReadInputs2Array_ftth()
|
|
|
|
;~ _DebugArrayDisplay($aAngaben_FTTH)
|
|
$sVertragString = GUICtrlRead($chb_vertrag)
|
|
|
|
If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18
|
|
If GUICtrlRead($tab7_chb_adGFMontage) = $GUI_CHECKED Then
|
|
_add_ftth_GFMontage()
|
|
Else
|
|
|
|
|
|
If GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then
|
|
_check_FTTH_TB_HsEinfoo()
|
|
_check_FTTH_TB_HsEinfZoo()
|
|
_check_FTTH_TB_Rausl()
|
|
_check_FTTH_TB_Kausl()
|
|
EndIf
|
|
If GUICtrlRead($tab7_chb_oO) = $GUI_UNCHECKED Then
|
|
_check_FTTH_TB_HsEinfmo()
|
|
_check_FTTH_TB_HsEinfZmo()
|
|
|
|
_check_FTTH_TB_Rausl()
|
|
_check_FTTH_TB_Kausl()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab7_chb_ring_gg) = $GUI_CHECKED Then
|
|
_check_FTTH_TB_GGRing()
|
|
; 5m Ring auslegen 3 + (2 in der Func)
|
|
$aAngaben_FTTH[1][1] = 3
|
|
_check_FTTH_TB_Kausl()
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
|
If GUICtrlRead($tab7_chb_adGFMontage) = $GUI_CHECKED Then
|
|
_add_ftth_GFMontage()
|
|
Else
|
|
|
|
|
|
If GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then
|
|
_check_FTTH_TB_HsEinfoo()
|
|
_check_FTTH_TB_HsEinfZoo()
|
|
_check_FTTH_TB_Rausl()
|
|
_check_FTTH_TB_Kausl()
|
|
EndIf
|
|
If GUICtrlRead($tab7_chb_oO) = $GUI_UNCHECKED Then
|
|
_check_FTTH_TB_HsEinfmo()
|
|
_check_FTTH_TB_HsEinfZmo()
|
|
|
|
_check_FTTH_TB_Rausl()
|
|
_check_FTTH_TB_Kausl()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab7_chb_ring_gg) = $GUI_CHECKED Then
|
|
_check_FTTH_TB_GGRing()
|
|
; 5m Ring auslegen 3 + (2 in der Func)
|
|
$aAngaben_FTTH[1][1] = 3
|
|
_check_FTTH_TB_Kausl()
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
If StringInStr($sVertragString, "4650003044") Then ;4650003044__SW32-RVProjektgeschäft_Los_3b_Rvbg
|
|
|
|
EndIf
|
|
If StringInStr($sVertragString, "4650003822") Then ;4600413398__SW32-RVProjektgeschäft_Los_3b_Rvbg_alt
|
|
If GUICtrlRead($tab7_chb_adGFMontage) = $GUI_CHECKED Then
|
|
_add_ftth_GFMontage()
|
|
Else
|
|
|
|
|
|
If GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then
|
|
_check_FTTH_TB_HsEinfoo()
|
|
_check_FTTH_TB_HsEinfZoo()
|
|
_check_FTTH_TB_Rausl()
|
|
_check_FTTH_TB_Kausl()
|
|
EndIf
|
|
If GUICtrlRead($tab7_chb_oO) = $GUI_UNCHECKED Then
|
|
_check_FTTH_TB_HsEinfmo()
|
|
_check_FTTH_TB_HsEinfZmo()
|
|
|
|
_check_FTTH_TB_Rausl()
|
|
_check_FTTH_TB_Kausl()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab7_chb_ring_gg) = $GUI_CHECKED Then
|
|
_check_FTTH_TB_GGRing()
|
|
; 5m Ring auslegen 3 + (2 in der Func)
|
|
$aAngaben_FTTH[1][1] = 3
|
|
_check_FTTH_TB_Kausl()
|
|
EndIf
|
|
EndIf
|
|
EndIf
|
|
|
|
;~ _DebugArrayDisplay($aLVListe)
|
|
|
|
_ArrayDelete($aLVListe, 0)
|
|
$iCount = -1
|
|
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
|
|
|
Global $aLVListe[1][13]
|
|
EndIf
|
|
EndFunc ;==>_add_ftth
|
|
|
|
;FTTH
|
|
Func _felder_tab7_zurucksetzen()
|
|
GUICtrlSetData($tab7_txt_nvtname, "")
|
|
|
|
GUICtrlSetData($tab7_txt_abschnitt, "")
|
|
GUICtrlSetData($tab7_txt_lang_privat, "")
|
|
GUICtrlSetData($tab7_txt_nvtname, "")
|
|
GUICtrlSetData($tab7_txt_anzWE, "")
|
|
GUICtrlSetData($tab7_txt_apnr, "")
|
|
GUICtrlSetData($tab7_txt_hsnr, "")
|
|
GUICtrlSetData($tab7_txt_str, "")
|
|
GUICtrlSetData($tab7_txt_einblang, "")
|
|
GUICtrlSetData($tab7_txt_instrohr, "")
|
|
GUICtrlSetData($tab7_txt_ausgabe, "")
|
|
GUICtrlSetState($tab7_chb_oO, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab7_chb_ring_gg, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab7_chb_adGFMontage, $GUI_UNCHECKED)
|
|
GUICtrlSetState($tab7_chb_koordinationp, $GUI_UNCHECKED)
|
|
EndFunc ;==>_felder_tab7_zurucksetzen
|
|
|
|
|
|
#Region Abrechnung GF -Montage FTTH nach Bestückungsplan
|
|
|
|
Func _Aufmass_Bestuckungsplan()
|
|
Global $sIniDatei = GUICtrlRead($chb_vertrag)
|
|
If GUICtrlRead($chb_vertrag) = "" Then
|
|
MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
|
|
Else
|
|
|
|
Local $sFilePath, $aArray
|
|
Dim $aTest[1]
|
|
Local $sIni_Kategorie = "FTTH-GF-NVT-APL"
|
|
|
|
|
|
Local $message = "Bitte wählen Sie die Import Datei aus!"
|
|
|
|
Local $sFilePath = FileOpenDialog($message, @ScriptDir & "\_Aufmaße\", "CSV (*.csv)", 1 + 4)
|
|
If @error Then
|
|
MsgBox(4096, "", "Keine Datei(en) ausgewählt")
|
|
Else
|
|
$sFilePath = StringReplace($sFilePath, "|", @CRLF)
|
|
_FileReadToArray($sFilePath, $aArray)
|
|
_ArrayDelete($aArray, 0)
|
|
;~ _DebugArrayDisplay($aArray)
|
|
|
|
|
|
For $i = 0 To UBound($aArray) - 1
|
|
If StringInStr($aArray[$i], ";;;;;;;;;;;0;;;;;;;;;;;") Then
|
|
Else
|
|
_ArrayAdd($aTest, $aArray[$i])
|
|
EndIf
|
|
|
|
Next
|
|
;~ _ArrayDisplay($aTest)
|
|
;~ MsgBox(64, "tset", "adsfasdf")
|
|
|
|
;~ Hergensweiler;2R2;4207772773;4650000697;203648385;2V1013;22x7;or/sw;2;rs;4E;2P1334;Rupolzer Str.;33;;2;1-3;;;x;x;1;281;7;309;294;
|
|
|
|
Dim $aListeImport[UBound($aTest)][33] = [["Ort", "HK", "AbrufNr", "Vertrag", "SMnr", "NVT", "Rohrverband", "VerbandFarbe", "VerbandNr", "PipeFarbe", "Fasernstärke", "APNr", "Str.", "Hsnr", "HausZusatz", "WE's", "AP-Größe", "Anschluss Ja", "PST gebaut", "TB", "GF-Montage", "GF-AnzMess", "SNR-Haupt", "2x7", "KabelzugGFl", "GFMLang", "LinstalR", "LEP-TP", "LEP-GF-K", "E-Status", "Euro-TB", "Euro-GF", "Hinweis"]]
|
|
For $i = 1 To UBound($aTest) - 1
|
|
$aTemp = StringSplit($aTest[$i], ";")
|
|
;~ _ArrayDisplay($aTemp)
|
|
$aListeImport[$i][0] = $aTemp[1]
|
|
$aListeImport[$i][1] = $aTemp[2]
|
|
$aListeImport[$i][2] = $aTemp[3]
|
|
$aListeImport[$i][3] = $aTemp[4]
|
|
$aListeImport[$i][4] = $aTemp[5]
|
|
$aListeImport[$i][5] = $aTemp[6]
|
|
$aListeImport[$i][6] = $aTemp[7]
|
|
$aListeImport[$i][7] = $aTemp[8]
|
|
$aListeImport[$i][8] = $aTemp[9]
|
|
$aListeImport[$i][9] = $aTemp[10]
|
|
$aListeImport[$i][10] = $aTemp[11]
|
|
$aListeImport[$i][11] = $aTemp[12]
|
|
$aListeImport[$i][12] = $aTemp[13]
|
|
$aListeImport[$i][13] = $aTemp[14]
|
|
$aListeImport[$i][14] = $aTemp[15]
|
|
$aListeImport[$i][15] = $aTemp[16]
|
|
$aListeImport[$i][16] = $aTemp[17]
|
|
$aListeImport[$i][17] = $aTemp[18]
|
|
$aListeImport[$i][18] = $aTemp[19]
|
|
$aListeImport[$i][19] = $aTemp[20]
|
|
$aListeImport[$i][20] = $aTemp[21]
|
|
$aListeImport[$i][21] = $aTemp[22]
|
|
$aListeImport[$i][22] = $aTemp[23]
|
|
$aListeImport[$i][23] = $aTemp[24]
|
|
$aListeImport[$i][24] = $aTemp[25]
|
|
$aListeImport[$i][25] = $aTemp[26]
|
|
$aListeImport[$i][26] = $aTemp[27]
|
|
$aListeImport[$i][27] = $aTemp[28]
|
|
$aListeImport[$i][28] = $aTemp[29]
|
|
$aListeImport[$i][29] = $aTemp[30]
|
|
$aListeImport[$i][30] = $aTemp[31]
|
|
$aListeImport[$i][31] = $aTemp[32]
|
|
$aListeImport[$i][32] = $aTemp[33]
|
|
|
|
|
|
Next
|
|
_ArrayDisplay($aListeImport)
|
|
;GUICtrlRead($tab7_txt_nvtname)
|
|
For $i = 1 To UBound($aListeImport) - 1
|
|
Global $sNVTName = $aListeImport[$i][5]
|
|
;Finde alle Glasfaseranschlüsse (BS)
|
|
If $aListeImport[$i][20] = "x" And $aListeImport[$i][28] = "" And $aListeImport[$i][24] <> "" Then ; wenn GF-Montage x
|
|
Global $sAPNr = $aListeImport[$i][11]
|
|
$sKabelstark = $aListeImport[$i][10]
|
|
$sStr = $aListeImport[$i][12]
|
|
$sHsZu = $aListeImport[$i][13] & $aListeImport[$i][14]
|
|
Global $sAnzWE = $aListeImport[$i][15]
|
|
$sGFlang = $aListeImport[$i][24] ; Kabelzug länge
|
|
Global $sStringName = "NVT_" & $sNVTName & "_GF_" & $sStr & "_HS_" & $sHsZu & "_AP_" & $sAPNr
|
|
$sStringName = StringReplace($sStringName, " ", "_")
|
|
$sStringName = StringReplace($sStringName, ".", "")
|
|
|
|
;~ MsgBox(64, "testen", $sStringName)
|
|
|
|
;1-3 WE AP
|
|
If $sAnzWE > 1 And $sAnzWE <= 3 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
If $sKabelstark = "4E" Then
|
|
_check_GF_AP(1, 3, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
If $sKabelstark = "12E" Then
|
|
_check_GF_AP(1, 11, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
|
|
_check_GF_AP_Messen("2")
|
|
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
|
|
EndIf
|
|
;4WE AP
|
|
If $sAnzWE = 4 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
|
|
|
|
If $sKabelstark = "4E" Then
|
|
_check_GF_AP(1, 3, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
If $sKabelstark = "12E" Then
|
|
_check_GF_AP(1, 11, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
|
|
_check_GF_AP_Messen("4")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
|
|
EndIf
|
|
;5-8 WE
|
|
If $sAnzWE > 5 And $sAnzWE <= 8 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
|
|
|
|
If $sKabelstark = "4E" Then
|
|
_check_GF_AP(2, 2, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
If $sKabelstark = "12E" Then
|
|
_check_GF_AP(2, 10, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
_check_GF_AP_Messen("8")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;9-12 WE
|
|
If $sAnzWE > 9 And $sAnzWE <= 12 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
|
|
If $sKabelstark = "4E" Then
|
|
_check_GF_AP(3, 1, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
If $sKabelstark = "12E" Then
|
|
_check_GF_AP(3, 9, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
_check_GF_AP_Messen("12")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;13-16 WE
|
|
If $sAnzWE > 13 And $sAnzWE <= 16 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
|
|
If $sKabelstark = "4E" Then
|
|
_check_GF_AP(4, 0, 4, 0) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
If $sKabelstark = "12E" Then
|
|
_check_GF_AP(4, 8, 4, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
_check_GF_AP_Messen("16")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;17-20 WE
|
|
If $sAnzWE > 17 And $sAnzWE <= 20 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(5, 7, 5, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("20")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;21-24 WE
|
|
If $sAnzWE > 21 And $sAnzWE <= 24 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(6, 6, 6, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("24")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;25-28 WE
|
|
If $sAnzWE > 25 And $sAnzWE <= 28 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(7, 5, 7, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("28")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;29-32 WE
|
|
If $sAnzWE > 29 And $sAnzWE <= 32 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(8, 4, 8, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("32")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;33-36 WE
|
|
If $sAnzWE > 33 And $sAnzWE <= 36 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(9, 3, 9, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("36")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;37-40 WE
|
|
If $sAnzWE > 37 And $sAnzWE <= 40 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(10, 2, 10, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("40")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;41-64 WE
|
|
If $sAnzWE > 41 And $sAnzWE <= 64 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("64")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;65-96 WE
|
|
If $sAnzWE > 65 And $sAnzWE <= 96 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("96")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
|
|
;~ _DebugArrayDisplay($aLVListe)
|
|
;~ _ArrayDelete($aLVListe, 0)
|
|
;~ FTTH_Weißensberg_HK_2R3_
|
|
$sBaustelle = "FTTH_" & $aListeImport[$i][0] & "_HK_" & $aListeImport[$i][1] & "_"
|
|
$sAbruf = $aListeImport[$i][2]
|
|
$sVertrag = $aListeImport[$i][3]
|
|
$sSMNr = $aListeImport[$i][4]
|
|
$sBauabschnitt = $sStringName
|
|
_LV_GFMontageFTTH_save2txt(@MDAY & @MON & @YDAY, $sBaustelle, $sAbruf, $sVertrag, $sSMNr, $sBauabschnitt)
|
|
EndIf
|
|
Next
|
|
|
|
|
|
;~ _DebugArrayDisplay($aLVListe, "Fertig")
|
|
|
|
|
|
|
|
EndIf
|
|
EndIf
|
|
EndFunc ;==>_Aufmass_Bestuckungsplan
|
|
|
|
|
|
Func _LV_GFMontageFTTH_save2txt($tDatum, $tBaustelle, $tAbruf, $tVetrag, $tSMnr, $tBauabschnitt)
|
|
$sDatum = $tDatum
|
|
$sBaustelle = $tBaustelle
|
|
$sAbrufNr = $tAbruf
|
|
$sVertrag = $tVetrag
|
|
$sStartZ = GUICtrlRead($kopf_tab_datum_start)
|
|
$sEndZ = GUICtrlRead($kopf_tab_txt_datum_ende)
|
|
$sAspaN = GUICtrlRead($kopf_tab_chb_aspa)
|
|
$sAspaTel = GUICtrlRead($kopf_tab_txt_telnr)
|
|
$sBauabschnitt = $tBauabschnitt
|
|
$sKolone = "Hartl"
|
|
$sSMNr = $tSMnr
|
|
|
|
Local $sItem
|
|
|
|
|
|
;~ ? * < > . , \ + : = / " ; [ ] |
|
|
|
|
$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, "__", "_")
|
|
|
|
Local $hFile = FileOpen(@ScriptDir & "\_Aufmaße\_FTTH-GF\" & $sDateiname & ".txt", 2) ; Datei zum speichern (überschreiben) öffnen
|
|
If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
|
|
FileWriteLine($hFile, "[Kopfdaten]")
|
|
If GUICtrlRead($kopf_tab_rd_teilauf) = $GUI_CHECKED Then
|
|
FileWriteLine($hFile, "Teilaufma=X")
|
|
Else
|
|
FileWriteLine($hFile, "Teilaufma=")
|
|
EndIf
|
|
If GUICtrlRead($kopf_tab_rd_schluss) = $GUI_CHECKED Then
|
|
FileWriteLine($hFile, "Schlussaufma=X")
|
|
Else
|
|
FileWriteLine($hFile, "Schlussaufma=")
|
|
EndIf
|
|
FileWriteLine($hFile, "Datum=" & $sDatum)
|
|
FileWriteLine($hFile, "Baustelle=" & $sBaustelle)
|
|
FileWriteLine($hFile, "AbrufNr=" & $sAbrufNr)
|
|
FileWriteLine($hFile, "SMNr=" & $sSMNr)
|
|
FileWriteLine($hFile, "Vertrag=" & $sVertrag)
|
|
FileWriteLine($hFile, "StartZ=" & $sStartZ)
|
|
FileWriteLine($hFile, "EndZ=" & $sEndZ)
|
|
FileWriteLine($hFile, "AspaN=" & $sAspaN)
|
|
FileWriteLine($hFile, "AspaTel=" & $sAspaTel)
|
|
FileWriteLine($hFile, "Bauabschnitt=" & $sBauabschnitt)
|
|
FileWriteLine($hFile, "Kolone=" & $sKolone)
|
|
FileWriteLine($hFile, "[Aufmaßdaten]")
|
|
;~ _DebugArrayDisplay($aLVListe)
|
|
For $i = 1 To UBound($aLVListe) - 1 ; Schleife, um alle Listview-Einträge durchzugehen)
|
|
$sItem = $aLVListe[$i][0] & "|" & $aLVListe[$i][1] & "|" & $aLVListe[$i][2] & "|" & $aLVListe[$i][3] & "|" & $aLVListe[$i][4] & "|" & $aLVListe[$i][5] & "|" & $aLVListe[$i][6] & "|" & $aLVListe[$i][7] & "|" & $aLVListe[$i][8] & "|" & $aLVListe[$i][9] & "|" & $aLVListe[$i][10] & "|" & $aLVListe[$i][11] & "|" & $aLVListe[$i][12]
|
|
FileWriteLine($hFile, $sItem) ; und in die Datei schreiben
|
|
Next
|
|
FileClose($hFile) ; Datei schließen
|
|
;~ MsgBox(64, "Datei wurde gespeichert!", "Das Aufmaß wurde gespeichert:" & @CRLF & @ScriptDir & "\Aufmaße\" & $sDateiname & ".txt")
|
|
|
|
$iCount = -1
|
|
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
|
Dim $aLVListe[1][13] = [["RSA-Abschnitt", "PositionNr", "Faktor", "Länge", "Breite", "Tiefe", "Menge", "ME", "Leistungskurztext", "Bemerkung", "Menge", "E-Preis", "Summe"]]
|
|
|
|
Else
|
|
MsgBox(64, "Fehler beim Speichern", "Datei => " & @CRLF & @ScriptDir & "\_Aufmaße\" & $sDateiname & ".txt" & @CRLF & "konnte nicht gespeichert werden!")
|
|
EndIf
|
|
|
|
EndFunc ;==>_LV_GFMontageFTTH_save2txt
|
|
|
|
|
|
#EndRegion Abrechnung GF -Montage FTTH nach Bestückungsplan
|
|
|
|
Func _ReadInputs2Array_ftth()
|
|
$aAngaben_FTTH[1][0] = GUICtrlRead($tab7_txt_abschnitt)
|
|
$aAngaben_FTTH[1][1] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_lang_privat))
|
|
$aAngaben_FTTH[1][2] = GUICtrlRead($tab7_txt_nvtname)
|
|
$aAngaben_FTTH[1][3] = GUICtrlRead($tab7_txt_apnr)
|
|
$aAngaben_FTTH[1][4] = GUICtrlRead($tab7_txt_anzWE)
|
|
$aAngaben_FTTH[1][5] = GUICtrlRead($tab7_txt_str)
|
|
$aAngaben_FTTH[1][6] = GUICtrlRead($tab7_txt_hsnr)
|
|
$aAngaben_FTTH[1][7] = GUICtrlRead($tab7_dl_gfkabel)
|
|
$aAngaben_FTTH[1][8] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_einblang))
|
|
$aAngaben_FTTH[1][9] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_instrohr))
|
|
$aAngaben_FTTH[1][10] = GUICtrlRead($tab7_txt_ausgabe)
|
|
EndFunc ;==>_ReadInputs2Array_ftth
|
|
|
|
Func _add_ftth_GFMontage()
|
|
Global $sAPNr = $aAngaben_FTTH[1][3]
|
|
Global $sKabelstark = $aAngaben_FTTH[1][7]
|
|
Global $sStr = $aAngaben_FTTH[1][5]
|
|
Global $sHsZu = $aAngaben_FTTH[1][6]
|
|
Global $sAnzWE = $aAngaben_FTTH[1][4]
|
|
Global $sGFlang = $aAngaben_FTTH[1][8] ; Kabelzug länge
|
|
Global $sNVTName = $aAngaben_FTTH[1][2]
|
|
Global $sStringName = "NVT_" & $sNVTName & "_GF_" & $sStr & "_HS_" & $sHsZu & "_AP_" & $sAPNr
|
|
$sStringName = StringReplace($sStringName, " ", "_")
|
|
$sStringName = StringReplace($sStringName, ".", "")
|
|
|
|
GUICtrlSetData($tab7_txt_ausgabe, $sStringName)
|
|
;1-3 WE AP
|
|
If $sAnzWE > 1 And $sAnzWE <= 3 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
If $sKabelstark = "4E" Then
|
|
_check_GF_AP(1, 3, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
If $sKabelstark = "12E" Then
|
|
_check_GF_AP(1, 11, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
|
|
_check_GF_AP_Messen("2")
|
|
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
|
|
EndIf
|
|
;4WE AP
|
|
If $sAnzWE = 4 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
|
|
|
|
If $sKabelstark = "4E" Then
|
|
_check_GF_AP(1, 3, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
If $sKabelstark = "12E" Then
|
|
_check_GF_AP(1, 11, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
|
|
_check_GF_AP_Messen("4")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
|
|
EndIf
|
|
;5-8 WE
|
|
If $sAnzWE > 5 And $sAnzWE <= 8 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
|
|
|
|
If $sKabelstark = "4E" Then
|
|
_check_GF_AP(2, 2, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
If $sKabelstark = "12E" Then
|
|
_check_GF_AP(2, 10, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
_check_GF_AP_Messen("8")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;9-12 WE
|
|
If $sAnzWE > 9 And $sAnzWE <= 12 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
|
|
If $sKabelstark = "4E" Then
|
|
_check_GF_AP(3, 1, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
If $sKabelstark = "12E" Then
|
|
_check_GF_AP(3, 9, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
_check_GF_AP_Messen("12")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;13-16 WE
|
|
If $sAnzWE > 13 And $sAnzWE <= 16 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
|
|
If $sKabelstark = "4E" Then
|
|
_check_GF_AP(4, 0, 4, 0) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
If $sKabelstark = "12E" Then
|
|
_check_GF_AP(4, 8, 4, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
EndIf
|
|
_check_GF_AP_Messen("16")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;17-20 WE
|
|
If $sAnzWE > 17 And $sAnzWE <= 20 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(5, 7, 5, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("20")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;21-24 WE
|
|
If $sAnzWE > 21 And $sAnzWE <= 24 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(6, 6, 6, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("24")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;25-28 WE
|
|
If $sAnzWE > 25 And $sAnzWE <= 28 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(7, 5, 7, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("28")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;29-32 WE
|
|
If $sAnzWE > 29 And $sAnzWE <= 32 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(8, 4, 8, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("32")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;33-36 WE
|
|
If $sAnzWE > 33 And $sAnzWE <= 36 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(9, 3, 9, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("36")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;37-40 WE
|
|
If $sAnzWE > 37 And $sAnzWE <= 40 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(10, 2, 10, 1) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("40")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;41-64 WE
|
|
If $sAnzWE > 41 And $sAnzWE <= 64 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("64")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
;65-96 WE
|
|
If $sAnzWE > 65 And $sAnzWE <= 96 Then
|
|
;~ ConsoleWrite($sStringName & @CRLF)
|
|
_check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
|
|
_check_GF_AP_Messen("96")
|
|
_check_GF_AP_Koordination()
|
|
|
|
_check_GF_AP_einbl($sGFlang)
|
|
EndIf
|
|
|
|
EndFunc ;==>_add_ftth_GFMontage
|
|
|
|
Func _check_FTTH_TB_HsEinfmo()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = $aAngaben_FTTH[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "HsEinfmo", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_TB_HsEinfmo
|
|
|
|
Func _check_FTTH_TB_HsEinfZmo()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_FTTH[1][1] - 1) ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "HsEinfZmo", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Leange%", _replacePunkt2Koma($aAngaben_FTTH[1][1] - 1))
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_TB_HsEinfZmo
|
|
|
|
Func _check_FTTH_TB_HsEinfoo()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = $aAngaben_FTTH[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "HsEinfoo", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1, 0")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_TB_HsEinfoo
|
|
|
|
Func _check_FTTH_TB_HsEinfZoo()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_FTTH[1][1] - 1) ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "HsEinfZoo", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Leange%", $aAngaben_FTTH[1][1] - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_TB_HsEinfZoo
|
|
|
|
Func _check_FTTH_TB_Rausl()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_FTTH[1][1] + 1) ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Rausl", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Leange%", )
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_TB_Rausl
|
|
|
|
Func _check_FTTH_TB_Kausl()
|
|
$sText_Bemerkung = "2x7 SNR"
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = _replacePunkt2Koma($aAngaben_FTTH[1][1] + 2) ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Kausl", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Leange%", )
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_TB_Kausl
|
|
|
|
Func _check_FTTH_TB_GGRing()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
|
|
|
|
$aProzent[1] = $aAngaben_FTTH[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
|
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GGRing", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_TB_GGRing
|
|
|
|
Func _check_GF_AP($iNVTVerb, $iNVTab, $iAPVerb, $iAPab)
|
|
$sIni_Kategorie = "FTTH-GF-NVT-APL"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = "Am NVT " & $sNVTName ;Abschnitt
|
|
|
|
|
|
|
|
If $iNVTVerb <= 0 Then
|
|
|
|
Else
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_NVT_Verb", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iNVTVerb)
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
If $iNVTab <= 0 Then
|
|
|
|
Else
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_FAabl", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iNVTab)
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
$aProzent[1] = "Am APL " & $sAPNr ;Abschnitt
|
|
If $iAPVerb <= 0 Then
|
|
|
|
Else
|
|
$aProzent[2] = _check_WE_AP_Bemerkung()
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_Verb", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAPVerb)
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
$aProzent[2] = ""
|
|
|
|
;~ ; ab Hier GF-Verbinden apl mit Zulage 1. Verbinden zulage jede weitere
|
|
;~ If $iAPVerb >= 1 Then
|
|
;~ $aProzent[2] =_check_WE_AP_Bemerkung()
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_Verb", "NA")
|
|
;~ $sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
|
|
;~ _ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ $aProzent[2] = ""
|
|
;~
|
|
;~ $aProzent[2] =_check_WE_AP_Bemerkung()
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_VerbZU", "NA")
|
|
;~ $sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%",$iAPVerb - 1)
|
|
|
|
;~ _ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ $aProzent[2] = ""
|
|
;~
|
|
;~ EndIf
|
|
;~ If $iAPVerb <= 1 Then
|
|
;~ $aProzent[2] =_check_WE_AP_Bemerkung()
|
|
;~ $sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_AP_Verb", "NA")
|
|
;~ $sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAPVerb)
|
|
|
|
;~ _ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
;~ $aProzent[2] = ""
|
|
;~
|
|
;~ EndIf
|
|
|
|
|
|
EndIf
|
|
|
|
If $iAPab <= 0 Then
|
|
|
|
Else
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_FAabl", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAPab)
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
EndFunc ;==>_check_GF_AP
|
|
|
|
Func _check_WE_AP_Bemerkung()
|
|
If $sAnzWE >= 1 And $sAnzWE <= 3 Then
|
|
Return "GF-AP 1-3 WE" ; Bemerkung
|
|
EndIf
|
|
If $sAnzWE = 4 Then
|
|
Return "GF-AP 4 WE" ; Bemerkung
|
|
EndIf
|
|
If $sAnzWE >= 5 And $sAnzWE <= 8 Then
|
|
Return "GF-AP 5-8 WE"
|
|
EndIf
|
|
;9-12 WE
|
|
If $sAnzWE >= 9 And $sAnzWE <= 12 Then
|
|
Return "GF-AP 9-12 WE" ; Bemerkung
|
|
EndIf
|
|
;13-16 WE
|
|
If $sAnzWE >= 13 And $sAnzWE <= 16 Then
|
|
Return "GF-AP 13-16 WE" ; Bemerkung
|
|
EndIf
|
|
;17-20 WE
|
|
If $sAnzWE >= 17 And $sAnzWE <= 20 Then
|
|
Return "GF-AP 17-20 WE" ; Bemerkung
|
|
EndIf
|
|
;21-24 WE
|
|
If $sAnzWE >= 21 And $sAnzWE <= 24 Then
|
|
Return "GF-AP 21-24 WE" ; Bemerkung
|
|
EndIf
|
|
;25-28 WE
|
|
If $sAnzWE >= 25 And $sAnzWE <= 28 Then
|
|
Return "GF-AP 25-28 WE" ; Bemerkung
|
|
EndIf
|
|
;29-32 WE
|
|
If $sAnzWE >= 29 And $sAnzWE <= 32 Then
|
|
Return "GF-AP 29-32 WE" ; Bemerkung
|
|
EndIf
|
|
;33-36 WE
|
|
If $sAnzWE >= 33 And $sAnzWE <= 36 Then
|
|
Return "GF-AP 33-36 WE" ; Bemerkung
|
|
EndIf
|
|
;37-40 WE
|
|
If $sAnzWE >= 37 And $sAnzWE <= 40 Then
|
|
Return "GF-AP 37-40 WE" ; Bemerkung
|
|
EndIf
|
|
;41-64 WE
|
|
If $sAnzWE >= 41 And $sAnzWE <= 64 Then
|
|
Return "GF-AP 41-64 WE" ; Bemerkung
|
|
EndIf
|
|
;65-96 WE
|
|
If $sAnzWE >= 65 And $sAnzWE <= 96 Then
|
|
Return "GF-AP 65-96 WE" ; Bemerkung
|
|
EndIf
|
|
EndFunc ;==>_check_WE_AP_Bemerkung
|
|
|
|
Func _check_GF_AP_Koordination()
|
|
If GUICtrlRead($tab7_chb_koordinationp) = $GUI_CHECKED Then
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "FTTH-GF-NVT-APL"
|
|
$aProzent[1] = "Koordination mit KD" ;Abschnitt
|
|
$aProzent[2] = "Koordination mit KD" ; Bemerkung
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Koordination", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_GF_AP_Koordination
|
|
|
|
Func _check_GF_AP_Messen($sAnzahlMessen)
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "FTTH-GF-NVT-APL"
|
|
If $sAnzahlMessen >= 1 Then
|
|
$aProzent[1] = "APL Messen" ;Abschnitt
|
|
$aProzent[2] = "1. Faser messen" ; Bemerkung
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_1", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = "jede weitere Faser messen" ; Bemerkung
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_02", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $sAnzahlMessen - 1)
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
|
|
EndIf
|
|
If $sAnzahlMessen <= 1 Then
|
|
$aProzent[1] = "APL Messen" ;Abschnitt
|
|
$aProzent[2] = "Faser messen" ; Bemerkung
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_1", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
|
|
|
|
EndFunc ;==>_check_GF_AP_Messen
|
|
|
|
Func _check_GF_AP_einbl($iMeter)
|
|
Dim $aProzent[6]
|
|
$sIni_Kategorie = "FTTH-GF-NVT-APL"
|
|
If $iMeter <= 300 Then
|
|
$aProzent[1] = "GF-Einblasen < 300m" ;Abschnitt
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFbis300", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
If $iMeter >= 300 Then
|
|
$aProzent[1] = "GF-Einblasen > 300m" ;Abschnitt
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFbis300", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFgr300", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iMeter - 300)
|
|
;~ ConsoleWrite($sINI_String & @CRLF)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
EndIf
|
|
EndFunc ;==>_check_GF_AP_einbl
|
|
|
|
Func _check_InKaSNRBef_FTTH()
|
|
If GUICtrlRead($tab7_txt_instrohr) <> "" Then
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = GUICtrlRead($tab7_txt_instrohr) ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "InstKanSNRbe", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $aProzent[3])
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndIf
|
|
EndFunc ;==>_check_InKaSNRBef
|