path: root/wizards/source/importwizard/Main.xba

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Main" script:language="StarBasic">Option Explicit

&apos;  *****  BASIC  *****
&apos; Todo: Problematik der VBA-Makros, die angeblich nicht mit abgespeichert werden koennen.
&apos; Evt. Erkennen der Arbeitsverzeichnisse von MS Office
Public HeaderPreviews(4) as Object
Public ImportDialog as Object
Public ImportDialogArea as Object
Public bSetFonts as Boolean
&apos; If the ProgressPage ist already on Top The Dialog will be immediately closed when this flag is
&apos; set to False
Public bConversionIsRunnig as Boolean

Sub Main()
	BasicLibraries.LoadLibrary(&quot;Tools&quot;)
	bSetFonts = False
	bConversionIsRunnig = False
	If bSetFonts Then
		BasicLibraries.LoadLibrary(&quot;Translater&quot;)
		GetFontNames()
	End If
	sCRLF = CHR(10) &amp; CHR(13)
	oUcb = createUnoService(&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
	If Not bDebugWizard Then
		On Error Goto RTError
	End If
	SOBitmapPath = GetOfficeSubPath(&quot;Template&quot;, &quot;wizard/bitmap&quot;)
	SOWorkPath = GetPathSettings(&quot;Work&quot;, False)
	SOTemplatePath = GetPathSettings(&quot;Template&quot;,False,1)
  	bCancelTask = False
  	bDoKeepApplValues = False
	CurOffice = 0
	ImportDialogArea = LoadDialog(&quot;ImportWizard&quot;,&quot;ImportDialog&quot;)
	ImportDialog = ImportDialogArea.Model
	LoadLanguage()
	FillStep_Welcome()
	RepaintHeaderPreview()
	SetStates()
	ImportDialog.cbGoOn.DefaultButton = True
	ImportDialogArea.Execute()
	ImportDialogArea.Dispose()
	End
	Exit Sub
RTError:
&apos;	Msgbox sRTErrorDesc, 16, sRTErrorHeader
End Sub


Sub SetStates
	With ImportDialog
		.OptSODocuments.State = 1
	    .OptMSDocuments.State = 0
		.TemplateCheckbox.State = 1
		.DocumentPathCheckbox.State = 0
	End With
End Sub


Sub NextStep
Dim iCurStep as Integer
	If Not bDebugWizard Then
		On Error Goto RTError
	End If
	bConversionIsRunnig = False
	iCurStep = ImportDialog.Step
	Select Case iCurStep
		Case 1
			FillStep_InputPaths(0, True)
		Case 2
			If CheckInputPaths Then
				SaveStep_InputPath
				If CurOffice &lt; ApplCount - 1 Then
					CurOffice = CurOffice + 1
					TakeOverPathSettings()
					FillStep_InputPaths(CurOffice, False)
				Else
					FillStep_Summary()
				End If
			End If
		Case 3
			FillStep_Progress()
			Select Case WizardMode
				Case SBMICROSOFTMODE
					Call ConvertAllDocuments(MSFilterName())
				CASE SBXMLMODE
					Call ConvertAllDocuments(XMLFilterName())
			End Select
		Case 4
			CancelTask(True)
	End Select
	ImportDialog.cbGoOn.DefaultButton = True
	RepaintHeaderPreview()	
	Exit Sub
RTError:
	Msgbox sRTErrorDesc, 16, sRTErrorHeader
End Sub


Sub PrevStep
Dim iCurStep as Integer
	If Not bDebugWizard Then
		On Error Goto RTError
	End If
	bConversionIsRunnig = False
	iCurStep = ImportDialog.Step
	Select Case iCurStep
		Case 4
			ImportDialog.cbCancel.Label = sCancelButton
			FillStep_Summary()
		Case 3
			FillStep_InputPaths(Applcount-1, False)
		Case 2
			SaveStep_InputPath
			If CurOffice &gt; 0 Then
				CurOffice = CurOffice - 1
				FillStep_InputPaths(CurOffice, False)
			Else
				FillStep_Welcome()
				bDoKeepApplValues = True
			End If
	End Select
	ImportDialog.cbGoOn.DefaultButton = True
	RepaintHeaderPreview()	
	Exit Sub
RTError:
	Msgbox sRTErrorDesc, 16, sRTErrorHeader
End Sub


Sub CallCancelTask()
	CancelTask(True)
End Sub

Sub CancelTask(bCloseDialog as Boolean)
	If bConversionIsRunnig Then
		If Msgbox(sConvertError1, 36, sConvertError2) = 6 Then
			If bCloseDialog Then
				ImportDialogArea.EndExecute
			End If
			bCancelTask = True
		Else
			bCancelTask = False
			ImportDialog.cbCancel.Enabled = True
		End If
	Else
		ImportDialogArea.EndExecute()	
	End If
End Sub


Sub TemplateDirSearchDialog()
	CallDirSearchDialog(ImportDialog.TemplateImportPath)
End Sub


Sub RepaintHeaderPreview()
Dim Bitmap As Object
Dim CurStep as Integer
Dim sBitmapPath as String
	CurStep = ImportDialog.Step
	If CurStep = 2 Then
		sBitmapPath = SOBitmapPath &amp; WizardMode &amp; &quot;-Import_&quot; &amp; CurStep &amp; &quot;-&quot; &amp; Applications(CurOffice,SBAPPLKEY) + 1 &amp; &quot;.bmp&quot;
	Else
		sBitmapPath = SOBitmapPath &amp; &quot;Import_&quot; &amp; CurStep &amp; &quot;.bmp&quot;
	End If
	ImportDialog.ImportPreview.ImageURL = sBitmapPath
End Sub


Sub ToggleCheckboxes(oEvent as Object)
Dim bMSEnable as Boolean
	bMSEnable = oEvent.Source.Model.Tag = &quot;MS&quot;
	With ImportDialog
		.ChkFirstSOApplication.Enabled = Not bMSEnable
		.ChkSecondSOApplication.Enabled = Not bMSEnable
		.ChkThirdSOApplication.Enabled = Not bMSEnable
		.ChkFourthSOApplication.Enabled = Not bMSEnable
		.ChkFirstMSApplication.Enabled = bMSEnable
		.ChkSecondMSApplication.Enabled = bMSEnable
		.ChkThirdMSApplication.Enabled = bMSEnable
		.WelcomeTextLabel2.Enabled = bMSEnable
	End With
	bDoKeepApplValues = False
	ToggleNextButton()
End Sub


Sub ToggleNextButton()
Dim iCurStep as Integer
Dim bDoEnable as Boolean
Dim i as Integer
	iCurStep = ImportDialog.Step
	Select Case iCurStep
		Case 1
			With ImportDialog
				If .OptMSDocuments.State = 1 Then
          			bDoEnable = .ChkFirstMSApplication.State = 1 Or .ChkSecondMSApplication.State = 1 Or .ChkThirdMSApplication.State = 1
				Else
          			bDoEnable = .ChkFirstSOApplication.State = 1 Or .ChkSecondSOApplication.State = 1 Or .ChkThirdSOApplication.State = 1 Or .ChkFourthSOApplication.State = 1
				End If
			End With
			bDoKeepApplValues = False
		Case 2
			bDoEnable = CheckControlPath(ImportDialog.TemplateCheckbox, ImportDialog.TemplateImportPath, True)
			bDoEnable = CheckControlPath(ImportDialog.DocumentPathCheckbox, ImportDialog.DocumentImportPath, bDoEnable)
	End Select
	ImportDialog.cbGoOn.Enabled = bDoEnable
End Sub


Sub TakeOverPathSettings()					
&apos;Takes over the Pathsettings from the first selected application to the next applications
	If Applications(CurOffice,SBDOCSOURCE) = &quot;&quot; Then
		Applications(CurOffice,SBDOCSOURCE) = Applications(0,SBDOCSOURCE)
		Applications(CurOffice,SBDOCTARGET) = Applications(0,SBDOCTARGET)
		If WizardMode = SBXMLMODE AND Applications(CurOffice,SBAPPLKEY) = 3 Then
			Applications(CurOffice,SBTEMPLSOURCE) = Applications(CurOffice,SBDOCSOURCE)
			Applications(CurOffice,SBTEMPLTARGET) = Applications(CurOffice,SBDOCTARGET)											
		Else
			Applications(CurOffice,SBTEMPLSOURCE) = Applications(0,SBTEMPLSOURCE)
			Applications(CurOffice,SBTEMPLTARGET) = Applications(0,SBTEMPLTARGET)					
		End If
	End If
End Sub
</script:module>