Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 02:35

Помогите плизз новичку!

Автор Sentyabr, 17 янв 2010, 13:58

0 Пользователей и 1 гость просматривают эту тему.

Sentyabr

Работаю в Зарплата и Управление персоналом.На предприятии поставили задачу!
Есть модуль который выгружает данные квартплаты в .dbf
Необходимо найти человека и ввести другую сумму(Документы РазовыеУдержанияРаботниковОрганизаций).И естественно выгрузить его в .dbf
Я создал на диалоговом окне кнопку сохранить и пишу для нее обработку но что то у меня ни чего не склеивается структуру сделал правильно а вот как дальше быть  :( ???
сама обработка:
ЦитироватьПроцедура СохранитьНажатие(Элемент)
   Путь="C:\test\";
   База=Новый XBase;
   //ТаблЗн=Новый ТаблицаЗначений;
   База.Поля.Добавить("P_Org","S",5);
   База.Поля.Добавить("P_TN","S",6);
   База.Поля.Добавить("P_Fam","S",30);
   База.Поля.Добавить("P_IMY","S",30);
   База.Поля.Добавить("P_OTC","S",30);
   База.Поля.Добавить("ID_LS","S",11);
   База.Поля.Добавить("ITOG","N",9);
   База.Поля.Добавить("PRIZN","S",1);
   База.Поля.Добавить("NEW_ORG","S",5);
   База.СоздатьФайл(Путь+"test.dbf",Путь+"index.cdx");
    База.индексы.Добавить("IDXCODE","CODE");
   
         //Выполняем запрос
   
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |   Организации.Наименование КАК Наименование,
                   |   РегистрацияРазовыхУдержанийРаботниковОрганизаций.Ссылка КАК Ссылка,
                   |   РегистрацияРазовыхУдержанийРаботниковОрганизаций.Дата КАК Дата,
                   |   РегистрацияРазовыхУдержанийРаботниковОрганизаций.Проведен КАК Проведен,
                   |   РегистрацияРазовыхУдержанийРаботниковОрганизаций.Организация КАК Организация
                   |ИЗ
                   |   Документ.РегистрацияРазовыхУдержанийРаботниковОрганизаций КАК РегистрацияРазовыхУдержанийРаботниковОрганизаций
                   |      ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации КАК Организации
                   |      ПО РегистрацияРазовыхУдержанийРаботниковОрганизаций.Организация = Организации.Ссылка
                   |
                   |УПОРЯДОЧИТЬ ПО
                   |   Наименование,
                   |   Ссылка,
                   |   Дата,
                   |   Проведен,
                   |   Организация";
   
    Результат = Запрос.Выполнить();
    Выборка = Результат.Выбрать();
   
    Пока Выборка.Следующий() Цикл
   Док=Документы.РегистрацияРазовыхУдержанийРаботниковОрганизаций.Выбрать();
    Док.Организация=Док.Организация;    //Поле Объекта недоступно для записи???   
    Док.Проведен=ТекущаяДата();
   
КонецЦикла ;
      
    База.Записать();
     База.АвтоСохранение = Истина;

        База.ЗакрытьФайл();
              Сообщить("База успешно сохранена");
      
КонецПроцедуры



Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск