fk/aufmass-web
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
84c933ea9ccc1b3ddd9fedff5917ba71ab2886ac
aufmass-web/_legacy/includes/aHelper/BackUp/ahelper_ftth_old12.au3
T

1308 lines
43 KiB
AutoIt
Raw Blame History

;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
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, "4650003822") Then ;4
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, "4650005993") Then ;neue Bayern Vertrag <10 Tsd.
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, "4650005671") 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
If StringInStr($sVertragString, "4650007106") Then ;neue Bayern Vertrag <10 Tsd.
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, "4650007105") Then ;neue Bayern Vertrag <10 Tsd.
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]
GUICtrlSetData($kopf_tab_txt_bauabschnitt, GUICtrlRead($tab7_txt_ausgabe))
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)
GUICtrlSetState($tab7_chb_GFAP_mon, $GUI_UNCHECKED)
GUICtrlSetState($tab7_chb_b_kAbl, $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_txt_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($sAnzWE, 4 - $sAnzWE, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
If $sKabelstark = "12E" Then
_check_GF_AP($sAnzWE, 12 - $sAnzWE, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_check_GF_AP_Messen($sAnzWE)
_check_GF_AP_Koordination()
_check_GF_AP_einbl($sGFlang)
EndIf
;4WE AP
If $sAnzWE = 4 Then
If $sKabelstark = "4E" Then
_check_GF_AP(1, 3, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
If $sKabelstark = "12E" Then
;nach Oli
;~ _check_GF_AP(1, 11, 1, 11) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(1, 11, 1, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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
If $sKabelstark = "4E" Then
;nach Oli
;~ _check_GF_AP(2, 2, 2, 2) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(2, 2, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
If $sKabelstark = "12E" Then
;nach Oli
;~ _check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(2, 10, 2, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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
If $sKabelstark = "4E" Then
;~ _check_GF_AP(3, 1, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(3, 1, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
If $sKabelstark = "12E" Then
;nach Oli
;~ _check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(3, 9, 3, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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
If $sKabelstark = "4E" Then
_check_GF_AP(4, 0, 4, 0) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
If $sKabelstark = "12E" Then
;nach Oli
;~ _check_GF_AP(4, 8, 4, 8) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(4, 8, 4, 1) ;NVT verb, NVT abl, APL verb, APL abl.
EndIf
_check_InKaSNRBef_FTTH()
_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
;nach Oli
;~ _check_GF_AP(5, 7, 5, 7) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(5, 7, 5, 1) ;NVT verb, NVT abl, APL verb, APL abl.
_check_InKaSNRBef_FTTH()
_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
;~ _check_GF_AP(6, 6, 6, 6) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(6, 6, 6, 1) ;NVT verb, NVT abl, APL verb, APL abl.
_check_InKaSNRBef_FTTH()
_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
;nach Oli
;~ _check_GF_AP(7, 5, 7, 5) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(7, 5, 7, 1) ;NVT verb, NVT abl, APL verb, APL abl.
_check_InKaSNRBef_FTTH()
_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
;nach Oli
;~ _check_GF_AP(8, 4, 8, 4) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(8, 4, 8, 1) ;NVT verb, NVT abl, APL verb, APL abl.
_check_InKaSNRBef_FTTH()
_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
;nach Oli
;~ _check_GF_AP(9, 3, 9, 3) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(9, 3, 9, 1) ;NVT verb, NVT abl, APL verb, APL abl.
_check_InKaSNRBef_FTTH()
_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
;nach Oli
;~ _check_GF_AP(10, 2, 10, 2) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(10, 2, 10, 1) ;NVT verb, NVT abl, APL verb, APL abl.
_check_InKaSNRBef_FTTH()
_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
;nach Oli
;~ _check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl.
_check_GF_AP(2, 10, 2, 10) ;NVT verb, NVT abl, APL verb, APL abl.
_check_InKaSNRBef_FTTH()
_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
_check_GF_AP(3, 9, 3, 9) ;NVT verb, NVT abl, APL verb, APL abl.
_check_InKaSNRBef_FTTH()
_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]
;Abschnitt
If $iNVTVerb <= 0 Then
Else
If $iNVTVerb <= 1 Then
$aProzent[1] = "Am NVT " & $sNVTName
$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%", "1,0")
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndIf
;~ ;eigentlich Richtig wäre erste Faser NVT verbinden dann Zulage
If $iNVTVerb > 1 Then
$aProzent[1] = "Am NVT " & $sNVTName
$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%", "1,0")
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
$aProzent[1] = "" ;Abschnitt
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GF_NVT_VerbZU", "NA")
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
$sINI_String = StringReplace($sINI_String, "%Menge%", $iNVTVerb - 1)
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
EndIf
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 & " " & $sStr & " " & $sHsZu ;Abschnitt
If $iAPVerb <= 0 Then
Else
; 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[1] = "" ;Abschnitt
$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
If GUICtrlRead($tab7_chb_b_kAbl) = $GUI_CHECKED Then
; in Bayern keine Fasern ablegen
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
EndIf
;apl montieren
If GUICtrlRead($tab7_chb_GFAP_mon) = $GUI_CHECKED Then
$aProzent[1] = "" ;Abschnitt
$aProzent[2] = "APL montieren" ; Bemerkung
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "GlasFaser", "GF-AP-bef", "NA")
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
_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")
If GUICtrlRead($tab7_chb_gponmess_ein) = $GUI_CHECKED Then
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_1", "NA")
EndIf
If GUICtrlRead($tab7_chb_gponmess_konv) = $GUI_CHECKED Then
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPONk_1", "NA")
EndIf
$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")
If GUICtrlRead($tab7_chb_gponmess_ein) = $GUI_CHECKED Then
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_02", "NA")
EndIf
If GUICtrlRead($tab7_chb_gponmess_konv) = $GUI_CHECKED Then
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPONk_02", "NA")
EndIf
$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")
If GUICtrlRead($tab7_chb_gponmess_ein) = $GUI_CHECKED Then
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPON_1", "NA")
EndIf
If GUICtrlRead($tab7_chb_gponmess_konv) = $GUI_CHECKED Then
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GPONk_1", "NA")
EndIf
$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 GUICtrlRead($tab7_chb_einblge) = $GUI_CHECKED Then
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "EinbGer", "NA Kein Einblasgerät")
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
$sINI_String = StringReplace($sINI_String, "%Menge%", "1,0")
$sINI_String = StringReplace($sINI_String, "%Abschnitt%", "")
$sINI_String = StringReplace($sINI_String, "%Bemerkung%", "Einblasgeräte vorhalten")
_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, "|")
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, "|")
$sText_Bemerkung = ""
$aProzent[1] = "" ;Abschnitt
$aProzent[2] = $sText_Bemerkung ; Bemerkung
$aProzent[3] = $iMeter - 300 ; Länge
$aProzent[4] = "" ; Breite
$aProzent[5] = "" ; Tiefe
$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 = "Installation Rohr befestiegen"
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, "GlasFaser", "GF-Innen", "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, "|")
;~ 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, "GlasFaser", "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_FTTH
Reference in New Issue View Git Blame Copy Permalink