Показать сообщение отдельно
Старый 18.10.2013, 13:10   #2  
srg is offline
srg
Участник
 
116 / 10 (1) +
Регистрация: 20.08.2013
Вот мой код, нахожу данные на карточке, фильтрую их, но после этого мне нужно еще сделать фильтр по связанной таблице, таблица точно эта же, по полю "Tax Header No.", и вытянуть с карточки "Posting Date", в пятницу конкретно не варит голова
Код:
TaxBillHeader.RESET;
TaxBillHeader.SETRANGE(Type,Type);
TaxBillHeader.SETRANGE("No.",DocumentNo);
IF TaxBillHeader.FINDFIRST THEN;
    IF TaxBillHeader."Include to ERNN"=TaxBillHeader."Include to ERNN"::"1" THEN
      BEGIN ExcelMgt.FillCell('M3',FORMAT('X'))
           END;
    IF TaxBillHeader."Include to ERNN"=TaxBillHeader."Include to ERNN"::"0" THEN
          BEGIN    ExcelMgt.FillCell('M3',FORMAT(''));
END;

CASE TaxBillHeader.Type OF
  TaxBillHeader.Type::Responsibility:
  BEGIN
    Customer.GET(TaxBillHeader."Customer No.");
     
     IF Customer."Agreement Posting"=Customer."Agreement Posting"::Mandatory THEN
     CustomerAgreement.GET(TaxBillHeader."Customer No.",TaxBillHeader."Agreement No.");
END;
      TaxBillHeader.Type::Purchase:
     BEGIN
        Vendor.GET(TaxBillHeader."Vendor No.");

       IF Vendor."Agreement Posting"=Vendor."Agreement Posting"::Mandatory THEN
        VendorAgreement.GET(TaxBillHeader."Vendor No.",TaxBillHeader."Agreement No.");
       END;
END;