Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка

Модерирует : ShIvADeSt

ShIvADeSt (06-02-2008 02:31): продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=9226  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104

   

LaCastet



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
populus
ВСЕМ СПАСИБО!
 

Всего записей: 4560 | Зарегистр. 27-07-2005 | Отправлено: 19:42 23-12-2006
populus



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LaCastet
дык не за что лишняярезервная копия - лишний раз прикрытая задница

Всего записей: 255 | Зарегистр. 23-07-2003 | Отправлено: 00:45 24-12-2006
Forcerr



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Сори если не по теме, но направили именно сюда, на пердыдущей старнице мой вопрос, можно сказать даже крик души Хотелось бы услышать что нить по теме...

Всего записей: 121 | Зарегистр. 10-02-2003 | Отправлено: 02:25 24-12-2006
agamemnum

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые коллеги.
Очень нужно перенести остатки по складам и по кассам, а также долги поставщикам, покупателей из одной ТиС в другую ТиС
Свертка базы не помогает, так как создается 8000 документов прихода.
Подскажите пожалуйста механизм переноса остатков (то есть автоматическое формирование документов ввода начальных остатков в новой базе)
Справочники все заполнены.
Заранее признателен.

Всего записей: 64 | Зарегистр. 10-02-2004 | Отправлено: 11:49 24-12-2006
Band_Eros



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Формирую запрос по Физ лицам - нужно ФИО и Телефон.
//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
    Перем Запрос, ТекстЗапроса, Таб;
    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =  
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |ОбрабатыватьСправочник = Справочник.ФизЛица;
    |Наименование = Справочник.ФизЛица.ПолнНаименование;
    |Телефоны = Справочник.ФизЛица.Телефоны;  
    |Условие(ПустаяСтрока(Телефоны)=0);
    |Группировка Наименование;
    |"//}}ЗАПРОС
    ;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
 
    // Подготовка к заполнению выходных форм данными запроса
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    // Заполнение полей "Заголовок"
    Таб.ВывестиСекцию("Заголовок");
    Состояние("Заполнение выходной таблицы...");
    Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
    Пока Запрос.Группировка(1) = 1 Цикл
        // Заполнение полей Наименование
        Таб.ВывестиСекцию("Наименование");
    КонецЦикла;
    // Вывод заполненной формы
    Таб.ТолькоПросмотр(0);
    Таб.Показать("Сформировать", "");
КонецПроцедуры
 
Как обойти ошибку:  
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
{C:\1CV77.ADM\ПОРТАЛ\EXTFORMS\SPRAV.ERT(20)}: Телефоны = Справочник.ФизЛица.Телефоны <<?>> ;  
Запрос[5] : Запрос не оперирует величинами типа "Строка" неопределенной длины
 
Ограничивать длину реквизита Телефоны не желательно.
Может как то ограничить длинну строки при  определнии переменной запроса, которая будет браться в запрос?

Всего записей: 9 | Зарегистр. 23-12-2006 | Отправлено: 12:11 24-12-2006
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Band_Eros

Цитата:
Запрос не оперирует величинами типа "Строка" неопределенной длины  

Все сказано.Ограничение такое в языке запросов.
 
 Выбирай ТекущийЭлемент и через точку получай значение.
 
Элемент = Справочник.ФизЛица.ТекущийЭлемент;
 Условие(ПустаяСтрока(Элемент.Телефоны)=0);
 
Пока Запрос.Группировка(1) = 1 Цикл  
Сообщить(Запрос.Элемент.Телефоны);
 
 agamemnum
Цитата:
автоматическое формирование документов  

Так не бывает. Чтобы "автоматически" формировалось, нужно написать обработку
 

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 13:35 24-12-2006 | Исправлено: FOLD, 13:38 24-12-2006
agamemnum

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
Вот я и спрашиваю, изобретен уже этот велосипед или нет.
1. Естественно можно написать, вот только времени мало осталось
2. Прошу откликнуться, кто уже сталкивался с этой проблемой

Всего записей: 64 | Зарегистр. 10-02-2004 | Отправлено: 15:38 24-12-2006
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
agamemnum
Каждый год сталкиваюсь.Перебрасываю по ОЛЕ.Ты не знаешь как программно создать документы?Или не знаешь в каких регистрах хранятся остатки? В чем вопрос конкретно..  если хочешь чтобы тебе готовую выложили,тогда это не сюда - в "клуб попрошаек", т.е профессионалов  или варезник
 

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 17:34 24-12-2006 | Исправлено: FOLD, 17:40 24-12-2006
1CAHEK

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ВОПРОС ПО 1С 7.7:
 
Мне нужно устанавливать в ячейки таблицы расшифровку в виде функции.
 
Вот что я делаю и это не получается:
Пример кода:
****************************************************
 
...
Функция ПолучениеДанных(Сотрудник)
     Возврат Сотрудник;
КонецФункции
...
 
Процедура Печать()
Пока ... Цикл
 
Таб.ВывестиСекцию("Строка");
        
ПерСтр = Таб.ВысотаТаблицы();
ПосСтр = Таб.ВысотаТаблицы();
 
Область = Таб.Область(ПерСтр, 5, ПосСтр, 5);
Область.Расшифровка(ПолучениеДанных(Спр.ТекущийЭлемент()));
 
КонецЦикла;
КонецПроцедуры
 
****************************************************

Всего записей: 10 | Зарегистр. 04-10-2006 | Отправлено: 09:18 25-12-2006
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1CAHEK
А зачем функция? Напиши в ячеке в поле "Расшифровка" Спр.ТекущийЭлемент()

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 11:28 25-12-2006
cherepaxa



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день может кто то поможет написать обработчик  
существует текстовый файл каждая строка которого представленна в виде
 
код товара, колличество, отдел
 
необходимо создать расходную накладную в которой бы записывались эти значения  
 
если будет возможность подмагните пожалуйста.

Всего записей: 8 | Зарегистр. 14-03-2006 | Отправлено: 11:48 25-12-2006
agamemnum

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
Спасибо. Пробовал по OLE но не могу соединиться с базой. Инициализация не проходит
Может слово какое заветное знать надо?
Делаю так:
//*******************************************        
Процедура ИнициализацияБД()        
    МД=СоздатьОбъект("V1CEnterprise.Application");    
    Попытка    
        Результат=МД.Initialize(МД.RMTrade," /DD:\Base\DB","no_splash_show");
        Сообщить("Результат = " +  Результат);
    Исключение    
        МД="";
        Сообщить("Не прошла инициализация Базы! Ошибка - "+ОписаниеОшибки(),"!");
        Возврат;
    КонецПопытки;    
    Если Результат=0 Тогда    
        МД="";
        Сообщить("Не прошла инициализация Базы!","!");
        Возврат;
    Иначе    
        Форма.кнЗаполнить.Доступность(1);
    КонецЕсли;    
КонецПроцедуры         
//-------------------------        
 
В результате получаю: Не прошла инициализация Базы

Всего записей: 64 | Зарегистр. 10-02-2004 | Отправлено: 12:14 25-12-2006
Band_Eros



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
 

Цитата:
Выбирай ТекущийЭлемент и через точку получай значение.  

 
Про это не знал.
Огромное спасибо тебе!!!  
 
Ведь я только учусь!

Всего записей: 9 | Зарегистр. 23-12-2006 | Отправлено: 12:41 25-12-2006
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
agamemnum

 БазаОЛЕ = СоздатьОбъект("V77.Application");  
 Путь = "D:\V77\Base";
 ПользовательОле = "Admin";  
 ПарольОле = "0000";  
 МонопольныйРежимOLE = "";  
 ЗапускБезЗаставки = 1;  
 
Если БазаОЛЕ.Initialize(БазаОЛЕ.RMTrade , "/d" + Путь + " /n" + ПользовательОле  + " /p"  + ПарольОле + МонопольныйРежимOLE ,?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW","")) = 0 Тогда
  Предупреждение("Ошибка возможо нужнапериднксация!");
   Возврат;
   иНАЧЕ
 Сообщить("урааааа");
 КонецЕсли;
    
  СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");  
   ТЗостатков = СоздатьОбъект("ТаблицаЗначений");
  ТЗостатков.НоваяКолонка("Номенклатура");
  ТЗостатков.НоваяКолонка("Остаток");  
    
  РегОлеОстатки = БазаОЛЕ.CreateObject("Регистр.ОстаткиТМЦ");
  РегОлеОстатки.ВыбратьИтоги();
  Пока РегОлеОстатки.ПолучитьИтог()=1 Цикл  
    ТЗостатков.НоваяСтрока();  
   СпрНоменклатура.НайтиПоКоду(РегОлеОстатки.Номенклатура.Код);
   ТЗостатков.Номенклатура = СпрНоменклатура.ТекущийЭлемент();    
   ТЗостатков.Остаток      = Число(РегОлеОстатки.Количество );
    КонецЦикла;  
ТЗостатков.Свернуть("Номенклатура","Остаток");
  ДокВвода =СоздатьОбъект("ВводОстатковТМЦ");
  ДокВвода.Новый();
   ДокВвода.Фирма =  
  ДокВвода.КодОперации =
    
   ТЗостатков.ВыбратьСтроки();
  Пока ТЗостатков.ПолучитьСтроку()=1 Цикл
 ДокВвода.НоваяСтрока();
  ДокВвода.Номенклатура = ТЗостатков.Номенклатура ;

    
Есще в ТиС есть cdexport  и cdimort и готовые правила обмена (см в ExtForms)
Создай доокументы остатков по регистрам которые тебе нужны и перенеси

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 15:28 25-12-2006 | Исправлено: FOLD, 15:37 25-12-2006
LexusG

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
 
Ай красава...спасибо за идею. А я тут парился написал две обработки одной выгружал в текст. Другой создавал документы, загружал остатки и проводил документы.  
Гранд мерси.

Всего записей: 448 | Зарегистр. 14-09-2005 | Отправлено: 15:49 25-12-2006
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
LexusG
Для фильтрации такие конструкции по ОЛЕ тоже работают.
 
 СпрСкладыОЛЕ  = БазаОЛЕ.CreateObject("Справочник.Склады");
  СпрСкладыОЛЕ.НайтиПоКоДУ("00001");
  СкладОЛЕ = СпрСкладыОЛЕ.ТекущийЭлемент();
  РегОлеОстатки.УстановитьФильтр(, , СкладОЛЕ);
  РегОлеОстатки.ВыбратьИтоги();
 
Если обращаться к регистру ПартииНаличие, то можно получить остатки  с себестоимостью (ресурс СуммаУпр).Это же касается регистраПокупатели,  из ресурса Себестоимость -себестоимость, из СуммаВал /СуммаРуб берем остатки долгов.Ну и ясное дело из других регистров можно получить все што необходимо перетщить в новую базу

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 19:42 25-12-2006 | Исправлено: FOLD, 19:45 25-12-2006
Horex



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Задача: у меня после выполнения запроса выводится ТабличныйДокумент, сформированный с помощью Макета. Но мне нужно сделать так, чтобы по клику на строке отчета выполнялось какое-то действие. Как это сделать? Расшифровка, как я понял, действует только для полей формы, но я не знаю, как по-быстрому выгрузить результат запроса в полетабличногодокумента. Поможете?

Всего записей: 1547 | Зарегистр. 27-02-2002 | Отправлено: 15:43 26-12-2006
IUnknown777



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Скажите, пожалуйста, есть ли какая-нить книга по которой можно подготовиться для сдачи экзамены по 1С 80 Специалист?

Всего записей: 212 | Зарегистр. 20-04-2006 | Отправлено: 17:55 26-12-2006
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Horex

Цитата:
 Но мне нужно сделать так, чтобы по клику на строке отчета выполнялось какое-то действие

Если показываешь Макет то простую расшифровку (показать документ, м элемент справочника) и в макете можно . Если более сложная расшифровка ,например каой то отчет вызвать по клику на строке, тогда действительно надо использовать  
полетабличногодокумента.
 
 ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
 Макет = ПолучитьМакет("ТвойМакет");
ОбластьШапка = Макет.ПолучитьОбласть("ШапкаТаблицы");
ТабДок.Вывести(ОбластьШапка);
ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
 
Выборка = Запрос.Выполнить().Выбрать()
//ОбластьСтрока.Параметры.Заполнить(Выборка);
ОбластьСтрока.Параметры.Контрагент = Выборка.Когтрагент;
ОбластьСтрока.Параметры.Сотрудник = Выборка.Сотр;
Стркутура = Новы Структура;
Стркутура.Вставить("Сотр",Выборка.Сотр);
Стркутура.Вставить("Контр",Выборка.Когтрагент);
ОбластьСтрока.Параметры.Расшифровка =Стркутура;
 ТабДок.Вывести(ОбластьСтрока );
В обработчике ОбработкаРасшифровки(Элемент, Расшифровка, СтандартнаяОбработка)
 
обрабатываешь структуру например предаешь параметры в нужный отчет
 
 
 
 

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 20:44 26-12-2006 | Исправлено: FOLD, 20:44 26-12-2006
winsent



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
cherepaxa
Какой формат текстового файла?  
Такой как ты указал? (код товара, колличество, отдел )разделитель ", "?  
Лучше покажи кусочек (пару тройку строк).
 

Всего записей: 23 | Зарегистр. 30-01-2006 | Отправлено: 13:02 27-12-2006
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка
ShIvADeSt (06-02-2008 02:31): продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=9226


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru