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

1320 lines
52 KiB
AutoIt
Raw Blame History

Func _add_nett_achberg_HA()
Global $aVertragsPos = _read_VertragsPositionen2Array()
;Kabelkraben Trassenband, SAnd
If GUICtrlRead($tab_neff_ach_chb_ha) = $GUI_CHECKED Then
_Pos_Kabelgraben()
EndIf
;kopfloch Trasse
If GUICtrlRead($tab_neff_ach_chb_kopfl_tr) = $GUI_CHECKED Then
_HA_Kopfloch_Trasse()
EndIf
;kofploch Hausanschluss
If GUICtrlRead($tab_neff_ach_chb_kopfl_ha) = $GUI_CHECKED Then
_HA_Kopfloch_Gebaeude()
EndIf
;Leitungen unterfahren
_HA_ltg_unterfahren()
;Leitungen sichern längs
_HA_ltg_sichern_l()
If GUICtrlRead($tab_neff_ach_chb_ha) = $GUI_CHECKED Or GUICtrlRead($tab_neff_ach_chb_kopfl_tr) = $GUI_CHECKED Or GUICtrlRead($tab_neff_ach_chb_kopfl_ha) = $GUI_CHECKED Then
;Pipe Rohr alle Kabelkrabenlängen +1m im Haus
_HA_Pipe()
EndIf
_ha_dop10()
; Sonstgies (Koordination, kernborhung MD1)
_HA_Sonstiges()
_ArrayDelete($aLVListe, 0)
$iCount = -1
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
Global $aLVListe[1][13]
EndFunc ;==>_add_nett_achberg_HA
Func _add_nett_achberg_TB()
Global $aVertragsPos = _read_VertragsPositionen2Array()
;kabelgraben
_TB_Kabelgraben()
;Leitungen unterfahren
_TB_ltg_unterfahren()
;Leitungen sichern längs
_TB_ltg_sichern_l()
;kofploch Trasse
If GUICtrlRead($tab_neff_ach_tb_chb_kopfl_tr) = $GUI_CHECKED Then
_TB_Kopfloch_Trasse()
EndIf
_tb_dop10()
_tb_dop20()
_ArrayDelete($aLVListe, 0)
$iCount = -1
_GUIListViewEx_InsertSpec($iLV_Aufma_Index, $iCount, $aLVListe)
Global $aLVListe[1][13]
EndFunc ;==>_add_nett_achberg_TB
Func _feld_back_neff_HA()
GUICtrlSetData($tab_neff_ach_txt_scanname, "")
GUICtrlSetData($tab_neff_ach_txt_anz_st_kabel, "")
GUICtrlSetData($tab_neff_ach_txt_anz_st_verso, "")
GUICtrlSetData($tab_neff_ach_txt_anz_st_abw, "")
GUICtrlSetData($tab_neff_ach_txt_m_kabel, "")
GUICtrlSetData($tab_neff_ach_txt_m_verso, "")
GUICtrlSetData($tab_neff_ach_txt_m_abw, "")
GUICtrlSetData($tab_neff_ach_txt_kg_gr_m, "")
GUICtrlSetData($tab_neff_ach_txt_kg_as_m, "")
GUICtrlSetData($tab_neff_ach_txt_kg_Pf_m, "")
GUICtrlSetData($tab_ach_ha_txt_anz_dop10, "")
GUICtrlSetState($tab_neff_ach_chb_ha, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_kg_Gruen, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_kg_as, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_kg_Pflaster, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_kopfl_ha, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_ha_dop10, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_kopfl_tr, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_unt_kabel, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_unt_Vers, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_unt_Abwas, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_sichern_l_KabRohr, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_sichern_l_Vers, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_sichern_l_Abwas, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_HA_koor, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_Kernb, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_MD1, $GUI_UNCHECKED)
EndFunc ;==>_feld_back_neff_HA
Func _feld_back_neff_TB()
GUICtrlSetData($tab_neff_ach_tb_txt_scanname, "")
GUICtrlSetData($tab_neff_ach_tb_txt_kg_gr_m, "")
GUICtrlSetData($tab_neff_ach_tb_txt_kg_as_m, "")
GUICtrlSetData($tab_neff_ach_tb_txt_kg_pf_m, "")
GUICtrlSetData($tab_neff_ach_tb_txt_anz_st_kabel, "")
GUICtrlSetData($tab_neff_ach_tb_txt_anz_st_verso, "")
GUICtrlSetData($tab_neff_ach_tb_txt_anz_st_abw, "")
GUICtrlSetData($tab_neff_ach_tb_txt_kg_as_b, "")
GUICtrlSetData($tab_neff_ach_tb_txt_kg_pf_b, "")
GUICtrlSetData($tab_neff_ach_tb_txt_m_kabel, "")
GUICtrlSetData($tab_neff_ach_tb_txt_m_verso, "")
GUICtrlSetData($tab_neff_ach_tb_txt_m_abw, "")
GUICtrlSetData($tab_ach_tb_txt_tb_anz_dop10, "")
GUICtrlSetData($tab_ach_tb_txt_tb_anz_dop20, "")
GUICtrlSetState($tab_neff_ach_tb_chb_kg_Gruen, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_kg_as, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_kg_pfl, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_kopfl_tr, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_tb_dop10, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_chb_tb_dop20, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_unt_kabel, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_unt_Vers, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_unt_Abwas, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_ltgT070_090, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_ltgT090_100, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_sichern_l_KabRohr, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_sichern_l_Vers, $GUI_UNCHECKED)
GUICtrlSetState($tab_neff_ach_tb_chb_sichern_l_Abwas, $GUI_UNCHECKED)
;~ GUICtrlSetState($tab_neff_ach_chb_Kernb, $GUI_UNCHECKED)
;~ GUICtrlSetState($tab_neff_ach_chb_MD1, $GUI_UNCHECKED)
EndFunc ;==>_feld_back_neff_TB
Func _TB_Leitungsgraben($sLeange)
$aNumb = "1.3.01.0390"
If GUICtrlRead($tab_neff_ach_tb_chb_ltgT070_090) = $GUI_CHECKED Then
$aNumb = "1.3.01.0390"
EndIf
If GUICtrlRead($tab_neff_ach_tb_chb_ltgT090_100) = $GUI_CHECKED Then
$aNumb = "1.3.02.0060"
EndIf
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
;~ $sLeange = $sLeange
$sBreite = ""
$sTiefe = ""
$sMenge = $sLeange
;~ 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, "|")
EndFunc ;==>_TB_Leitungsgraben
func _ha_dop10()
If GUICtrlRead($tab_neff_ach_chb_ha_dop10) = $GUI_CHECKED Then
$aNumb = "1.4.01.0180"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_ach_ha_txt_anz_dop10)
;~ 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
EndFunc
func _tb_dop10()
If GUICtrlRead($tab_neff_ach_chb_tb_dop10) = $GUI_CHECKED Then
$aNumb = "1.4.01.0180"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_ach_tb_txt_tb_anz_dop10)
;~ 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
EndFunc
func _tb_dop20()
If GUICtrlRead($tab_neff_ach_chb_tb_dop20) = $GUI_CHECKED Then
$aNumb = "1.4.01.0100"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_ach_tb_txt_tb_anz_dop20)
;~ 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
EndFunc
Func _TB_Kabelgraben()
;Grünfläche
If GUICtrlRead($tab_neff_ach_tb_chb_kg_Gruen) = $GUI_CHECKED Then
; oberboden Abtragen
$aNumb = "1.3.02.0010"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_kg_gr_m)
$sBreite = GUICtrlRead($tab_neff_ach_tb_txt_kg_guen_b)
$sTiefe = ""
$sMenge = ""
;~ 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, "|")
_TB_Leitungsgraben($slaenge)
;trassenband
_TB_Trassenband($sLeange)
;sand
_TB_Sand($sLeange)
;rohe
If GUICtrlRead($tab_ach_tb_txt_tb_anz_4x20) <> "" Then
_add_tb_Rohr_4x20($sLeange)
EndIf
If GUICtrlRead($tab_ach_tb_txt_tb_anz_12x10) <> "" Then
_add_tb_Rohr_12x10($sLeange)
EndIf
EndIf
;Pflaster
If GUICtrlRead($tab_neff_ach_tb_chb_kg_pfl) = $GUI_CHECKED Then
; Pflaster Decke aufnehmen
$aNumb = "1.3.01.0200"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_kg_gr_m)
$sBreite = GUICtrlRead($tab_neff_ach_tb_txt_kg_guen_b)
$sTiefe = ""
$sMenge = ""
;~ 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, "|")
$aNumb = "1.3.01.0210"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_kg_pf_m)
$sBreite = GUICtrlRead($tab_neff_ach_tb_txt_kg_pf_b)
$sTiefe = ""
$sMenge = ""
;~ 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, "|")
_TB_Leitungsgraben($slaenge)
;trassenband
_TB_Trassenband($sLeange)
;sand
_TB_Sand($sLeange)
;rohe
If GUICtrlRead($tab_ach_tb_txt_tb_anz_4x20) <> "" Then
_add_tb_Rohr_4x20($sLeange)
EndIf
If GUICtrlRead($tab_ach_tb_txt_tb_anz_12x10) <> "" Then
_add_tb_Rohr_12x10($sLeange)
EndIf
EndIf
;Asphalt
If GUICtrlRead($tab_neff_ach_tb_chb_kg_as) = $GUI_CHECKED Then
;asphalt schneiden
$aNumb = "1.3.01.0010"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "2,0"
$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_kg_as_m)
$sBreite = ""
$sTiefe = ""
$sMenge = ""
;~ 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, "|")
;asphalt aufnehmen
$aNumb = "1.3.01.0020"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_kg_as_m)
$sBreite = GUICtrlRead($tab_neff_ach_tb_txt_kg_as_b)
$sTiefe = ""
$sMenge = ""
;~ 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, "|")
_TB_Leitungsgraben($sLeange)
;trassenband
_TB_Trassenband($sLeange)
;sand
_TB_Sand($sLeange)
;rohe
If GUICtrlRead($tab_ach_tb_txt_tb_anz_4x20) <> "" Then
_add_tb_Rohr_4x20($sLeange)
EndIf
If GUICtrlRead($tab_ach_tb_txt_tb_anz_12x10) <> "" Then
_add_tb_Rohr_12x10($sLeange)
EndIf
EndIf
EndFunc ;==>_TB_Kabelgraben
Func _add_tb_Rohr_4x20($sLeange)
$aNumb = "1.4.01.0080"
;~ $iAnzahlrohre = _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_12x10)) + _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_4x20))
$sText_Bemerkung = GUICtrlRead($tab_ach_tb_txt_tb_anz_4x20) & "x 4x20 Rohre"
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = GUICtrlRead($tab_ach_tb_txt_tb_anz_4x20)
;~ $sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
$sBreite = ""
$sTiefe = ""
$sMenge = $sLeange
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_tb_Rohr_12x10($sLeange)
$aNumb = "1.4.01.0160"
;~ $iAnzahlrohre = _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_12x10)) + _replaceKom2Punkt(GUICtrlRead($tab_sas_txt_tb_anz_4x20))
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname) & "x 12x10 Rohre"
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = GUICtrlRead($tab_ach_tb_txt_tb_anz_12x10)
;~ $sLeange = GUICtrlRead($tab_sas_txt_tb_lang)
$sBreite = ""
$sTiefe = ""
$sMenge = $sLeange
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 _HA_ltg_sichern_l()
;Kabel + Rohr
If GUICtrlRead($tab_neff_ach_chb_sichern_l_KabRohr) = $GUI_CHECKED Then
; sicher KAbel Querung
$aNumb = "1.3.03.0050"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_txt_m_kabel)
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_neff_ach_txt_m_kabel)
;~ 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
;Versorgung
If GUICtrlRead($tab_neff_ach_chb_sichern_l_Vers) = $GUI_CHECKED Then
; sicher KAbel Querung
$aNumb = "1.3.03.0050"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_txt_m_verso)
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_neff_ach_txt_m_verso)
;~ 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
;Abwasser
If GUICtrlRead($tab_neff_ach_chb_sichern_l_Abwas) = $GUI_CHECKED Then
; sicher KAbel Querung
$aNumb = "1.3.03.0050"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_txt_m_abw)
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_neff_ach_txt_m_abw)
;~ 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
EndFunc ;==>_HA_ltg_sichern_l
Func _TB_ltg_sichern_l()
;Kabel + Rohr
If GUICtrlRead($tab_neff_ach_tb_chb_sichern_l_KabRohr) = $GUI_CHECKED Then
; sicher KAbel Querung
$aNumb = "1.3.03.0050"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_m_kabel)
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_neff_ach_tb_txt_m_kabel)
;~ 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
;Versorgung
If GUICtrlRead($tab_neff_ach_tb_chb_sichern_l_Vers) = $GUI_CHECKED Then
; sicher KAbel Querung
$aNumb = "1.3.03.0050"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_m_verso)
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_neff_ach_tb_txt_m_verso)
;~ 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
;Abwasser
If GUICtrlRead($tab_neff_ach_tb_chb_sichern_l_Abwas) = $GUI_CHECKED Then
; sicher KAbel Querung
$aNumb = "1.3.03.0050"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_tb_txt_m_abw)
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_neff_ach_tb_txt_m_abw)
;~ 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
EndFunc ;==>_TB_ltg_sichern_l
Func _TB_ltg_unterfahren()
;unterquerung Kabel + Rohr
If GUICtrlRead($tab_neff_ach_tb_chb_unt_kabel) = $GUI_CHECKED Then
; sicher KAbel Querung
$aNumb = "1.3.03.0060"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_kabel)) * 1
$sLeange = "1,0"
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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, "|")
;unterfahren kabel
$aNumb = "1.3.03.0070"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_kabel)) * 1
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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
;unterquerung Versorgugnsleitungen
If GUICtrlRead($tab_neff_ach_tb_chb_unt_Vers) = $GUI_CHECKED Then
; sicher Versorgung Querung
$aNumb = "2.3.03.0070"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_verso)) * 1
$sLeange = "1,0"
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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, "|")
;unterfahren Versorung
$aNumb = "1.3.03.0100"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_verso)) * 1
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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
;unterquerungen Abwasserleitungen
If GUICtrlRead($tab_neff_ach_tb_chb_unt_Abwas) = $GUI_CHECKED Then
; sicher ABwasser Querung
$aNumb = "1.3.03.0100"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_abw)) * 1
$sLeange = "1,0"
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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, "|")
;unterfahren ABwasser
$aNumb = "1.3.03.0130"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_tb_txt_anz_st_abw)) * 1
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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
EndFunc ;==>_TB_ltg_unterfahren
Func _HA_ltg_unterfahren()
;unterquerung Kabel + Rohr
If GUICtrlRead($tab_neff_ach_chb_unt_kabel) = $GUI_CHECKED Then
; sicher KAbel Querung
$aNumb = "1.3.03.0060"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_kabel)) * 1
$sLeange = "1,0"
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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, "|")
;unterfahren kabel
$aNumb = "1.3.03.0070"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_kabel)) * 1
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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
;unterquerung Versorgugnsleitungen
If GUICtrlRead($tab_neff_ach_chb_unt_Vers) = $GUI_CHECKED Then
; sicher Versorgung Querung
$aNumb = "2.3.03.0070"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_verso)) * 1
$sLeange = "1,0"
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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, "|")
;unterfahren Versorung
$aNumb = "1.3.03.0100"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_verso)) * 1
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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
;unterquerungen Abwasserleitungen
If GUICtrlRead($tab_neff_ach_chb_unt_Abwas) = $GUI_CHECKED Then
; sicher ABwasser Querung
$aNumb = "2.3.03.0100"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_abw)) * 1
$sLeange = "1,0"
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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, "|")
;unterfahren ABwasser
$aNumb = "1.3.03.0130"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_anz_st_abw)) * 1
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1,0"
;~ 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
EndFunc ;==>_HA_ltg_unterfahren
Func _Pos_Kabelgraben()
;Grünfläche
If GUICtrlRead($tab_neff_ach_chb_kg_Gruen) = $GUI_CHECKED Then
$aNumb = "1.3.02.0220"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_txt_kg_gr_m)
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_neff_ach_txt_kg_gr_m)
;~ 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, "|")
;trassenband
_HA_Trassenband($sLeange)
;sand
_HA_Sand($sLeange)
EndIf
;Pflaster
If GUICtrlRead($tab_neff_ach_chb_kg_Pflaster) = $GUI_CHECKED Then
$aNumb = "1.3.01.0470"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_txt_kg_Pf_m)
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_neff_ach_txt_kg_Pf_m)
;~ 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, "|")
;trassenband
_HA_Trassenband($sLeange)
;sand
_HA_Sand($sLeange)
EndIf
;Asphalt
If GUICtrlRead($tab_neff_ach_chb_kg_as) = $GUI_CHECKED Then
$aNumb = "1.3.01.0460"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = GUICtrlRead($tab_neff_ach_txt_kg_as_m)
$sBreite = ""
$sTiefe = ""
$sMenge = GUICtrlRead($tab_neff_ach_txt_kg_as_m)
;~ 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, "|")
;trassenband
_HA_Trassenband($sLeange)
;sand
_HA_Sand($sLeange)
EndIf
EndFunc ;==>_Pos_Kabelgraben
Func _HA_Trassenband($iMeter)
$aNumb = "1.2.02.0010"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = $iMeter
$sBreite = ""
$sTiefe = ""
$sMenge = $iMeter
;~ 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, "|")
EndFunc ;==>_HA_Trassenband
Func _HA_Sand($iMeter)
$aNumb = "1.3.01.0400"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = $iMeter
$sBreite = ""
$sTiefe = ""
$sMenge = $iMeter
;~ 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, "|")
EndFunc ;==>_HA_Sand
Func _TB_Trassenband($iMeter)
$aNumb = "1.2.02.0010"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = $iMeter
$sBreite = ""
$sTiefe = ""
$sMenge = $iMeter
;~ 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, "|")
EndFunc ;==>_TB_Trassenband
Func _TB_Sand($iMeter)
$aNumb = "1.3.01.0400"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = $iMeter
$sBreite = ""
$sTiefe = ""
$sMenge = $iMeter
;~ 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, "|")
EndFunc ;==>_TB_Sand
Func _HA_Kopfloch_Gebaeude()
If GUICtrlRead($tab_neff_ach_chb_kopfl_ha) = $GUI_CHECKED Then
$aNumb = "1.3.03.0040"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1"
;~ 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, "|")
;Endkappen
_HA_Endkappen()
EndIf
EndFunc ;==>_HA_Kopfloch_Gebaeude
Func _HA_Kopfloch_Trasse()
If GUICtrlRead($tab_neff_ach_chb_kopfl_tr) = $GUI_CHECKED Then
$aNumb = "1.3.03.0030"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1"
;~ 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, "|")
;Endkappen
_HA_Endkappen()
EndIf
EndFunc ;==>_HA_Kopfloch_Trasse
Func _HA_Endkappen()
$aNumb = "1.4.01.0190"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$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, "|")
EndFunc ;==>_HA_Endkappen
Func _TB_Kopfloch_Trasse()
If GUICtrlRead($tab_neff_ach_tb_chb_kopfl_tr) = $GUI_CHECKED Then
$aNumb = "1.3.03.0030"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1"
;~ 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, "|")
;Endkappen
_TB_Endkappen()
EndIf
EndFunc ;==>_TB_Kopfloch_Trasse
Func _TB_Endkappen()
$aNumb = "1.4.01.0190"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_tb_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_tb_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$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, "|")
EndFunc ;==>_TB_Endkappen
Func _HA_Pipe()
$iMeter_gr = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_kg_gr_m))
$iMeter_as = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_kg_as_m))
$iMeter_pf = _replaceKom2Punkt(GUICtrlRead($tab_neff_ach_txt_kg_Pf_m))
$iGesamtMeter = $iMeter_gr + $iMeter_as + $iMeter_pf + 1
$aNumb = "1.4.01.0220"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = $iGesamtMeter
$sBreite = ""
$sTiefe = ""
$sMenge = $iGesamtMeter
;~ 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, "|")
EndFunc ;==>_HA_Pipe
Func _HA_Sonstiges()
If GUICtrlRead($tab_neff_ach_chb_HA_koor) = $GUI_CHECKED Then
$aNumb = "1.4.03.0010"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1"
;~ 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_neff_ach_chb_Kernb) = $GUI_CHECKED Then
$aNumb = "1.4.03.0020"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1"
;~ 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_neff_ach_chb_MD1) = $GUI_CHECKED Then
$aNumb = "1.4.03.0030"
$sText_Bemerkung = GUICtrlRead($tab_neff_ach_txt_scanname)
$sAbschnitt = GUICtrlRead($tab_neff_ach_txt_scanname) ;Abschnitt
$iFaktor = "1,0"
$sLeange = ""
$sBreite = ""
$sTiefe = ""
$sMenge = "1"
;~ 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
EndFunc ;==>_HA_Sonstiges
Reference in New Issue View Git Blame Copy Permalink