Имя: Пароль:
1C
1С v8
Почистил код...но не выводит на экран
,
0 msk-07
 
23.05.12
08:46
Есть код для
Процедура КнопкаВыполнитьНажатие(Кнопка)
   Команды=Новый ТаблицаЗначений;
   Команды.Колонки.Добавить("НомерСтр", Новый ОписаниеТипов("Число"));
   Команды.Колонки.Добавить("СФ", Новый ОписаниеТипов(Документы.ТипВсеСсылки().Типы()));
   Команды.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));
   Команды.Колонки.Добавить("НДС", Новый ОписаниеТипов("Число"));
   Команды.Колонки.Добавить("Разница",Новый ОписаниеТипов ("Число"));
   Команды.Колонки.Добавить("Разница2", Новый ОписаниеТипов("Число"));
   Выборка = Документы.НДС_СчетФактураВыданный.Выбрать(Дата1, Дата2);
   Пока Выборка.Следующий() Цикл
       Если Выборка.ПолучитьОбъект() <> 1 Тогда
           Продолжить;    
       КонецЕсли;
   Команды.НоваяСторока();
   Команды.НомерСтр=Команды.НормерСтроки;
   Команды.СФ=Выборка.ПолучитьОбъект();
   Команды.Сумма=Выборка.Итог("Сумма");
   Команды.НДС=Выборка.Итог("НДС");
   Команды.Разница=Выборка.Итог("Всего")*18/118-Выборка.Итог("НДС");
   Команды.Разница2=Выборка.Итог("Всего")*18/100-Выборка.Итог("НДС");
   КонецЦикла
КонецПроцедуры

Процедура ПриОткрытии()
   НачалоПериода=НачалоКвартала(ТекущаяДата());
   КонецПериода=КонецКвартала(ТекущаяДата());
КонецПроцедуры

Процедура ПроверкаЗКП ()
   ИтогоОш=0;
   ИтогоОш2=0;
   ЗКП = Документы.НДС_СчетФактураВыданный.Выбрать(Дата1, Дата2);
   ЗКП.ВыбратьСтроки();
   Пока ЗКП.ПолучитьСтроку()=1 Цикл
       Разн=Окр(ЗКП.СуммаНДС * 18/100,2)-ЗКП.СтавкаНДС;
       Если Разн < 0 Тогда
       Разн=-Разн;
   КонецЕсли;
   Если Разн > 0 Тогда
       Сообщить(Строка(ЗКП.КодВидаОперации)+" "+Строка(Окр(ЗКП.СуммаНДС * 18/100,2)-ЗКП.СтавкаНДС));
   КонецЕсли;
       ИтогоОш=ИтогоОш+ЗКП.СуммаНДС * 18/100-ЗКП.СтавкаНДС;
       ИтогоОш2=ИтогоОш2+Окр(Зкп.СуммаНДС * 18/100,2)-ЗКП.СтавкаНДС;
   КонецЦикла;
   Сообщить("Ошибка итого" + ИтогоОш);
   Сообщить("Ошибка итого2" + ИтогоОш2);    
КонецПроцедуры


вроде бы все подчистил...но не выводит ни чего на экран...наверное я что-то не так пишу в макете, не могу понять почему  http://s017.radikal.ru/i435/1205/0c/9bfd90d0ecd9.jpg , а это как написано на 7.7 http://s019.radikal.ru/i618/1205/14/28a2396ce154.jpg
1 msk-07
 
23.05.12
08:47
2 butterbean
 
23.05.12
08:48
а где код вывода на экран??
3 Tymoha
 
23.05.12
08:49
Если Выборка.ПолучитьОбъект() <> 1 Тогда
           Продолжить;    
       КонецЕсли;


Это чо? Объект у тебя равен 1? )))
4 Homer
 
23.05.12
08:49
таблица Команды и Таблица на форме это одно и тоже?
5 msk-07
 
23.05.12
08:50
(4) иначе ошибка(((
6 PuhUfa
 
23.05.12
08:50
Я так вообще не могу увязать макет в 8ке... с формой в 7ке и кодом в ТС -)))
7 Tymoha
 
23.05.12
08:51
ЗКП = Документы.НДС_СчетФактураВыданный.Выбрать(Дата1, Дата2);
   ЗКП.ВыбратьСтроки();
   Пока ЗКП.ПолучитьСтроку()=1 Цикл
 

Это чо? ЗКП у тебя выборка документов.
8 msk-07
 
23.05.12
08:52
(7) Да
9 Пеппи
 
23.05.12
08:53
(8) ты пишешь для 7.7 наверное.  этот код не похож на 8й.
10 msk-07
 
23.05.12
08:53
нет. для 8.2
11 Пеппи
 
23.05.12
08:54
и ошибок не выдает?
12 msk-07
 
23.05.12
08:55
нет..все норм, вот только на экран ни чего не выводит, наверное это из-за макета(
13 Пеппи
 
23.05.12
08:56
ты куда хочешь вывести? на экран или в табличный документ?
14 butterbean
 
23.05.12
08:58
(10) не звизди, твоя процедура ПроверкаЗКП на 8.2 вся обругается... хотя может она просто не вызывается...
15 butterbean
 
23.05.12
08:58
(14)+ проблема у тебя в проверке Выборка.ПолучитьОбъект() <> 1
16 salvator
 
23.05.12
09:00
(0)
Если Выборка.ПолучитьОбъект() <> 1 Тогда

Условие не сработает, учи матчасть!
17 Пеппи
 
23.05.12
09:00
в процедуре КнопкаВыполнитьНажатие тоже полно непонятного кода.
18 salvator
 
23.05.12
09:00
+(16) Точнее, сработает, но ТЗ не заполнится
19 Пеппи
 
23.05.12
09:01
(0) отладчиком пользоваться умеешь?
20 msk-07
 
23.05.12
09:06
честно нет(
21 salvator
 
23.05.12
09:09
(12) Звездишь как дышишь. У тебя вот в этих 2-х строках только

Команды.НоваяСторока();
Команды.НомерСтр=Команды.НормерСтроки;

уже 2 ошибки
22 msk-07
 
23.05.12
09:12
Если бы мне кто нибудь посоветовал книгу или сайт где хорошо описана структура синтаксиса 1с, я тыкаюсь все на пишу и не понимаю смысла во многом. То есть где ссылку делать где сразу вызывать((
23 ЧеловекДуши
 
23.05.12
09:13
Автор походу запутался в коде :)
И 7.7 и 8.х наплел :)

(22)А ты вообще программист или бухгалтер?
Тут надо точно знать, а то не каждая книга по программированию понятно буху :)
24 Пеппи
 
23.05.12
09:13
(22) в типовых конфигурациях можно посмотреть. Там столько кода, причем рабочего.
25 salvator
 
23.05.12
09:15
(22) Открой для себя сначала СП
26 msk-07
 
23.05.12
09:17
я закончил математический факультет, чистая математика
27 Бледно Золотистый
 
23.05.12
09:19
(26) Так мы хотя бы (2) увидим?
28 msk-07
 
23.05.12
09:20
как бы я добавил строчку в конце ЗКП.Показать();
без результатно(
29 Пеппи
 
23.05.12
09:23
(26) почему пишешь семерочным кодом? ты переписываешь обработку для 7ки?
30 msk-07
 
23.05.12
09:23
(29) да, переписываю(((
31 butterbean
 
23.05.12
09:24
(28) у тебя процедура ПроверкаЗКП не вызывается, если бы вызывалась - ругалось бы на ошибки
32 zak555
 
23.05.12
09:25
(0) ты так бухам про округление и не рассказал ?
33 Пеппи
 
23.05.12
09:27
(32) рассказал, но они не поверили ему. :))
34 msk-07
 
23.05.12
09:31
неа..
35 zak555
 
23.05.12
09:31
(33) они не верят математике ?
36 zak555
 
23.05.12
09:31
(34) почему ?
37 msk-07
 
23.05.12
09:35
((((((
38 msk-07
 
23.05.12
09:38
так что мне делать?
39 salvator
 
23.05.12
09:38
(38) Учиться, учиться и еще раз учиться (с)
40 butterbean
 
23.05.12
09:38
(38) в чем проблема?? тебе уже все разжевали по нескольку раз
41 zak555
 
23.05.12
09:39
(38) какого хрена ты буха математику не рассказал и не спросил, зачем им эта херня ?
42 msk-07
 
23.05.12
09:39
блин..не понимаю, я сам закончил чистую математику
43 msk-07
 
23.05.12
09:43
(41)а им нужно это, им это бухам для подсчета погрешности при подсчете НДС
44 msk-07
 
23.05.12
10:23
(((( печаль
45 zak555
 
23.05.12
10:26
(43) ты им мой пример приводил ?
46 msk-07
 
23.05.12
10:32
Да,  здесь кажется другая ситуация вот есть сумма документа  мы умножаем на процент НДС *0,18, получается число где например после занятой четыре знака и машина это пропускает, но у нас же нет тысячных копеек, из-за этого мы округляем до десятых, то есть ,ХХ вот то они меняя просят
47 zak555
 
23.05.12
10:34
(46) объясни этим упырям, что на ставку умножать общую сумму документа НЕЛЬЗЯ !!!!!!!!!!!!!!!!!!!
48 Бледно Золотистый
 
23.05.12
10:34
(43) А если в СФ есть товары со ставкой НДС 10%, что делать будешь?
49 msk-07
 
23.05.12
10:35
не знаю, что делать(((
50 zak555
 
23.05.12
10:35
(49) отправь их читать Налоговый Кодекс (!)
51 zak555
 
23.05.12
10:35
давай телефон - ща ему популярно объясню
52 zak555
 
23.05.12
10:36
им
53 msk-07
 
23.05.12
10:39
http://i009.radikal.ru/1205/ea/b23fc681030a.jpg вот что обрабатывает эта обработка
54 zak555
 
23.05.12
10:39
кстати, вот ещё им что скажи :
сумма усеченных множеств не равна усечению множества
55 msk-07
 
23.05.12
10:40
вот и получается отклонение на -4 рубля
56 msk-07
 
23.05.12
10:44
если честно я не понимаю зачем им это, но наверное для успокоения души((((
57 MatrosoV AleXXXand_R
 
23.05.12
10:58
Если Выборка.ПолучитьОбъект() <> 1 Тогда

Это не 7.7, это 8-ка

ПолучитьОбъект() - возвращает [...]Объект
58 MatrosoV AleXXXand_R
 
23.05.12
11:00
а вообще сразу косяк - запросом надо заполнять а не перебором, да и в колонку ты засовываешь СчетФактураОбъект, а надо СчетФактураСсылка
59 zak555
 
23.05.12
11:01
(55) отклонение у них в мозгу
60 zak555
 
23.05.12
11:02
(56) ты у них сейчас сидишь ?
принтер есть у них ?
61 msk-07
 
23.05.12
11:05
да, есть
62 msk-07
 
23.05.12
11:13
((((
63 zak555
 
23.05.12
13:56
(61) распечатай им плакат следующего содержания :

сумма усеченных множеств не равна усечению множества (!)
64 EasyRider
 
23.05.12
14:02
(63)А чей это закон?
65 zak555
 
23.05.12
14:04
(64) общеизвестный
66 EasyRider
 
23.05.12
14:07
(65)так-то оно так,но как-то вроде неловко аргументировать словами "это же всем известно!"
67 Бледно Золотистый
 
23.05.12
14:08
(63) Думаю они это понимают, раз требуют обработку от ТСа, вот только как они эту информацию хотят использовать не понятно.
68 zak555
 
23.05.12
14:09
(66) если бух этого не знает - пусть валит торговать колбасой
69 zak555
 
23.05.12
14:09
(67) если бы они это не понимали, то не просили автора делать сей бред
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn