REPORT FORM .\reports1\r_86 TO PRINTER  PROMPT preview

FUNCTION FindFile
LPARAMETERS tcFileName
*Ищем файл по всем каталогам, указанным в set path и set default
*PATH=D:\Projects\VFP\Common\SPR\;d:\Projects\VFP\Common\PROGS\;d:\Projects\VFP\Common\LIBS\;.\Data\;.\Forms\;.\Class\;.\Progs\;.\Menus\;.\Libs\;.\Text\;.\Help\;.\Reports\;.\GRAPHICS\;"C:\Program Files (x86)\Microsoft Visual FoxPro 9\"
LOCAL i,lnVolDir AS INTEGER
LOCAL lcFilePath AS STRING
LOCAL ARRAY laDir[1]

IF EMPTY(m.tcFileName) OR TYPE("m.tcFileName")#'C' &&не надо всякую фигню передавать!
 RETURN ''
ENDIF

IF TYPE("cAppDir")#'C'
 m.cAppDir=SYS(5)+CURDIR()
ENDIF

m.tcFileName=ALLTRIM(m.tcFileName)
m.lcFilePath=SET("Path")+';'+SET("Default") &&возьмём все пути для поиска
m.lnVolDir=ALINES(laDir,m.lcFilePath,1+4,';')

m.lcFilePath=''
IF EMPTY(JUSTEXT(m.tcFileName))
 m.tcFileName=AddExt(m.tcFileName,"dbf") &&по умолчанию ищем dbf!
ENDIF

IF !FILE(m.tcFileName) && Ну а вдруг?
 m.tcFileName=JUSTFNAME(m.tcFileName)
 FOR i=1 TO m.lnVolDir
  IF LEFT(laDir[i],2)==".\" &&относительный путь
   laDir[i]=m.cAppDir+SUBSTR(laDir[i],3)
  ENDIF
  m.lcFilePath=FULLPATH(ADDBS(laDir[i])+m.tcFileName)
  IF FILE(m.lcFilePath)
   EXIT
  ELSE
   m.lcFilePath=''
  ENDIF
 NEXT
ELSE
 m.lcFilePath=FULLPATH(m.tcFileName)
ENDIF

RETURN m.lcFilePath

FUNCTION SetPath()
    LOCAL lcSys16, lcProgram

    lcSys16 = SYS(16)
    lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)

    CD LEFT(lcProgram, RAT("\", lcProgram))
    *-- Если стартовали из MAIN.PRG, то переходим в головную директорию
    IF (RIGHT(lcProgram, 3) == "FXP") OR (RIGHT(lcProgram, 3) == "PRG")
        CD ..
    ENDIF
    ** пути к папкам проекта
    SET PATH      TO ;DATA;FORMS;CLASS;MENUS;OTHER;PICRURES;PROGRAMS;REPORTS;REPORTS1;XLS;TEXT;INCLUDE;TEMP;UTIL;STRUCT;ARXIV;DATA0;GIS
    ** пути к библиотекам классов
    SET CLASSLIB  TO BASE, Cmd, WORK
    ** пути к процедурным файлам
    SET PROCEDURE TO;
        Utils,         ;
        ONERROR,     ;
        PERESCH,     ;
        appFunc,    ;
        FuncWork,     ;
        ProcWork,     ;
        CPZero,     ;
        FTP,         ;
        PeniNew2,     ;
        peninew3,     ;
        peninew4,     ;
        print_pd,   ;
        print_pd1,  ;
        print_qr,    ;
        print_kvit, ;
        recalc,     ;
        LibOOo,     ;
        avtopok,    ;
        SetTuning,  ;
        global_per,    ;
        getdativ,    ;
        kkm_atol,    ;
        kkm_atol_5,    ;
        kkm_shtrih,    ;
        kol_jil,    ;
        proc_edo
        
    global_per()
ENDFUNC

*этот код пишу в поле и нажимаю выполнить
CREATE CURSOR c1(nus c(10),npu c(10),norma c(10), kol c(10),cena c(10),sumnor c(10))
INSERT INTO c1 value('хвс','хвс','6.47','1','5','6.47*1*5')
REPORT FORM 'c:\1\r_test' TO PRINTER  PROMPT preview

*на кнопке выполнения этот код
LOCAL p1
p1 = ALLTRIM(Thisform.edit1.Value)
lErr=.F.
TRY
    EXECSCRIPT(p1)
CATCH
    lErr=.T.
ENDTRY

IF lErr
    MESSAGEBOX('Ошибка')
ELSE
    MESSAGEBOX('Выполнено!')
ENDIF 
*Thisform.edit1.Value = SPACE(100)

SET REPORTBEHAVIOR 80

MyProg.exe -C"C:\MyDir\Config.fpw"