1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
| option explicit
dim PysLstremplacement as object, PysLstcouche as object
Sub PysOpen(PysEvent)
dim PysContainer as object, PysConnection as object
dim PysProp(1) as New com.sun.star.beans.PropertyValue
PysContainer = PysEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments
PysConnection = PysEvent.Source.Model.Parent.ActiveConnection
PysProp(0).Name = "ActiveConnection"
PysProp(0).Value = PysConnection
PysProp(1).Name = "OpenMode"
PysProp(1).Value = "open"
PysContainer.loadComponentFromURL("T_reseau","_blank",0,PysProp())
end sub
sub PysRefresh
ThisComponent.DrawPage.Forms.getByName("Standard").getByName("lbox_emplacement").refresh
end sub
sub PysMajListe
DIM var_id_emplacement as integer
PysLstemplacement = ThisComponent.DrawPage.Forms.getByName("Standard").getByName("lbox_emplacement")
PysLstcouche = ThisComponent.DrawPage.Forms.getByName("MainForm").getByName("Subform").getByName("lbox_couche")
var_id_emplacement = PysLstemplacement.valueItemList(PysLstemplacement.SelectedItems(0))
PysLstcouche.ListSource() = array("SELECT nom_couche, id_couche FROM T_couche WHERE id_emplacement ="& var_id_emplacement )
PysLstemplacement.refresh
end sub
sub PysActualisation
dim ExoTrav
PysMajListe
ExoTrav= ExoRechercheDansTableau(PysLstcouche.ValueItemList, PysLstcouche.boundField.Value)
end sub
Function ExoRechercheDansTableau(ExoTablo, ExoRech)
dim i as integer
ExoRechercheDansTableau = "#N/A"
if ExoTrav <> "#N/A" then
PysLstcouche.SelectedItems = array(ExoTrav)
else
PysLstcouche.SelectedItems = array(0)
end if
for i = lbound(ExoTablo) to ubound(ExoTablo)
if ExoTablo(i)= ExoRech then
ExoRechercheDansTableau = i
exit for
end if
next i
end function |
Partager