I am getting the following error while compiling. I will be greatful if anyone can identify me where is my problem.
Code: Select all
Static Function BackRest()
Local oLbx, nItem := 0, oMeter, nMeter
Local n, nSelected := 0, aSel := {}
//Set Default
SET DELETED OFF
// Replace variable.
lpath := (CurDrive() + ":\" + "Blazepro\Data\") // Static Vari
tpath := Space(25) // Static Vari
lType := Space(1) // Static Vari
lpath := AllTrim(lpath) // Static Vari
DEFINE DIALOG oDlg RESOURCE "BACKREST" of oBacktWnd TITLE "BACKUP / RESTORE FUNCTION" Color "W/W"
REDEFINE SAY oSay ID 1 OF oDlg Color "N/W" Font oFont
REDEFINE SAY oSay ID 2 OF oDlg Color "N/W" Font oFont
REDEFINE SAY oSay ID 3 OF oDlg Color "N/W" Font oFont
REDEFINE SAY oSay ID 4 OF oDlg Color "N/W" Font oFont
REDEFINE SAY oSay ID 5 OF oDlg Color "N/W" Font oFont
REDEFINE SAY oSay ID 6 OF oDlg Color "N/W" Font oFont
REDEFINE SAY oSay ID 7 OF oDlg Color "N/W" Font oFont
REDEFINE SAY oSay ID 8 OF oDlg Color "N/W" Font oFont
REDEFINE SAY oSay ID 9 OF oDlg Color "N/W" Font oFont
REDEFINE GET oGet Var lType ID 10 OF oDlg ;
Valid reqdata(ltype) .And. (ltype ="D" .Or. ltype ="M") ;
Picture "@!" Color "B+/W"
REDEFINE GET oGet Var tPath ID 11 OF oDlg ;
Valid reqdata(tPath) ;
Picture "@!" Color "B+/W"
REDEFINE LISTBOX oLbx VAR nItem ;
ID 0 OF oDlg ;
ITEMS aDataFiles() ;
BITMAPS { "CHECKON", "CHECKOFF" } ;
ON DRAWITEM ( IIF(aScan(oLbx:GetSelItems(),nItem) >0, 1, 2) );
ON CHANGE (nSelected := oLbx:GetSelCount(), oDlg:AevalWhen());
COLOR "N/W"
REDEFINE button ID 13 OF oDLG ;
ACTION (aeval(oLbx:aItems,{|o,n| oLbx:SetSel(n,.t.) }), oLbx:Change())
REDEFINE button ID 14 OF oDLG ;
ACTION (aeval(oLbx:aItems,{|o,n| oLbx:SetSel(n,.f.) }), oLbx:Change());
WHEN nSelected > 0
REDEFINE button ID 15 OF oDLG ;
ACTION BackUp(oLbx, lpath, tpath, lType), oLbx:Change();
WHEN nSelected > 0
REDEFINE button ID 16 OF oDLG //;
//ACTION Restore(oLbx,lpath, tpath), oLbx:Change();
//WHEN nSelected > 0
REDEFINE button ID 12 of oDLG CANCEL;
ACTION oDlg:END()
ACTIVATE DIALOG oDlg ;
VALID oBacktWnd:End() // ***** Geting error *****
oDlg:aControls[ 10 ]:Setfocus(.T.)
Return Nil
Class: 'NIL' has no exported method:
GETMENUITEM
Args:
[ 1] = N 2090312480
I fail to understand from where this "GETMENUITEM" comming and how I can solve it.
With Regards
ARINDAm
