848 lines
30 KiB
AutoIt
848 lines
30 KiB
AutoIt
;ahelper_gf.au3
|
|
|
|
#Region GF - Montage
|
|
|
|
Func _add_GF_Montage()
|
|
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_GF()
|
|
|
|
_check_Vertrag()
|
|
|
|
_ArrayDelete($aLVListe, 0)
|
|
$iCount = -1
|
|
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
|
|
|
Global $aLVListe[1][13]
|
|
EndIf
|
|
|
|
EndFunc ;==>_add_GF_Montage
|
|
|
|
Func _check_Vertrag()
|
|
Dim $aProzent[6]
|
|
|
|
;~ $aAngaben_GF[1][0] = $sMuffenbezeichnung ;Muffenbezeichnung
|
|
;~ $aAngaben_GF[1][1] = _replaceKom2Punkt($iAF_A1)
|
|
;~ $aAngaben_GF[1][2] = _replaceKom2Punkt($iAF_G1)
|
|
;~ $aAngaben_GF[1][3] = _replaceKom2Punkt($iAF_G2)
|
|
;~ $aAngaben_GF[1][4] = _replaceKom2Punkt($iAF_G3)
|
|
;~ $aAngaben_GF[1][5] = _replaceKom2Punkt($iAF_G4)
|
|
;~ $aAngaben_GF[1][6] = _replaceKom2Punkt($iAF_G5)
|
|
;~ $aAngaben_GF[1][7] = _replaceKom2Punkt($iAF_verb)
|
|
;~ $aAngaben_GF[1][8] = _replaceKom2Punkt($iAF_mess)
|
|
;~ $aAngaben_GF[1][9] = _replaceKom2Punkt($iAP_e_in)
|
|
;~ $aAngaben_GF[1][10] = _replaceKom2Punkt($iAP_e_out)
|
|
;~ $aAngaben_GF[1][11] = _replaceKom2Punkt($iAP_g)
|
|
;~ $aAngaben_GF[1][12] = _replaceKom2Punkt($iAM_verl)
|
|
;~ _DebugArrayDisplay($aAngaben_GF)
|
|
;;Gräben ohne Oberbau
|
|
Global $sIni_Kategorie = "GlasFaser"
|
|
$sText_Bemerkung = " "
|
|
Global $iAF = $aAngaben_GF[1][8]
|
|
|
|
|
|
$sVertragString = GUICtrlRead($chb_vertrag)
|
|
If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18
|
|
#Region -Messen
|
|
;~ Mass = x, Indi = 0, GPON = x, Kontroll = 0, Pegel = 0
|
|
If $iAF <= 1 Then
|
|
; wenn Anzahl Fasern 1 dann
|
|
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
|
_check_HKMASS_1()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
|
_check_HKINDI_1()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
|
_check_FTTH_GPON_1()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
|
_check_FTTH_kontroll_1()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
|
_check_pegelmess_1()
|
|
EndIf
|
|
Else
|
|
|
|
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_HKMASS_1()
|
|
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_HKMASS_Z()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_HKINDI_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_HKINDI_Z()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_FTTH_GPON_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_FTTH_GPON_02()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_FTTH_kontroll_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_FTTH_kontroll_02()
|
|
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_pegelmess_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_pegelmess_Z()
|
|
|
|
EndIf
|
|
EndIf
|
|
#EndRegion -Messen
|
|
#Region Baugruppe einbauen
|
|
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
|
EndIf
|
|
|
|
#EndRegion Baugruppe einbauen
|
|
#Region GF-Innen/Verlegen/SNR
|
|
|
|
If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
|
|
_check_GF_Innen()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
|
|
_check_InKaSNRBef()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
|
|
_check_Auskabelbef()
|
|
EndIf
|
|
|
|
#EndRegion GF-Innen
|
|
#Region GF-Muffen
|
|
|
|
;Muffe mit Kabel aufnehmen 15m und wieder hinlegen
|
|
_check_Kabelaufnwiederein()
|
|
;GF -Fasern verbinden
|
|
_check_fasernverbinden()
|
|
;GF-Fasern ablegen
|
|
_check_Fasernablegen()
|
|
;Muffe herstellen
|
|
_check_Muffe_bauen()
|
|
;Kabelschacht öffnen
|
|
_check_GFMuffeKsch()
|
|
#EndRegion GF-Muffen
|
|
|
|
EndIf
|
|
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
|
#Region -Messen
|
|
;~ Mass = x, Indi = 0, GPON = 0, Kontroll = 0, Pegel = 0
|
|
If $iAF <= 1 Then
|
|
; wenn Anzahl Fasern 1 dann
|
|
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
|
_check_HKMASS_1()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
|
_check_HKINDI_1()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
|
_check_FTTH_GPON_1()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
|
_check_FTTH_kontroll_1()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
|
_check_pegelmess_1()
|
|
EndIf
|
|
Else
|
|
|
|
;zuerst die erste Faser 1 Stück
|
|
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
|
_check_HKMASS_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_HKMASS_02()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_HKINDI_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_HKINDI_Z()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_FTTH_GPON_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_FTTH_GPON_02()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_FTTH_kontroll_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_FTTH_kontroll_02()
|
|
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_pegelmess_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_pegelmess_Z()
|
|
|
|
EndIf
|
|
EndIf
|
|
#EndRegion -Messen
|
|
#Region Baugruppe einbauen
|
|
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
|
EndIf
|
|
#EndRegion Baugruppe einbauen
|
|
#Region GF-Innen/Verlegen/SNR
|
|
|
|
If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
|
|
_check_GF_Innen()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
|
|
_check_InKaSNRBef()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
|
|
_check_Auskabelbef()
|
|
EndIf
|
|
|
|
#EndRegion GF-Innen
|
|
|
|
EndIf
|
|
If StringInStr($sVertragString, "4650003044") Then ;4650003044__SW32-RVProjektgeschäft_Los_3b_Rvbg
|
|
#Region -Messen
|
|
If $iAF <= 1 Then
|
|
; wenn Anzahl Fasern 1 dann
|
|
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
|
_check_HKMASS_1()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
|
_check_HKINDI_1()
|
|
EndIf
|
|
Else
|
|
|
|
;zuerst die erste Faser 1 Stück
|
|
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
|
_check_HKMASS_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_HKMASS_02()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_HKINDI_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_HKINDI_Z()
|
|
EndIf
|
|
EndIf
|
|
#EndRegion -Messen
|
|
#Region Baugruppe einbauen
|
|
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
|
EndIf
|
|
#EndRegion Baugruppe einbauen
|
|
#Region GF-Innen/Verlegen/SNR
|
|
|
|
If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
|
|
_check_GF_Innen()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
|
|
_check_InKaSNRBef()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
|
|
_check_Auskabelbef()
|
|
EndIf
|
|
|
|
#EndRegion GF-Innen
|
|
EndIf
|
|
If StringInStr($sVertragString, "4650003822") Then ;4600413398__SW32-RVProjektgeschäft_Los_3b_Rvbg_alt
|
|
#Region -Messen
|
|
If $iAF <= 1 Then
|
|
; wenn Anzahl Fasern 1 dann
|
|
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
|
_check_HKMASS_1()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
|
_check_HKINDI_1()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
|
_check_FTTH_kontroll_1()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
|
_check_pegelmess_1()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
|
_check_FTTH_GPON_1()
|
|
EndIf
|
|
Else
|
|
If GUICtrlRead($tab4_chb_mess_mass) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_HKMASS_1()
|
|
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_HKMASS_Z()
|
|
EndIf
|
|
|
|
If GUICtrlRead($tab4_chb_mess_indi) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_HKINDI_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_HKINDI_Z()
|
|
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_kontro) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_FTTH_kontroll_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_FTTH_kontroll_02()
|
|
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_pegel) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_pegelmess_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_pegelmess_Z()
|
|
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_mess_gpon) = $GUI_CHECKED Then
|
|
;zuerst die erste Faser 1 Stück
|
|
_check_FTTH_GPON_1()
|
|
; jeder Weiter Fasern mit 0,2 oder Zulage je nach Vertrag
|
|
_check_FTTH_GPON_02()
|
|
EndIf
|
|
EndIf
|
|
#EndRegion -Messen
|
|
#Region Baugruppe einbauen
|
|
If GUICtrlRead($tab4_chb_s_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Spleiß-Baugruppe einbauen")
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_p_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Patch-Baugruppe einbauen")
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_sp_bau_ein) = $GUI_CHECKED Then
|
|
_check_Baugruppe_einbauen("Spleiß&Patch-Baugruppe einbauen")
|
|
EndIf
|
|
#EndRegion Baugruppe einbauen
|
|
#Region GF-Innen/Verlegen/SNR
|
|
|
|
If GUICtrlRead($tab4_chb_GFInnen) = $GUI_CHECKED Then
|
|
_check_GF_Innen()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_kanSNr) = $GUI_CHECKED Then
|
|
_check_InKaSNRBef()
|
|
EndIf
|
|
If GUICtrlRead($tab4_chb_ausenbe) = $GUI_CHECKED Then
|
|
_check_Auskabelbef()
|
|
EndIf
|
|
|
|
#EndRegion GF-Innen
|
|
EndIf
|
|
|
|
EndFunc ;==>_check_Fasern_messen
|
|
|
|
Func _check_HKMASS_1()
|
|
$sText_Bemerkung = "1. Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenHKMASS", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_HKMASS_1
|
|
|
|
Func _check_HKMASS_02()
|
|
$sText_Bemerkung = "weitere Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_graben[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, "MessenHKMASS", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_HKMASS_02
|
|
|
|
Func _check_HKMASS_Z()
|
|
$sText_Bemerkung = "weitere Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_graben[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, "MessenHKMASSZU", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_HKMASS_Z
|
|
|
|
Func _check_HKINDI_1()
|
|
$sText_Bemerkung = "1. Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenHKINDI", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_HKINDI_1
|
|
|
|
Func _check_HKINDI_02()
|
|
$sText_Bemerkung = "weitere Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_graben[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, "MessenHKINDI", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
|
$sINI_String = StringReplace($sINI_String, $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_HKINDI_02
|
|
|
|
Func _check_HKINDI_Z()
|
|
$sText_Bemerkung = "weitere Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_graben[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, "MessenHKINDIZU", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_HKINDI_Z
|
|
|
|
Func _check_FTTH_kontroll_1()
|
|
$sText_Bemerkung = "1. Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenFTTH", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_kontroll_1
|
|
|
|
Func _check_FTTH_kontroll_02()
|
|
$sText_Bemerkung = "weitere Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenFTTH", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_kontroll_02
|
|
|
|
Func _check_FTTH_GPON_1()
|
|
$sText_Bemerkung = "1. Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenGPON", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_GPON_1
|
|
|
|
Func _check_FTTH_GPON_02()
|
|
$sText_Bemerkung = "weitere Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenGPON", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "0,2")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_FTTH_GPON_02
|
|
|
|
Func _check_pegelmess_1()
|
|
$sText_Bemerkung = "1. Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenPegel", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_pegelmess_1
|
|
|
|
Func _check_pegelmess_Z()
|
|
$sText_Bemerkung = "weitere Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "MessenPegelZU", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc ;==>_check_pegelmess_Z
|
|
|
|
Func _check_Baugruppe_einbauen($sText_Bemerkung)
|
|
;~ $sText_Bemerkung = "1. Faser-messen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = "HVT-Baugruppe einbauen" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "BauGruppeEinAusbauen", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "1")
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
|
|
EndFunc ;==>_check_Baugruppe_einbauen
|
|
|
|
func _check_GF_Innen()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = $aAngaben_GF[1][12] ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "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%", $aAngaben_GF[1][12])
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc
|
|
|
|
func _check_InKaSNRBef()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = $aAngaben_GF[1][12] ; 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%", $aAngaben_GF[1][12])
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc
|
|
|
|
func _check_Auskabelbef()
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = $aAngaben_GF[1][12] ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "AusKBef", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_GF[1][12])
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc
|
|
|
|
func _check_Kabelaufnwiederein()
|
|
;~ $aAngaben_GF[1][0] = $sMuffenbezeichnung ;Muffenbezeichnung
|
|
;~ $aAngaben_GF[1][1] = _replaceKom2Punkt($iAF_A1)
|
|
;~ $aAngaben_GF[1][2] = _replaceKom2Punkt($iAF_G1)
|
|
;~ $aAngaben_GF[1][3] = _replaceKom2Punkt($iAF_G2)
|
|
;~ $aAngaben_GF[1][4] = _replaceKom2Punkt($iAF_G3)
|
|
;~ $aAngaben_GF[1][5] = _replaceKom2Punkt($iAF_G4)
|
|
;~ $aAngaben_GF[1][6] = _replaceKom2Punkt($iAF_G5)
|
|
;~ $aAngaben_GF[1][7] = _replaceKom2Punkt($iAF_verb)
|
|
local $iAnzahl = 0
|
|
if $aAngaben_GF[1][1] <> "" and GUICtrlRead($tab4_chb_A1_neu) = $GUI_UNCHECKED Then
|
|
$iAnzahl = $iAnzahl + 1
|
|
EndIf
|
|
if $aAngaben_GF[1][2] <> "" and GUICtrlRead($tab4_chb_G1_neu) = $GUI_UNCHECKED Then
|
|
$iAnzahl =$iAnzahl + 1
|
|
EndIf
|
|
if $aAngaben_GF[1][3] <> "" and GUICtrlRead($tab4_chb_G2_neu) = $GUI_UNCHECKED Then
|
|
$iAnzahl =$iAnzahl + 1
|
|
EndIf
|
|
if $aAngaben_GF[1][4] <> "" and GUICtrlRead($tab4_chb_G3_neu) = $GUI_UNCHECKED Then
|
|
$iAnzahl =$iAnzahl + 1
|
|
EndIf
|
|
if $aAngaben_GF[1][5] <> "" and GUICtrlRead($tab4_chb_G4_neu) = $GUI_UNCHECKED Then
|
|
$iAnzahl =$iAnzahl + 1
|
|
EndIf
|
|
if $aAngaben_GF[1][6] <> "" and GUICtrlRead($tab4_chb_G5_neu) = $GUI_UNCHECKED Then
|
|
$iAnzahl =$iAnzahl + 1
|
|
EndIf
|
|
|
|
If $iAnzahl = 0 Then
|
|
Return
|
|
EndIf
|
|
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $iAnzahl & " Kabel aufnehmen sichern und nach Montage wieder ablegen" ; Bemerkung
|
|
$aProzent[3] = "15,0" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFMKabelaufnw", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", $iAnzahl)
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", "15,0")
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc
|
|
|
|
func _check_Fasernablegen()
|
|
local $iFasernablage = 0
|
|
local $iAnzFaserverb = _replaceKom2Punkt($aAngaben_GF[1][7])
|
|
Local $iSumme = 0
|
|
ConsoleWrite("1: " & $aAngaben_GF[1][1] & @CRLF)
|
|
ConsoleWrite("2: " & $aAngaben_GF[1][2] & @CRLF)
|
|
ConsoleWrite("3: " & $aAngaben_GF[1][3] & @CRLF)
|
|
ConsoleWrite("4: " & $aAngaben_GF[1][4] & @CRLF)
|
|
ConsoleWrite("5: " & $aAngaben_GF[1][5] & @CRLF)
|
|
ConsoleWrite("6: " & $aAngaben_GF[1][6] & @CRLF)
|
|
|
|
;~ $iSumme = $aAngaben_GF[1][1] + $aAngaben_GF[1][2] + $aAngaben_GF[1][3] + $aAngaben_GF[1][4] + $aAngaben_GF[1][5] + $aAngaben_GF[1][6]
|
|
;~ ConsoleWrite("Summe: " & $iSumme & @CRLF)
|
|
if GUICtrlRead($tab4_chb_A1_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][1]
|
|
ConsoleWrite("Fasernablegen1: " & $iSumme & @CRLF)
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_G1_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][2]
|
|
ConsoleWrite("Fasernablegen2: " & $iSumme & @CRLF)
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_G2_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][3]
|
|
ConsoleWrite("Fasernablegen3: " & $iSumme & @CRLF)
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_G3_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][4]
|
|
ConsoleWrite("Fasernablegen4: " & $iSumme & @CRLF)
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_G4_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][5]
|
|
ConsoleWrite("Fasernablegen5: " & $iSumme & @CRLF)
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_G5_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][6]
|
|
ConsoleWrite("Fasernablegen: 6" & $iSumme & @CRLF)
|
|
EndIf
|
|
$iAblegen = ($iSumme - $iAnzFaserverb) / 2
|
|
ConsoleWrite("Fasernablegen: " & $iSumme & @CRLF)
|
|
ConsoleWrite("Fasernverbinden: " &$iAnzFaserverb & @CRLF)
|
|
|
|
|
|
if $iAblegen <= 0 Then
|
|
Return
|
|
EndIf
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = "" ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFFaseernAbl", "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($iAblegen))
|
|
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc
|
|
|
|
func _check_fasernverbinden()
|
|
|
|
local $iInOu = ""
|
|
if GUICtrlRead($tab4_chb_indoor) = $GUI_CHECKED Then
|
|
$iInOu = "GFFasernVerbin"
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_outdoor) = $GUI_CHECKED Then
|
|
$iInOu = "GFFasernVerbout"
|
|
EndIf
|
|
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, $iInOu, "NA")
|
|
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
|
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
|
$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_GF[1][7])
|
|
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
|
EndFunc
|
|
|
|
func _check_Muffe_bauen()
|
|
local $MFaktor = 1.0
|
|
|
|
if GUICtrlRead($tab4_chb_Muffe_neu) = $GUI_CHECKED then
|
|
|
|
if GUICtrlRead($tab4_chb_A1_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][1]
|
|
ConsoleWrite("Fasernablegen1: " & $iSumme & @CRLF)
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_G1_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][2]
|
|
ConsoleWrite("Fasernablegen2: " & $iSumme & @CRLF)
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_G2_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][3]
|
|
ConsoleWrite("Fasernablegen3: " & $iSumme & @CRLF)
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_G3_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][4]
|
|
ConsoleWrite("Fasernablegen4: " & $iSumme & @CRLF)
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_G4_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][5]
|
|
ConsoleWrite("Fasernablegen5: " & $iSumme & @CRLF)
|
|
EndIf
|
|
if GUICtrlRead($tab4_chb_G5_neu) = $GUI_CHECKED then
|
|
$iSumme = $iSumme + $iFasernablage + $aAngaben_GF[1][6]
|
|
ConsoleWrite("Fasernablegen: 6" & $iSumme & @CRLF)
|
|
EndIf
|
|
|
|
|
|
$sText_Bemerkung = ""
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = $aAngaben_GF[1][0] ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "GFMuffebauen", "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, "|")
|
|
EndIf
|
|
|
|
|
|
EndFunc
|
|
|
|
func _check_GFMuffeKsch()
|
|
if GUICtrlRead($tab4_chb_MuffeKsch) = $GUI_CHECKED then
|
|
$sText_Bemerkung = "Ksch öffnen"
|
|
Dim $aProzent[6]
|
|
$aProzent[1] = "" ;Abschnitt
|
|
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
|
$aProzent[3] = "" ; Länge
|
|
$aProzent[4] = "" ; Breite
|
|
$aProzent[5] = "" ; Tiefe
|
|
;~ $aProzent[6] = _replacePunkt2Koma(1) ; Menge bei Stück
|
|
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Sonstiges", "Kschoffnen", "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, "|")
|
|
Else
|
|
Return
|
|
EndIf
|
|
EndFunc
|
|
#EndRegion GF - Montage
|