Вход | Регистрация

1С:Предприятие ::

Метки: бухгалтерский учет

Как получить субконто при переборе по Идентификатору?

Я
   Denis Nsk
 
17.05.04 - 08:52
Подскажите пожалуйста почему не получается получить субконто по Идентификатору субконто "ВидыРасчетов"? По номеру не устраивает т.к. не универсально, предется отслеживать в плане счетов номер субконто на всех счетах

Опер=СоздатьОбъект("Операция");
Опер.ВыбратьОперацииСПроводками(Дата1,Дата2,"68.08",,,);

Пока Опер.ПолучитьПровоку()=1 Цикл
Субконт=Опер.Дебет.Субконто(3);//данная строка работает

Субконт=Опер.Дебет.Субконто("ВидыРасчетов");//данная строка выдает "" строку.

КонецЦикла;

Спасибо.
 
 
   427
 
1 - 17.05.04 - 09:10
Пиво надо приходить пить ....


Пока Опер.ПолучитьПрово(!)ку()=1 Цикл 
    Счетик = Опер.Debit.Account;
    if Счетик.Selected() <> 1 then 
        Message ("ну и хрен с ним");
        Continue;
    endIf;     
    for Индекс = 1 to Счетик.SubcontoCount()  do
        Субконт=Опер.Дебет.Субконто(Индекс);
        if EmptyValue(Субконт) = 1 then
            Message ("Какой то идиот сделал проводку с пустым субконто");
            Continue;
        endIf; 
        if Субконт.Kind() = "ВидыРасчетов" then
            Message ("Бляха- с мухой....  Попался ВидРасчетов");
        endIf; 
    endDo;
КонецЦикла;
   AVP
2 - 17.05.04 - 09:39
Субконт=Опер.Дебет.Субконто(ВидыСубконто.ВидыРасчетов)


Список тем форума
Рекламное место пустует  
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует