'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright by Weinmann Holzbausystemtechnik GmbH (c) 2004
'
' Filename:
'
' Description:
'
' Author:		tb32bsr
'
' Date:			20040223
'
' Version:		V0.01
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB MAIN

 DIM dPX(16)

	DIM i

 DIM sIni
 DIM P0_Title

 const MACROTITLE = "Macro"

 DIM T1_Title
 DIM T2_Title
 DIM T3_Title
 DIM T4_Title
 DIM T5_Title
 DIM T6_Title
 DIM F_Title

 'Holen Parameterbezeichnungen abhaengig von der Landessprache
 sIni = "l" + GETACTUALLANGUAGE() + ".ini"

' ==========================================================================

	IF NOT FINDFIRSTSELECTED THEN
		DIM BEAMCOUNTER

		BEAMCOUNTER = GETCOUNTTYPE(CalcType("LS"))
		BEAMCOUNTER = BEAMCOUNTER + GETCOUNTTYPE(CalcType("QS"))
		BEAMCOUNTER = BEAMCOUNTER + GETCOUNTTYPE(CalcType("BT4"))
		BEAMCOUNTER = BEAMCOUNTER + GETCOUNTTYPE(CalcType("BT6"))

		IF BEAMCOUNTER = 1 THEN
			IF GETCOUNTTYPE(CalcType("LS")) = 1 THEN
				FINDFIRSTTYPE(CalcType("LS"))
			END IF
			IF GETCOUNTTYPE(CalcType("QS")) = 1 THEN
				FINDFIRSTTYPE(CalcType("QS"))
			END IF
			IF GETCOUNTTYPE(CalcType("BT4")) = 1 THEN
				FINDFIRSTTYPE(CalcType("BT4"))
			END IF
			IF GETCOUNTTYPE(CalcType("BT6")) = 1 THEN
				FINDFIRSTTYPE(CalcType("BT6"))
			END IF
		ELSE
		  MsgBox GETPRIVATEPROFILESTRING("Fehler", "F1", " ", sIni),vbOkOnly+vbCritical+vbSystemModal,MACROTITLE
		  exit sub
		END IF
	END IF

	IF NOT (ISBEAM OR (ISBEAMPROCESSING AND SELECTPARENTBEAM())) THEN
	  MsgBox GETPRIVATEPROFILESTRING("Fehler", "F2", " ", sIni),vbOkOnly+vbCritical+vbSystemModal,MACROTITLE
	  exit sub
	END IF

' ==========================================================================

 P0_Title = GETPRIVATEPROFILESTRING("GENERAL", "P0", " ", sIni)

	FOR i = LBOUND(dPX) TO UBOUND(dPX)
		dPX(i) = 0.0
	NEXT


 T1_Title = GETPRIVATEPROFILESTRING("Anfang/Ende_orientiert", "T1", " ", sIni)
 T2_Title = GETPRIVATEPROFILESTRING("Anfang/Ende_orientiert", "T2", " ", sIni)


 IF MsgBox(T1_Title & vbCrLf & vbCrLf & T2_Title, vbYesNo + vbQuestion, MACROTITLE) = vbYes THEN
		dPX(16) = 4
	ELSE
		dPX(16) = 3
	END IF


	DO
  T1_Title = GETPRIVATEPROFILESTRING("Ebene", "T1", " ", sIni)
  T2_Title = GETPRIVATEPROFILESTRING("Ebene", "T2", " ", sIni)
  T3_Title = GETPRIVATEPROFILESTRING("Ebene", "T3", " ", sIni)
  T4_Title = GETPRIVATEPROFILESTRING("Ebene", "T4", " ", sIni)
  T5_Title = GETPRIVATEPROFILESTRING("Ebene", "T5", " ", sIni)
  T6_Title = GETPRIVATEPROFILESTRING("Ebene", "T6", " ", sIni)

		dPX(0) = InputBoxI(T1_Title & vbCrLf & vbCrLf & T2_Title & vbCrLf & vbCrLf & T3_Title & vbCrLf & T4_Title & vbCrLf & T5_Title & vbCrLf & T6_Title & vbCrLf & vbCrLf,MACROTITLE,3)

		IF bInputBoxCancel = 1 THEN
			EXIT SUB
		END IF

		IF (1 <= dPX(0)) and (dPX(0) <= 4)  THEN
			EXIT DO
		ELSE
   F_Title = GETPRIVATEPROFILESTRING("Fehler", "F3", " ", sIni)
			MsgBox F_Title,vbOkOnly + vbCritical + vbSystemModal,"Error"
		END IF

	LOOP

 dPX(1) = InputBoxF("P1:",MACROTITLE,0)

	IF bInputBoxCancel = 1 THEN
		EXIT SUB
	END IF

 dPX(2) = InputBoxF("P2:",MACROTITLE,0)

	IF bInputBoxCancel = 1 THEN
		EXIT SUB
	END IF

 'dPX(3) = InputBoxF("P3:",MACROTITLE,0)

	'IF bInputBoxCancel = 1 THEN
	'	EXIT SUB
	'END IF

 dPX(6) = InputBoxF("P6:",MACROTITLE,90)

	IF bInputBoxCancel = 1 THEN
		EXIT SUB
	END IF

	dPX(7) = InputBoxF("P7:",MACROTITLE,90)

	IF bInputBoxCancel = 1 THEN
		EXIT SUB
	END IF

 dPX(8) = InputBoxF("P8:",MACROTITLE,0)

	IF bInputBoxCancel = 1 THEN
		EXIT SUB
	END IF

	dPX(11) = InputBoxF("P11:",MACROTITLE,20)

	IF bInputBoxCancel = 1 THEN
		EXIT SUB
	END IF

 dPX(12) = InputBoxF("P12:",MACROTITLE,0)

	IF bInputBoxCancel = 1 THEN
		EXIT SUB
	END IF

 'msgbox  "dpx(16) " & dpx(16) & " dpx(0) " & dpx(0) & " dpx(1) " & dpx(1) & " dpx(2) " & dpx(2) & "dpx(3) " & dpx(3) & "dpx(4) " & dpx(4) & " dpx(5) " & dpx(5) & " dpx(6) " & dpx(6) & " dpx(7) " & dpx(7) & " dpx(8) " & dpx(8) & " dpx(9) " & dpx(9) & " dpx(10) " & dpx(10) & " dpx(11) " & dpx(11) & " dpx(12) " & dpx(12) & " dpx(13) " & dpx(13) & " dpx(14) " & dpx(14) & " dpx(15) " & dpx(15), vbokonly

 DIM RETVAL
 RETVAL = BTLFUNCTION(dPX(16),13,dPX(0),dPX(1),dPX(2),dPX(3),dPX(4),dPX(5),dPX(6),dPX(7),dPX(8),dPX(9),dPX(10),dPX(11),dPX(12),dPX(13),dPX(14),dPX(15))

	IF NOT RETVAL THEN
		MsgBox GETLASTERROR,vbOkOnly + vbCritical + vbSystemModal,"Error"
	END IF

END SUB

MAIN
