Kox Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору 1С Предприятие "Конфигурирование и Администрирование"   Тема посвящена вопросам разработки, функционирования и обслуживания конфигураций 1С Предприятие.   Обсуждаются все версии, можно задавать любые вопросы, кроме нарушающих авторское право.   Советы в подборе конфигураций в разделе программы За  вопросами "где достать?", "откуда скачать?" Специальный сериал в Варезнике   Так же вопросы можно задавать и много полезного узнать на: Волшебный форум Территория 1С на кубани   Некоторые из форумов посвященных бухучету: Клерк.Ру (тут в основном Россияне) Дебет-Кредит (тут в основном Украина)   Для тех кто осознал что лучший способ эксплуатации 1С это вариант 1С+SQL: Некоторое количество информации по этому вопросу (1С:Предприятие и SQL Server: практика использования. Решение проблем связки 1С и SQL, оптимизация. Книги по 1С, обработки, отчеты.) Еще один ресурс по 1С+SQL     Ну и неплохо бы зайти еще вот сюда и сюда Некоторые вопросы касательно работы с SQL сервером можно задать здесь, например как установить, почему неработает, как написать SQL запрос для получения остатков склада Вопросы о том где взять SQL сервер можно задать здесь   Для начинающих и не только: Учебник по 1с   Первые шаги Всего записей: 66 | Зарегистр. 14-02-2002 | Отправлено: 13:11 18-02-2002 | Исправлено: vjick, 18:19 10-02-2005

Aristocrat Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Ит.ВыбратьСчета(); Если Ит.ПолучитьСчет(,"20") = 1 Тогда Ит.ВыбратьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводство); Пока Ит.ПолучитьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводство) = 1 Цикл Табл.НоваяСтрока(); Табл.Объекты = Ит.Субконто(ВидыСубконто.СтатьиЗатратНаПроизводство);   Если Ит.ПолучитьКорСчет(,"10") = 1 Тогда Табл.Счет10=Ит.КОРДО(); КонецЕсли; Если Ит.ПолучитьКорСчет(,"70") = 1 Тогда Табл.Счет70=Ит.КОРДО(); КонецЕсли;   Табл.Итого=Табл.Итог("Счет70")/Табл.Итог("Счет10")*Табл.Счет10; КонецЦикла; КонецЕсли;       Но как убрать итоги из СтатьиЗатратНаПроизводство допустим называется (АУП) что б наименование выводилось но сумм не было! и арифментика считалась которая Табл.ИТОГО Всего записей: 473 | Зарегистр. 06-08-2002 | Отправлено: 12:03 13-09-2004

Xel Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Aristocrat Ну, сделай проверку на совпадение Табл.Объекты с исключаемым видом, а там исключи сумму из таблицы. А Итог считай не Табл.Итог(), а суммируй в цикле нужные строки. Только зачем тогда ее считать в Итого, если в этом случае я ее по недостающим цифрам посчитать смогу, если захочется. Можно и при выводе таблицы контролировать отсутствие в печатной форме ненужных видов. ---------- Нет никакой ложки! Всего записей: 1214 | Зарегистр. 21-11-2001 | Отправлено: 13:00 14-09-2004

Aristocrat Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Табл.Итого=Табл.Итог("Счет70")/Табл.Итог("Счет10")*Табл.Счет10;   попутал не Табл.Итого   а надо Табл.Счет70=Табл.Итог("Счет70")/Табл.Итог("Счет10")*Табл.Счет10;     а как исключение можно сделать  а то что то не пашет! Всего записей: 473 | Зарегистр. 06-08-2002 | Отправлено: 13:53 14-09-2004

tswanea Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору kakoi razmer doljen biti dlea ustanovki zastavki v konfiguratore? i e6e   kak mne sdelati 6tob eto Процедура rabotala v moei konfe a to stavliu i goleak, ne rabotait koro4e?   Процедура ПроверкаПользователя()     WinDir=ФС.WindowsКаталог();     ComDir=WinDir+"\Hammas\";     ИмяФайла=ComDir+"Ben.dai";     Если ФС.СуществуетФайл(ИмяФайла)=0 Тогда          Предупреждение("Обнаружены признаки несанкционированного использования настройки!                         |Просьба обратиться в фирму XXXXXXXXX по телефону 123456789!");          Пароль=""; ~M1:     Признак=ВвестиСтроку(Пароль,"Введите пароль для продолжения работы",50);          Если Признак=0 Тогда              Перейти ~M1          КонецЕсли;          Если Признак=1 Тогда              Если Пароль<>"wasika" Тогда                  Перейти ~M1              КонецЕсли;          КонецЕсли;     КонецЕсли; КонецПроцедуры Всего записей: 436 | Зарегистр. 03-08-2004 | Отправлено: 09:23 15-09-2004

Xel Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата: попутал не Табл.Итого   а надо Табл.Счет70=Табл.Итог("Счет70")/Табл.Итог("Счет10")*Табл.Счет10;   Только так и не понятно, что ты хочешь, чтобы было, а что - нет. Но дело не в этом. Исключить можно так. Если заранее известен исключаемый вид, то СЗ = СоздатьОбъект("Справочник.СтатьиЗатратНаПроизводство"); СЗ.НайтиПоКоду(); //или наименованию, или еще как спозиционировать. ТабИтог10=0 ТабИтог70=0 .... Если Ит.Субконто(ВидыСубконто.СтатьиЗатратНаПроизводство) = СЗ.ТекущийЭлемент() Тогда //А тут и считай или не считай ТабИтог10 и ТабИтог70 ....... Иначе   А дальше вопрос:ты сам понимаешь, что будет считаться в колонку Счет70?     tswanea А в Отладчике пройтись, где именно перестает работать?   Логотип автора конфигурации будет выдаваться в диалоге «О программе». Логотип должен представлять собой картинку размером 64х64 пикселя с палитрой 256 цветов.   Файл заставки. Заставка представляет собой файл формата BMP 460х105х256 цветов (не компрессированный).     ---------- Нет никакой ложки! Всего записей: 1214 | Зарегистр. 21-11-2001 | Отправлено: 12:49 15-09-2004

tswanea Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Xel   ea ne poneal kak eto Цитата: где именно перестает работать?   vot poiavleaestea vot takaia fi6ka: err:  <<?>>Процедура ПроверкаПользователя() {Глобальный модуль(3009)}: Определения процедур и функций должны размещаться перед операторами основной программы   i gruz koro4e .....   Добавлено pomoghite please ktoto v etom razobratsea,!!!!!!!!!!!!!! Всего записей: 436 | Зарегистр. 03-08-2004 | Отправлено: 21:45 15-09-2004

Sarancha75 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору tswanea   Такое часто бывает, когда предыдущая процедура (функция) заканчивается точкой с запятой (;), в 1С точка с запятой не ставится в конструкциях КонецПроцедуры и КонецФункции.   Цитата: Процедура ПроверкаПользователя()  работает без проблем, я проверял Всего записей: 1401 | Зарегистр. 27-09-2002 | Отправлено: 03:53 16-09-2004

tswanea Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Sarancha75   Цитата: работает без проблем, я проверя   ti kak sdelal? skopiroval protseduru i vstavil prosto v globalinii moduli ili kak? ea tak delaiu i ni4ego, galeak... Всего записей: 436 | Зарегистр. 03-08-2004 | Отправлено: 10:02 16-09-2004

ZEF Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору DenGr Если речь идет о 77... Сначала сделай журнал общим.   Используй процедуры:   1.ВидыОтбора(<?>)    KindsOfSelection(<?>)   2. УстановитьОтбор(<?>,)     SetSelection(<?>,)   Может быть ЗакладкиОтбора(<?>,,,) TabCtrlSelection(<?>,,,)   В купе с проверкой набора прав я думаю у тебя получиться.   Да еще (чуть не забыл) не забудь создать нужные графы отборов, если необходимо.   Дерзай! Всего записей: 151 | Зарегистр. 10-01-2004 | Отправлено: 11:53 16-09-2004

lucikan Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору DenGr Нитак давно знакомые занимались этой проблемой, но она осложнялась тем, что документы нужно было прятоть полностью чтобы не одного упоминания даже и не было, решалось это только на SQL базе и с большим гемороем... Вобщем овечка выдели не стоит, если только тебе не предлагает за это кучу денег. Всего записей: 125 | Зарегистр. 13-08-2003 | Отправлено: 12:11 16-09-2004

Sarancha75 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору tswanea Цитата: ti kak sdelal Просто скопировал эту процедуру в глобальный модуль и вызвал ее в ПриНачалеРаботы() Всего записей: 1401 | Зарегистр. 27-09-2002 | Отправлено: 21:47 16-09-2004

tswanea Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Sarancha75   Цитата: вызвал ее в ПриНачалеРаботы()     a kak eto??? , kak ti sdelal a to ea pokamisi e6e na4inaiu6ii, i ponemno6ko u4usi. Всего записей: 436 | Зарегистр. 03-08-2004 | Отправлено: 09:56 17-09-2004

Xel Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору tswanea Цитата: a kak eto???   В глобальном модуле есть процедуре ПриНачалеРаботыСистемы() Вот оттуда и вызывай. Только не забудь свою процедуру определить раньше иди указать в ее определении, что "Далее"!!! ---------- Нет никакой ложки! Всего записей: 1214 | Зарегистр. 21-11-2001 | Отправлено: 10:29 17-09-2004

bzv Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Народ кто-нибудь подскажет где можно достать BforceMD.exe и pass_1c.exeю Буду очень благодарен за ссылочку или любую другую информацию! Всего записей: 367 | Зарегистр. 26-01-2004 | Отправлено: 10:57 17-09-2004

tswanea Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору bzv   Цитата: где можно достать BforceMD.exe и pass_1c.exe   dai email i pri6liu. OK?   Добавлено Xel Цитата: В глобальном модуле есть процедуре ПриНачалеРаботыСистемы()   u moiei konfe net takoi процедуре ПриНачалеРаботыСистемы() posmotrel i netu ee   Добавлено Xel da ea ee na6el no  kak mne ee определить ili napisati v процедуре ПриНачалеРаботыСистемы() ??? Всего записей: 436 | Зарегистр. 03-08-2004 | Отправлено: 11:15 17-09-2004

Sarancha75 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору tswanea Можно перед процедурой ПриначалеРаботыСистемы() вставить   Цитата: Процедура ПроверкаПользователя()       WinDir=ФС.WindowsКаталог();       ComDir=WinDir+"\Hammas\";       ИмяФайла=ComDir+"Ben.dai";       Если ФС.СуществуетФайл(ИмяФайла)=0 Тогда            Предупреждение("Обнаружены признаки несанкционированного использования настройки!                           |Просьба обратиться в фирму XXXXXXXXX по телефону 123456789!");            Пароль="";   ~M1:     Признак=ВвестиСтроку(Пароль,"Введите пароль для продолжения работы",50);            Если Признак=0 Тогда                Перейти ~M1            КонецЕсли;            Если Признак=1 Тогда                Если Пароль<>"wasika" Тогда                    Перейти ~M1                КонецЕсли;            КонецЕсли;       КонецЕсли;   КонецПроцедуры   а далее Процедура ПриНачалеРаботыСистемы() ... ПроверкаПользователя() ; ... КонецПроцедуры Всего записей: 1401 | Зарегистр. 27-09-2002 | Отправлено: 20:00 17-09-2004

tswanea Full Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Sarancha75   spasibo polu4ilosi   Добавлено a gde ea mogu naiti  takie komponenti:  1CRtInf.ert  1CRtInf.dll  videoAdd.dll Всего записей: 436 | Зарегистр. 03-08-2004 | Отправлено: 22:22 17-09-2004

newsigma Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Народ. Извиняюсь, может я не совсем по теме.   У кого есть хорошая инфа по программированию в 7.7 или ссылка на нее. Скинте плз.   И если можоо че нибудь по программированию в восьмерке. Всего записей: 255 | Зарегистр. 01-08-2004 | Отправлено: 16:35 18-09-2004

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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C

batva (07-06-2005 18:42): Продолжение..

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование