Бухгалтерия 8, найти документы по номеру и дате
07.07.2010
10:55
#1
"Здравствуйте!
Задача такая: У меня есть текстовый файл и из него в бухгалтерию загружаются документы РеализацияТоваровУслуг и СчетФактураВыданный, в комментарии счет-фактуры я пишу основание документа счет-фактура выданный (берется из текстового файла), теперь хочу чтобы по номеру и дате (номер и дату извлекаю из строки комментария) найти документы РеализацияТоваровУслуг для всех документов СчетФактураВыданный у которых не заполнено значение ДОкументОснование и его заполнять.
часть кода
боркаДокументов.Комментарий;
Если Найти(ВспомогательнаяШтука,"Приходный кассовый ордер") Тогда
МояСтрока=СокрЛП(Сред(ВспомогательнаяШтука,26,СтрДлина(СокрП(ВспомогательнаяШтука))));
Поз = Найти(СокрЛП(МояСтрока),"(");
Поз1 = Найти(СокрЛП(МояСтрока),")");
СтрНом = Лев(МояСтрока,Поз-1);
СтрДат = Сред(СокрЛП(МояСтрока),Поз+1,8);
МойГод= Строка("20")+Строка(Сред(СокрЛП(СтрДат),7,2));
МойМесяц = Строка(Сред(СокрЛП(СтрДат),4,2));
МоеЧисло =Строка(Сред(СокрЛП(СтрДат),1,2));
МояДата = Дата(МойГод+МойМесяц+МоеЧисло);
Сообщить(МояДата);
КонецЕсли;
ИначеЕсли ВыборкаДокументов.ВидСчетаФактуры=Перечисления.НДСВидСчетаФактуры.НаРеализацию Тогда
ВспомогательнаяШтука="""";
ВспомогательнаяШтука = ВыборкаДокументов.Комментарий;
Если Найти(ВспомогательнаяШтука,"Реализация") Тогда
МояСтрока=СокрЛП(Сред(ВспомогательнаяШтука,12,СтрДлина(СокрП(ВспомогательнаяШтука))));
Поз = Найти(СокрЛП(МояСтрока),"(");
Поз1 = Найти(СокрЛП(МояСтрока),")");
СтрНом = Лев(МояСтрока,Поз-1);
СтрДат = Сред(СокрЛП(МояСтрока),Поз+1,8);
МойГод= Строка("20")+Строка(Сред(СокрЛП(СтрДат),7,2));
МойМесяц = Строка(Сред(СокрЛП(СтрДат),4,2));
МоеЧисло =Строка(Сред(СокрЛП(СтрДат),1,2));
МояДата = Дата(МойГод+МойМесяц+МоеЧисло);
Сообщить(МояДата);
КонецЕсли;
ИскомыйДокумент=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(СокрЛП(СтрНом),МояДата);
а дальше не получается
делала так
ИскомыйДокумент=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(СтрНом,МояДата);
Если НЕ ИскомыйДокумент.Пустая() Тогда
Сообщить(ИскомыйДокумент);
КонецЕсли;
"
Задача такая: У меня есть текстовый файл и из него в бухгалтерию загружаются документы РеализацияТоваровУслуг и СчетФактураВыданный, в комментарии счет-фактуры я пишу основание документа счет-фактура выданный (берется из текстового файла), теперь хочу чтобы по номеру и дате (номер и дату извлекаю из строки комментария) найти документы РеализацияТоваровУслуг для всех документов СчетФактураВыданный у которых не заполнено значение ДОкументОснование и его заполнять.
часть кода
боркаДокументов.Комментарий;
Если Найти(ВспомогательнаяШтука,"Приходный кассовый ордер") Тогда
МояСтрока=СокрЛП(Сред(ВспомогательнаяШтука,26,СтрДлина(СокрП(ВспомогательнаяШтука))));
Поз = Найти(СокрЛП(МояСтрока),"(");
Поз1 = Найти(СокрЛП(МояСтрока),")");
СтрНом = Лев(МояСтрока,Поз-1);
СтрДат = Сред(СокрЛП(МояСтрока),Поз+1,8);
МойГод= Строка("20")+Строка(Сред(СокрЛП(СтрДат),7,2));
МойМесяц = Строка(Сред(СокрЛП(СтрДат),4,2));
МоеЧисло =Строка(Сред(СокрЛП(СтрДат),1,2));
МояДата = Дата(МойГод+МойМесяц+МоеЧисло);
Сообщить(МояДата);
КонецЕсли;
ИначеЕсли ВыборкаДокументов.ВидСчетаФактуры=Перечисления.НДСВидСчетаФактуры.НаРеализацию Тогда
ВспомогательнаяШтука="""";
ВспомогательнаяШтука = ВыборкаДокументов.Комментарий;
Если Найти(ВспомогательнаяШтука,"Реализация") Тогда
МояСтрока=СокрЛП(Сред(ВспомогательнаяШтука,12,СтрДлина(СокрП(ВспомогательнаяШтука))));
Поз = Найти(СокрЛП(МояСтрока),"(");
Поз1 = Найти(СокрЛП(МояСтрока),")");
СтрНом = Лев(МояСтрока,Поз-1);
СтрДат = Сред(СокрЛП(МояСтрока),Поз+1,8);
МойГод= Строка("20")+Строка(Сред(СокрЛП(СтрДат),7,2));
МойМесяц = Строка(Сред(СокрЛП(СтрДат),4,2));
МоеЧисло =Строка(Сред(СокрЛП(СтрДат),1,2));
МояДата = Дата(МойГод+МойМесяц+МоеЧисло);
Сообщить(МояДата);
КонецЕсли;
ИскомыйДокумент=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(СокрЛП(СтрНом),МояДата);
а дальше не получается
делала так
ИскомыйДокумент=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(СтрНом,МояДата);
Если НЕ ИскомыйДокумент.Пустая() Тогда
Сообщить(ИскомыйДокумент);
КонецЕсли;
"
8.1.6 Ввод партионного учета1C Бухгалтерия 8. 1, Не удается изменить счет учета с помощью "Групповой обработки"
Читают тему
(гостей: 1)