Forum OpenOffice LibreOffice NeoOffice

Code : Tout sélectionner

rem Charge la boite de dialogue pour écrire la TVA dans les celules
Sub ChargerDTVA()
Dim bibli As Object, monDialogue As Object
Dim maTVA As integer, T1, T2 As String

DialogLibraries.LoadLibrary( "FactOOor" )
bibli = DialogLibraries.GetByName("FactOOor")
monDialogue = bibli.GetByName("DTva")
Dlg = CreateUnoDialog(monDialogue)
Dlg.Model.Title = " T.V.A "

T1 = "19,60"
T2 = "5,50"

If maTVA <> 0 then
		Dlg.getControl("NumericField1").setText(maTVA)
	Else
		Dlg.getControl("NumericField1").setText(T1)
	End If		
If maTVA <> 0 then		
		Dlg.getControl("NumericField2").setText(maTVA)
	Else
		Dlg.getControl("NumericField2").setText(T2)
	
	End If
Call EcrireTVA
Dlg.Execute
Dlg.Dispose
End Sub