Simple Dynamics Nav Report Sample

OBJECT Report 50000 Customer Sample Report
{
  OBJECT-PROPERTIES
  {
    Date=21.06.12;
    Time=10:51:28;
    Version List=;
  }
  PROPERTIES
  {
    ProcessingOnly=Yes;
  }
  DATAITEMS
  {
    { PROPERTIES
      {
        DataItemTable=Table18;
        OnAfterGetRecord=BEGIN
                           IF Customer.Name[1] = 'A' THEN BEGIN
                             Customer.Name[1] := 'B';
                             Customer.MODIFY;
                           END
                         END;

      }
      SECTIONS
      {
        { PROPERTIES
          {
            SectionType=Body;
            SectionWidth=12000;
            SectionHeight=846;
          }
          CONTROLS
          {
          }
           }
      }
       }
  }
  REQUESTFORM
  {
    PROPERTIES
    {
      Width=11220;
      Height=5500;
    }
    CONTROLS
    {
    }
  }
  REQUESTPAGE
  {
    PROPERTIES
    {
    }
    CONTROLS
    {
    }
  }
  CODE
  {

    BEGIN
    END.
  }
  RDLDATA
  {
  }
}