$PBExportHeader$w_planning_test.srw
forward
global type w_planning_test from window
end type
type em_2 from editmask within w_planning_test
end type
type em_1 from editmask within w_planning_test
end type
type cb_1 from commandbutton within w_planning_test
end type
type st_2 from statictext within w_planning_test
end type
type st_1 from statictext within w_planning_test
end type
type dw_1 from datawindow within w_planning_test
end type
end forward

global type w_planning_test from window
integer width = 6546
integer height = 2136
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
em_2 em_2
em_1 em_1
cb_1 cb_1
st_2 st_2
st_1 st_1
dw_1 dw_1
end type
global w_planning_test w_planning_test

type variables
date id_debut, id_fin
end variables

on w_planning_test.create
this.em_2=create em_2
this.em_1=create em_1
this.cb_1=create cb_1
this.st_2=create st_2
this.st_1=create st_1
this.dw_1=create dw_1
this.Control[]={this.em_2,&
this.em_1,&
this.cb_1,&
this.st_2,&
this.st_1,&
this.dw_1}
end on

on w_planning_test.destroy
destroy(this.em_2)
destroy(this.em_1)
destroy(this.cb_1)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.dw_1)
end on

event open;dw_1.settransobject(sqlca)
end event

type em_2 from editmask within w_planning_test
integer x = 800
integer y = 84
integer width = 402
integer height = 112
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "dd/mm/yyyy"
boolean dropdowncalendar = true
end type

event modified;id_fin= date(this.text)
id_debut = date(em_1.text)
end event

type em_1 from editmask within w_planning_test
integer x = 261
integer y = 84
integer width = 402
integer height = 112
integer taborder = 10
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "dd/mm/yyyy"
boolean dropdowncalendar = true
end type

event modified;id_debut = date(this.text)
id_fin = date(em_2.text)
end event

type cb_1 from commandbutton within w_planning_test
integer x = 1326
integer y = 84
integer width = 402
integer height = 112
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "OK"
boolean default = true
end type

event clicked;messagebox("ok","ok")
messagebox("date deb",string(id_debut))
messagebox("date fin", string(id_fin))
dw_1.retrieve(id_debut,id_fin)

date rel_date
string s_title_date
integer i_cpt_date
i_cpt_date = 1

rel_date = id_debut

do while rel_date <= id_fin
  s_title_date = "t_" + string(i_cpt_date) + ".text='" + string(day(rel_date)) +"'"
  //messagebox("rel date",s_title_date)
  dw_1.modify(s_title_date)
  rel_date = relativedate(rel_date,1)
  i_cpt_date = i_cpt_date + 1
  
loop
end event

type st_2 from statictext within w_planning_test
integer x = 690
integer y = 108
integer width = 110
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 8388608
long backcolor = 67108864
string text = "au"
boolean focusrectangle = false
end type

type st_1 from statictext within w_planning_test
integer x = 105
integer y = 108
integer width = 101
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 8388608
long backcolor = 67108864
string text = "du"
long bordercolor = 67108864
boolean focusrectangle = false
end type

type dw_1 from datawindow within w_planning_test
integer x = 14
integer y = 208
integer width = 6473
integer height = 1812
integer taborder = 40
string title = "none"
string dataobject = "dw_planning_test"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

id_debut = date(em_1.text)
id_fin = date(em_2.text)