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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в 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

   

tls1981

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем доброго времени! Не подскжите как можно к бюджетной проводке привязать поступления и выбытия по внебюджету. Верха хотят видеть по внебюджетке поступления по проводке 1.201.03.1,а прога рунается что не верный источник.вобщем то правильно делает. 7 платформа.
Спасибо!
Всего записей: 125 | Зарегистр. 30-06-2006 | Отправлено: 14:08 01-02-2007 | Исправлено: tls1981, 14:34 01-02-2007
FOLD

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Платформа v.81.Собственно проблема здесь описана
 http://forum.ru-board.com/topic.cgi?forum=33&topic=7403&start=560#4
Как сделать?, ссылка на итланд не решает вопрос, там пример для числового номера.
Во всех конфах обычно номер "строка"  + у меня нумерация двойная, т.е префикс присваивается ( зависит от флага ОтражатьВБухгалтерскомУчете).  
Никто не решал ?Или мысли какие по этому поводу есть?
попробовал 81 на платформе 64, быстрее заметно, с нумерацией  решить надо для перехода
 
Извиняюсь отбой, затупил  - никакой проблемы и нету.Переносишь вызов процедуры
 Процедура УстановитьНомерДокумента(ДокументОбъект) Экспорт из приоткратии() в передзаписью() или призаписи()
 
Если ЭтоНовый() Тогда
 УстановитьНомерДокумента(ЭтотОбъект);
   КонецЕсли;
Вот и все
 
А  в приоткрытии()
 Если ЭтоНовый() Тогда
  Номер = "нет номера"
   КонецЕсли;
Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 14:17 01-02-2007 | Исправлено: FOLD, 15:31 01-02-2007
dias65



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
george75
А где выбор сотрудника?
Что-то типа:
Сотрудники.ВыбратьЭлементы(<?>);
Сотрудник = Сотрудники.НайтиПоРеквизиту(<ИмяРеквизита>, <Значение>, <ФлагГлобальногоПоиска>);
Всего записей: 277 | Зарегистр. 28-11-2006 | Отправлено: 15:38 01-02-2007
FOLD

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

Цитата:
|Условие(Сотр = Сотрудник);  

 
pavlika2
 
по поводу номера еще так можно , сейчас негде посмотреть как в бухии номер устанавливают
 
Если ЭтоНовый() Тогда        
Запрос = Новый Запрос();
 Запрос.УстановитьПараметр("НАЧ", НачалоГода(Дата));
 Запрос.УстановитьПараметр("КОН", КонецГода(Дата));  
 Запрос.Текст ="
   |ВЫБРАТЬ
   | МАКСИМУМ(РеализацияТоваровУслуг.Номер) КАК Номер
   |ИЗ
   | Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
   |ГДЕ
   | РеализацияТоваровУслуг.Дата МЕЖДУ &НАЧ И &КОН";
 
Выборка = Запрос.Выполнить().Выбрать();
   Выборка.Следующий();
   Сообщить(Выборка.Номер);
 
  // НомерДок= Прав(Выборка.Номер,6);
   НомерДок= Выборка.Номер;
 Для Сч=1 По СтрДлина(НомерДок)-1 Цикл  
  Если Лев(НомерДок,1)="0" Тогда  
   СтрНомерДок=Сред(НомерДок,2);  
  КонецЕсли;  
  КонецЦикла;  
 
   ЧНомер = Число(СтрНомерДок)+1;
    мСтрНомер = Строка(ЧНомер);
     
    Для Сч = 1 По  8 - СтрДлина(мСтрНомер) Цикл // 8 длина номера в УТ
    мСтрНомер = "0" + мСтрНомер;    
    КонецЦикла;    
 
   Номер = мСтрНомер;
 
Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 15:50 01-02-2007 | Исправлено: FOLD, 16:16 01-02-2007
dias65



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Дык форма формой..., а зачем тогда это:

Цитата:
Сотрудники=СоздатьОбъект("Справочник.Сотрудники");  

?
Всего записей: 277 | Зарегистр. 28-11-2006 | Отправлено: 16:42 01-02-2007
narkom

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Срочно!!! Бухгалтерия 8.0 - как ГТД привязать к партиям?
 
Прошу помощи, проблема в следующем, в бухгалтерии 8.0 ГТД привязывается к номенклатуре, при этом когда приходит новый товар с одноименным названием, новая ГТД заменяет старое ГТД, в счете фактуре товар идет с уже последней ГТД, что неправильно, т.к. на складе еще есть товар по предыдущем ГТД.
 
Необходимо сделать, чтобы ГТД привязывалось к партиям, а не к номенклатуре, подскажите как это сделать, а то бухгалтера съедят.  
 
С уважением, narkom!!!  
Всего записей: 35 | Зарегистр. 03-04-2006 | Отправлено: 23:08 01-02-2007
george75



Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dias65
 
"Сотрудник" выбирается в форме, а
Цитата:
Сотрудники=СоздатьОбъект("Справочник.Сотрудники");  
осталось от того варианте, где я использвал
Сотрудники.ВыбратьЭлементы();
Сотрудники.НайтиПоНаименованию(,,);
Но и в том и другом случае результат запроса один - 0,
думаю дело в неправильно сформированном запросе, а как правильно сделать додуматься не могу
 
 
Всего записей: 9 | Зарегистр. 26-10-2005 | Отправлено: 01:04 02-02-2007
as1969

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А как сделать, чтобы индексные файлы (CDX) находились не вместе с DBF файлами (т.е.на другом диске).
И вообще это реально?
 
Это необходимо чтобы увеличить скорость работы.
База считывается с раида, а CDX файлы считываются с другого диска. В результате получаю ускорение
Всего записей: 20 | Зарегистр. 10-03-2006 | Отправлено: 10:04 02-02-2007
dias65



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

Цитата:
 |ГодоМесяц = Справочник.СЗВиЕСНДоходы.ГодМесяц;  
    |ДнейБолел = Справочник.СЗВиЕСНДоходы.ДнейБолезни;  
    |ДнейГулял = Справочник.СЗВиЕСНДоходы.ДнейОтпусковСвСч;

Как я понимаю, реквизиты ГодМесяц, ДнейБолезни, ДнейОтпусковСвСч периодические. Тогда где "Получить(<Дата>)" ?
ЭТу конфу я не ковырял, поэтому ориентируюсь по тексту.
 
 
Всего записей: 277 | Зарегистр. 28-11-2006 | Отправлено: 10:07 02-02-2007
FOLD

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

Цитата:
Тогда где "Получить(<Дата>)"  
Где ,где - в рифму ответ.
Чтоб ты знал в языке запосов такие методы не применят.Значения переодических реквизитов в запросе получают на конечную дату.
 
george75 В зике не рублю, да и нет у меня его. Но
Во первых у тебя нет обхода группировки,
 
     Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда  
        Возврат;  
    КонецЕсли;  
    Пока Запрос.Группировка(1) = 1 Цикл
   // издесь ты делаешь нужные действия/вычисления
   КонецЦикла;
 
Во вторых - сделай таблицу значениий на форме, убери в тексте запроса все условия, выгружай запрос в ТЗ, и смотри где ошибка, потом добавляй и найдешь
 
Сделай группировку по сотру, и смотри, так примерно
   Запр=СоздатьОбъект("Запрос");      
    // ДатаНачала=Строка(ДатаГод(НачДата)*100+ДатаМесяц(НачДата));  
   // ДатаКонца=Строка(ДатаГод(КонДата)*100+ДатаМесяц(КонДата));  
     
    ТекстЗапроса="//{{ЗАПРОС(Запр)  
    |Сотр = Справочник.СЗВиЕСНДоходы.Владелец.ОсновнойЭлемент;  
    |ГодоМесяц = Справочник.СЗВиЕСНДоходы.ГодМесяц;  
    |ДнейБолел = Справочник.СЗВиЕСНДоходы.ДнейБолезни;  
    |ДнейГулял = Справочник.СЗВиЕСНДоходы.ДнейОтпусковСвСч;  
    |Группировка Сотр;  
   // |Группировка ГодоМесяц;  
   // |Условие((ГодоМесяц <= ДатаКонца) и (ГодоМесяц >= ДатаНачала));  
  //  |Условие(Сотр = Сотрудник);  
    |"//}}ЗАПРОС  
    ;  
  Если Запр.Выполнить(ТекстЗапроса)=0 Тогда  
        Возврат;  
    КонецЕсли;  
 Запр.Выгрузить(ТЗ);
 
Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 11:04 02-02-2007 | Исправлено: FOLD, 11:10 02-02-2007
george75



Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
Спасибо, попробую
Всего записей: 9 | Зарегистр. 26-10-2005 | Отправлено: 14:00 02-02-2007
preorat

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
срочно необходима ЕСИС80_1.14
подскажите, где таковую взять?
заранее спасибо!
Всего записей: 1 | Зарегистр. 24-01-2007 | Отправлено: 17:46 02-02-2007
bxz



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
preorat
тебе сюда
Всего записей: 151 | Зарегистр. 21-11-2003 | Отправлено: 20:53 02-02-2007
ee552

Newbie		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
narkom
 
Привентить ГТД к регистру Партии товаров на складах, но будеш иметь гемор при обновлениии.  
Умнее вести первичку и склад вести в управлении торговлей и перебрасывать в бух.
усли вместе то тогда Вам в УПП.
Всего записей: 15 | Зарегистр. 07-09-2006 | Отправлено: 08:11 03-02-2007
jestem

BANNED		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Приветстую. Позвольте Вас озадачить:
 
Платформа 7.7, конфигурация "Бухгалтерия для бюджетных учреждений 607".
Есть два балансодержателя в одной ИБ.
 
Задача:
Разграничить видимость документов в журналах для балансодержателя (каждый видит только свои документы), в справочниках сделать также - каждый видит только свои элементы (кроме номенклатуры).
 
Будут интересны любые мнения.
Всего записей: 4 | Зарегистр. 05-02-2006 | Отправлено: 10:32 04-02-2007
snakyshka

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте, помогите, пожалуйста у кого есть доступ на 1c.proclub.ru. скачать файлик по этой ссылке http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=7432. скиньте, пожалуйста на ящик snake_666@ngs.ru. Очень срочна нада, выручайте народ!!!
Всего записей: 2 | Зарегистр. 02-02-2007 | Отправлено: 10:29 05-02-2007
leputain



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
bxz
 
значит делаю обработку с внешней печатной формой на 8-ке. все работает как я хочу.
вешаю форму на СчетНаОплатуПокупателю
делаю всё через поля DocVariable в Word
переменные отсортированы по алфавиту, так что не обессудьте, мне удобнее так искать их в модуле
вот что у меня в функции печать:
вопросы в комментариях

Код:
 
    АктивныйДокумент = ПолучитьМакет("АктивныйДокумент");
    КомОбъект = АктивныйДокумент.Получить();
    
    КомОбъект.Application.Visible=1;
    
    Предоплата = Окр(СсылкаНаОбъект.СуммаДокумента * 0.7, -3);
// предоплата у нас по договору 70%, с округлением до тысяч
// тут меня всё устраивает
    
    КомОбъект.Variables.Item("ДоговорНомер").Value=Формат(СсылкаНаОбъект.Дата, "ДФ=""ггММ""")+"/"+СсылкаНаОбъект.Номер;
// номер договора у нас такой: две цифры года, две месяца, слэш, номер счета.
// вопрос как сделать из номера счета число длиной 2 цифры, с нулем спереди если < 10
 
    КомОбъект.Variables.Item("ДоговорВторойПлатеж").Value=ФорматСумм(СсылкаНаОбъект.СуммаДокумента - Предоплата);
    КомОбъект.Variables.Item("ДоговорВторойПлатежПрописью").Value=ЧислоПрописью(СсылкаНаОбъект.СуммаДокумента - Предоплата,,"рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2");
// тут всё ок
 
 КомОбъект.Variables.Item("ДоговорГород").Value="Владивосток";
// вопрос где в 8-ке взять город в котором работает наша организация?
 
    КомОбъект.Variables.Item("ДоговорДата").Value=Формат(СсылкаНаОбъект.Дата, "ДЛФ=ДД");
    КомОбъект.Variables.Item("ДоговорЗапускДата").Value=Формат(СсылкаНаОбъект.ДатаОтгрузки, "ДЛФ=ДД");
    КомОбъект.Variables.Item("ДоговорНачалоРаботДата").Value=Формат(СсылкаНаОбъект.ДатаОплаты, "ДЛФ=ДД");
    КомОбъект.Variables.Item("ДоговорНДС").Value=ФорматСумм(ПолучитьНДСДокумента(СсылкаНаОбъект));
    КомОбъект.Variables.Item("ДоговорНДСПрописью").Value=ЧислоПрописью(ПолучитьНДСДокумента(СсылкаНаОбъект),,"рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2");
    КомОбъект.Variables.Item("ДоговорПредоплата").Value= ФорматСумм(Предоплата);
    КомОбъект.Variables.Item("ДоговорПредоплатаДата").Value=Формат(СсылкаНаОбъект.ДатаОплаты, "ДЛФ=ДД");
    КомОбъект.Variables.Item("ДоговорПредоплатаПрописью").Value=ЧислоПрописью(Предоплата,,"рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2");
    КомОбъект.Variables.Item("ДоговорСумма").Value=ФорматСумм(СсылкаНаОбъект.СуммаДокумента);
    КомОбъект.Variables.Item("ДоговорСуммаПрописью").Value=ЧислоПрописью(СсылкаНаОбъект.СуммаДокумента,,"рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2");
// тут всё ок
 
    КомОбъект.Variables.Item("КонтрагентАдрес").Value=ОписаниеОрганизации(СведенияОЮрФизЛице(СсылкаНаОбъект.Контрагент, СсылкаНаОбъект.Дата), "ЮридическийАдрес");
// вопрос как правильно брать юрадрес контрагента?
 
    КомОбъект.Variables.Item("КонтрагентБИК").Value=СсылкаНаОбъект.Контрагент.ОсновнойБанковскийСчет.Банк.Код;
// тут всё ок
 
    КомОбъект.Variables.Item("КонтрагентВЛице").Value=СсылкаНаОбъект.Контрагент.ОсновноеКонтактноеЛицо.Фамилия + " " + СсылкаНаОбъект.Контрагент.ОсновноеКонтактноеЛицо.Имя + " " + СсылкаНаОбъект.Контрагент.ОсновноеКонтактноеЛицо.Отчество;
// вопрос можно ли сдлеать правильнее/красивее?
 
    КомОбъект.Variables.Item("КонтрагентВЛицеДолжность").Value=СсылкаНаОбъект.Контрагент.ОсновноеКонтактноеЛицо.Должность;
    КомОбъект.Variables.Item("КонтрагентИНН").Value=СсылкаНаОбъект.Контрагент.ИНН;
// тут всё ок
 
    КомОбъект.Variables.Item("КонтрагентКПП").Value=СсылкаНаОбъект.Контрагент.КПП;
// вопрос помогите сделать условие – если контрагент физлицо, то А, если юрлицо то Б
 
    КомОбъект.Variables.Item("КонтрагентКСчетОсновной").Value=СсылкаНаОбъект.Контрагент.ОсновнойБанковскийСчет.Банк.КоррСчет;
    КомОбъект.Variables.Item("КонтрагентНаименование").Value=СсылкаНаОбъект.Контрагент.Наименование;
    КомОбъект.Variables.Item("КонтрагентПолноеНаименование").Value=СсылкаНаОбъект.Контрагент.НаименованиеПолное;
    КомОбъект.Variables.Item("КонтрагентРСчетБанк").Value=СсылкаНаОбъект.Контрагент.ОсновнойБанковскийСчет.Банк.Наименование;
    КомОбъект.Variables.Item("КонтрагентРСчетОсновной").Value=СсылкаНаОбъект.Контрагент.ОсновнойБанковскийСчет.НомерСчета;
// тут всё ок
 
    КомОбъект.Variables.Item("КонтрагентТелефонОсновной").Value="надо заполнить";
// вопрос как взять?
    КомОбъект.Variables.Item("КонтрагентФактическийАдрес").Value=ОписаниеОрганизации(СведенияОЮрФизЛице(СсылкаНаОбъект.Контрагент, СсылкаНаОбъект.Дата), "ФактическийАдрес");
// вопрос можно ли сдлеать правильнее/красивее?
 
    КомОбъект.Variables.Item("НашАдрес").Value=ОписаниеОрганизации(СведенияОЮрФизЛице(СсылкаНаОбъект.Организация, СсылкаНаОбъект.Дата), "ФактическийАдрес");
// вопрос можно ли сдлеать правильнее/красивее?
 
    КомОбъект.Variables.Item("НашБИК").Value=СсылкаНаОбъект.СтруктурнаяЕдиница.Банк.Код;
// вопрос можно ли сдлеать правильнее/красивее?
 
    КомОбъект.Variables.Item("НашДиректор").Value=ОтветственныеЛицаОрганизации(СсылкаНаОбъект.Организация,СсылкаНаОбъект.Дата,).Руководитель;
// вопрос можно ли сдлеать правильнее/красивее?
 
    КомОбъект.Variables.Item("НашеОтветственноеЛицо").Value="надо заполнить";
// вопрос можно ли сделать, чтобы перед созданием печатной формы выскакивало окно с 1 строкой ввода, «введите, плиз, ответственное лицо с нашей стороны?», с неким значением по умолчанию? дело в том, что это ответственное лицо нигде в справочниках 1с не фигурирует
 
    КомОбъект.Variables.Item("НашеПредприятие").Value=СсылкаНаОбъект.Организация.НаименованиеПолное;
// вопрос можно ли сдлеать правильнее/красивее?
 
    КомОбъект.Variables.Item("НашИНН").Value=СсылкаНаОбъект.Организация.ИНН;
    КомОбъект.Variables.Item("НашКПП").Value=СсылкаНаОбъект.Организация.КПП;
    КомОбъект.Variables.Item("НашКСчетОсновной").Value=СсылкаНаОбъект.СтруктурнаяЕдиница.Банк.КоррСчет;
    КомОбъект.Variables.Item("НашРСчетБанк").Value=СсылкаНаОбъект.СтруктурнаяЕдиница.Банк.Наименование;
    КомОбъект.Variables.Item("НашРСчетОсновной").Value=СсылкаНаОбъект.СтруктурнаяЕдиница.НомерСчета;
// тут всё ок
 
    КомОбъект.Variables.Item("НашТелефонВторой").Value=ОписаниеОрганизации(СведенияОЮрФизЛице(СсылкаНаОбъект.Организация, СсылкаНаОбъект.Дата), "Телефоны");
    КомОбъект.Variables.Item("НашТелефонОсновной").Value=ОписаниеОрганизации(СведенияОЮрФизЛице(СсылкаНаОбъект.Организация, СсылкаНаОбъект.Дата), "Телефон");
// вопрос у нас есть 2 телефона. я их занесу в элемент справочника организации, как основной и второй. вот их надо отдельно получать. как это сделать?
 
 КомОбъект.Fields.UpDate();
 

если есть любые комментарии, милости прошу
Всего записей: 1434 | Зарегистр. 24-11-2002 | Отправлено: 13:13 05-02-2007 | Исправлено: leputain, 07:08 06-02-2007
leputain



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
могу похвастаться- не наше ни на ITLand ни на Мисте как обновить колонтитулы.
но нашел в MSDN:
 

Код:
    КПоля = КомОбъект.Sections(1).Footers(1).Range;
    
    Для Каждого Эл Из КПоля.Fields Цикл    
    Эл.Update();
    КонецЦикла;

 
вот так поля в нижнем колонтитуле обновляются
Всего записей: 1434 | Зарегистр. 24-11-2002 | Отправлено: 08:14 06-02-2007
kbystryakov

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день,
 
Неужели в стандартной поставке 1С 7.7 ТиС нет отчета, который бы показывал валовую прибыль (маржу) по оплаченным реализациям?
 
Привязка прихода денег к счету - есть. Каждая "строка банка (приход)" привязана к счету. Каждая реализация привязана к счету. Все документы вводятся "на основании".
А узнать, сколько оплаченной прибыли - никак (
 
Все стандартные отчеты показывают прибыль вне зависимости оплачена она или нет.
Анализ продаж, Отчет по продажам ТМЦ, Отчет по проектам...
 
В каком направлении нужно искать?
Всего записей: 10 | Зарегистр. 14-07-2005 | Отправлено: 08:16 06-02-2007
FOLD

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
leputain
Ряд вопросов/сомнений  связан с регистром сведений КонтактнаяИнформация.

Цитата:
где в 8-ке взять город в котором работает наша организация?


Цитата:
как правильно брать юрадрес контрагента?
 
Можно свои запросы написать,например
 
   Организация - в документе  есть
 Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
  Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресОрганизации;
  Запрос = Новый Запрос;
  Запрос.УстановитьПараметр("Объект",СсылкаНаОбъект.Организация);//  
  Запрос.УстановитьПараметр("Тип",Тип);
  Запрос.УстановитьПараметр("Вид",Вид);
   Запрос.Текст ="
   |ВЫБРАТЬ
   | КонтактнаяИнформация.Поле4 как Город
   |ИЗ
   | РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
   |ГДЕ
   | КонтактнаяИнформация.Объект = &Объект
   | И КонтактнаяИнформация.Тип = &Тип
   | И КонтактнаяИнформация.Вид = &Вид" ;
   
   Адрес = Запрос.Выполнить().Выбрать();
   Адрес.Следующий();
   Сообщить(Адрес.Город);
 
// еще пример
 Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
 Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
 Запрос = Новый Запрос;
  Запрос.УстановитьПараметр("Объект",СсылкаНаОбъект.Контрагент);
  Запрос.УстановитьПараметр("Тип",Тип);
  Запрос.УстановитьПараметр("Вид",Вид);
   Запрос.Текст ="
 | ВЫБРАТЬ
 |  КонтактнаяИнформация.Представление КАК ЮрАдрес
 | ИЗ
 |РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
 |ГДЕ
 |КонтактнаяИнформация.Объект = &Объект
 |И КонтактнаяИнформация.Тип = &Тип
 |И КонтактнаяИнформация.Вид = &Вид";
 
   Выборка = Запрос.Выполнить().Выбрать();
    Выборка.Следующий();  
   Сообщить( Выборка.ЮрАдрес);
а можно использовать уже написанные функции,(ОписаниеОрганизаци(), СведенияОЮрФизЛице()) как ты и делаешь, и это правильно.Тоже самое касается телефона

Цитата:
вопрос у нас есть 2 телефона. я их занесу в элемент справочника организации, как основной и второй.  
 вот их надо отдельно получать. как это сделать?
 
 Можно получить представление, а строку разбирать.Т.е при записи телефона разделить их например слешем,
 потом строке(Представление это строка),ищешь слэш, опрежеляешь количество знаков до слеша ,понятно думаю..
Можно в форме элемента Организация на закладке контактная информация, создать набор записей.(при  выборе  "другой") или  поработать со справочником "Виды Контактной информации" добавть предопределенных элементов, а потом запросм получать.Текст запроса аналогичный, а при установке параметров запроса, нужно знать - что к предопределенным элементам справочника можно обращаться по имени, иначе искать по коду,или наименованию  
  Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("00014");
  Тип = Перечисления.ТипыКонтактнойИнформации.Телефон

Цитата:
вопрос помогите сделать условие – если контрагент физлицо, то А, если юрлицо то Б

 Если Контрагент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо  Тогда
    А
  Иначе// там всего 2 эначения
  В

Цитата:
можно ли сделать, чтобы перед созданием печатной формы выскакивало окно с 1 строкой ввода,
 «введите, плиз, ответственное лицо с нашей стороны?», с неким значением по умолчанию? дело в том, что это ответственное  лицо нигде в справочниках 1с не фигурирует
 
 Ответственный в документах иимет тип значения -справочник пользователи,сделай в форме поле ввода с типом значения спр. пользователи  и кнопкой выбора  
В модуле приложения  см процедуру ОпределитьТекущегоПользователя() , в ней определяется гл переменная глТекущийПользователь, вот ее и использовать.
 
Ответственный = глТекущийПользователь;
 Если надо все же с вопросом, тогда  
  Ответственный = глТекущийПользователь;
  Если ввестиЗначение(Ответственный,"введите...")  Тогда
  Ответственный = Ответственный;  
 КонецЕсли;
 

Цитата:
вопрос как сделать из номера счета число длиной 2 цифры, с нулем спереди если < 10

Констркутор форматной строки -  им попробуй, или  так можно
 номер = 2; //например
 номерстр = Строка(номер );
Если СтрДлина <2 Тогда
 номерстр = "0" + номерстр;
 
kbystryakov
Это в УТ есть, а 77 в ТиС  можешь не искать, нет там такого отчета
Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 10:01 06-02-2007 | Исправлено: FOLD, 10:27 06-02-2007
   

Страницы: 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