OBJECT Report 50006 VendorData
{
  OBJECT-PROPERTIES
  {
    Date=01/08/12;
    Time=07:52:33;
    Version List=;
  }
  PROPERTIES
  {
  }
  DATAITEMS
  {
    { PROPERTIES
      {
        DataItemTable=Table23;
        OnAfterGetRecord=BEGIN
                           CLEAR(TotalInvoice);
                           PurInvHdr.SETFILTER(PurInvHdr."Buy-from Vendor No.",'=%1',Vendor."No.");
                           IF PurInvHdr.FINDSET THEN BEGIN
                              REPEAT
                                TotalInvoice+=1;
                              UNTIL PurInvHdr.NEXT=0
                           END;
                         END;

        ReqFilterFields=No.;
      }
      SECTIONS
      {
        { PROPERTIES
          {
            SectionType=Header;
            SectionWidth=13350;
            SectionHeight=846;
          }
          CONTROLS
          {
            { 1000000001;Label  ;750  ;0    ;1500 ;846  ;ParentControl=1000000000;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes }
            { 1000000003;Label  ;2850 ;0    ;4500 ;846  ;ParentControl=1000000002;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes }
            { 1000000005;Label  ;8400 ;0    ;1500 ;846  ;VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         CaptionML=ENU=Invoice Count }
          }
           }
        { PROPERTIES
          {
            SectionType=Body;
            SectionWidth=13350;
            SectionHeight=423;
          }
          CONTROLS
          {
            { 1000000000;TextBox;750  ;0    ;1500 ;423  ;SourceExpr="No." }
            { 1000000002;TextBox;2850 ;0    ;4500 ;423  ;SourceExpr=Name }
            { 1000000004;TextBox;8100 ;0    ;1500 ;423  ;SourceExpr=TotalInvoice }
          }
           }
      }
       }
  }
  REQUESTFORM
  {
    PROPERTIES
    {
      Width=9020;
      Height=3410;
    }
    CONTROLS
    {
    }
  }
  REQUESTPAGE
  {
    PROPERTIES
    {
    }
    CONTROLS
    {
    }
  }
  CODE
  {
    VAR
      PurInvHdr@1000000000 : Record 122;
      TotalInvoice@1000000001 : Integer;

    BEGIN
    END.
  }
  RDLDATA
  {
  }
}