General information
Title:
Error in Build process
I get this error when I do a build:
Compiling g:\foxpro devp\drawingpdm\pdm_class_definitions.prg
EndProc
Error in line 47: Nesting error.
My code:
Procedure option_class
Define Class OptionGroup1 As OptionGroup
Procedure Click
If This.Value = 0 Then
This.Value = 1
EndIf
pdm_var.filter_is_active = .F.
ThisForm.grid1.RecordSource = ""
ThisForm.Text1.Value = ""
ThisForm.myOGx.option_check.Value = 0
pdm_var.current_queue = ThisForm.ActiveControl.Caption
Select AllT(dmdrno) + " " + AllT(dmpchg) As dmdrno, StrTran(StrTran(AllT(dmtitle),Chr(13),""),Chr(10),""), StrTran(StrTran(AllT(progdescp),Chr(13),""),Chr(10),"") As progdescp, modelno, dmjobno, asstoflag, whatdrtype, dmdate, priority, cforpdf, signflag, rec1loc, status2, rejflag From drawlcttable Where AllT(dmlocation) == AllT(pdm_var.current_queue) InTo Cursor myCurrentQueue Order By status2, dmdrno
If AllT(pdm_var.v4typeofuser) <> 'Administrator' And pdm_var.make_assign_flag = .F. Then
Select * From myCurrentQueue Where AllT(asstoflag) == AllT(pdm_var.userid1) Or AllT(asstoflag) == Space(Len(AllT(asstoflag))) Into Cursor myCurrentQueue
EndIf
pdm_var.current_queue_count = Reccount("myCurrentQueue")
ThisForm.Caption = AllT(pdm_var.current_queue)+" Queue - "+AllT(Str(pdm_var.current_queue_count))+" Drawings!"
ThisForm.grid1.RecordSource = "myCurrentQueue"
If pdm_var.filter_is_active = .F. Then
ThisForm.grid1.SetFocus
If pdm_var.queue_record_number > pdm_var.current_queue_count Then
GoTo Top
ELse
Goto pdm_var.queue_record_number
EndIf
Else
ThisForm.grid1.SetFocus
Goto Top
EndIf
ThisForm.color_code_grid
ThisForm.Label2.Visible = .T.
ThisForm.Text1.Visible = .T.
ThisForm.Text1.Enabled = .T.
pdm_var.signoff_grid_position = ThisForm.myOGx.signoff_options.Value
ThisForm.clear_sort_indicator
ThisForm.Text1.SetFocus
EndProc
EndDefine
EndProc
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only