LPARAMETERS vho

LOCAL nacalis
nacalis=nacal_dire+"\maple4_ru_navigator\procedure\help\properties\types\"+;
FILETOSTR(nacal_dire+"\maple4_ru_navigator\procedure\help\properties\help_selected.txt")

LOCAL ddate,tsk
ddate=DATETIME()

tsk="help_000_"+FILETOSTR(nacal_dire+"\maple4_ru_navigator\procedure\help\properties\help_selected.txt")+"_"+ PADL(YEAR(ddate),4,"0")+""+PADL( MONTH(ddate) ,2,"0")+""+PADL( DAY(ddate) ,2,"0")+"_"+;
	+PADL( HOUR(ddate) ,2,"0")+""+;
	+PADL( MINUTE(ddate) ,2,"0")+""+;
	+PADL( SEC(ddate) ,2,"0")+".zip"



LOCAL stroka_zip
stroka_zip="RUN 7za.exe a -tzip -ssw -mx7 "+nacal_dire+"\maple4_ru_navigator\procedure\help\"+;
tsk+" "+nacalis
&stroka_zip

MESSAGEBOX(IIF(pub_lan="RUS","Пожалуйста, пришлите следующий файл: ","Please, send me file:")+;
CHR(13)+tsk+CHR(13)+;
IIF(pub_lan="RUS","который находится в папке:","in folder:")+CHR(13)+;
nacal_dire+"\maple4_ru_navigator\procedure\help\"+CHR(13)+;
IIF(pub_lan="RUS","на email : maple4@maple4.ru","to email : maple4@maple4.ru")+CHR(13)+;
IIF(pub_lan="RUS",[с темой в письме: "for Maple4"],[with Subject: "for Maple4"]);
,0+64,"Please, send me file")


RETURN ""
