/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 279
от 20.08.2006, 16:35

Вопрос № 52.099

Раньше отчет работал нормально .. сегодня вышла такая ошибка в окне сообщений: "Регистр.ПартииНаличие.Выручка = (ТаблицаДокумента.Сумма / ТаблицаДокумента.КолВо - Врем.СуммаРуб / Врем.Количество) * Врем.Количество; {Документ.ОтчетОПродажах.Модуль Документа(102)}: Деление на 0 Документ не проведен! :Отчет о продажах А5-0000326 (14.08.06)" Сообщение выходит не для каждой кассы, например это вышло после загрузки продаж 4-ой кассы ... товары в документ - "Продажа розница" сформировывается, но он не проведен, вручную проводится. Не пойму, почему так происходит .... (((( Приложение: Перем ИмяФайла_ВсеПродажи; Перем ИмяФайла_Итоги; //******************************************* Процедура Сформировать() КатОбмена = СокрЛП(КаталогОбмена); Если Прав(КатОбмена,1) <> "" Тогда КатОбмена = КатОбмена + ""; КонецЕсли; // ТекКатОбмена = КатОбмена; КолвоКасс = 6; СчКасс = 1; Для СчКасс = 1 По КолвоКасс Цикл КатОбмена = ТекКатОбмена + Строка(СчКасс) + ""; Сообщить("Загрузка из кассы № " + Строка(СчКасс)); Попытка ИмяФайла = КатОбмена + ИмяФайла_ВсеПродажи+".dbf"; Если ФС.СуществуетФайл(ИмяФайла) = 0 Тогда Предупреждение("Касса №" + Строка(СчКасс) + " не выгружена",10); Продолжить; КонецЕсли; // Исключение Сообщить("Ошибка: "+ОписаниеОшибки(),"!"); Возврат; КонецПопытки; // подождем пока сформируются файлы Продажи = СоздатьОбъект("XBase"); Продажи.ОткрытьФайл(ИмяФайла); //Итоги = СоздатьОбъект("XBase"); //Итоги.ОткрытьФайл(НовИмяФайла2+"f",,1); Если Продажи.Открыта() = 0 Тогда Предупреждение("Ошибка окрытия базы: "+ИмяФайла,15); Возврат; КонецЕсли; // //Если Итоги.Открыта() = 0 Тогда // Предупреждение("Ошибка окрытия базы: "+НовИмяФайла2+"f",15); // Возврат; //КонецЕсли; // // читаем базу, создаем документ РабТаб = СоздатьОбъект("ТаблицаЗначений"); РабТаб.НоваяКолонка("НомерКассы","Число",10,0); РабТаб.НоваяКолонка("НомерЗет","Число",10,0); РабТаб.НоваяКолонка("НомерЧека","Число",10,0); РабТаб.НоваяКолонка("ПозицияЧека","Число",10,0); РабТаб.НоваяКолонка("Дата","Дата"); РабТаб.НоваяКолонка("Время","Число",10,0); РабТаб.НоваяКолонка("Товар","Справочник.Номенклатура"); РабТаб.НоваяКолонка("Колво","Число",15,3); РабТаб.НоваяКолонка("Цена","Число",10,2); РабТаб.НоваяКолонка("Сумма","Число",15,2); РабТаб.НоваяКолонка("Кассир","Число",10,0); РабТаб.НоваяКолонка("Операция","Число",2,0); РабТаб.НоваяКолонка("МестоХранения","Число",10,0); РабТаб.НоваяКолонка("ДискКарт","Число",10,0); //Док = СоздатьОбъект("Документ.ОтчетОПродажах"); //Док.Новый(); //Док.ДатаДок = ТекущаяДата(); //Док.ТипУчета = 2; //Док.ФинУчет = 1; ВремТовар = СоздатьОбъект("Справочник.Номенклатура"); Продажи.Первая(); Для Сч = 1 По Продажи.КоличествоЗаписей() Цикл РабТаб.НоваяСтрока(); РабТаб.НомерКассы =Продажи.CASHNUMBER; РабТаб.НомерЗет =Продажи.ZNUMBER; РабТаб.НомерЧека =Продажи.CHECKNUMBE; РабТаб.ПозицияЧека =Продажи.ID; РабТаб.Дата =Продажи.DATE; РабТаб.Время =Продажи.TIME; ВремКод =Продажи.CARDARTICU; Если ВремТовар.НайтиПоКоду(ВремКод,0) = 1 Тогда РабТаб.Товар =ВремТовар.ТекущийЭлемент(); Иначе Сообщить("Товар с кодом " + ВремКод + " не найден ..."); КонецЕсли; РабТаб.Колво =Продажи.QUANTITY; РабТаб.Цена =Продажи.PRICERUB; РабТаб.Сумма =Продажи.TOTALRUB; РабТаб.Кассир =Продажи.CASHER; РабТаб.Операция =Продажи.OPERATION; РабТаб.МестоХранения=Продажи.USINGINDEX; РабТаб.ДискКарт =Продажи.DISCCLIIND; Продажи.Следующая(); КонецЦикла; Продажи.ЗакрытьФайл(); // Итоги.ЗакрытьФайл(); // сверим итоги... // для проверки нужны коды операций... Док = СоздатьОбъект("Документ.ОтчетОПродажах"); Флаг = 0; Док.ВыбратьДокументы(РабТаб.Дата,РабТаб.Дата); Пока Док.ПолучитьДокумент() = 1 Цикл НомерДок = "000000" + Строка(РабТаб.НомерЗет) ; НомерДок = "А" + Строка(РабТаб.НомерКассы) + "-" + Прав(НомерДок,7); Если Док.НомерДок = НомерДок Тогда Если Док.Проведен() = 1 Тогда Док.СделатьНеПроведенным(); КонецЕсли; Если Док.ПометкаУдаления() = 1 Тогда Док.СнятьПометкуУдаления(); КонецЕсли; Флаг = 1; Док.УдалитьСтроки(); Прервать; КонецЕсли; КонецЦикла; Если Флаг = 0 Тогда Док.Новый(); НомерДок = "000000" + Строка(РабТаб.НомерЗет) ; НомерДок = "А" + Строка(РабТаб.НомерКассы) + "-" + Прав(НомерДок,7); Док.НомерДок = НомерДок; Док.ДатаДок = РабТаб.Дата; Док.Фирма = глЗначениеПоУмолчанию("ОсновнаяФирма");; Док.Склад = глЗначениеПоУмолчанию("ОсновнойСклад");; //Док.ФинУчет = 1; КонецЕсли; РабТаб.ВыбратьСтроки(); Пока РабТаб.ПолучитьСтроку() = 1 Цикл Док.НоваяСтрока(); Док.НомерКассы =РабТаб.НомерКассы; Док.НомерЗет =РабТаб.НомерЗет; Док.НомерЧека =РабТаб.НомерЧека; Док.ПозицияЧека =РабТаб.ПозицияЧека; Док.Дата =РабТаб.Дата; Док.Время =РабТаб.Время; Док.Товар =РабТаб.Товар; Док.Колво =РабТаб.Колво; Док.Цена =РабТаб.Цена; Док.Сумма =РабТаб.Сумма; Док.Кассир =РабТаб.Кассир; Док.Опер =РабТаб.Операция; Док.МестоХранения =РабТаб.МестоХранения; Док.ДисконтнаяКарта =РабТаб.ДискКарт; КонецЦикла; Попытка Док.Записать(); Если Проводить = 1 Тогда Док.Провести(1); КонецЕсли; Исключение Сообщить("Ошибка записи документа: "+ОписаниеОшибки(),"!"); КонецПопытки; // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ КонецЦикла; Предупреждение("<<<<<<< Загрузка окончена! >>>>>>>",5); КонецПроцедуры //_____________________________________________________________________________ Процедура ПриНачалеВыбораЗначения(Идент,Флаг) Флаг = 1; Если Идент = "КаталогОбмена" Тогда Флаг = 0; ИмяКаталога = СокрЛП(КаталогОбмена); Если ФС.ВыбратьКаталог(ИмяКаталога,"Выбор каталога обмена") = 1 Тогда КаталогОбмена = ИмяКаталога; КонецЕсли; // КонецЕсли; //Идент = "КаталогОбмена" КонецПроцедуры //ПриНачалеВыбораЗначения //_____________________________________________________________________________ Процедура ПриОткрытии() // пример вызова обработки с автозагрузкой... //Спис = СоздатьОбъект("СписокЗначений"); //Спис.ДобавитьЗначение("D:5Ocean","Каталог"); //Спис.ДобавитьЗначение("Загрузить","Действие"); //ОткрытьФорму("Отчет",Спис,КаталогИБ()+"ExtFormsЗагрузкаПродаж.ert"); КаталогОбмена="V:Data"; Парам = Форма.Параметр; Если ТипЗначенияСтр(Парам) = "СписокЗначений" Тогда КаталогОбмена = Парам.Получить("Каталог"); Действие = Парам.Получить("Действие"); Если Действие = "Загрузить" Тогда Сформировать(); СтатусВозврата(0); Возврат; КонецЕсли; // КонецЕсли; // КонецПроцедуры //ПриОткрытии ИмяФайла_ВсеПродажи = "CASHSAIL"; ИмяФайла_Итоги = "CURRESTS"; Проводить = 1;

Отправлен: 14.08.2006, 16:18 Вопрос задал: Терсков Алексей Николаевич (статус: Посетитель) Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Karanskiy Arkadiy Здравствуйте, Терсков Алексей Николаевич! Когда выходит такое сообщение, значит в какой-то определенный момент переменные ТаблицаДокумента.КолВо или переменная Врем.Количество = 0. Я думаю, что здесь проблемма в передаваемых данных. Если хотите докапаться до истины, то тогда надо Отладчиком пройтись. Понимаю долго, но зато верно.

Ответ отправил: Karanskiy Arkadiy (статус: 2-ой класс) Ответ отправлен: 14.08.2006, 16:29

Отвечает: Сергей Здравствуйте, Терсков Алексей Николаевич! Проверь скорее всего по какому-то чеку в этой кассе был продан товар по сумме без колчества... т.е. либо ТаблицаДокумента.КолВо = 0, либо Врем.Количество = 0 И на кассах не СуперМаг УКМ стоит? и как у тебя обстоят дела с выводом в Excel печатных форм?

Ответ отправил: Сергей (статус: 7-ой класс) Ответ отправлен: 14.08.2006, 16:39 Оценка за ответ: 5 Комментарий оценки: Стоят ККМ А по поводу с сохранением в Excel, оказывается, что там стоял запрет на ее сохранение. Таб.Защита(1); Я проверил, это именно именно так. По поводу этого вопроса, так и есть, произошли изменения в 1С и не вся номенклатура выгрузилась в Кристалл и кассы, сейчас я чищу базу данных вручную, немного провинились наши программисты и сейчас продаются товары на кассах, которых нет в новой 1С, т.е. получается так, что продается пустота .... думаю, что из-за жэтого и произошла ошибка!

Отвечает: Краюшкин Игорь Валерьевич Здравствуйте, Терсков Алексей Николаевич! Делая вывод из описания ошибки, у Вас была нулевая продажа. То есть в каком-то чеке было продано нулевое количество товара.

Ответ отправил: Краюшкин Игорь Валерьевич (статус: 3-ий класс) Ответ отправлен: 14.08.2006, 19:22

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Терсков Алексей Николаевич! Скорее всего, товар был продан, но потом был его возврат. Таким образом, товар засветился в файле, но количество его нулевое. Ошибка вот здесь: Док.Колво=РабТаб.Колво; нужно проверять, не нулевое ли это количество. Да чего гадать, откройте документ, который не провелся, и посмотрите, правильно ли заполнены все его поля.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 14.08.2006, 19:28

Отвечает: Шальков Павел Владимирович Здравствуйте, Терсков Алексей Николаевич! Раз система выдает ошибку деление на 0 - значит так оно и есть, проверьте в отладчике значения ТаблицаДокумента.КолВо и Врем.Количество. Удачи!

Ответ отправил: Шальков Павел Владимирович (статус: 5-ый класс) Ответ отправлен: 15.08.2006, 04:03

Отвечает: Maska Здравствуйте, Терсков Алексей Николаевич! Скорее всего одно из значений объектов ТаблицаДокумента.КолВо или Врем.Количество равно 0. Для избежания этого в дальнейшем перед формулой (ТаблицаДокумента.Сумма / ТаблицаДокумента.КолВо - Врем.СуммаРуб / Врем.Количество) * Врем.Количество; можно попробовать вставить процедуру на проверку этих условий (для их исключения), например: Приложение: Если (ТаблицаДокумента.КолВо=0) И (Врем.Количество = 0) Тогда Продолжить; КонецЕсли;

Ответ отправила: Maska (статус: 1-ый класс) Ответ отправлен: 15.08.2006, 07:29

Вопрос № 52.175

Уважаемые эксперты! Помогите пожалуйста! есть "1С Предприятие 8.0. Web расширение 1.1. Удаленный склад". Установилось нормально, при запросе - ошибка -- НЕТ _1C.V8.Chart или чего-то зависящего. Что делать? работает все га серваке 2003. Может где-то просто кривые настройки вебсервиса? Что еще надо доустановить - сконфигурировать? Или что почитать-покурить? - все, что идет в пакете - читал -- не помогло. ставил на демку УТ 10.2. Если не трудно - прошу помочь. Спасибо. Приложение: Server Error in '/RemoteStore' Application. Configuration Error Description: An error occurred during the processing of a configuration file required to service this request. Please review the specific error details below and modify your configuration file appropriately. Parser Error Message: File or assembly name _1C.V8.Chart, or one of its dependencies, was not found. Source Error: Line 17: <add assembly="_1C.V8.Data, Version=8.0.4.6, Culture=neutral, PublicKeyToken=a2a389ea4bbb4a49"/> Line 18: <add assembly="_1C.V8.Report, Version=8.0.4.6, Culture=neutral, PublicKeyToken=a2a389ea4bbb4a49"/> Line 19: <add assembly="_1C.V8.Chart, Version=8.0.4.6, Culture=neutral, PublicKeyToken=a2a389ea4bbb4a49"/> Line 20: </assemblies> Line 21: </compilation> Source File: d:inetpubwwwrootweb.config Line: 19 Assembly Load Trace: The following information can be helpful to determine why the assembly '_1C.V8.Chart' could not be loaded. === Pre-bind state information === LOG: DisplayName = _1C.V8.Chart, Version=8.0.4.6, Culture=neutral, PublicKeyToken=a2a389ea4bbb4a49 (Fully-specified) LOG: Appbase = file:///D:/Inetpub/wwwroot LOG: Initial PrivatePath = bin Calling assembly : (Unknown). === LOG: Publisher policy file is not found. LOG: No redirect found in host configuration file (D:WINDOWSMicrosoft.NETFrameworkv1.1.4322aspnet.config). LOG: Using machine configuration file from D:WINDOWSMicrosoft.NETFrameworkv1.1.4322configmachine.config. LOG: Post-policy reference: _1C.V8.Chart, Version=8.0.4.6, Culture=neutral, PublicKeyToken=a2a389ea4bbb4a49 LOG: Attempting download of new URL file:///D:/WINDOWS/Microsoft.NET/Framework/v1.1.4322/Temporary ASP.NET Files/remotestore/3b5c218f/50dd8cc7/_1C.V8.Chart.DLL. LOG: Attempting download of new URL file:///D:/WINDOWS/Microsoft.NET/Framework/v1.1.4322/Temporary ASP.NET Files/remotestore/3b5c218f/50dd8cc7/_1C.V8.Chart/_1C.V8.Chart.DLL. LOG: Attempting download of new URL file:///D:/Inetpub/wwwroot/bin/_1C.V8.Chart.DLL. LOG: Attempting download of new URL file:///D:/Inetpub/wwwroot/bin/_1C.V8.Chart/_1C.V8.Chart.DLL. LOG: Attempting download of new URL file:///D:/WINDOWS/Microsoft.NET/Framework/v1.1.4322/Temporary ASP.NET Files/remotestore/3b5c218f/50dd8cc7/_1C.V8.Chart.EXE. LOG: Attempting download of new URL file:///D:/WINDOWS/Microsoft.NET/Framework/v1.1.4322/Temporary ASP.NET Files/remotestore/3b5c218f/50dd8cc7/_1C.V8.Chart/_1C.V8.Chart.EXE. LOG: Attempting download of new URL file:///D:/Inetpub/wwwroot/bin/_1C.V8.Chart.EXE. LOG: Attempting download of new URL file:///D:/Inetpub/wwwroot/bin/_1C.V8.Chart/_1C.V8.Chart.EXE. Version Information: Microsoft .NET Framework Version:1.1.4322.573; ASP.NET Version:1.1.4322.573

Отправлен: 15.08.2006, 10:55 Вопрос задал: Dimao (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Шальков Павел Владимирович Здравствуйте, Dimao! Видимо расширение установилось криво, или еще посмотрите в каталогах assabbley-ей есть ли там такой файл

Ответ отправил: Шальков Павел Владимирович (статус: 5-ый класс) Ответ отправлен: 15.08.2006, 11:04

Вопрос № 52.176

Здравствуйте уважаемые эксперты! 1с:Предприятие 7.7 (25 релиз). В справочнике Основных средств есть дата ввода в эксплуатацию (например 14.03.2002) и срок полезного использования (60 месяцев). Вопрос как программно вычислить срок оставшегося полезного использования? Заранее спаибо.

Отправлен: 15.08.2006, 11:04 Вопрос задала: MaShI (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Шальков Павел Владимирович Здравствуйте, MaSnI! В конфигурации уже есть такой алгоритм, правда не помню где, гдето в глобальном модуле чтоли (глРасчетАмортизации() ?) поищите там. Удачи!

Ответ отправил: Шальков Павел Владимирович (статус: 5-ый класс) Ответ отправлен: 15.08.2006, 11:15 Оценка за ответ: 5 Комментарий оценки: Спасибо. Нашла

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, MaSnI! ДатаКонцаЭксплуатации=ДобавитьМесяц(ОС.ДатаВвода,ОС.СрокЭксплуатации) Если ДатаКонцаЭксплуатации>РабочаяДата() Тогда Сообщить("Срок эксплуатации истек "+Число(ДатаКонцаЭксплуатации-РабочаяДата())+" дней назад"); Иначе .... КонецЕсли Однако, может еще быть ремонт ОС, продлевающий срок эксплуатации. Его Вы можете увидеть, выполнив запрос по счету ОС в разрезе проводок.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 15.08.2006, 11:45

Отвечает: Сергей Здравствуйте, MaSnI! 1с:Предприятие 7.7 (25 релиз)это сама программа, нужно писать номер конфигурации, скорее всего это бухгалтерия. Дата ввода в эксплуатацию имеет тип ДАТА Срок полезного использования это число. Поэтому нужно воспользоваться функцией ДобавитьМесяц(<?>,) Синтаксис: ДобавитьМесяц(<Дата>,<ЧислоМесяцев>) Назначение: Возвращает дату, полученную добавлением к исходной дате заданного числа месяцев. Параметры: <Дата> - выражение со значением типа дата; <ЧислоМесяцев> - число месяцев, добавляемое к дате. В вашем случае ДатаКонцаИспользования = ДобавитьМесяц(ДатаВводаВЭксплуатацию,СрокПолезногоИспользования)

Ответ отправил: Сергей (статус: 7-ой класс) Ответ отправлен: 15.08.2006, 12:00

Вопрос № 52.207

Уважаемые эксперты! Помомгите разобраться с запросом. Есть регистр с реквизитом А типа "Справочник". Какие условия нужно вставить, чтоб отобрались движения по регистру, когда А = Справочник.Подразделения и одновременно реквизит этого справочника(допустим ТипСклада) равен определенному значению(например А.ТипСклада=Перечисление.ТипыСкладов.Розничный) Заранее спасибо

Отправлен: 15.08.2006, 15:58 Вопрос задал: Жуков Алексей Юрьевич (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Elric Здравствуйте, Жуков Алексей Юрьевич! А куда именно вставить? Если в запрос, то обычное условие... Если через объект Регистры, то никак, там фильтр только по значению возможен, не по реквизиту значения... --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Студент) Ответ отправлен: 15.08.2006, 17:19

Отвечает: Warior Здравствуйте, Жуков Алексей Юрьевич! условие должно быть типа: |спр=Регистр.???.А .... |Условие(спр.Вид()="Подразделение" |Условие(спр.ТипСклада=Перечисление.ТипыСкладов.Розничный) ....

Ответ отправил: Warior (статус: 2-ой класс) Ответ отправлен: 15.08.2006, 18:28

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Жуков Алексей Юрьевич! ИМХО Если интервал дат небольшой, то тупой перебор будет поэффективнее запроса. Рег=СоздатьОбъект("Регистр.УчетТоваров"); Рег.ВыбратьДвижения(НачДата,КонДата) Пока Рег.ПолучитьДвижение()=1 Цикл Если Рег.А.Вид()<>"Подразделения"Тогда Продолжить; КонецЕсли; Если Рег.А.ТипСклада<>Перечисление.ТипыСкладов.Розничный Тогда Продолжить; КонецЕсли; И таких условий можно ставить сколько угодно. Код получается глюкоустойчивее, чем в запросе. Если же интервал дат большой, то будут тормоза. Тут надо посмотреть, как часто будет запускаться эта процедура - если раз в день, то терпимо, если 100 раз в день, то неприемлимо.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 16.08.2006, 15:29

Отвечает: Ovr1970 Здравствуйте, Жуков Алексей Юрьевич! Если через объект регистры, то сначала будет нужно выбрать все элементы справочника "Подразделения" с нужным значением реквизита в список значений, затем установить фильтр выборки с этим списком в качестве значения (Рег.УстановитьЗначениеФильтра("А",спЭлем,2)) Если через запрос, то прмерно такие строки Приложение: |Элем=Регистр.ТТТ.А; |Спр=Справочник.Подразделения.ТекущийЭлемент; |Условие (спр.ТипСклада=Перечисление.ТипыСкладов.Розничный); |Условие(Элем=спр);

Ответ отправил: Ovr1970 (статус: Студент) Ответ отправлен: 17.08.2006, 15:56

Вопрос № 52.213

Доброго времени суток! Знает ли кто-нибудь конфигурацию для исправительно трудовых колоний? Или подскажите как сделать в бюджетной конфиге следующее: Нужно вести учет денежных средств заключенных:Доход( 1) Заработанные 2) Переведенные на счет заключенного через банк 3) Внесенные через кассу 4) и др.); Расход ( 1)Выданные из кассы 2) Вычеты на питание 3) Вычеты за комунальные услуги 4) и др.). Заранее большое спасибо ответившим!

Отправлен: 15.08.2006, 16:32 Вопрос задал: Velial (статус: Студент) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Maska Здравствуйте, Velial! Не понятны условия. Какой учет будет вестись отдельно по каждому человеку, по всем вместе. Только ли зарплата или что-то еще. Если только кадровый учет и зарплата для каждого отдельно, то можно воспользоваться конфигурацией "Зарплата и кадры" (из бюджетной конфигурации выгрузить план счетов и аналитику, настроить шаблон проводок). И потом организовать выгрузку в "Бухгалтерию, бюджетная организация" "общими проводками".

Ответ отправила: Maska (статус: 1-ый класс) Ответ отправлен: 16.08.2006, 10:10 Оценка за ответ: 4

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.35 от 27.07.2006