Имя: Пароль:
1C
1С v8
Как проще всего перевести расчет из xls в 1с?
0 БалбесВ1с
 
12.07.12
10:02
Есть файл - http://rghost.ru/39165591
В нем рассчитываются теплофизические св-ва воды и пара.
Рассчитываются как я понял по таблицам и немного вычислений.Как проще всего преобразовать эти вычисления в язык 1с?
Например вот такое выражение
=ЕСЛИ(ИЛИ(K25=1;K30=1;K31=1);ЕСЛИ(F35>L25;ЕСЛИ(K32=0;I36+(I36-L32)/(L25-F32)*(F35-L25);ЕСЛИ(K33=0;I36+(I36-L33)/(L25-F33)*(F35-L25);ЕСЛИ(K34=0;I36+(I36-L34)/(L25-F34)*(F35-L25);"Расчет для данной ситуации не предусмотрен")));ЕСЛИ(K29=0;L29+(L29-G36)/(F29-L25)*(F35-F29);ЕСЛИ(K28=0;L28+(L28-G36)/(F28-L25)*(F35-F28);ЕСЛИ(K27=0;L27+(L27-G36)/(F27-L25)*(F35-F27);"Расчет для данной ситуации не предусмотрен"))));L30+(L31-L30)/(F31-F30)*(F35-F30))
1 Нуф-Нуф
 
12.07.12
10:03
оставить заднице функцию сидения на стуле, и подключить к работе голову и руки
2 Нуф-Нуф
 
12.07.12
10:04
капец. ну чем люди думаю заводя подобные темы???
3 Tatitutu
 
12.07.12
10:04
вопрос понятен, а проблема в чем ?
4 БалбесВ1с
 
12.07.12
10:07
(3)Это что мне столько переменных заводить? И так прямо и писать как в xls?
5 БалбесВ1с
 
12.07.12
10:08
Там таблица 600 на 600.
6 Бертыш
 
12.07.12
10:09
(5) Таблицу перенеси копированием в макет 1с
7 БалбесВ1с
 
12.07.12
10:12
(6)Попробую.Спасибо.
8 БалбесВ1с
 
12.07.12
10:25
(6)Нубский вопрос - 1с не открывает макет пока не запустишь excel и не включишь макросы.Как это обойти?
9 AndyD
 
12.07.12
10:27
в экселе разреши все макросы
10 БалбесВ1с
 
12.07.12
10:31
(9)Страшно!
11 kyrgyz
 
12.07.12
10:34
(0) Ну ты даешь... Переведи всю логику из екселя в 1С. При переводе все что в екселе хранилось преврятятся в справочники в константы и в РС.
12 Eugene_life
 
12.07.12
10:34
(10) Будь мужиком, включи все макросы!
13 Reset
 
12.07.12
10:37
Автор, нет простой кнопки.
Придется (1) делать, и активно.
14 Reset
 
12.07.12
10:38
Т.е. тебе ПРИДЕТСЯ разобраться, что делается в этих формулах.
15 БалбесВ1с
 
12.07.12
10:40
(14)Я и так знаю что там делается.
16 БалбесВ1с
 
12.07.12
10:41
(14)По огромным таблицам(типа Брадиса) при известных давлении и температуре (воды или перегретого пара) высчитывается энтальпия.
17 Прохожий
 
12.07.12
10:42
(0) Перечисляй денег нам и оставайся на Мисте.
Не забудь свою cf скинуть
18 kyrgyz
 
12.07.12
10:43
(17) НАдеюсь не надо всю таблицу типа брадиса грузить в 1С и там хранить. НАвернятка есть базовые пару формул. Изучи предмет и постановка задачи автоматом у тебя сложиться и нарисуется схема разработки.
19 Прохожий
 
12.07.12
10:43
(10) Используй комп главбуха.
20 Прохожий
 
12.07.12
10:44
У него админ прокачивает +200 ко всем магиям обычно
21 Прохожий
 
12.07.12
10:45
(14) Если поступить как советуют в (17), то не придется...
22 Прохожий
 
12.07.12
10:47
(18) Любая таблица проводок средней фирмы за месяц больше Брадиса в разы.
Что раньше всю жизнь делал один умный, то теперь куча дураков за раз легко переплюнет.
23 БалбесВ1с
 
13.07.12
11:04
Спасибо огромное Бертыш
Все получилось и работает!
Перем MSExcel Экспорт;

Процедура Расчет (Элемент)

АктивныйДокумент = ПолучитьМакет("Макет");
MSExcel = АктивныйДокумент.Получить();

Книга = MSExcel.Application.Workbooks(1);    
Страница=Книга.Worksheets(1);
ЛистСданнымиИмя=СокрЛП(Строка(Страница.Name()));
Страница.Range("E4").Value = Температура;
Страница.Range("E5").Value = Давление;

Энтальпия = Страница.Range("D15").Value;


MSExcel.Application.Workbooks(1).Windows(1).Visible =false; // true;
MSExcel.Application.Visible = false; //true;
MSExcel.Activate();
//MSExcel.PrintPreview();
КонецПроцедуры
Еще только в попытку это засунуть а то вдруг екзеля нет.
24 БалбесВ1с
 
13.07.12
11:23
Подскажите как закрыть открытый excel?
При тестировании всплыл косячок) Если открыт екзель (любой файл, то процедура оттуда данные берет почему то.
25 БалбесВ1с
 
13.07.12
11:53
Может пригодится кому - закрытие открытого excel без вопросов.

 MSExcel = ПолучитьCOMОбъект(,"Excel.Application");
 MSExcel.DisplayAlerts = 0;
 MSExcel.Quit();
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.