Работаю бесплатно, для опыта, смогу, ли я, да и мама, моя работает, на ней, поэтому и работаю.). Неделю назад, я и не знал, что такое 1С программирование. Был бы признателен, если какую литературу, с примерами по 1с 7.7 ПРОГРАММИРОВАНИЕ!
Насколько я понимаю, используется лицензионный программный продукт, в состав которого входят такие книги как "Администрирование и конфигурирование" и "Описание встроенного языка". Для решения Ваших задач их предостаточно. А также, повторюсь в который раз, у Вас имеются типовые решения, которые могут служить отличным примером. Если Вы хотите чему-то научиться -- читайте и пробуйте ("для опыта"), заодно и маме поможете. А пока больше похоже на то, что Вы желаете "опыта" прибавить нам, предлагая вникать в имеющуюся у Вас конфигурацию.
Насколько я понимаю, используется лицензионный программный продукт, в состав которого входят такие книги как "Администрирование и конфигурирование" и "Описание встроенного языка". Для решения Ваших задач их предостаточно. А также, повторюсь в который раз, у Вас имеются типовые решения, которые могут служить отличным примером. Если Вы хотите чему-то научиться -- читайте и пробуйте ("для опыта"), заодно и маме поможете. А пока больше похоже на то, что Вы желаете "опыта" прибавить нам, предлагая вникать в имеющуюся у Вас конфигурацию.
Да так и есть, используеться лицензионная программа, с ЛПТ ключом к сожалению нет книг, имено таких как вы опесали! Сама поставка осуществлялась А4, есть только книги по использований самой программы и конфигурации. В книгах которые есть, только упоминается, что есть еще конфигуратор, на этом все тонкости заканчиваються! Я думаю синтаксис, программирование 1С одинаковый, просто по разному можно записать!
Думаю зависит от опытности, подсказчика и желания помочь!
Как заметили, я выкладываю и результат в коде, который мне помог, может еще кому пригодиться!!!
Если не заметили, то слева вверху, логотип, на нем слова написаны, которыми данный форум занемаеться!
Если вам трудно найти то напишу"Украинский форум 1С, Помощь в ежедневных вопросах".
Чем больше помощи людям, рано или поздно все это, приумножиться и вернеться, независимо хотите вы этого!
Сколько видов документов в налоговом учете используется (ПН,РК,...)? В БТР же только два вида документа НалоговаяНакладнаяРасходная и Дополнение2КНалоговойНакладной...
А еще чек! Или я шибаюсь? Вам веднее!))) Небольшой пример, бы мне помог или указать место, где примерно используеться тот же принцип! Релизы смотрел для Укр. 035 и 036 там какая-то высшая математика, где все сылаеться, на XML не могу понять!
Надеюсь, что когда-нибудь Вы поймете, что совет читать и пробовать -- это не есть "плохое", а как раз наоборот. То же относится к АНАЛИЗУ типовых конфигураций. Спасибо, что избавили от труда искать надпись в логотипе (это было довольно сложно), но только надписи "Обучение нежелающих читать и думать программированию в 1С" нет ни в логотипе, ни в ином месте. А по поводу этого
Цитата
Чем больше помощи людям, рано или поздно все это, приумножиться и вернеться, независимо хотите вы этого!
, то пока за помощь получила обвинение в деянии "плохого".
Цитата
Думаю зависит от опытности, подсказчика и желания помочь!
Вот в этом утверждении Вы очень сильно ошибаетесь: все зависит от желания добиться результата и количества/качества приложенных усилий. А наличие подсказчика только облегчает Ваш труд за счет его усилий объяснить Вам что-либо. А теперь по делу. Если Вы хотите научиться что-то делать своими руками и головой, последующая информация поможет Вам. В реестр данные попадают из таблицы лТаблЗН, как видно из Вашего рисунка (Вы этого посмотреть сами не хотите, желаете, чтобы позсказчик посмотрел и Вам объяснил). Проверьте, есть ли в этой таблице колонка с самим документом или его видом. Если есть, значит Вы можете организовать проверку: если вид документа в конфигураторе налоговая накладная выданная, то вид документа в рееестре ПН, а если вид документа приложение 2, то РК. Если же в таблице подобной колонки нет, можете добавить колонку с видом документа в реестре, анализируйте вид документа на стадии заполнения таблицы и сразу заполняйте новую колонку необходимым значением. А в печатной форме документа колонку Вид документа заполняйте из той же таблицы. Это все будет выглядеть приблизительно так (это пример, его надо переделать под Вашу конфигурацию и реестр):
// добавляем колонку в таблицу (там, где создаются остальные колонки таблицы) лТаблЗН.НоваяКолонка("ВидДока","Строка",6,);
// где-то при обходе результатов выборки налоговых документов (обход результатов запроса) // виды документов необходимо указывать так, как они заданы в конфигураторе Если Запрос.ДокументНалоговаяНакладная.Вид()="НалоговаяНакладнаяРасходная" Тогда лТаблЗН.ВидДока="ПН"; ИначеЕсли Запрос.ДокументНалоговаяНакладная.Вид()="Приложение2" Тогда лТаблЗН.ВидДока="РК"; Иначе // что-то пишем, если есть другие варианты КонецЕсли; // ДокументНалоговаяНакладная.Вид()="НалоговаяНакладнаяРасходная"
5_kopeek Похоже вы настоящая женщина, как правило женщины думают эмоциями, и любители все перефразировать, под свой лад, вы это лишний раз доказали, еще раз! Похоже в вас, все еще сражаются, черное и белое, возможно так будет, до конца жизни! Вы как-то все приняли, близко к сердцу, перемолов на свой лад, выплеснули в светло-серых тонах. Опираясь на какой-то свой опыт, вы сделали и какой то свой вывод, написали что ваш жизненый путь из возможных верен, взяв за переменную свой опыт, вы мне обьявили. Перем ВашОпытЖизненный; ВашОпытЖизненный=Вы; но забыли что есть еще, Если, ИначеЕсли, Тогда. С вашей помощью, мой прогресс будет быстрее!
yfrf111, иногда меня поражает так называемая мужская логика, яркой иллюстрацией которой является Ваш ответ. Почему цитирование Ваших изречений Вы называете
Цитата
все перефразировать, под свой лад, вы это лишний раз доказали, еще раз! ... Вы как-то все приняли, близко к сердцу, перемолов на свой лад, выплеснули в светло-серых тонах
, мне не понять (либо эмоции мешают, либо количество запятых в предложениях).
Цитата
Опираясь на какой-то свой опыт, вы сделали и какой то свой вывод, написали что ваш жизненый путь из возможных верен, взяв за переменную свой опыт, вы мне обьявили
Из моих ответов в созданной Вами теме этого не следует, как, впрочем, и из других моих постов. Но, хотя Вы и сделали неверные выводы (возможно, причиной этому является специфическое логическое мышление), очевидно, что Вы не ограничились прочтением моих сообщений только в этой ветке.
Цитата
Похоже вы настоящая женщина
Были у меня глубокие сомнения, стоит ли показывать свое лицо, и, судя по всему, не зря. Почему-то его созерцание мешает оппонентам адекватно воспринимать мои слова. Пожалуй, дней через 10 верну status quo ante bellum.
Цитата
Похоже в вас, все еще сражаются, черное и белое, возможно так будет, до конца жизни!
Смысл этой фразы является для меня загадкой. Под черным Вы понимаете факт моего вступления в дискуссию с Вами и желание помочь непонятным Вам способом, а под белым -- разжевывание алгоритмов с приведением примеров?.. Если так, то воздержусь от комментариев.
Цитата
С вашей помощью, мой прогресс будет быстрее!
Естественно. При определенных условиях буду помогать в дальнейшем.
Уважаемые модераторы и администраторы! Прошу меня извинить за флуд в данном посте, позволила себе это исключительно как компенсацию за потраченное на обучение yfrf111 время.
Надеюсь, что когда-нибудь Вы поймете, что совет читать и пробовать -- это не есть "плохое", а как раз наоборот. То же относится к АНАЛИЗУ типовых конфигураций. Спасибо, что избавили от труда искать надпись в логотипе (это было довольно сложно), но только надписи "Обучение нежелающих читать и думать программированию в 1С" нет ни в логотипе, ни в ином месте. А по поводу этого
, то пока за помощь получила обвинение в деянии "плохого".
Вот в этом утверждении Вы очень сильно ошибаетесь: все зависит от желания добиться результата и количества/качества приложенных усилий. А наличие подсказчика только облегчает Ваш труд за счет его усилий объяснить Вам что-либо. А теперь по делу. Если Вы хотите научиться что-то делать своими руками и головой, последующая информация поможет Вам. В реестр данные попадают из таблицы лТаблЗН, как видно из Вашего рисунка (Вы этого посмотреть сами не хотите, желаете, чтобы позсказчик посмотрел и Вам объяснил). Проверьте, есть ли в этой таблице колонка с самим документом или его видом. Если есть, значит Вы можете организовать проверку: если вид документа в конфигураторе налоговая накладная выданная, то вид документа в рееестре ПН, а если вид документа приложение 2, то РК. Если же в таблице подобной колонки нет, можете добавить колонку с видом документа в реестре, анализируйте вид документа на стадии заполнения таблицы и сразу заполняйте новую колонку необходимым значением. А в печатной форме документа колонку Вид документа заполняйте из той же таблицы. Это все будет выглядеть приблизительно так (это пример, его надо переделать под Вашу конфигурацию и реестр):
// добавляем колонку в таблицу (там, где создаются остальные колонки таблицы) лТаблЗН.НоваяКолонка("ВидДока","Строка",6,);
// где-то при обходе результатов выборки налоговых документов (обход результатов запроса) // виды документов необходимо указывать так, как они заданы в конфигураторе Если Запрос.ДокументНалоговаяНакладная.Вид()="НалоговаяНакладнаяРасходная" Тогда лТаблЗН.ВидДока="ПН"; ИначеЕсли Запрос.ДокументНалоговаяНакладная.Вид()="Приложение2" Тогда лТаблЗН.ВидДока="РК"; Иначе // что-то пишем, если есть другие варианты КонецЕсли; // ДокументНалоговаяНакладная.Вид()="НалоговаяНакладнаяРасходная"
А в печатной форме вставляем формулу
лТаблЗН.ВидДока
Не совсем, понял где его менять? Два дня помучался все варианты ищерпаны.
вот код модуля
Перем ТекстЗапр, ДатаКвартала, ДатаНач, ДатаКон; //----------------------------------- Процедура ПечатьРеестр1() лТаблЗН=СоздатьОбъект("ТаблицаЗначений"); лТаблЗН.НоваяКолонка("Док","Документ"); //сам документ или док-основание из табличной части лТаблЗН.НоваяКолонка("Дата"); //дата (из шапки или строки) лТаблЗН.НоваяКолонка("Номер"); лТаблЗН.НоваяКолонка("Клн"); лТаблЗН.НоваяКолонка("НомерНДС");
//остальные - числа, идентификаторы С+номер колонки в таблице лСтрокаСвернуть = ""; Для i=6 по 14 Цикл лИдКолонки="С"+СокрЛП(Строка(i)); лТаблЗН.НоваяКолонка(лИдКолонки); лСтрокаСвернуть = лСтрокаСвернуть + ?(лСтрокаСвернуть="","",", ") + "С"+СокрЛП(Строка(i)); КонецЦикла;
//цикл по налоговым документам (участвуют только 3 документа!) Пока лДок.ПолучитьДокумент() = 1 Цикл Если (лДок.Вид()<>"НалоговаяНакладнаяПриходная") и (лДок.Вид()<>"ЗаписьКнигиЗакупок") и (лДок.Вид()<>"Дополнение2КНалоговойНакладнойПриходной") и (лДок.Вид()<>"Операция") Тогда Продолжить; КонецЕсли;
//HP включаем только проведенные (по константе) Если (лДок.Проведен()=0)И(Константа.ПечатьКнигНДС=0) Тогда Продолжить; КонецЕсли;
Если лДок.ПометкаУдаления()=1 Тогда Продолжить; КонецЕсли;
Если (ВыбФирма.Выбран()=1)И(лДок.ДтФирма<>ВыбФирма)И(лДок.Вид()<>"Операция") Тогда Продолжить; КонецЕсли;
Если (ВыбПодразделение.Выбран()=1) И (лДок.ДтПодразделение<>ВыбПодразделение) Тогда Продолжить; КонецЕсли;
Если лДок.Вид()="Операция" Тогда Если ПустоеЗначение(лДок.Операция.НомерНН) = 1 Тогда Продолжить; КонецЕсли; лТаблЗН.НоваяСтрока(); лТаблЗН.Заполнить(0,лТаблЗН.НомерСтроки,лТаблЗН.НомерСтроки,); лДок.Операция.ВыбратьПроводки(); лДок.Операция.ПолучитьПроводкуПоНомеру(1,1); лКлиент = лДок.Операция.Кредит.Субконто(1); лТаблЗН.Дата=лДок.Операция.ДатаОперации; лТаблЗН.Клн=лКлиент; лТаблЗН.НомерНДС=лКлиент.НомерНДС; лТаблЗН.Номер=лДок.Операция.НомерНН; лТаблЗН.Док=лДок.Операция.ТекущийДокумент(); лСум = лДок.Операция.Сумма; лТаблЗН.С7=лСум; лДок.Операция.ПолучитьПроводкуПоНомеру(2,1); лТаблЗН.С8=лДок.Операция.Сумма; лСум = лСум + лДок.Операция.Сумма; лТаблЗН.С6=лСум; ИначеЕсли лДок.Вид()="Дополнение2КНалоговойНакладнойПриходной" Тогда лТаблЗН.НоваяСтрока(); лТаблЗН.Заполнить(0,лТаблЗН.НомерСтроки,лТаблЗН.НомерСтроки,); лКлиент=лДок.ДтКлиент; лТаблЗН.Дата=лДок.ДатаДок; лТаблЗН.Клн=лКлиент; лТаблЗН.НомерНДС=лКлиент.НомерНДС; лТаблЗН.Номер=лДок.НомерДок; лТаблЗН.Док=лДок.ТекущийДокумент();
лТаблЗН.С6=лДок.СуммаПоДокументу; лТаблЗН.С7=лДок.СуммаПоДокументу - лДок.НДСпоДокументу; лТаблЗН.С8=лДок.НДСпоДокументу; ИначеЕсли лДок.Вид()="НалоговаяНакладнаяПриходная" Тогда Если лДок.НалоговыйКредит = Перечисление.Булево.Да Тогда лТаблЗН.НоваяСтрока(); лТаблЗН.Заполнить(0,лТаблЗН.НомерСтроки,лТаблЗН.НомерСтроки,); лКлиент=лДок.ДтКлиент; лТаблЗН.Дата=лДок.ДатаДок; лТаблЗН.Клн=лКлиент; лТаблЗН.НомерНДС=лКлиент.НомерНДС; лТаблЗН.Номер=лДок.НомерДок; лТаблЗН.Док=лДок.ТекущийДокумент(); лДок.ВыбратьСтроки(); лДок.ПолучитьСтроку(); лТаблЗН.С6=лДок.СуммаПоДокументу; лТаблЗН.С7=лДок.СуммаПоДокументу - лДок.Итог("НДСвСтроке"); лТаблЗН.С8=лДок.Итог("НДСвСтроке"); Иначе лДок.ВыбратьСтроки(); Пока лДок.ПолучитьСтроку() = 1 Цикл лТаблЗН.НоваяСтрока(); лТаблЗН.Заполнить(0,лТаблЗН.НомерСтроки,лТаблЗН.НомерСтроки,); лКлиент=лДок.ДтКлиент; лТаблЗН.НомерНДС=лКлиент.НомерНДС; лТаблЗН.Дата=лДок.ДатаДок; лТаблЗН.Клн=лКлиент; лТаблЗН.Номер=лДок.НомерДок; лТаблЗН.Док=лДок.ТекущийДокумент(); Если лДок.Товар.Вид() = "Товары" Тогда Если лДок.Товар.ВидТовара = Перечисление.Неамортизируемые.Услуга Тогда лТаблЗН.С13=лДок.ПродСумма; лТаблЗН.С14=Окр(лДок.ПродСумма*лДок.ВидНДС.ТарифНДС/100,Константа.ОкруглятьДо); лТаблЗН.С6=лТаблЗН.С13+лТаблЗН.С14; Иначе лТаблЗН.С11=лДок.ПродСумма; лТаблЗН.С12=Окр(лДок.ПродСумма*лДок.ВидНДС.ТарифНДС/100,Константа.ОкруглятьДо); лТаблЗН.С6=лТаблЗН.С11+лТаблЗН.С12; КонецЕсли; Иначе лТаблЗН.С11=лДок.ПродСумма; лТаблЗН.С12=Окр(лДок.ПродСумма*лДок.ВидНДС.ТарифНДС/100,Константа.ОкруглятьДо); лТаблЗН.С6=лТаблЗН.С11+лТаблЗН.С12; КонецЕсли; КонецЦикла; КонецЕсли; ИначеЕсли лДок.Вид()="ЗаписьКнигиЗакупок" Тогда //для многострочной части документа будем каждый раз генерить новую строку таблицы лДок.ВыбратьСтроки(); Пока лДок.ПолучитьСтроку() = 1 Цикл лТаблЗН.НоваяСтрока(); лТаблЗН.Заполнить(0,лТаблЗН.НомерСтроки,лТаблЗН.НомерСтроки,); лКлиент=лДок.Клиент; лТаблЗН.Дата=лДок.ДатаНДС; лТаблЗН.Клн=лКлиент; лТаблЗН.НомерНДС=лКлиент.НомерНДС; лТаблЗН.Номер=лДок.Номер; лТаблЗН.Док=лДок.ТекущийДокумент(); Если лДок.НалоговыйКредит = Перечисление.Булево.Да Тогда лТаблЗН.С6=лДок.ПродСумма + лДок.НДСвСтроке; лТаблЗН.С7=лДок.ПродСумма; лТаблЗН.С8=лДок.НДСвСтроке; Иначе Если лДок.НаЗатраты = Перечисление.Булево.Да Тогда лТаблЗН.С9=лДок.ПродСумма; лТаблЗН.С10=лДок.НДСвСтроке; лТаблЗН.С6=лТаблЗН.С9+лТаблЗН.С10; Иначе лТаблЗН.С11=лДок.ПродСумма; лТаблЗН.С12=лДок.НДСвСтроке; лТаблЗН.С6=лТаблЗН.С11+лТаблЗН.С12; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла;
лТаб.Опции(0,0,4.,0); лТаб.ТолькоПросмотр(1); лТаб.Показать("Реєстр податкових накладних розділ І",""); лТаблЗН.УдалитьСтроки(); КонецПроцедуры
//----------------------------------- Процедура ПечатьРеестр2() лТаблЗН=СоздатьОбъект("ТаблицаЗначений"); лТаблЗН.НоваяКолонка("Док","Документ"); //сам документ или док-основание из табличной части лТаблЗН.НоваяКолонка("Дата"); //дата (из шапки или строки) лТаблЗН.НоваяКолонка("Номер"); лТаблЗН.НоваяКолонка("Клн"); лТаблЗН.НоваяКолонка("НомерНДС");
//остальные - числа, идентификаторы С+номер колонки в таблице лСтрокаСвернуть = ""; Для i=6 по 14 Цикл лИдКолонки="С"+СокрЛП(Строка(i)); лТаблЗН.НоваяКолонка(лИдКолонки); лСтрокаСвернуть = лСтрокаСвернуть + ?(лСтрокаСвернуть="","",", ") + "С"+СокрЛП(Строка(i)); КонецЦикла;
//цикл по налоговым документам (участвуют только 3 документа!) Пока лДок.ПолучитьДокумент() = 1 Цикл Если (лДок.Вид()<>"НалоговаяНакладнаяРасходная") и (лДок.Вид()<>"ЗаписьКнигиПродаж") и (лДок.Вид()<>"Дополнение2КНалоговойНакладнойРасходной") Тогда Продолжить; КонецЕсли;
//HP включаем только проведенные (по константе) Если (лДок.Проведен()=0) И (Константа.ПечатьКнигНДС=0) Тогда Продолжить; КонецЕсли;
Если лДок.ПометкаУдаления()=1 Тогда Продолжить; КонецЕсли;
Если (ВыбФирма.Выбран()=1) И (лДок.ДтФирма<>ВыбФирма) Тогда Продолжить; КонецЕсли;
Если (ВыбПодразделение.Выбран()=1) И (лДок.ДтПодразделение<>ВыбПодразделение) Тогда Продолжить; КонецЕсли;
Если лДок.Вид()="НалоговаяНакладнаяРасходная" Тогда лТаблЗН.НоваяСтрока(); //перед заполнением "пронулим" колонки таблицы лТаблЗН.Заполнить(0,лТаблЗН.НомерСтроки,лТаблЗН.НомерСтроки,); //клиент и документ лКлиент=лДок.ДтКлиент; лТаблЗН.Дата=лДок.ДатаДок; лТаблЗН.Клн=лКлиент.ПолноеНазвание; лТаблЗН.НомерНДС=лКлиент.НомерНДС; лТаблЗН.Номер=лДок.НомерДок; Если лКлиент.Код = "." Тогда лТаблЗН.Номер=ПолучитьПустоеЗначение(); Иначе лТаблЗН.Номер=лДок.НомерДок; КонецЕсли; лТаблЗН.Док=лДок.ТекущийДокумент(); лТаблЗН.С6=лДок.СуммаПоДокументу;
Если лКлиент.ПризнакКлиентРезидент=Перечисление.ПризнакРезидентности.Нерезидент Тогда лТаблЗН.С11=лДок.СуммаПоДокументу; лТаб.ВывестиСекцию("Строка"); //вывод обычного документа (НалоговойНакладнойПоставщика и Дополнения...) Состояние("В звіт виведено "+лТаблЗн.НомерСтроки +" рядків."); продолжить; КонецЕсли; лДок.ВыбратьСтроки(); лДок.ПолучитьСтроку(); Если лДок.ВидНДСвСтроке.ЗначениеНДС=Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС Тогда лТаблЗН.С7=лДок.СуммаПоДокументу-лДок.Итог("НДСвСтроке"); лТаблЗН.С8=лДок.Итог("НДСвСтроке"); ИначеЕсли лДок.ВидНДСвСтроке.ЗначениеНДС=Перечисление.ЗначенияНДС.ЛьготнаяСтавкаНДС Тогда лТаблЗН.С9=лДок.СуммаПоДокументу; ИначеЕсли (лДок.ВидНДСвСтроке.ЗначениеНДС=Перечисление.ЗначенияНДС.БезНДС) ИЛИ (ПустоеЗначение(лДок.ВидНДСвСтроке.ЗначениеНДС) = 1) Тогда лТаблЗН.С10=лДок.СуммаПоДокументу; КонецЕсли; ИначеЕсли лДок.Вид()="Дополнение2КНалоговойНакладнойРасходной" Тогда лТаблЗН.НоваяСтрока(); //перед заполнением "пронулим" колонки таблицы лТаблЗН.Заполнить(0,лТаблЗН.НомерСтроки,лТаблЗН.НомерСтроки,); //клиент и документ лКлиент=лДок.ДтКлиент; лТаблЗН.Дата=лДок.ДатаДок; лТаблЗН.Клн=лКлиент.ПолноеНазвание; лТаблЗН.НомерНДС=лКлиент.НомерНДС; лТаблЗН.Номер=лДок.НомерДок; лТаблЗН.Док=лДок.ТекущийДокумент(); лТаблЗН.С6=лДок.СуммаПоДокументу; Если лДок.ПолучитьСтрокуПоНомеру(1) = 1 Тогда // Иначе Продолжить; КонецЕсли;
Если лКлиент.ПризнакКлиентРезидент=Перечисление.ПризнакРезидентности.Нерезидент Тогда лТаблЗН.С11=лДок.СуммаПоДокументу; лТаб.ВывестиСекцию("Строка"); //вывод обычного документа (НалоговойНакладнойПоставщика и Дополнения...) Состояние("В звіт виведено "+лТаблЗн.НомерСтроки +" рядків."); Продолжить; КонецЕсли; Если лДок.ВидНДСвСтроке.ЗначениеНДС=Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС Тогда лТаблЗН.С7=лДок.СуммаПоДокументу-лДок.НДСПоДокументу; лТаблЗН.С8=лДок.НДСПоДокументу; ИначеЕсли лДок.ВидНДСвСтроке.ЗначениеНДС=Перечисление.ЗначенияНДС.ЛьготнаяСтавкаНДС Тогда лТаблЗН.С9=лДок.СуммаПоДокументу; ИначеЕсли (лДок.м.ЗначениеНДС=Перечисление.ЗначенияНДС.БезНДС) ИЛИ (ПустоеЗначение(лДок.ВидНДСвСтроке.ЗначениеНДС) = 1) Тогда лТаблЗН.С10=лДок.СуммаПоДокументу; КонецЕсли; ИначеЕсли лДок.Вид()="ЗаписьКнигиПродаж" Тогда лДок.ВыбратьСтроки(); Пока лДок.ПолучитьСтроку()=1 Цикл //для многострочной части документа будем каждый раз генерить новую строку таблицы лТаблЗН.НоваяСтрока(); //перед заполнением "пронулим" колонки таблицы лТаблЗН.Заполнить(0,лТаблЗН.НомерСтроки,лТаблЗН.НомерСтроки,); //клиент и документ
Если лКлиент.ПризнакКлиентРезидент=Перечисление.ПризнакРезидентности.Нерезидент Тогда лТаблЗН.С11=лДок.ПродСумма; лТаб.ВывестиСекцию("Строка"); //вывод обычного документа (НалоговойНакладнойПоставщика и Дополнения...) Состояние("В звіт виведено "+лТаблЗн.НомерСтроки +" рядків."); Продолжить; КонецЕсли; Если лДок.ВидНДСвСтроке.ЗначениеНДС=Перечисление.ЗначенияНДС.ОсновнаяСтавкаНДС Тогда лТаблЗН.С7=лДок.ПродСумма; лТаблЗН.С8=лДок.НДСВСтроке; ИначеЕсли лДок.ВидНДСвСтроке.ЗначениеНДС=Перечисление.ЗначенияНДС.ЛьготнаяСтавкаНДС Тогда лТаблЗН.С9=лДок.ПродСумма; ИначеЕсли (лДок.ВидНДСвСтроке.ЗначениеНДС=Перечисление.ЗначенияНДС.БезНДС) ИЛИ (ПустоеЗначение(лДок.ВидНДСвСтроке.ЗначениеНДС) = 1) Тогда лТаблЗН.С10=лДок.ПродСумма; КонецЕсли;
лТаб.ВывестиСекцию("Строка"); //вывод многострочной части ЗаписиКнигиЗакупок Состояние("В звіт виведено "+лТаблЗн.НомерСтроки +" рядків."); КонецЦикла; // по строкам Книги продаж Продолжить; КонецЕсли; //по строкам книги закупок
yfrf111, иногда меня поражает так называемая мужская логика, яркой иллюстрацией которой является Ваш ответ. Почему цитирование Ваших изречений Вы называете
, мне не понять (либо эмоции мешают, либо количество запятых в предложениях).
Из моих ответов в созданной Вами теме этого не следует, как, впрочем, и из других моих постов. Но, хотя Вы и сделали неверные выводы (возможно, причиной этому является специфическое логическое мышление), очевидно, что Вы не ограничились прочтением моих сообщений только в этой ветке.
Были у меня глубокие сомнения, стоит ли показывать свое лицо, и, судя по всему, не зря. Почему-то его созерцание мешает оппонентам адекватно воспринимать мои слова. Пожалуй, дней через 10 верну status quo ante bellum.
Смысл этой фразы является для меня загадкой. Под черным Вы понимаете факт моего вступления в дискуссию с Вами и желание помочь непонятным Вам способом, а под белым -- разжевывание алгоритмов с приведением примеров?.. Если так, то воздержусь от комментариев.
Естественно. При определенных условиях буду помогать в дальнейшем.
Уважаемые модераторы и администраторы! Прошу меня извинить за флуд в данном посте, позволила себе это исключительно как компенсацию за потраченное на обучение yfrf111 время.
Мужская логика запуталась и просит помощь у женской?)
yfrf111, скажите честно - вы много литературы по 1С прочитали? 5_kopeek вам говорит простые вещи, а вы даже их не понимаете. Так дела не будет.
1С 7.7 -Описание встроеного языка и+ Сайт [необходимо зарегистрироваться для просмотра ссылки] книжку только начал с ней работать! Вторая неделя с 1С у меня Вы же не проснулись, и сразу умели и программировать и все делать, прошло какое-то время! Когда знаешь в своем деле много, думаешь да это просто, нечего, делать. А когда с чем то новым сталкиваешься, приходиться почисать затылок и не только.)
yfrf111, Вы меня удивляете. Некоторое время Вы не появлялись, я уж подумала, что работает человек усердно, ща как выдаст модуль на 99% рабочий. Ан нет, прогресса 0.
Цитата
Вы же не проснулись, и сразу умели и программировать и все делать, прошло какое-то время! Когда знаешь в своем деле много, думаешь да это просто, нечего, делать. А когда с чем то новым сталкиваешься, приходиться почисать затылок и не только.)
Никому никакие знания ниоткуда не свалились, а все много работали, чтобы знать то, что знают сейчас. Те усилия, которые Вы тратите на спор и чесанье, направьте в нужное русло -- пользы будет больше.
Цитата
Не совсем, понял где его менять? Два дня помучался все варианты ищерпаны.
Где все те варианты, которые "исчерпаны"? Вы опять выдали имеющийся модуль, предлагая нам разбираться в нем. Где результаты Ваших мучений? Что вы пробовали менять? У Вас 2 неделя с 1С, а вообще Вы программировали до этого? И, когда будете отвечать, не надо цитировать весь мой пост, как Вы делаете обычно, а цитируйте только ключевые фразы, без которых смысл Вашего ответа не будет понятен, или вообще обойдитесь без оного. Кто захочет, перечитает цитируемый пост полностью.
Оказалось, самое гениальное, это довольно простое!))) записал без модуля, просто в ячейке месяца №1 Сред(Формат(ВыборДатаНачала,"Д(0)ДДММГГГГ"),4,1) а в ячейке № 2 Сред(Формат(ВыборДатаНачала,"Д(0)ДДММГГГГ"),5,1) Где "ВыборДатаНачала", это индефикатор поля "Начала Периода", в моем случае документа Реестр. Работает на ура!!! Теперь за место "2", пишет "02".) Всем спасибо за помощь!
Не знаю, правильно я сделал, но проблема решена!!!
Формат(ДатаМесяц(ВыборДатаНачала),"Ч(0)2")
Цитата(yfrf111 @ 26.02.11, 15:52)
А еще чек! Или я шибаюсь? Вам веднее!))) Небольшой пример, бы мне помог или указать место, где примерно используеться тот же принцип! Релизы смотрел для Укр. 035 и 036 там какая-то высшая математика, где все сылаеться, на XML не могу понять!
Я так и не услышал ответ а свой вопрос. Чтобы подсказать алгоритм работы, мне необходимо знать какие на Вашем предприятие используются виды документов в налоговом учете. Если смотреть новый релиз реестра то список документов ПН01,..,ПН11 и т.д. Неужели все? (внешнеэкономической деятельностью занимаетесь - нет значит в принципе и нет ГТД) -для всего писать будет слишком заморочено. Спросите у бухгалтера какие виды документов у него должны попадать в реестр, если сами не знаете...
Я так и не услышал ответ а свой вопрос. Чтобы подсказать алгоритм работы, мне необходимо знать какие на Вашем предприятие используются виды документов в налоговом учете. Если смотреть новый релиз реестра то список документов ПН01,..,ПН11 и т.д. Неужели все? (внешнеэкономической деятельностью занимаетесь - нет значит в принципе и нет ГТД) -для всего писать будет слишком заморочено. Спросите у бухгалтера какие виды документов у него должны попадать в реестр, если сами не знаете...
НалоговаяНакладнаяПриходная ЗаписьКнигиЗакупок Дополнение2КНалоговойНакладнойПриходной НалоговаяНакладнаяРасходная Дополнение2КНалоговойНакладнойРасходной НалоговаяНакладнаяРасходная ЗаписьКнигиПродаж Кассовый Чек
НалоговаяНакладнаяПриходная ЗаписьКнигиЗакупок Дополнение2КНалоговойНакладнойПриходной НалоговаяНакладнаяРасходная Дополнение2КНалоговойНакладнойРасходной НалоговаяНакладнаяРасходная ЗаписьКнигиПродаж Кассовый Чек
В А4:БТР в реестр налоговых накладных (то бишь в книгу закупок и продаж - тогда еще реестра как такого не было) попадают только 6 видов документов: Кассовый чек никогда не попадал - по нему необходимо было сделать или налоговую накладную либо ЗаписьКНиги. Вопрос звучит в том, что необходимо узнать методы работы Вашего бухгалтера: Например, чтобы Вывести в реестр НН вид налогового документа ПН11 - признаком может служить ДокументОснование в НалоговойНакладнойРасходной есть документ Вида "ОтчетПОРРО" либо "РасходИзРозницы" либо "Приходный Кассовый ордер". Мой вопрос звучал вот именно какие ПН?? на Вашем предприятии используются?
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!
Помогите с написанием реестра НН для конфигурации А4: БТР Релиз 3.22/99 
26.02.11, 13:30
