Initial commit – AufmaßCreater v2.35
This commit is contained in:
@@ -0,0 +1,89 @@
|
||||
;ahelper_absperrung.au3
|
||||
|
||||
Func _add_Absperrung()
|
||||
Global $aLVListe[1][13]
|
||||
|
||||
Dim $aProzent[6]
|
||||
$sIni_Kategorie = "Absperrung"
|
||||
$sIniReadString = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
|
||||
$sText_Bemerkung = GUICtrlRead($tab_ab_txt_bemerkung)
|
||||
|
||||
$aProzent[1] = GUICtrlRead($tab_ab_txt_abschnitt) ; Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ;Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
|
||||
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$iMproTag = GUICtrlRead($tab_ab_txt_anzTGe)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iMproTag)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndFunc
|
||||
|
||||
func _absperrungsPosAktu()
|
||||
_ReadInputs2Array_Absperrung()
|
||||
EndFunc
|
||||
|
||||
func _ReadInputs2Array_Absperrung()
|
||||
Global $sIniDatei = GUICtrlRead($chb_vertrag)
|
||||
If GUICtrlRead($chb_vertrag) = "" Then
|
||||
MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
|
||||
Else
|
||||
$sIni_Kategorie = "Absperrung"
|
||||
$sIniReadString = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
|
||||
;~ ConsoleWrite($sIniReadString& @CRLF)
|
||||
$aSplitt = StringSplit($sIniReadString, "|")
|
||||
GUICtrlSetData($tab_ab_ePreis, $aSplitt[12])
|
||||
$stxt_meter = Int(GUICtrlRead($tab_ab_txt_Meter)); anzahl Meter der Absperrung
|
||||
|
||||
$stxt_m_rpo_st =GUICtrlRead($tab_ab_txt_m_rpo_st); Meter Pro Stück 10
|
||||
$stxt_anz_tage =GUICtrlRead($tab_ab_txt_anz_tage); eingabe Dauer
|
||||
$stxt_anz_tag =GUICtrlRead($tab_ab_txt_anz_tag); laut Position
|
||||
$stxt_ab_ePreist =GUICtrlRead($tab_ab_ePreis); Preis
|
||||
$stxt_abschnitt = GUICtrlRead($tab_ab_txt_abschnitt)
|
||||
;~ $stxt_bemerkung =GUICtrlRead($tab_ab_txt_bemerkung)
|
||||
|
||||
$stxt_bemerkung = "(" &$stxt_meter& " Meter Absperrung / "&$stxt_m_rpo_st & "m pro Stück) x ("& $stxt_anz_tage& " Anzahl Tage - ab "& $stxt_anz_tag& " Tag )"
|
||||
GUICtrlSetData($tab_ab_txt_bemerkung, $stxt_bemerkung)
|
||||
|
||||
$iMeter = _replaceKom2Punkt($stxt_meter) /_replaceKom2Punkt($stxt_m_rpo_st); Anzahl M Absperrung / Meter Pro Stück
|
||||
$iDauerTage = _replaceKom2Punkt($stxt_anz_tage) - _replaceKom2Punkt($stxt_anz_tag) ;Tage der Absperrung Minus - 5
|
||||
If StringInStr($iDauerTage, "-") Then
|
||||
MsgBox(64, "Achtung", "Die Anzahl der Tage ist kleiner gleich (<=) " & $iDauerTage)
|
||||
GUICtrlSetData($tab_ab_txt_anzTGe, "")
|
||||
Else
|
||||
$iMproTag = _replacePunkt2Koma($iMeter * $iDauerTage)
|
||||
GUICtrlSetData($tab_ab_txt_anzTGe, $iMproTag)
|
||||
$iGPreis = _replaceKom2Punkt($aSplitt[12]) * _replaceKom2Punkt($iMproTag)
|
||||
|
||||
GUICtrlSetData($tab_ab_txt_GP, _replacePunkt2Koma($iGPreis))
|
||||
|
||||
;~ $stxt_GPt =GUICtrlRead($tab_ab_txt_GP)
|
||||
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
EndFunc
|
||||
|
||||
;~ Func _string_replace_Prozent($sString, $aArray)
|
||||
;~
|
||||
;~
|
||||
;~ $sString = _replacePunkt2Koma(StringReplace($sString, "%Leange%", $aArray[3]))
|
||||
;~ $sString = _replacePunkt2Koma(StringReplace($sString, "%Breite%", $aArray[4]))
|
||||
;~ $sString = _replacePunkt2Koma(StringReplace($sString, "%Tiefe%", $aArray[5]))
|
||||
;~ $sString = StringReplace($sString, "%Abschnitt%", $aArray[1])
|
||||
;~ $sString = StringReplace($sString, "%Bemerkung%", $aArray[2])
|
||||
|
||||
;~
|
||||
;~ Return $sString
|
||||
;~ EndFunc ;==>_string_replace_Prozent
|
||||
@@ -0,0 +1,182 @@
|
||||
;ahelper_ftth.au3
|
||||
|
||||
func _add_ftth()
|
||||
Dim $aProzent[6]
|
||||
|
||||
Global $sIni_Kategorie = "FTTH"
|
||||
$sText_Bemerkung = ""
|
||||
|
||||
Global $aAngaben_FTTH[2][2] = [["Abschnitt", "Länge Privat"]]
|
||||
|
||||
_ReadInputs2Array_ftth()
|
||||
|
||||
$sVertragString = GUICtrlRead($chb_vertrag)
|
||||
If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18
|
||||
if GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then
|
||||
_check_FTTH_TB_HsEinfoo
|
||||
_check_FTTH_TB_HsEinfZoo
|
||||
_check_FTTH_TB_Rausl()
|
||||
_check_FTTH_TB_Kausl()
|
||||
Else
|
||||
_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[0][2] = 3
|
||||
_check_FTTH_TB_Kausl()
|
||||
EndIf
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
||||
|
||||
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
|
||||
|
||||
EndIf
|
||||
EndFunc
|
||||
|
||||
func _ReadInputs2Array_ftth()
|
||||
$aAngaben_FTTH[0][1] = GUICtrlRead($tab7_txt_abschnitt)
|
||||
$aAngaben_FTTH[0][2] = _replaceKom2Punkt(GUICtrlRead)($tab7_txt_lang_privat))
|
||||
EndFunc
|
||||
|
||||
Func _check_FTTH_TB_HsEinfmo()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
|
||||
|
||||
$aProzent[1] = $aAngaben_FTTH[0][1] ;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
|
||||
|
||||
func _check_FTTH_TB_HsEinfZmo()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
|
||||
|
||||
$aProzent[1] = "" ;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, "HsEinfZmo", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][2] -1))
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_FTTH_TB_HsEinfoo()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
|
||||
|
||||
$aProzent[1] = $aAngaben_FTTH[0][1] ;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
|
||||
|
||||
func _check_FTTH_TB_HsEinfZoo()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
|
||||
|
||||
$aProzent[1] = "" ;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, "HsEinfZoo", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][2] -1))
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_FTTH_TB_Rausl()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
|
||||
|
||||
$aProzent[1] = "" ;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, "Rausl", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][2] + 1))
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_FTTH_TB_Kausl()
|
||||
$sText_Bemerkung = "2x7 SNR"
|
||||
Dim $aProzent[6]
|
||||
|
||||
|
||||
$aProzent[1] = "" ;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, "Kausl", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][2] + 2))
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_FTTH_TB_GGRing()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
|
||||
|
||||
$aProzent[1] = $aAngaben_FTTH[0][1] ;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
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,192 @@
|
||||
;ahelper_ftth.au3
|
||||
|
||||
Func _add_ftth()
|
||||
Dim $aProzent[6]
|
||||
|
||||
Global $sIni_Kategorie = "FTTH"
|
||||
$sText_Bemerkung = ""
|
||||
|
||||
Global $aAngaben_FTTH[2][2] = [["Abschnitt", "Länge Privat"]]
|
||||
|
||||
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()
|
||||
|
||||
$sVertragString = GUICtrlRead($chb_vertrag)
|
||||
If StringInStr($sVertragString, "4650000697") Then ; 4650000697__SW32-FTTx_17/18
|
||||
If GUICtrlRead($tab7_chb_oO) = $GUI_CHECKED Then
|
||||
_check_FTTH_TB_HsEinfoo
|
||||
_check_FTTH_TB_HsEinfZoo
|
||||
_check_FTTH_TB_Rausl()
|
||||
_check_FTTH_TB_Kausl()
|
||||
Else
|
||||
_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[0][2] = 3
|
||||
_check_FTTH_TB_Kausl()
|
||||
EndIf
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
||||
|
||||
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
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
EndFunc ;==>_add_ftth
|
||||
|
||||
Func _ReadInputs2Array_ftth()
|
||||
$aAngaben_FTTH[0][0] = GUICtrlRead($tab7_txt_abschnitt)
|
||||
$aAngaben_FTTH[0][1] = _replaceKom2Punkt(GUICtrlRead($tab7_txt_lang_privat))
|
||||
EndFunc ;==>_ReadInputs2Array_ftth
|
||||
|
||||
Func _check_FTTH_TB_HsEinfmo()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
|
||||
|
||||
$aProzent[1] = $aAngaben_FTTH[0][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] = "" ; 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, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][2] - 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[0][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] = "" ; 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, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][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] = "" ; 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, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][1] + 1))
|
||||
_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] = "" ; 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, "%Menge%", _replacePunkt2Koma($aAngaben_FTTH[0][1] + 2))
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_FTTH_TB_Kausl
|
||||
|
||||
Func _check_FTTH_TB_GGRing()
|
||||
$sText_Bemerkung = ""
|
||||
Dim $aProzent[6]
|
||||
|
||||
|
||||
$aProzent[1] = $aAngaben_FTTH[0][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
|
||||
@@ -0,0 +1,437 @@
|
||||
;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_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
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
||||
|
||||
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
|
||||
|
||||
EndIf
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
EndFunc ;==>_add_ftth
|
||||
|
||||
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 = $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, ".", "")
|
||||
EndFunc
|
||||
|
||||
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()
|
||||
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, "|")
|
||||
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
|
||||
|
||||
|
||||
@@ -0,0 +1,593 @@
|
||||
;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_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
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
||||
|
||||
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
|
||||
|
||||
EndIf
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
EndFunc ;==>_add_ftth
|
||||
|
||||
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]
|
||||
$sKabelstark =$aAngaben_FTTH[1][7]
|
||||
$sStr = $aAngaben_FTTH[1][5]
|
||||
$sHsZu = $aAngaben_FTTH[1][6]
|
||||
Global $sAnzWE = $aAngaben_FTTH[1][4]
|
||||
$sGFlang =$aAngaben_FTTH[1][8] ; Kabelzug länge
|
||||
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()
|
||||
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, "|")
|
||||
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
|
||||
|
||||
|
||||
@@ -0,0 +1,595 @@
|
||||
;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_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
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschäft_Los_3b_Rvbg
|
||||
|
||||
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
|
||||
|
||||
EndIf
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
EndFunc ;==>_add_ftth
|
||||
|
||||
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]
|
||||
$sKabelstark = $aAngaben_FTTH[1][7]
|
||||
$sStr = $aAngaben_FTTH[1][5]
|
||||
$sHsZu = $aAngaben_FTTH[1][6]
|
||||
Global $sAnzWE = $aAngaben_FTTH[1][4]
|
||||
$sGFlang = $aAngaben_FTTH[1][8] ; Kabelzug länge
|
||||
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
|
||||
|
||||
|
||||
@@ -0,0 +1,601 @@
|
||||
;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
|
||||
|
||||
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
|
||||
|
||||
EndIf
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
EndFunc ;==>_add_ftth
|
||||
|
||||
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]
|
||||
$sKabelstark = $aAngaben_FTTH[1][7]
|
||||
$sStr = $aAngaben_FTTH[1][5]
|
||||
$sHsZu = $aAngaben_FTTH[1][6]
|
||||
Global $sAnzWE = $aAngaben_FTTH[1][4]
|
||||
$sGFlang = $aAngaben_FTTH[1][8] ; Kabelzug länge
|
||||
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
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,468 @@
|
||||
;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_Fasern_messen()
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_add_GF_Montage
|
||||
|
||||
Func _check_Fasern_messen()
|
||||
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
|
||||
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
|
||||
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
|
||||
EndIf
|
||||
#EndRegion
|
||||
|
||||
#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
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschä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
|
||||
#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
|
||||
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
|
||||
#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
|
||||
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
|
||||
_check_MESS_1te_Faser()
|
||||
|
||||
|
||||
Else
|
||||
_check_MESS_xte_Faser()
|
||||
|
||||
|
||||
EndIf
|
||||
#EndRegion
|
||||
#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
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_check_Fasern_messen
|
||||
|
||||
func _check_MESS_1te_Faser()
|
||||
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
|
||||
EndFunc
|
||||
|
||||
func _check_MESS_xte_Faser()
|
||||
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_indi) = $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_HKINDI_Z()
|
||||
|
||||
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
|
||||
EndFunc
|
||||
|
||||
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, "%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, "%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, "%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, "%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, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
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, "%Menge%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
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, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
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, "%Menge%", "0,2")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
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, "%Menge%", "1")
|
||||
;~ $sINI_String = StringReplace($sINI_String, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
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, "%Menge%", $iAF - 1)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
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
|
||||
|
||||
#EndRegion GF - Montage
|
||||
@@ -0,0 +1,472 @@
|
||||
;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_Fasern_messen()
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_add_GF_Montage
|
||||
|
||||
Func _check_Fasern_messen()
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschä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
|
||||
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
|
||||
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
|
||||
_check_MESS_1te_Faser()
|
||||
Else
|
||||
_check_MESS_xte_Faser()
|
||||
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
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_check_Fasern_messen
|
||||
|
||||
Func _check_MESS_1te_Faser()
|
||||
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
|
||||
EndFunc ;==>_check_MESS_1te_Faser
|
||||
|
||||
Func _check_MESS_xte_Faser()
|
||||
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_indi) = $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_HKINDI_Z()
|
||||
|
||||
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
|
||||
EndFunc ;==>_check_MESS_xte_Faser
|
||||
|
||||
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, "%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, "%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, "%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, "%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, "%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, "%Menge%", "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, "%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, "%Menge%", "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, "%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, "%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
|
||||
|
||||
#EndRegion GF - Montage
|
||||
@@ -0,0 +1,480 @@
|
||||
;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_Fasern_messen()
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_add_GF_Montage
|
||||
|
||||
Func _check_Fasern_messen()
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
EndIf
|
||||
If StringInStr($sVertragString, "4650001474") Then ; 4650001474__SW32-Regelgeschä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
|
||||
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
|
||||
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_indi) = $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_HKINDI_Z()
|
||||
|
||||
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
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_check_Fasern_messen
|
||||
|
||||
Func _check_MESS_1te_Faser()
|
||||
|
||||
EndFunc ;==>_check_MESS_1te_Faser
|
||||
|
||||
Func _check_MESS_xte_Faser()
|
||||
|
||||
EndFunc ;==>_check_MESS_xte_Faser
|
||||
|
||||
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
|
||||
|
||||
#EndRegion GF - Montage
|
||||
@@ -0,0 +1,847 @@
|
||||
;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
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,261 @@
|
||||
;ahelper_kabelzug.au3
|
||||
|
||||
Global $aAngaben_kabelzug[2][5] = [["Abschnitt von", "Abschnit bis", "Länge", "Anzahl Ksch", "Bezeichn Ksch"]]
|
||||
|
||||
Func _ReadInputs2Array_Kabelzug()
|
||||
|
||||
$aAngaben_kabelzug[1][0] = GUICtrlRead($tab6_txt_abschn_von) ;Abschnitt von
|
||||
$aAngaben_kabelzug[1][1] = GUICtrlRead($tab6_txt_abschnitt_bis) ; Abschnitt bis
|
||||
$aAngaben_kabelzug[1][2] = _replaceKom2Punkt(GUICtrlRead($tab6_txt_lang)) ; Länge
|
||||
$aAngaben_kabelzug[1][3] = GUICtrlRead($tab6_txt_anzksch)
|
||||
$aAngaben_kabelzug[1][4] = GUICtrlRead($tab6_txt_bezeichKsch)
|
||||
|
||||
EndFunc ;==>_ReadInputs2Array_GF
|
||||
|
||||
Func _felder_tab6_zurucksetzen()
|
||||
GUICtrlSetData($tab6_txt_abschn_von, "")
|
||||
GUICtrlSetData($tab6_txt_abschnitt_bis, "")
|
||||
GUICtrlSetData($tab6_txt_lang, "")
|
||||
GUICtrlSetData($tab6_txt_anzksch, "")
|
||||
GUICtrlSetData($tab6_txt_bezeichKsch, "")
|
||||
|
||||
|
||||
GUICtrlSetState($tab6_chb_12gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_22x7, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_24gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_36gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_3pipes, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_48gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_5pipes, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_72gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_7pipes, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_7x12, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_8x7, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_96gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_cugr, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_cukl, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_belegtrh, $GUI_UNCHECKED)
|
||||
|
||||
EndFunc ;==>_felder_tab4_zurucksetzen
|
||||
|
||||
func _add_Kabelzug()
|
||||
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_Kabelzug()
|
||||
|
||||
$sVertragString = GUICtrlRead($chb_vertrag)
|
||||
If StringInStr($sVertragString, "4650000697") Then
|
||||
|
||||
;Kabelschächte
|
||||
if GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
|
||||
;3 Pipes in MFR
|
||||
If GUICtrlRead($tab6_chb_3pipes) = $GUI_CHECKED Then
|
||||
_check_Einblassen()
|
||||
EndIf
|
||||
|
||||
; 5 Pipes in MFR
|
||||
EndIf
|
||||
|
||||
If StringInStr($sVertragString, "4650001474") Then
|
||||
;Kabelschächte
|
||||
if GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If StringInStr($sVertragString, "4650003044") Then
|
||||
;Kabelschächte
|
||||
if GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If StringInStr($sVertragString, "4650003822") Then
|
||||
;Kabelschächte
|
||||
if GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
EndFunc
|
||||
|
||||
func _check_Kabelschaechte()
|
||||
$sText_Bemerkung = $aAngaben_kabelzug[1][4]; Bezeichnung der kabelschächte
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = "Kabelschächte öffnen " ;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, "Kabelzug", "ZuKsch", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_kabelzug[1][3])
|
||||
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
func _check_Einblassen()
|
||||
Dim $aProzent[6]
|
||||
|
||||
$sAbschnitt = $aAngaben_kabelzug[1][0] & " bis " & $aAngaben_kabelzug[1][1]
|
||||
|
||||
If GUICtrlRead($tab6_chb_3pipes) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "3 Pipes in MFR-kl"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_5pipes) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "5 Pipes in MFR-gr"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_7pipes) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "7 in DN 50"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_12gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "12 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_24gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "24 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_36gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "36 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_48gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "48 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_72gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "72 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_96gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung ="96 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
|
||||
$aProzent[1] = $sAbschnitt ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = $aAngaben_kabelzug[1][2] ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
||||
If GUICtrlRead($tab6_belegtrh) = $GUI_CHECKED Then
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBlbe", "NA")
|
||||
Else
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBlunbe", "NA")
|
||||
EndIf
|
||||
|
||||
$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)
|
||||
|
||||
If GUICtrlRead($tab6_chb_3pipes) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_5pipes) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_7pipes) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_12gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_24gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_36gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_48gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_72gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_96gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
EndFunc
|
||||
|
||||
Func _check_Einbringen()
|
||||
Dim $aProzent[6]
|
||||
|
||||
$sText_Bemerkung = ""
|
||||
$sAbschnitt = $aAngaben_kabelzug[1][0] & " bis " & $aAngaben_kabelzug[1][1]
|
||||
|
||||
If GUICtrlRead($tab6_chb_7x12) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "SNRVe 7x12"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_8x7) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "SNRVE 8x7 " & GUICtrlRead($tab6_dl_verbfarbe)
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_22x7) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "SNRVE 22x7 " & GUICtrlRead($tab6_dl_verbfarbe)
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cugr) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "CU 6-100 DA"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cukl) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "CU > 100 DA"
|
||||
EndIf
|
||||
|
||||
|
||||
$aProzent[1] = $sAbschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = $aAngaben_kabelzug[1][2] ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
||||
|
||||
If GUICtrlRead($tab6_belegtrh) = $GUI_CHECKED Then
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBRbe", "NA")
|
||||
$aProzent[2] = $sText_Bemerkung & " in belegtes Rohr"
|
||||
Else
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBRunbe", "NA")
|
||||
EndIf
|
||||
|
||||
$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)
|
||||
If GUICtrlRead($tab6_chb_7x12) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_8x7) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_22x7) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cugr) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cukl) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
EndFunc
|
||||
|
||||
@@ -0,0 +1,92 @@
|
||||
|
||||
;ahelper_absperrung.au3
|
||||
|
||||
|
||||
|
||||
Func _add_Absperrung()
|
||||
Global $aLVListe[1][13]
|
||||
$sIniDateiPfad = $sPfadIni
|
||||
Dim $aProzent[6]
|
||||
$sIni_Kategorie = "Absperrung"
|
||||
$sIniReadString = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
|
||||
$sText_Bemerkung = GUICtrlRead($tab_ab_txt_bemerkung)
|
||||
|
||||
$aProzent[1] = GUICtrlRead($tab_ab_txt_abschnitt) ; Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ;Bemerkung
|
||||
$aProzent[3] = "" ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
|
||||
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$iMproTag = GUICtrlRead($tab_ab_txt_anzTGe)
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $iMproTag)
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndFunc ;==>_add_Absperrung
|
||||
|
||||
Func _absperrungsPosAktu()
|
||||
_ReadInputs2Array_Absperrung()
|
||||
EndFunc ;==>_absperrungsPosAktu
|
||||
|
||||
Func _ReadInputs2Array_Absperrung()
|
||||
Global $sIniDatei = GUICtrlRead($chb_vertrag)
|
||||
If GUICtrlRead($chb_vertrag) = "" Then
|
||||
MsgBox(64, "Bitte Vertrag auswählen", "Bitte Vertrag auswählen")
|
||||
Else
|
||||
$sIni_Kategorie = "Absperrung"
|
||||
$sIniReadString = IniRead($sIniDateiPfad & $sIniDatei, $sIni_Kategorie, "Absperr", "NA")
|
||||
;~ ConsoleWrite($sIniReadString& @CRLF)
|
||||
$aSplitt = StringSplit($sIniReadString, "|")
|
||||
GUICtrlSetData($tab_ab_ePreis, $aSplitt[12])
|
||||
$stxt_meter = Int(GUICtrlRead($tab_ab_txt_Meter)) ; anzahl Meter der Absperrung
|
||||
|
||||
$stxt_m_rpo_st = GUICtrlRead($tab_ab_txt_m_rpo_st) ; Meter Pro Stück 10
|
||||
$stxt_anz_tage = GUICtrlRead($tab_ab_txt_anz_tage) ; eingabe Dauer
|
||||
$stxt_anz_tag = GUICtrlRead($tab_ab_txt_anz_tag) ; laut Position
|
||||
$stxt_ab_ePreist = GUICtrlRead($tab_ab_ePreis) ; Preis
|
||||
$stxt_abschnitt = GUICtrlRead($tab_ab_txt_abschnitt)
|
||||
;~ $stxt_bemerkung =GUICtrlRead($tab_ab_txt_bemerkung)
|
||||
|
||||
$stxt_bemerkung = "(" & $stxt_meter & " Meter Absperrung / " & $stxt_m_rpo_st & "m pro Stück) x (" & $stxt_anz_tage & " Anzahl Tage - ab " & $stxt_anz_tag & " Tag )"
|
||||
GUICtrlSetData($tab_ab_txt_bemerkung, $stxt_bemerkung)
|
||||
|
||||
$iMeter = _replaceKom2Punkt($stxt_meter) / _replaceKom2Punkt($stxt_m_rpo_st) ; Anzahl M Absperrung / Meter Pro Stück
|
||||
$iDauerTage = _replaceKom2Punkt($stxt_anz_tage) - _replaceKom2Punkt($stxt_anz_tag) ;Tage der Absperrung Minus - 5
|
||||
If StringInStr($iDauerTage, "-") Then
|
||||
MsgBox(64, "Achtung", "Die Anzahl der Tage ist kleiner gleich (<=) " & $iDauerTage)
|
||||
GUICtrlSetData($tab_ab_txt_anzTGe, "")
|
||||
Else
|
||||
$iMproTag = _replacePunkt2Koma($iMeter * $iDauerTage)
|
||||
GUICtrlSetData($tab_ab_txt_anzTGe, $iMproTag)
|
||||
$iGPreis = _replaceKom2Punkt($aSplitt[12]) * _replaceKom2Punkt($iMproTag)
|
||||
|
||||
GUICtrlSetData($tab_ab_txt_GP, _replacePunkt2Koma($iGPreis))
|
||||
|
||||
;~ $stxt_GPt =GUICtrlRead($tab_ab_txt_GP)
|
||||
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
EndFunc ;==>_ReadInputs2Array_Absperrung
|
||||
|
||||
;~ Func _string_replace_Prozent($sString, $aArray)
|
||||
;~
|
||||
;~
|
||||
;~ $sString = _replacePunkt2Koma(StringReplace($sString, "%Leange%", $aArray[3]))
|
||||
;~ $sString = _replacePunkt2Koma(StringReplace($sString, "%Breite%", $aArray[4]))
|
||||
;~ $sString = _replacePunkt2Koma(StringReplace($sString, "%Tiefe%", $aArray[5]))
|
||||
;~ $sString = StringReplace($sString, "%Abschnitt%", $aArray[1])
|
||||
;~ $sString = StringReplace($sString, "%Bemerkung%", $aArray[2])
|
||||
|
||||
;~
|
||||
;~ Return $sString
|
||||
;~ EndFunc ;==>_string_replace_Prozent
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,262 @@
|
||||
;ahelper_kabelzug.au3
|
||||
|
||||
Global $aAngaben_kabelzug[2][5] = [["Abschnitt von", "Abschnit bis", "Länge", "Anzahl Ksch", "Bezeichn Ksch"]]
|
||||
|
||||
Func _ReadInputs2Array_Kabelzug()
|
||||
|
||||
$aAngaben_kabelzug[1][0] = GUICtrlRead($tab6_txt_abschn_von) ;Abschnitt von
|
||||
$aAngaben_kabelzug[1][1] = GUICtrlRead($tab6_txt_abschnitt_bis) ; Abschnitt bis
|
||||
$aAngaben_kabelzug[1][2] = _replaceKom2Punkt(GUICtrlRead($tab6_txt_lang)) ; Länge
|
||||
$aAngaben_kabelzug[1][3] = GUICtrlRead($tab6_txt_anzksch)
|
||||
$aAngaben_kabelzug[1][4] = GUICtrlRead($tab6_txt_bezeichKsch)
|
||||
|
||||
EndFunc ;==>_ReadInputs2Array_Kabelzug
|
||||
|
||||
Func _felder_tab6_zurucksetzen()
|
||||
GUICtrlSetData($tab6_txt_abschn_von, "")
|
||||
GUICtrlSetData($tab6_txt_abschnitt_bis, "")
|
||||
GUICtrlSetData($tab6_txt_lang, "")
|
||||
GUICtrlSetData($tab6_txt_anzksch, "")
|
||||
GUICtrlSetData($tab6_txt_bezeichKsch, "")
|
||||
|
||||
|
||||
GUICtrlSetState($tab6_chb_12gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_22x7, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_24gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_36gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_3pipes, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_48gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_5pipes, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_72gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_7pipes, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_7x12, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_8x7, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_96gf, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_cugr, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_chb_cukl, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab6_belegtrh, $GUI_UNCHECKED)
|
||||
|
||||
EndFunc ;==>_felder_tab6_zurucksetzen
|
||||
|
||||
Func _add_Kabelzug()
|
||||
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_Kabelzug()
|
||||
|
||||
$sVertragString = GUICtrlRead($chb_vertrag)
|
||||
If StringInStr($sVertragString, "4650000697") Then
|
||||
|
||||
;Kabelschächte
|
||||
If GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
|
||||
_check_Einblassen()
|
||||
_check_Einbringen()
|
||||
; 5 Pipes in MFR
|
||||
EndIf
|
||||
|
||||
If StringInStr($sVertragString, "4650001474") Then
|
||||
;Kabelschächte
|
||||
If GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If StringInStr($sVertragString, "4650003044") Then
|
||||
;Kabelschächte
|
||||
If GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
_check_Einblassen()
|
||||
_check_Einbringen()
|
||||
EndIf
|
||||
|
||||
If StringInStr($sVertragString, "4650003822") Then
|
||||
;Kabelschächte
|
||||
If GUICtrlRead($tab6_txt_anzksch) <> "" Then
|
||||
_check_Kabelschaechte()
|
||||
EndIf
|
||||
_check_Einblassen()
|
||||
_check_Einbringen()
|
||||
EndIf
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
|
||||
Global $aLVListe[1][13]
|
||||
EndIf
|
||||
EndFunc ;==>_add_Kabelzug
|
||||
|
||||
Func _check_Kabelschaechte()
|
||||
$sText_Bemerkung = $aAngaben_kabelzug[1][4] ; Bezeichnung der kabelschächte
|
||||
Dim $aProzent[6]
|
||||
$aProzent[1] = "Kabelschächte öffnen " ;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, "Kabelzug", "ZuKsch", "NA")
|
||||
$sINI_String = _string_replace_Prozent($sINI_String, $aProzent)
|
||||
$sINI_String = StringReplace($sINI_String, "%Faktor%", "1,0")
|
||||
$sINI_String = StringReplace($sINI_String, "%Menge%", $aAngaben_kabelzug[1][3])
|
||||
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_check_Kabelschaechte
|
||||
|
||||
Func _check_Einblassen()
|
||||
Dim $aProzent[6]
|
||||
|
||||
$sAbschnitt = $aAngaben_kabelzug[1][0] & " bis " & $aAngaben_kabelzug[1][1]
|
||||
|
||||
If GUICtrlRead($tab6_chb_3pipes) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "3 Pipes in MFR-kl"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_5pipes) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "5 Pipes in MFR-gr"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_7pipes) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "7 in DN 50"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_12gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "12 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_24gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "24 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_36gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "36 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_48gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "48 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_72gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "72 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_96gf) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "96 FS GF-Kabel in Pipes " & GUICtrlRead($tab6_cb_pipefarbe)
|
||||
EndIf
|
||||
|
||||
$aProzent[1] = $sAbschnitt ;Abschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = $aAngaben_kabelzug[1][2] ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
||||
If GUICtrlRead($tab6_belegtrh) = $GUI_CHECKED Then
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBlbe", "NA")
|
||||
Else
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBlunbe", "NA")
|
||||
EndIf
|
||||
|
||||
$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)
|
||||
|
||||
If GUICtrlRead($tab6_chb_3pipes) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_5pipes) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_7pipes) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_12gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_24gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_36gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_48gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_72gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
If GUICtrlRead($tab6_chb_96gf) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_check_Einblassen
|
||||
|
||||
Func _check_Einbringen()
|
||||
Dim $aProzent[6]
|
||||
|
||||
$sText_Bemerkung = ""
|
||||
$sAbschnitt = $aAngaben_kabelzug[1][0] & " bis " & $aAngaben_kabelzug[1][1]
|
||||
|
||||
If GUICtrlRead($tab6_chb_7x12) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "SNRVe 7x12"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_8x7) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "SNRVE 8x7 " & GUICtrlRead($tab6_dl_verbfarbe)
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_22x7) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "SNRVE 22x7 " & GUICtrlRead($tab6_dl_verbfarbe)
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cugr) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "CU 6-100 DA"
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cukl) = $GUI_CHECKED Then
|
||||
$sText_Bemerkung = "CU > 100 DA"
|
||||
EndIf
|
||||
|
||||
|
||||
$aProzent[1] = $sAbschnitt
|
||||
$aProzent[2] = $sText_Bemerkung ; Bemerkung
|
||||
$aProzent[3] = $aAngaben_kabelzug[1][2] ; Länge
|
||||
$aProzent[4] = "" ; Breite
|
||||
$aProzent[5] = "" ; Tiefe
|
||||
;~ $aProzent[6] = _replacePunkt2Koma($iAF) -1 ; Menge bei Stück
|
||||
|
||||
If GUICtrlRead($tab6_belegtrh) = $GUI_CHECKED Then
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBRbe", "NA")
|
||||
$aProzent[2] = $sText_Bemerkung & " in belegtes Rohr"
|
||||
Else
|
||||
$sINI_String = IniRead($sIniDateiPfad & $sIniDatei, "Kabelzug", "EinBRunbe", "NA")
|
||||
EndIf
|
||||
|
||||
$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)
|
||||
If GUICtrlRead($tab6_chb_7x12) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_8x7) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_22x7) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cugr) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab6_chb_cukl) = $GUI_CHECKED Then
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_check_Einbringen
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,681 @@
|
||||
;ahelper_sasmecka.au3
|
||||
|
||||
Func _add_Mecka_HA()
|
||||
|
||||
Global $aVertragsPos = _read_VertragsPositionen2Array()
|
||||
;~ _DebugArrayDisplay($aVertragsPos)
|
||||
|
||||
If GUICtrlRead($tab_sas_chb_ha) <> "" Then
|
||||
_add_HAPos($aVertragsPos, "01.06.0001")
|
||||
_add_HAPos($aVertragsPos, "01.06.0003")
|
||||
_add_HAPos($aVertragsPos, "01.06.0007")
|
||||
|
||||
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_anz_qkr) <> "" Then
|
||||
_add_HA_QkR($aVertragsPos)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_trmeter) <> "" Then
|
||||
_add_HATBm($aVertragsPos)
|
||||
_add_HARM($aVertragsPos)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_kabelm) <> "" Then
|
||||
_add_HA_kabelsm($aVertragsPos)
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab_sas_txt_strqm) <> "" Then
|
||||
_add_HA_Strq($aVertragsPos)
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab_sas_txt_anzsuchgr) <> "" Then
|
||||
_add_HA_Suchgrube($aVertragsPos)
|
||||
EndIf
|
||||
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
Global $aLVListe[1][13]
|
||||
EndFunc ;==>_add_Mecka_HA
|
||||
|
||||
Func _add_Mecka_TB()
|
||||
$aVertragsPos = _read_VertragsPositionen2Array()
|
||||
|
||||
Global $aNumb = "Error"
|
||||
If GUICtrlRead($tab_sas_txt_tb_lang) <> "" And GUICtrlRead($tab_sas_txt_tb_tief) <> "" Then
|
||||
_add_regelgrabenTB($aVertragsPos)
|
||||
|
||||
If GUICtrlRead($tab_sas_txt_tb_anz_4x20) <> "" Then
|
||||
_add_Rohr_4x20($aVertragsPos)
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab_sas_txt_tb_anz_12x10) <> "" Then
|
||||
_add_Rohr_12x10($aVertragsPos)
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab_sas_txt_tb_anzqs) <> "" Then
|
||||
_add_HA_QkR_tb($aVertragsPos)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_tb_kabelm) <> "" Then
|
||||
_add_HA_kabelsm_tb($aVertragsPos)
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab_sas_txt_tb_anzsuchgr) <> "" Then
|
||||
_add_TB_Suchgrube($aVertragsPos)
|
||||
EndIf
|
||||
|
||||
_ArrayDelete($aLVListe, 0)
|
||||
$iCount = -1
|
||||
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
|
||||
Global $aLVListe[1][13]
|
||||
|
||||
;~ 01.03.0019 1,00 1,00 1,00 M Zulage für Aushub in Handarbeit
|
||||
;~ 01.03.0020 1,00 1,00 M Kabel und Rohrleitungen sichern
|
||||
;~ 01.03.0001 1,00 1,00 1,00 M Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in unbefestigte Oberfläche herstellen (z.B. Schotter, Erde, Rasen)
|
||||
;~ 01.03.0002 1,00 1,00 1,00 M Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 80 cm in unbefestigte Oberfläche herstellen (z.B. Schotter, Erde, Rasen)
|
||||
;~ 01.03.0003 1,00 1,00 1,00 M Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 120 cm in unbefestigte Oberfläche herstellen (z.B. Schotter, Erde, Rasen)
|
||||
|
||||
;~ 01.03.0004 1,00 1,00 1,00 M Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
|
||||
;~ 01.03.0005 1,00 1,00 1,00 M Regelgraben zur Verlegung von bis zu 4 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
|
||||
;~ 01.03.0006 1,00 1,00 0,00 M Regelgraben zur Verlegung von bis zu 6 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche
|
||||
;~ 01.03.0008 1,00 1,00 0,00 M Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 80 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
|
||||
;~ 01.03.0009 1,00 1,00 0,00 M Regelgraben zur Verlegung von bis zu 4 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 80 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
|
||||
;~ 01.03.0010 1,00 1,00 0,00 M Regelgraben zur Verlegung von bis zu 6 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 80 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
|
||||
;~ 01.03.0012 1,00 1,00 0,00 M Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 120 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
|
||||
;~ 01.03.0013 1,00 1,00 0,00 M Regelgraben zur Verlegung von bis zu 4 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 120 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
|
||||
;~ 01.03.0014 1,00 1,00 0,00 M Regelgraben zur Verlegung von bis zu 6 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 120 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche)
|
||||
;~ 01.04.0001 1,00 1,00 0,00 M Rohrverband 4x20/15 oder vergleichbarer Rohrverband auf Zuleitungsebene für die Verbindungen BB-AP zu POP und POP zu Netzverteiler, Lieferung und Verlegung
|
||||
;~ 01.04.0002 1,00 1,00 0,00 M Rohrverbund 12x10/6 oder vergleichbarer Rohrverband auf Verteilebene für die Verbindungen POP/Netzverteiler zu den Gebäuden, Lieferung und Verlegung
|
||||
;~ 01.03.0007 1,00 1,00 1,00 M Mehrbreite 10 cm, Regelgraben mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster,Asphalt- und Betonoberfläche)
|
||||
;~
|
||||
;~ 01.03.0001 1,00 1,00 1,00 M Regelgraben zur Verlegung von bis zu 2 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in unbefestigte Oberfläche herstellen (z.B. Schotter, Erde, Rasen)
|
||||
;~ 01.04.0001 1,00 2,00 0,00 M Rohrverband 4x20/15 oder vergleichbarer Rohrverband auf Zuleitungsebene für die Verbindungen BB-AP zu POP und POP zu Netzverteiler, Lieferung und Verlegung
|
||||
;~ 01.04.0002 1,00 2,00 0,00 M Rohrverbund 12x10/6 oder vergleichbarer Rohrverband auf Verteilebene für die Verbindungen POP/Netzverteiler zu den Gebäuden, Lieferung und Verlegung
|
||||
;~ 01.03.0007 2,00 1,00 M Mehrbreite 10 cm, Regelgraben mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster,Asphalt- und Betonoberfläche)
|
||||
;~
|
||||
;~ 01.03.0006 1,00 1,00 0,00 M Regelgraben zur Verlegung von bis zu 6 Rohrverbänden mit einer Überdeckung der Rohranlage von min. 60 cm in befestigte Oberfläche herstellen (z.B. Pflaster, Asphalt- und Betonoberfläche
|
||||
;~ 01.03.0011 2,00 0,00 M Mehrbreite 10 cm, Regelgraben mit einer Überdeckung der Rohranlage von min. 80 cm in befestigte Oberfläche herstellen (z.B. Pflaster,Asphalt- und Betonoberfläche)
|
||||
|
||||
EndFunc ;==>_add_Mecka_TB
|
||||
|
||||
Func _add_regelgrabenTB($aVertragsPos)
|
||||
If GUICtrlRead($tab_sas_chb_unbe) = $GUI_CHECKED Then
|
||||
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "0,6" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,60" Then
|
||||
$aNumb = "01.03.0001"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "0,8" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,80" Then
|
||||
$aNumb = "01.03.0002"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "1,2" or GUICtrlRead($tab_sas_txt_tb_tief) = "1,20" Then
|
||||
$aNumb = "01.03.0003"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
|
||||
$sText_Bemerkung = GUICtrlRead($tab_sas_txt_scantb)
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb) ;Abschnitt
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "1" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;~ ConsoleWrite($aNumb & "=12315 "& @CRLF)
|
||||
Dim $aPosNr = [$aNumb]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab_sas_chb_be) = $GUI_CHECKED Then
|
||||
|
||||
If GUICtrlRead($tab_sas_chb_kg2) = $GUI_CHECKED Then
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "0,6" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,60" Then
|
||||
$aNumb = "01.03.0004"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "0,8" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,80" Then
|
||||
$aNumb = "01.03.0008"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "1,2" or GUICtrlRead($tab_sas_txt_tb_tief) = "1,20" Then
|
||||
$aNumb = "01.03.0012"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
|
||||
$sText_Bemerkung = GUICtrlRead($tab_sas_txt_scantb)
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb) ;Abschnitt
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "1" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;~ ConsoleWrite($aNumb & "=12315 "& @CRLF)
|
||||
Dim $aPosNr = [$aNumb]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab_sas_chb_kg4) = $GUI_CHECKED Then
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "0,6" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,60" Then
|
||||
$aNumb = "01.03.0005"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "0,8" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,80" Then
|
||||
$aNumb = "01.03.0009"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "1,2" or GUICtrlRead($tab_sas_txt_tb_tief) = "1,20" Then
|
||||
$aNumb = "01.03.0013"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
|
||||
$sText_Bemerkung = GUICtrlRead($tab_sas_txt_scantb)
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb) ;Abschnitt
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "1" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;~ ConsoleWrite($aNumb & "=12315 "& @CRLF)
|
||||
Dim $aPosNr = [$aNumb]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
If GUICtrlRead($tab_sas_chb_kg6) = $GUI_CHECKED Then
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "0,6" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,60" Then
|
||||
$aNumb = "01.03.0006"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "0,8" or GUICtrlRead($tab_sas_txt_tb_tief) = "0,80"Then
|
||||
$aNumb = "01.03.0010"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
If GUICtrlRead($tab_sas_txt_tb_tief) = "1,2" or GUICtrlRead($tab_sas_txt_tb_tief) = "1,20" Then
|
||||
$aNumb = "01.03.0014"
|
||||
ConsoleWrite($aNumb & @CRLF)
|
||||
EndIf
|
||||
|
||||
$sText_Bemerkung = GUICtrlRead($tab_sas_txt_scantb)
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb) ;Abschnitt
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "1" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
|
||||
Dim $aPosNr = [$aNumb]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
EndIf
|
||||
EndFunc ;==>_add_regelgrabenTB
|
||||
|
||||
Func _add_Rohr_4x20($aVertragsPos)
|
||||
$aNumb = "01.04.0001"
|
||||
;~ $iAnzahlrohre = _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_12x10)) + _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_4x20))
|
||||
$sText_Bemerkung = GUICtrlRead($tab_sas_txt_tb_anz_4x20) & "x 4x20 Rohre"
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb) ;Abschnitt
|
||||
$iFaktor = GUICtrlRead($tab_sas_txt_tb_anz_4x20)
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_tb_lang)
|
||||
|
||||
Dim $aPosNr = [$aNumb]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_add_Rohr_4x20
|
||||
|
||||
Func _add_Rohr_12x10($aVertragsPos)
|
||||
$aNumb = "01.04.0002"
|
||||
;~ $iAnzahlrohre = _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_12x10)) + _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_4x20))
|
||||
$sText_Bemerkung = GUICtrlRead($tab_sas_txt_tb_anz_12x10) & "x 12x10 Rohre"
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb) ;Abschnitt
|
||||
$iFaktor = GUICtrlRead($tab_sas_txt_tb_anz_12x10)
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_tb_lang)
|
||||
|
||||
|
||||
Dim $aPosNr = [$aNumb]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_add_Rohr_12x10
|
||||
|
||||
Func _add_HAPos($aVertragsPos, $aNumb)
|
||||
$sText_Bemerkung = GUICtrlRead($tab_sas_txtscanname)
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname) ;Abschnitt
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = ""
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "1" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
|
||||
Dim $aPosNr = [$aNumb]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_add_HAPos
|
||||
|
||||
Func _add_HATBm($aVertragsPos)
|
||||
$sText_Bemerkung = ""
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname) ;GUICtrlRead($tab_zw_rv_txt_abschnitt)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_trmeter)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "1" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.06.0004"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_add_HATBm
|
||||
|
||||
Func _add_HARM($aVertragsPos)
|
||||
If GUICtrlRead($tab_sas_chb_einzug10) = $GUI_CHECKED Then
|
||||
;einzug die neuen Positionen
|
||||
|
||||
$sText_Bemerkung = ""
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname) ;GUICtrlRead($tab_zw_rv_txt_abschnitt)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_trmeter)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_trmeter)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.04.0003"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
|
||||
$sText_Bemerkung = ""
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname) ;GUICtrlRead($tab_zw_rv_txt_abschnitt)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_trmeter)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_trmeter)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.06.0006"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
Else
|
||||
|
||||
$sText_Bemerkung = ""
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname) ;GUICtrlRead($tab_zw_rv_txt_abschnitt)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_trmeter)) + 1 + _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_strqm))
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "1" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.06.0006"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndIf
|
||||
|
||||
EndFunc ;==>_add_HARM
|
||||
|
||||
Func _add_HA_QkR($aVertragsPos)
|
||||
;Pos 19
|
||||
$sText_Bemerkung = "Siehe Bild: "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
|
||||
$iFaktor = 1 * _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_anzqst))
|
||||
$sLeange = "1,0"
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "1,0" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0019"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
|
||||
;Pos20
|
||||
$sText_Bemerkung = "Siehe Bild: "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
|
||||
$iFaktor = GUICtrlRead($tab_sas_txt_anz_qkr)
|
||||
$sLeange = "0,5"
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "0,5" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0020"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_add_HA_QkR
|
||||
|
||||
Func _add_HA_Strq($aVertragsPos)
|
||||
$sText_Bemerkung = "Öffentlicherbereich "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_strqm)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_strqm);GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0008"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
Func _add_HA_Suchgrube($aVertragsPos)
|
||||
$sText_Bemerkung = "Öffentlicherbereich "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = ""
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_anzsuchgr);GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0018"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
; Pos 19 = Anzahl Querungs Stellen
|
||||
; Pos 20 = Anzahl der Kabelquerungen
|
||||
|
||||
Func _add_HA_kabelsm($aVertragsPos)
|
||||
|
||||
$sText_Bemerkung = "Siehe Bild: "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_kabelm)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_kabelm)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0019"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
|
||||
;Pos20
|
||||
$sText_Bemerkung = "Siehe Bild: "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txtscanname)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_kabelm)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_kabelm)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0020"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_add_HA_kabelsm
|
||||
;$tab_sas_kabelm
|
||||
|
||||
;~ Global $Label86 = GUICtrlCreateLabel("Anzahl Q Kabel Rohre:", 698, 120, 120, 17)
|
||||
;~ Global $tab_sas_txt_tbanzqk = GUICtrlCreateInput("", 827, 116, 45, 22)
|
||||
;~ Global $Label87 = GUICtrlCreateLabel("Anzahl Querungs Stellen:", 698, 145, 127, 18)
|
||||
;~ Global $tab_sas_txt_tb_anzqs = GUICtrlCreateInput("", 827, 142, 45, 22)
|
||||
;~ Global $Label88 = GUICtrlCreateLabel("Kabelsichern Meter:", 697, 173, 98, 17)
|
||||
|
||||
Func _add_HA_QkR_tb($aVertragsPos)
|
||||
;Pos 19
|
||||
$sText_Bemerkung = "Siehe Bild: "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)
|
||||
$iFaktor = 1 * _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anzqs))
|
||||
$sLeange = "1,0"
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "1,0" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0019"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
|
||||
;Pos20
|
||||
$sText_Bemerkung = "Siehe Bild: "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)
|
||||
$iFaktor = GUICtrlRead($tab_sas_txt_tbanzqk)
|
||||
$sLeange = "0,5"
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = "0,5" ;GUICtrlRead($tab_tvum_txt_TVumAP_anz_spl)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0020"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_add_HA_QkR_tb
|
||||
|
||||
Func _add_HA_kabelsm_tb($aVertragsPos)
|
||||
|
||||
$sText_Bemerkung = "Siehe Bild: "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_tb_kabelm)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_tb_kabelm)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0019"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
|
||||
;Pos20
|
||||
$sText_Bemerkung = "Siehe Bild: "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = GUICtrlRead($tab_sas_txt_tb_kabelm)
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_tb_kabelm)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0020"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc ;==>_add_HA_kabelsm_tb
|
||||
|
||||
Func _add_TB_Suchgrube($aVertragsPos)
|
||||
$sText_Bemerkung = "Öffentlicherbereich "
|
||||
$sAbschnitt = GUICtrlRead($tab_sas_txt_scantb)
|
||||
$iFaktor = "1,0"
|
||||
$sLeange = ""
|
||||
$sBreite = ""
|
||||
$sTiefe = ""
|
||||
$sMenge = GUICtrlRead($tab_sas_txt_tb_anzsuchgr)
|
||||
;$sText_Bemerkung = ""
|
||||
|
||||
Dim $aPosNr = ["01.03.0018"]
|
||||
_Find_Pos_From_Array($aPosNr, $aVertragsPos)
|
||||
|
||||
$sNotImVer = "nicht im Vertrag|xxxx|1,0|%Leange%|%Breite%|%Tiefe%||%Einheit%|%Kurztext%|%Bemerkung%||0,00|"
|
||||
If $sIPosNr <> "" Then
|
||||
$sINI_String = $sAbschnitt & "|" & $sIPosNr & "|" & _replacePunkt2Koma($iFaktor) & "|" & _replacePunkt2Koma($sLeange) & "|" & _replacePunkt2Koma($sBreite) & "|" & _replacePunkt2Koma($sTiefe) & "|" & $sMenge & "|" & $sIEinheit & "|" & $sIKurztext & "|" & $sText_Bemerkung & "||" & $sIPReis & "|"
|
||||
Else
|
||||
$sINI_String = $sNotImVer
|
||||
EndIf
|
||||
_ArrayAdd($aLVListe, $sINI_String, 0, "|")
|
||||
EndFunc
|
||||
|
||||
Func _feld_back_tb()
|
||||
GUICtrlSetData($tab_sas_txt_scantb, "")
|
||||
GUICtrlSetData($tab_sas_txt_tb_lang, "")
|
||||
GUICtrlSetData($tab_sas_txt_tb_tief, "")
|
||||
GUICtrlSetData($tab_sas_txt_tb_anz_12x10, "")
|
||||
GUICtrlSetData($tab_sas_txt_tb_anz_4x20, "")
|
||||
GUICtrlSetData($tab_sas_txt_tbanzqk, "")
|
||||
GUICtrlSetData($tab_sas_txt_tb_anzqs, "")
|
||||
GUICtrlSetData($tab_sas_txt_tb_kabelm, "")
|
||||
GUICtrlSetData($tab_sas_txt_tb_anzsuchgr, "")
|
||||
GUICtrlSetState($tab_sas_chb_unbe, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab_sas_chb_be, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab_sas_chb_kg2, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab_sas_chb_kg4, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab_sas_chb_kg6, $GUI_UNCHECKED)
|
||||
GUICtrlSetState($tab_sas_chb_einzug10, $GUI_UNCHECKED)
|
||||
EndFunc ;==>_feld_back_tb
|
||||
|
||||
Func _feld_back_ha()
|
||||
GUICtrlSetData($tab_sas_txtscanname, "")
|
||||
GUICtrlSetData($tab_sas_txt_trmeter, "")
|
||||
GUICtrlSetData($tab_sas_txt_kabelm, "")
|
||||
GUICtrlSetData($tab_sas_txt_anz_qkr, "")
|
||||
GUICtrlSetData($tab_sas_txt_anzqst, "")
|
||||
GUICtrlSetData($tab_sas_txt_anzsuchgr, "")
|
||||
GUICtrlSetData($tab_sas_txt_strqm, "")
|
||||
GUICtrlSetState($tab_sas_chb_ha, $GUI_UNCHECKED)
|
||||
EndFunc ;==>_feld_back_ha
|
||||
Reference in New Issue
Block a user