Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
14 дек 2024, 06:20

Загрузка из Excel

Автор simich88, 15 авг 2011, 22:30

0 Пользователей и 1 гость просматривают эту тему.

simich88

Здравствуйте. Конфигурация - Бухгалтерия предприятия, редакция 2.0 (2.0.25.5). Делаю загрузку из Excel в документ Приходный кассовый ордер.

Для К = НомерСтрокиНачалаСписка По НомерСтрокиКонецСписка Цикл
Попытка
Если Лист1.Cells(к, 13).Value = 180277 И НЕ Лист1.Cells(к, 1).Value = "" тогда
Док = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
Док.ВидОперации = перечисления.ВидыОперацийПКО.РозничнаяВыручка;
Док.Организация = Справочники.Организации.НайтиПоКоду("000000001");
Док.Контрагент = Справочники.Склады.НайтиПоНаименованию("Кафе бульвар"); //.НайтиПоКоду("000000001");
Док.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90 .01.2");//.НайтиПоНаименованию("Выручка по отдельным видам деятельности с особым порядком налогообложения");
док.ВыручкаСНТТ = Истина;
Док.СчетКасса = планыСчетов.Хозрасчетный.КассаОрганизации; 

Док.Дата = Лист1.Cells(к, 1).Value;
Док.СуммаДокумента = ЧИСЛО(Лист1.Cells(к, 8).Value);

Док.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;

Док.Записать();

КонецЕсли;
Исключение
Сообщить("Не удалось обработать строку " + К);
КонецПопытки;


КонецЦикла;


Не заполняется реквизит "СтавкаНДС"
А также: Документы записываются, но при попытке провести выдается ошибка "Не совпадает сумма документа и ее расшифровка". НО! при выборе суммы и нажатии ОК документ проводится.. в чем дело? никак не пойму.. подскажите, пжлст!

simich88

ВСЕ! сам разобрался!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск