Форум

function main()
local la, ans:=.t.
local aa, n:=0, i, ano

altd()
try
    la:=lanother
catch
    la:=.f.
end
if la
    aa:={' 80 символов ', ' Импорт из файла Excel ', ' Импорт из заказа CSV ', ' Чужой каталог ', ' X5 ', ' Стандартный ввод (Esc) '}
    ano:={(globaltask=='03'), .t., (globaltask=='05'), .t., (globaltask=='03'), .t.}
    aeval(aa,{|x|n:=max(n,len(x))})
    i:=BoxMenu({'Форма ввода строк', '(цена: '+alltrim(acodecen[ascan(acodecen,{|x|x[1]=pcodecen}),2])+')'}, ;
                (maxrow()-len(aa))/2-2,(maxcol()-n)/2,aa,ano,,,'gr+/b*,w+/n,,,w/b*','gr+/b*')
    do case
    case i=1
        ans:=.f.
        hfileeval('u_sclad_80_out.hrb')
    case i=2
        ans:=.f.
        if globaltask=='03'
            hfileeval('u_imp_nakl_xls.hrb')
        elseif globaltask=='05'
            hfileeval('. .\sclad\u_imp_nakl_xls.hrb')
        endif
    case i=3
        ans:=.f.
        hfileeval('u_my_catalog_zak.hrb')
    case i=4
        ans:=.f.
        if globaltask=='03'
            hfileeval('u_another_doc.hrb')
        elseif globaltask=='05'
            hfileeval('u_another_zak.hrb')
        endif
    case i=5
        ans:=.f.
        hfileeval('u_x5_vvod.hrb')
    endcase
endif
return ans

aadd(aworkvars,{upper(mkart->grup+mkart->nnum+space(5)+csclad), mlabel->ed, nscl, ncena})

function openOOCalc(lblank, lzak)
local cfile, ctitle:=hb_oemtoansi(iif(lzak,'Файл заказа поставщику из БЭСТа','Файл прайс-листа поставщика'))
local afilter:= {{hb_oemtoansi('Файлы Excel'),'*.xls'}, {hb_oemtoansi('Файлы OOCalc'),'*.ods'}, {hb_oemtoansi('Все файлы'),'*.*'}}
local cpath:=space(200)
local oapp, odesk, odoc
if lblank
    cfile:='private:factory/scalc'
else
    if lzak
        mysay('...поиск файла заказа из БЭСТа...',5,'r+/n*')
    else
        mysay('...поиск прайс-листа поставщика...',7,'r+/n*')
    endif
    cfile:=getopenfilename(0, @cpath, ctitle, afilter, 1+4+8+2048+4096+65536+524288, '') 
    if empty(cfile)
        mysay('',iif(lzak,5,7))
        return nil
    endif
    if !file(cfile)
        sayandwait({'Сбой программы!','(файл: "'+hb_ansitooem(cfile)+'")'})
        mysay('',iif(lzak,5,7))
        return nil
    endif
    cpath:=hb_ansitooem(cfile)
    if lzak
        mysay('файла заказа из БЭСТа: '+cpath,5)
    else
        mysay('прайс-лист поставщика: '+cpath,7)
    endif
    cfile:=strtran(cfile,'\','/')
    cfile:=strtran(cfile,' ','%20')
    cfile:='file://localhost/'+cfile
endif
oapp:=CreateObject('com.sun.star.ServiceManager')
odesk:=oapp:createInstance('com.sun.star.frame.Desktop')
odoc:=odesk:LoadComponentFromURL(cfile, '_blank', 0, {})
return odoc