Le portail francophone de la géomatique

Include "Mapbasic.def"
Include "Menu.def"
Include "icons.def"

Declare sub main
Declare sub majname
Declare sub choix1
Declare sub choix2
Declare sub dessin
declare sub majpoints
global liste_exp() as string
global liste_prop() as string
dim i as smallint
dim chemin as integer
dim name1 as string
dim name2 as string
dim nt as integer
dim sel_var as integer
dim prop_var as integer
dim exp_var as integer

Sub main

    create buttonpad "Calcul du projet"  as pushbutton
            icon 149    
            helpmsg "\nCalcul du projet"
            calling dessin
            width 100
            position (12,3)

end sub


--------------------------------------------------
sub dessin

    sel_var=""

sel_var=selectioninfo(sel_info_nrows)
if sel_var=0 then 
note "Aucune parcelle attribution sélectionnée" exit sub
else 
end if

dialog title "VALIDATION"
height 30 position 600,400
control cancelbutton 
control okbutton
calling choix1

end sub

--------------------------------------------------

Sub choix1
Commit Table ATTRIBUTION Interactive
Pack table ATTRIBUTION data
add map layer ATTRIBUTION 
Set Map Layer 1 Display Graphic Zoom (0, 100000) Units "m" Off Editable On Selectable On Global Line (1,2,0)  Global Pen (1,2,0)  Global Brush (2,16777215,16777215)  Global Symbol (35,0,12)  Global Font ("Arial",0,9,0) Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0)  With nom Parallel On Auto Off Overlap Off PartialSegments Off Duplicates On Offset 2 Max Visibility On Nodes Off Arrows Off Centroids Off
set map redraw on

    redim liste_prop(tableinfo (prop,tab_info_nrows))
    fetch first from prop
    for i=1 to tableinfo (prop,tab_info_nrows)
    liste_prop(i)=prop.NO_COMPTE + " / " + prop.nomprop
    fetch next from prop
    next

prop_var=""
dialog
    title "choix du compte"
    position 550,300
    height 100
    width 150
control listbox
    position 10,10
    width 120
    height 60
    id 1
    title from variable liste_prop
    value i into prop_var
control cancelbutton
control okbutton
calling choix2

end sub

---------------------------------------------------------------------------
Sub choix2
Commit Table ATTRIBUTION Interactive
Pack table ATTRIBUTION data
add map layer ATTRIBUTION 
Set Map Layer 1 Display Graphic Zoom (0, 100000) Units "m" Off Editable On Selectable On Global Line (1,2,0)  Global Pen (1,2,0)  Global Brush (2,16777215,16777215)  Global Symbol (35,0,12)  Global Font ("Arial",0,9,0) Label Line None Position Center Font ("Arial",0,9,0) Pen (1,2,0)  With nom Parallel On Auto Off Overlap Off PartialSegments Off Duplicates On Offset 2 Max Visibility On Nodes Off Arrows Off Centroids Off
set map redraw on

    redim liste_exp(tableinfo (exploitants,tab_info_nrows))
    fetch first from exploitants
    for i=1 to tableinfo (exploitants,tab_info_nrows)
    liste_exp(i)=exploitants.NO_COMPTE + " / " + exploitants.NOM_EXPLOITANT
    fetch next from exploitants
    next

exp_var=""
dialog
    title "choix de l'exploitant"
    position 550,300
    height 100
    width 150
control listbox
    position 10,10
    width 120
    height 60
    id 2
    title from variable liste_exp
    value i into exp_var
control cancelbutton
control okbutton
calling majname

end sub

---------------------------------------------------------------------------
sub majname


chemin = TableInfo(ATTRIBUTION, TAB_INFO_nrows)
select * from ATTRIBUTION  where rowid = chemin into selection

name1=liste_prop(prop_var)
Update selection Set nom = name1
name2=liste_exp (exp_var)
Update selection Set exploitant = name2

name1=liste_prop(prop_var)