"Если Что обращайтесь 6)<br><br>Evgeny@prikhodko.org<br><br><br><br><br><br><br><br>Procedure LoadImportFile()<br><br>//----------------------------------------------------------------------------------------------- <br><br>Var namefile, namedir,ImportFileXls, ImportFileXlsAplet;<br><br>Var Applet, SPFileDirNomenklatura,SPFileDirNomenklaturaTEMP;<br><br>Var i,j,kj, ki,jj, addcode, File, Filelist,Celling,FileDirFS; <br><br>Var CodeType,OLEMOVE,Tools,CodePlusFilesSP;<br><br>//-----------------------------------------------------------------------------------------------<br><br>// Insert Object<br><br>Tools= CreateObject("справчоник.Загружаемый"); <br><br>ImportFileXls = CreateObject("FS");<br><br>SPNomenkl = CreateObject("справчоник.Номенклатура");<br><br>SPFileDirNomenklatura = CreateObject("&&&&&&&&&&.&&&&&&&&&&&&&");<br><br>SPFileDirNomenklaturaTEMP = CreateObject("&&&&&&&&&&.&&&&&&&&&&&&&");<br><br>Applet = CreateObject("Excel.Application");<br><br><br><br>//Insert Var component <br><br>//------------------------------------------------------------------------------------------ <br><br> IF ImportFileXls.SelectFile(,namefile,namedir,"&&&&&&&& &&&&& ","&&&&& *.xls| *.xls", , ) = 1 Then <br><br> Tools.НайтиПокоду("1");<br><br> kj = Tools.ЧислоСтроки; <br><br> ki = Tools.ЧислоСтолбцов;<br><br> j = 1;<br><br> CodePlusFilesSP = 0;<br><br> DateFormatToDay = ТекущаяДата();<br><br> addcode = 0;<br><br> CodePlusFilesSP = CodePlusFilesSP + 1;<br><br> FileDirFS = namedir+namefile; <br><br><br><br> DoMessageBox("ЛЯЛЯ");<br><br> Message("namefile : "+namedir+namefile);<br><br> CodeType = String(namefile)+"-"+String(DateFormatToDay);<br><br> Message("CodeType ="+CodeType);<br><br> IF SPFileDirNomenklatura.НайтиПоКоду(CodeType) = 0 then <br><br> SPFileDirNomenklatura.new();<br><br> SPFileDirNomenklatura.Код = CodeType;<br><br> SPFileDirNomenklatura.Description= namefile;<br><br> SPFileDirNomenklatura.ИмяФайла = namefile;<br><br> SPFileDirNomenklatura.Write();<br><br> Message("ОК!"); <br><br> Else <br><br> DoMessageBox("Программу На Мыло!"); Return;<br><br> EndIF;<br><br><br><br> Else Message("Error file"); Return;<br><br> EndIf; <br><br> <br><br> File = Applet.Workbooks.Open(Trimall(FileDirFS)); <br><br> Filelist = File.Sheets(1);<br><br> Message("---------------------------------");<br><br>//------------------------------ OLE XLS For EndFor-------------------------------<br><br> For i = 1 to ki DO<br><br> Celling = Filelist.Cells(j,i);<br><br> IF Filelist.Cells(j,i).text <> """" then <br><br> addcode = addcode + 1;<br><br> Message("i, j="+i+", "+j+" | "+Celling.Text+";"); <br><br> Message("addcode = "+addcode);<br><br> //Saved to the base<br><br> <br><br> IF addcode = 1 then //проверка строк на наличие<br><br> SPNomenkl.new(); <br><br> SPNomenkl.Description = Celling.text; <br><br> SPNomenkl.ИмяФайла = CodeType;<br><br> EndIF; //<br><br> IF addcode = 2 then <br><br> SPNomenkl.ыыы= Celling.Value;<br><br> EndIF;<br><br> IF addcode = 3 then <br><br> SPNomenkl.&&&&&&&&& = Celling.text;<br><br> EndIF;<br><br> IF addcode = 4 then <br><br> SPNomenkl.&&&& = Celling.Value;<br><br> EndIF;<br><br> IF addcode > 4 then <br><br> Message("--- 4 ---");<br><br> EndIF;<br><br> EndIF;<br><br> <br><br> jj = j;<br><br> IF i = (ki - 1) then j = j+1; i = 0; addcode = 0; SPNomenkl.Write(); EndIF;<br><br> IF j = kj then Message("j = "+j); i = ki; EndIF;<br><br> EndDo; <br><br>//------------------------------ OLE XLS For EndFor------------------------------- <br><br> Applet.WorkBooks.close();<br><br> Applet.Quit();<br><br> Message("I ="+i+"; J = "+j); <br><br> DoMessageBox("&&&&: "+namefile+"; &&&&&&&&, &&&&&&&&&&& = "+jj+" &&&&&!"); <br><br> Message("---------------------------------");<br><br> Message("Application Close All");<br><br> Message("&&& &&&&& &&&&&&&&&&&& = "+FileDirFS);<br><br>EndProcedure"