Заказы на доработку 1С (сервис удаленной работы)
Хранилище
База знаний
Неназначенных незавершенных заказов: 2
 Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )



История благодарностей участнику World1С ::: Спасибо сказали: 110 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
12.11.09, 9:27 Обработка пример импорта из OpenOffice.org Calc
В связи с повальной легализацией (ПО) пришлось переписать обработки выгрузки из Excel в 1С под Open Office...
И вот решил выложить обработку пример импорта из OpenOffice.org Calc в 1С.

Прошу строго не судить, так как пример обработки и некоторые комментарии взяты с диска ITS при демонстрации примера работы с Excel.

Обработка

P.S. Материалы для написания обработки взяты здесь и здесь

Сам ООо можно скачать здесь
 Analgin,
10.11.09, 11:37 Новый Действие("ОсновныеДействияФормыПечать")
В этом случае Ты обращаешься к самой процедуре....

В случае когда 
Новый Действие("КнопкаНажатие")

Ты присваиваешь конкретной кнопке, командной панели, конкретное действие программно.... cool.gif

1С Синтаксис - помошник

Цитата
Действие (Action)
Конструкторы:
На основании процедуры

Описание:
Предназначен для получения действия, которое можно назначить в качестве обработчика события элемента управления или команды пользовательского интерфейса.
Для обработки события может быть вызвана процедура или функция модуля формы, модуля приложения или общего модуля, имя которой задано в конструкторе.
Недоступен на сервере 1С:Предприятие. Не используется в модуле внешнего соединения. Сериализуется.
Пример:
// В модуле описана процедура Сформировать(), выполнение которой
// назначим кнопке "Сформировать" в качестве действия при нажатии
ОбработкаНажатия = Новый Действие("Сформировать");
КнопкаСформировать = ЭлементыФормы.КнопкаСформировать;
КнопкаСформировать.УстановитьДействие("Нажатие", ОбработкаНажатия);
 Vofka,
24.10.09, 8:04 Не тянет сумму выплаты в Форму №1-ДФ
Цитата
Естественное ЧП не попадут есть отдельный документ для регистрации данных по ЧП ...
+1

Документ называется - "Отражение взаиморасчетов с контрагентами в 1-ДФ" заполните его, в смысле документ, и все попадет куда нужно.
 MATEVI, taipan,
16.09.09, 15:37 H-SAGA
Неправильно работает метод, свойство (send) в библиотеке msxml3.dll. Возможно требуется более старая версия или более новая версия библиотеки.
 f12,
15.09.09, 16:57 Ошибка при СоздатьОбъект("Excel.Application") 
процедура Сформировать();
перем tOO,яч;
    tOO=СоздатьОлеОбъект("TOpenOffice.Bridge");
    tOO.Open("c:\sample.xls");
    tOO.Cells(1,1).text="Это текст из 1С!";
    яч=tOO.Cells(1,2);
    сообщить("В ячейке B3 содержится текст:"+яч.text);
    tOO=0;
конецПроцедуры // Сформировать();
Для 8.1

Посмотреть можно здесь
 Vofka,
15.09.09, 16:49 Ошибка при СоздатьОбъект("Excel.Application") 
Sub firstOOoProc()

Dim oSM                   'Root object for accessing OpenOffice from VB
Dim oDesk, oDoc As Object 'First objects from the API
Dim arg()                 'Ignore it for the moment !
    
'Instanciate OOo : this line is mandatory with VB for OOo API
  Set oSM = CreateObject("com.sun.star.ServiceManager")
'Create the first and most important service
  Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
  
'Create a new doc
  Set oDoc = oDesk.loadComponentFromURL("private:factory/swriter", "_blank", 0, arg())
'Close the doc
  oDoc.Close (True)
  Set oDoc = Nothing
    
'Open an existing doc (pay attention to the syntax for first argument)
  Set oDoc = oDesk.loadComponentFromURL("file:///c:/dev/ooo/test.doc", "_blank", 0, arg())
'Save the doc
  Call oDoc.storeToURL("file:///c:/dev/ooo/test2.sxw", arg())
'Close the doc
  oDoc.Close (True)
  Set oDoc = Nothing
    
End Sub


Вот так это выглядит для VBA
 Vofka,
02.09.09, 14:45 Нужна помощь в работе с запросами
Только не или а союз "И"
 Vofka,
01.09.09, 12:32 Нужна помощь в работе с запросами 
ВЫБРАТЬ
    Состав.Номенклатура,
    ПартииОстатки.КоличествоОстаток
ИЗ
    (ВЫБРАТЬ
        РасходнаяНакладнаяРасход.Ссылка КАК Ссылка,
        РасходнаяНакладнаяРасход.Номенклатура КАК Номенклатура,
        СУММА(РасходнаяНакладнаяРасход.Количество) КАК Количество
    ИЗ
        Документ.РасходнаяНакладная.Расход КАК РасходнаяНакладнаяРасход
    
    СГРУППИРОВАТЬ ПО
        РасходнаяНакладнаяРасход.Ссылка,
        РасходнаяНакладнаяРасход.Номенклатура) КАК Состав
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Партии.Остатки(
                ,
                Номенклатура В
                    (ВЫБРАТЬ
                        РасходнаяНакладнаяРасход.Номенклатура
                    ИЗ
                        Документ.РасходнаяНакладная.Расход КАК РасходнаяНакладнаяРасход
                    ГДЕ
                        РасходнаяНакладнаяРасход.Ссылка = &Документ)) КАК ПартииОстатки
        ПО Состав.Номенклатура = ПартииОстатки.Номенклатура
ГДЕ
    Состав.Ссылка = &Документ
    И (ПартииОстатки.КоличествоОстаток < Состав.Количество
            ИЛИ ПартииОстатки.КоличествоОстаток ЕСТЬ NULL )


"Еще один момент в документе может оказаться несколько строчек с одинаковым товаром. Тогда переделаем запрос" эта цитата с диска ИТС
 MATEVI,
01.09.09, 12:16 Нужна помощь в работе с запросами 
ВЫБРАТЬ
    РасходнаяНакладнаяРасход.Номенклатура,
    ПартииОстатки.КоличествоОстаток
ИЗ
    Документ.РасходнаяНакладная.Расход КАК РасходнаяНакладнаяРасход
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Партии.Остатки(
                ,
                Номенклатура В
                    (ВЫБРАТЬ
                        РасходнаяНакладнаяРасход.Номенклатура
                    ИЗ
                        Документ.РасходнаяНакладная.Расход КАК РасходнаяНакладнаяРасход
                    ГДЕ
                        РасходнаяНакладнаяРасход.Ссылка = &Документ)) КАК ПартииОстатки
        ПО РасходнаяНакладнаяРасход.Номенклатура = ПартииОстатки.Номенклатура
ГДЕ
    РасходнаяНакладнаяРасход.Ссылка = &Документ
    И (ПартииОстатки.КоличествоОстаток < РасходнаяНакладнаяРасход.Количество
            ИЛИ ПартииОстатки.КоличествоОстаток ЕСТЬ NULL )


Вот запрос который проверит твои остатки по регистру Партии
 MATEVI,
25.08.09, 9:44 Радченко ''1С:Предприятие 8.1 практическое пособие разработчика. Примеры и типовые приемы''
Цитата
У меня вместо того, что отображено на рисунке 5.73 отображается следующее:


Все у тебя правильно возьми и напиши то что написано в примере, а привязка делается в процедуре при изменении...
 Vofka,

3 страниц V  < 1 2 3
RSS Текстовая версия Сейчас: 27.04.24, 18:37
Форум IP.Board © 2024  IPS, Inc.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!