|
Выгрузка возвратов | ☑ | ||
---|---|---|---|---|
0
Arutynov
10.11.12
✎
13:12
|
Здравствуйте! Я работаю с 1с бухгалтерия 8.2. Мне необходимо выгрузить документы "Возврат товаров от покупателя" в DBF.Практически все что мне необходимо я могу выгрузить кроме ЦЕНЫ и ЕД.ИЗМЕРЕНИЯ. Вот текст:
Процедура КнопкаВыполнитьНажатие(Кнопка) Дбаза= Новый XBase(); ФайлДБФ= Новый Файл(ФН3); ДБаза.поля.Добавить("Numb","S",11); ДБаза.поля.Добавить("Date","D",10); ДБаза.поля.Добавить("Klkod", "S", 20); ДБаза.поля.Добавить("Klname", "S", 100); //ДБаза.поля.Добавить("Tkod", "s", 20); ДБаза.поля.Добавить("Summa", "N", 15, 2); ДБаза.поля.Добавить("NDS", "S", 20); ДБаза.поля.Добавить("Cena", "s", 20); ДБаза.поля.Добавить("Bei", "S", 20); ДБаза.поля.Добавить("Kol", "S", 100); ДБаза.поля.Добавить("Tvname", "S", 100); ДБаза.поля.Добавить("INN", "S", 20); ДБаза.СоздатьФайл(ФН3); Выборка = Документы.ВозвратТоваровОтПокупателя.Выбрать(НачПериода,КонецДня(КонПериода)); Пока Выборка.Следующий() Цикл Если Выборка.ПометкаУдаления Тогда Продолжить; КонецЕсли; ДБаза.Добавить(); Об = Выборка.ПолучитьОбъект(); ДБаза.Numb =Об.Номер; ДБаза.Date =об.Дата; ДБаза.KlKod =об.Контрагент.Код; ДБаза.KlName=об.Контрагент.Наименование; ДБаза.Nds =об.Товары.Итог("СуммаНДС"); ДБаза.Summa =об.СуммаДокумента; ДБаза.INN =об.Контрагент.ИНН; ДБаза.Kol =об.Товары.Количество(); ДБаза.Cena =???? ДБаза.Записать(); КонецЦикла; ДБаза.ЗакрытьФайл(); Сообщить("Обработка завершена"); КонецПроцедуры Как мне это сделать? Подскажите кто знает. |
|||
1
Wobland
10.11.12
✎
13:12
|
а что, цены и единицы в ТЧ нет?
|
|||
2
Wobland
10.11.12
✎
13:14
|
от же ж прикольно как. в БП3 количество в ТЧ есть, а единицы нет
|
|||
3
Wobland
10.11.12
✎
13:14
|
>об.Товары.Количество();
это о чём? |
|||
4
Arutynov
10.11.12
✎
13:15
|
Я начинающий программист.
ТЧ-табличная часть? Они в табличной части есть только как к ним обратится? Как с остальными не получается. |
|||
5
Arutynov
10.11.12
✎
13:16
|
Я тоже думал
>об.Товары.Цена(); но не получается. не видит |
|||
6
Wobland
10.11.12
✎
13:17
|
(4) пройдись по ТЧ, сделай что-нибудь для каждой строки из ТЧ
|
|||
7
Wobland
10.11.12
✎
13:18
|
а на (3) ответь. кстати, непроведённые документы должны выгружаться?
|
|||
8
Wobland
10.11.12
✎
13:18
|
а зачем объект получать?
|
|||
9
Arutynov
10.11.12
✎
13:19
|
а как
|
|||
10
Wobland
10.11.12
✎
13:19
|
а почему цена строка?
|
|||
11
Arutynov
10.11.12
✎
13:20
|
с непроведенными я разберусь. пока пусть все выгружает
|
|||
12
Arutynov
10.11.12
✎
13:21
|
Забыл переделать на N
|
|||
13
Wobland
10.11.12
✎
13:23
|
кстати, когда создавать файл будешь, наткнёшься на ошибку. так вот, когда будешь на неё жаловаться, скажи, что СП ты уже читал
|
|||
14
cViper
10.11.12
✎
13:51
|
(0)в мусорку.
|
|||
15
cViper
10.11.12
✎
13:51
|
(14)все неправильно. Пиши запрос.
|
|||
16
cViper
10.11.12
✎
13:54
|
(5)Ты сам то понимаешь что пытаешься получить цену всех строк из Табличной Части?! И где у тебя выгружаются наименования позиций?
|
|||
17
Arutynov
10.11.12
✎
14:03
|
Если я цену выгружу то и наименование выгружу..
|
|||
18
cViper
10.11.12
✎
14:07
|
(17) Пиши запрос. То что написано в (0) мусор.
|
|||
19
sttt
10.11.12
✎
14:08
|
реквизит цена не заполнена в документе?
|
|||
20
cViper
10.11.12
✎
14:10
|
(19) Какая цена в документе?! Там ТЧ.
|
|||
21
sttt
10.11.12
✎
14:12
|
(20)возьми открой типовую БП и посмотри в ТЧ есть ЦЕНА!!!!!
|
|||
22
Arutynov
10.11.12
✎
14:12
|
Я попробую запросом спасибо.А выборкой никак?
|
|||
23
sttt
10.11.12
✎
14:13
|
ааа! блин, он шапку выгружает только...
|
|||
24
sttt
10.11.12
✎
14:14
|
(22) у тебя там вообще бардак ))) все делай по другому
|
|||
25
cViper
10.11.12
✎
14:14
|
(23) да. Я имел ввиду что в шапке ее нет.
|
|||
26
sttt
10.11.12
✎
14:14
|
(22) можно выборкой
|
|||
27
cViper
10.11.12
✎
14:15
|
(26) Не надо учить человека плохому стилю.
|
|||
28
sttt
10.11.12
✎
14:15
|
(25) да, но он там потом так делает))) ДБаза.Kol =об.Товары.Количество();
|
|||
29
Arutynov
10.11.12
✎
14:15
|
как ... в чем бордак? что не так
|
|||
30
cViper
10.11.12
✎
14:16
|
(28) Так это метод который получает количество строк в ТЧ. Это не то что он хочет.
|
|||
31
sttt
10.11.12
✎
14:16
|
(27)я его не учу, ему сейчас так удобнее)) с запросами еще две недели просидит)))
|
|||
32
cViper
10.11.12
✎
14:17
|
(31) Ему всю жизнь будет так удобнее.
|
|||
33
Arutynov
10.11.12
✎
14:19
|
Запросом я попробую. А выборкой как сделать?
|
|||
34
Wobland
10.11.12
✎
14:20
|
(33) повторить?
|
|||
35
sttt
10.11.12
✎
14:22
|
(29) тебе нужно какие данные выгрузить? только шапку или еще номенклатуру? по колу получается что ты хочешь выгрузить только шапку. если только шапку, тогда малость так нужно:
ДБаза.Kol = об.Товары.Итог("Количество"); ДБаза.Cena = об.Товары.Итог("Цена")/об.Товары.Итог("Количество"); |
|||
36
sttt
10.11.12
✎
14:22
|
по колу получается = по коду получается
|
|||
37
Arutynov
10.11.12
✎
14:23
|
А ед. изм
|
|||
38
Wobland
10.11.12
✎
14:23
|
(35) сумму надо делить
|
|||
39
Wobland
10.11.12
✎
14:24
|
(37) на (35) ответь
|
|||
40
sttt
10.11.12
✎
14:25
|
(35) ай блин, начудил. не так количество строк ТЧ на об.Товары.Итог("Цена")
|
|||
41
cViper
10.11.12
✎
14:25
|
(35)
ДБаза.Cena = об.Товары.Итог("Цена")/об.Товары.Итог("Количество") Вы вообще понимаете какой сказочный бред вы написали? |
|||
42
Wobland
10.11.12
✎
14:26
|
(40) прекрати фигню сочинять ;)
|
|||
43
sttt
10.11.12
✎
14:26
|
(37) а зачем тебе ед если только шапка выгружается
|
|||
44
sttt
10.11.12
✎
14:27
|
(42) почему фигня, среднюю цену ТЧ вычисляем))
|
|||
45
Wobland
10.11.12
✎
14:27
|
дураки вы все и не лечитесь, не можете автору сказать, что ему ещё цикл по ТЧ нужен. один я тут в белом пальто весь такой красивый стою ;)
|
|||
46
cViper
10.11.12
✎
14:27
|
(43) Цену никогда средним значением не выгружают. Парень в (0) ошибся. Ему надо все грузить походу, а не только шапку.
|
|||
47
Arutynov
10.11.12
✎
14:27
|
мне не шапку надо а данные
|
|||
48
sttt
10.11.12
✎
14:29
|
(46) а чего он тогда номенклатуру не выгружает?
|
|||
49
sttt
10.11.12
✎
14:29
|
(47) теперь понятно, запрос делай и все получиться
|
|||
50
cViper
10.11.12
✎
14:29
|
Делай запрос. Так правильно. Получать объекты документов слишком долго и не правильно для твоей задачи.
|
|||
51
Wobland
10.11.12
✎
14:30
|
(48) см (10) и (12) - он юнга
|
|||
52
Wobland
10.11.12
✎
14:30
|
что, коллеги, сделаем сотню, как думаете?
|
|||
53
sttt
10.11.12
✎
14:33
|
(52) да легко))
|
|||
54
Arutynov
10.11.12
✎
14:37
|
Пробую запрос писать!
|
|||
55
Йохохо
10.11.12
✎
14:39
|
Пока Выборка.Следующий() Цикл
Если Выборка.ПометкаУдаления Тогда Продолжить; КонецЕсли; // cmon later //ДБаза.Добавить(); //Об = Выборка.ПолучитьОбъект(); // общие реквизиты дока ДБазаNumb =Об.Номер; ДБазаDate =об.Дата; ДБазаKlKod =об.Контрагент.Код; ДБазаKlName=об.Контрагент.Наименование; ДБазаINN =об.Контрагент.ИНН; // ТЧ Для каждого Стр Из об.Товары Цикл ДБаза.Добавить(); // here we go // из шапки для каждой строки ДБаза.Date =ДБазаDate ДБаза.KlKod =ДБазаKlKod ; ДБаза.KlName=ДБазаKlName; ДБаза.INN = ДБазаINN ; // не из нее ДБаза.Nds =Стр.СуммаНДС; ДБаза.Summa =Стр.Сумма; ДБаза.Kol =Стр.Количество // плз но "()"; ДБаза.Cena =Стр.Прайс; ДБаза.Записать(); КонецЦиклаПоТЧ; КонецЦикла; // После исправления ошибок в дбф будет куча строк, где в каждой строке есть и реквизиты документа и данные строки Товары, надо провести нормализацию Indian CtrlCCtrlV (c) |
|||
56
sttt
10.11.12
✎
14:39
|
(54) подсказка, открой модуль объекта документа
и в строке 18 есть готовая функция: Функция ПечатьВозвратаОтПокупателя() Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); Запрос.Текст = "ВЫБРАТЬ | Номер, | Дата, | ДоговорКонтрагента, | Контрагент КАК Контрагент, | Организация, | СуммаДокумента, | ВалютаДокумента, | УчитыватьНДС, | СуммаВключаетНДС, | Товары.( | НомерСтроки, | Номенклатура, | Номенклатура.НаименованиеПолное КАК Товар, | Номенклатура.Код КАК Код, | Номенклатура.Артикул КАК Артикул, | Количество, | Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения, | Цена, | Сумма, | СуммаНДС | ) |ИЗ | Документ.ВозвратТоваровОтПокупателя КАК ВозвратТоваровОтПокупателя | |ГДЕ | ВозвратТоваровОтПокупателя.Ссылка = &ТекущийДокумент"; Шапка = Запрос.Выполнить().Выбрать(); Шапка.Следующий(); ВыборкаСтрокТовары = Шапка.Товары.Выбрать(); |
|||
57
Wobland
10.11.12
✎
14:42
|
(55)(56) сейчас его кондратий хватит
|
|||
58
sttt
10.11.12
✎
14:43
|
(57) )))
(54) только это нужно убрать: Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка); и вот это: |ГДЕ | ВозвратТоваровОтПокупателя.Ссылка = &ТекущийДокумент |
|||
59
Wobland
10.11.12
✎
14:47
|
(58) и добавить условие про даты и проведённость
|
|||
60
Wobland
10.11.12
✎
14:48
|
и всё-таки выгружать ТЧ не как ТЗ. то есть обращаться к таблице ТЧ, а не документа
|
|||
61
sttt
10.11.12
✎
14:48
|
(59) ну да точно, еще в запросе обозвать поля на ангельско и в цикле ЗаполнитьЗначенияСвойств
|
|||
62
sttt
10.11.12
✎
14:50
|
(60) что то автор молчит...
|
|||
63
Wobland
10.11.12
✎
14:50
|
(61) это был контрольный выстрел в автора
|
|||
64
Arutynov
10.11.12
✎
14:51
|
Да я тут пробовать пытаюсь)
|
|||
65
sttt
10.11.12
✎
14:51
|
(63) видимо, закипел паренек
|
|||
66
sttt
10.11.12
✎
14:52
|
а вот и автор)) ну и как?
|
|||
67
Arutynov
10.11.12
✎
14:52
|
пока печально а там посмотрим!
|
|||
68
sttt
10.11.12
✎
14:53
|
где заклинило?
|
|||
69
Wobland
10.11.12
✎
14:54
|
моему падавану надысь дали задачу: взять два текстовых файла и найти различия. предполагается, что в файлах некий список фамилий, нужно найти тех, которых нет одновременно в двух файлах. падаван как белый человек стал писать циклический обход. это был объектный подход к решению задачи. я же предложил реляционный: взять две ТЗ, соединить и посмотреть, где NULLы. человека слегка переклинило - принципиально разные подходы
|
|||
70
Arutynov
10.11.12
✎
14:54
|
смотрю что(55) написал
|
|||
71
Кокос
10.11.12
✎
14:55
|
Выборка = Документы.ВозвратТоваровОтПокупателя.Выбрать(НачПериода,КонецДня(КонПериода));
Пока Выборка.Следующий() Цикл Если Выборка.ПометкаУдаления Тогда Продолжить; КонецЕсли; Для Каждого СтрокаТЧ из Выборка.Товары ЦИкл Цена = СтрокаТЧ.Цена; чтото вроде этого |
|||
72
Кокос
10.11.12
✎
14:55
|
(70) А. Да. (55) уже написал.
|
|||
73
Wobland
10.11.12
✎
14:56
|
(71) видишь ли, здесь состязаются два подхода к решению ;)
|
|||
74
Йохохо
10.11.12
✎
15:03
|
(73) выходной же
Процедура ФункцияВыигрыша(Вася, Петя) Экспорт Далее Более Если Вася.Дома() А Петя.Нет() Тогда Сообщить 1; ИначеЕсли Вася.Нет() А Петя.Дома() Тогда Сообщить 2; Иначе ФункцияВыигрыша(Вася, Петя); // Ждем КонецПроцедуры |
|||
75
Wobland
10.11.12
✎
15:04
|
(74) две разные функции для одного и того же. г-код
Если Вася.Дома() И НЕ Петя.Дома() Тогда... |
|||
76
sttt
10.11.12
✎
15:05
|
еще варианты))
|
|||
77
sttt
10.11.12
✎
15:10
|
лучше так:
Пока 1=1 Цикл Предупреждение("Привет мир!!!"); КонецЦикла |
|||
78
sttt
10.11.12
✎
15:12
|
(70) ну как, получилось?
|
|||
79
sttt
10.11.12
✎
15:15
|
видимо до сотки не дойдет (
фнз = "c:\v8.dbf"; Дбаза= Новый XBase(); ДБаза.поля.Добавить("Numb","S",11); ДБаза.поля.Добавить("Date","D",10); ДБаза.поля.Добавить("Klkod", "S", 20); ДБаза.поля.Добавить("Klname", "S", 100); //ДБаза.поля.Добавить("Tkod", "s", 20); ДБаза.поля.Добавить("Summa", "N", 15, 2); ДБаза.поля.Добавить("NDS", "S", 20); ДБаза.поля.Добавить("Cena", "s", 20); ДБаза.поля.Добавить("Bei", "S", 20); ДБаза.поля.Добавить("Kol", "S", 100); ДБаза.поля.Добавить("Tvname", "S", 100); ДБаза.поля.Добавить("INN", "S", 20); ДБаза.СоздатьФайл(фнз); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ВозвратТоваровОтПокупателя.Номер КАК Numb, | ВозвратТоваровОтПокупателя.Дата КАК Date, | ВозвратТоваровОтПокупателя.Контрагент.Код КАК KlKod, | ВозвратТоваровОтПокупателя.Контрагент.Наименование КАК KlName, | ВозвратТоваровОтПокупателя.Контрагент КАК Контрагент, | ВозвратТоваровОтПокупателя.Товары.( | Номенклатура.НаименованиеПолное КАК Товар, | Номенклатура.Код КАК Код, | Номенклатура.Артикул КАК Артикул, | Количество КАК Kol, | Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения, | Цена КАК Cena, | Сумма КАК Summa, | СуммаНДС КАК Nds | ) |ИЗ | Документ.ВозвратТоваровОтПокупателя КАК ВозвратТоваровОтПокупателя |ГДЕ | ВозвратТоваровОтПокупателя.Дата МЕЖДУ &НачалоДата И &КонецДата | И ВозвратТоваровОтПокупателя.Проведен = ИСТИНА"; Шапка = Запрос.Выполнить().Выбрать(); Шапка.Следующий(); ВыборкаСтрокТовары = Шапка.Товары.Выбрать(); Пока ВыборкаСтрокТовары.Следующий() Цикл ДБаза.Добавить(); ЗаполнитьЗначенияСвойств(ДБаза, ВыборкаСтрокТовары); КонецЕсли; ДБаза.Записать(); |
|||
80
Wobland
10.11.12
✎
15:20
|
(79) никогда в запросе не выбирал таблицы, ЗаполнитьЗначенияСвойств не рухнет на этом?
|
|||
81
Wobland
10.11.12
✎
15:21
|
(77) это моветон
|
|||
82
sttt
10.11.12
✎
15:26
|
(80) это даже в учебке запрещают делать))
ну раз в типовой делают... правильнее конечно так: ВЫБРАТЬ Товары.Номенклатура, Товары.Количество, Товары.Цена, Товары.Сумма, Товары.СуммаНДС ИЗ Документ.ВозвратТоваровОтПокупателя.Товары КАК Товары |
|||
83
Arutynov
10.11.12
✎
15:28
|
Дбаза= Новый XBase();
ДБаза.поля.Добавить("Numb","S",11); ДБаза.поля.Добавить("Date","D",10); ДБаза.поля.Добавить("Klkod", "S", 20); ДБаза.поля.Добавить("Klname", "S", 100); ДБаза.поля.Добавить("Summa", "N", 15, 2); ДБаза.поля.Добавить("NDS", "S", 20); ДБаза.поля.Добавить("Cena", "s", 20); ДБаза.поля.Добавить("Bei", "S", 20); ДБаза.поля.Добавить("Kol", "S", 100); ДБаза.поля.Добавить("Tvname", "S", 100); ДБаза.поля.Добавить("INN", "S", 20); ДБаза.СоздатьФайл(фн3); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ВозвратТоваровОтПокупателя.Номер КАК Numb, | ВозвратТоваровОтПокупателя.Дата КАК Date, | ВозвратТоваровОтПокупателя.Контрагент.Код КАК KlKod, | ВозвратТоваровОтПокупателя.Контрагент.Наименование КАК KlName, | ВозвратТоваровОтПокупателя.Контрагент КАК Контрагент, | ВозвратТоваровОтПокупателя.Товары.( | Номенклатура.НаименованиеПолное КАК Товар, | Номенклатура.Код КАК Код, | Количество КАК Kol, | Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения, | Цена КАК Cena, | Сумма КАК Summa, | СуммаНДС КАК Nds | ) |ИЗ | Документ.ВозвратТоваровОтПокупателя КАК ВозвратТоваровОтПокупателя |ГДЕ | ВозвратТоваровОтПокупателя.Дата МЕЖДУ &НачалоДата И &КонецДата | и ВозвратТоваровОтПокупателя.Проведен = ИСТИНА"; Запрос.УстановитьПараметр("НачалоДата",НачПериода); Запрос.УстановитьПараметр("КонецДата",КонецДня(КонПериода)); Результат = Запрос.Выполнить().Выбрать(); Результат.Следующий(); ВыборкаСтрокТовары = Результат.Товары.Выбрать(); Пока ВыборкаСтрокТовары.Следующий() Цикл ДБаза.Добавить(); ЗаполнитьЗначенияСвойств(ДБаза, ВыборкаСтрокТовары); КонецЦикла; ДБаза.Записать(); вот так написал. В DBF е однр страко получается где сумма, ндс,цена и количество |
|||
84
Arutynov
10.11.12
✎
15:28
|
одна строка
|
|||
85
sttt
10.11.12
✎
15:31
|
(84) )) одна строка только записалась?
|
|||
86
Arutynov
10.11.12
✎
15:31
|
да и то не полная
|
|||
87
Wobland
10.11.12
✎
15:32
|
(83) какая качественная очепятка
|
|||
88
sttt
10.11.12
✎
15:33
|
(86) это как?
|
|||
89
sttt
10.11.12
✎
15:34
|
(87) да, бывает, сгоряча))
|
|||
90
sttt
10.11.12
✎
15:37
|
(86) а если запрос на это поменять:
ВЫБРАТЬ Товары.Номенклатура КАК Tvname, Товары.Количество КАК Kol, Товары.Цена КАК Cena, Товары.Сумма КАК Summa, Товары.СуммаНДС КАК Nds, Товары.Ссылка.Номер КАК Numb, Товары.Ссылка.Дата КАК Date, Товары.Ссылка.Контрагент.Наименование КАК KlName, Товары.Ссылка.Контрагент.Код КАК KlKod, Товары.Ссылка.Контрагент.ИНН КАК INN, Товары.Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ed ИЗ Документ.ВозвратТоваровОтПокупателя.Товары КАК Товары ГДЕ Товары.Ссылка.Проведен = ИСТИНА И Товары.Ссылка.Дата МЕЖДУ &НачалоДата И &КонецДата |
|||
91
sttt
10.11.12
✎
15:38
|
а если убрать Результат.Следующий();
|
|||
92
sttt
10.11.12
✎
15:39
|
осталось то совсем немножко...
|
|||
93
Wobland
10.11.12
✎
15:41
|
(92) ну взлетит.. автор ж один хрен не поймёт, что случилось
|
|||
94
Arutynov
10.11.12
✎
15:42
|
{Форма.Выгрузка.Форма(45)}: Поле объекта не обнаружено (Товары)
ВыборкаСтрокТовары = Результат.Товары.Выбрать(); |
|||
95
sttt
10.11.12
✎
15:43
|
(94) о! это серьезная ошибка....
сам догадаешься? |
|||
96
sttt
10.11.12
✎
15:47
|
(94) куда пропал?
|
|||
97
Arutynov
10.11.12
✎
15:49
|
пробую что-то сделать
|
|||
98
sttt
10.11.12
✎
15:50
|
(97) у нас в запросе убралась таблица Товары значит и перед циклом нужно что то сделать
|
|||
99
sttt
10.11.12
✎
15:51
|
это заменить:
Результат.Следующий(); ВыборкаСтрокТовары = Результат.Товары.Выбрать(); Пока ВыборкаСтрокТовары.Следующий() Цикл на это: Пока Результат.Следующий() Цикл |
|||
100
Wobland
10.11.12
✎
15:52
|
СОТНЯ!
|
|||
101
Arutynov
10.11.12
✎
15:54
|
Все равно одна строчка
|
|||
102
Arutynov
10.11.12
✎
15:55
|
Все равно одна строка
|
|||
103
sttt
10.11.12
✎
16:06
|
а ты еще поменяй это:
ЗаполнитьЗначенияСвойств(ДБаза, ВыборкаСтрокТовары); КонецЦикла; ДБаза.Записать(); на это: ЗаполнитьЗначенияСвойств(ДБаза, ВыборкаСтрокТовары); ДБаза.Записать(); КонецЦикла; |
|||
104
Arutynov
10.11.12
✎
16:10
|
Получилось......Большое вам человеческое спасибо!!!!!!!!!!!!!
|
|||
105
sttt
10.11.12
✎
16:12
|
и вам не хворать! ;0)
|
|||
106
sttt
10.11.12
✎
16:13
|
эх, немного не рассчитал 106 получилось
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |