Hi,

After converting to .net windows forms application the below
code is not working

Initial value - visible is true

this.object.date.visible - Pls let me know do i need to
change any code ?

Here is the full code

Itemchange event

CHOOSE CASE UPPER(this.dataobject)
CASE 'D_RPTS_FILTER_VESSEL'
CHOOSE CASE UPPER(dwo.name)
CASE 'CODE'
/* Date is visible */
this.getchild('date',dwc)
this.object.date[1] = li_null
cb_ok.enabled = FALSE
// Messagebox('Inside','Main')
// this.object.date.visible = True
If this.object.date.visible Then
Messagebox('Inside','test')
//retrieve code and set to first row
//dw_date.Reset()
//dw_date.InsertRow(0)
If LEN(data) > 0 Then
istr_filter.i_unique[1] = long(data)
this.object.date.protect = 0
int ll_return
ll_return = dwc.Retrieve(istr_filter.i_unique[1])
// Messagebox('Date',string(ll_return))
Else
// Messagebox('Inside','Protect')
this.object.date.protect = 1
END IF
End If
CASE 'DATE'
If LEN(data) > 0 then
this.GetChild("date",dwc)
istr_filter.d_date[1] =
dwc.GetItemDateTime(dwc.GetRow(),"view_vessel_detail_hire_date")
cb_ok.enabled = TRUE
Else
cb_ok.enabled = FALSE
End If
END CHOOSE


Thanks
Bala