designing a report with 3 dataitems

karuchua · **Posted:** Mon Jul 16, 2012 1:21 pm

hi all,

am designing a report in classic client.

i have 3 dataitems,the first is known as labour header,then second is known as the posted req.header and the last is posted req. lines.

the labour header is connected to the posted req, header through a job number and its the main data item.

i want to output lines from the posted req.lines which are connected to posted req. header through document number.

how do i achieve this?

mohana_cse06 · **Posted:** Mon Jul 16, 2012 1:24 pm

Is posted req. lines Indented under posted req.header ?

karuchua · **Posted:** Mon Jul 16, 2012 1:25 pm

yes it is

karuchua · **Posted:** Mon Jul 16, 2012 1:29 pm

Code: Select all

OBJECT Report 50460 Daily Work Sheet
{
  OBJECT-PROPERTIES
  {
    Date=07/16/12;
    Time=[ 2:23:04 PM];
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
  }
  DATAITEMS
  {
    { PROPERTIES
      {
        DataItemTable=Table50027;
        DataItemTableView=SORTING(Job No.,Worksheet Ref No.);
        NewPagePerGroup=No;
        NewPagePerRecord=Yes;
        OnPreDataItem=BEGIN
                        //IF NOT GRptOption THEN
                        // CurrReport.BREAK;

                        //SETRANGE("Job No.","Worksheet Ref No.","Customer Name");



                        //IF NOT GRptOption  THEN
                        //  CurrReport.BREAK;

                        //CurrReport.NEWPAGE;
                        //WarrantySummary.COPYFILTERS("Warranty Claim Form");
                      END;

      }
      SECTIONS
      {
        { PROPERTIES
          {
            SectionType=Header;
            PrintOnEveryPage=Yes;
            SectionWidth=20400;
            SectionHeight=3384;
          }
          CONTROLS
          {
            { 1000000031;Image  ;2880 ;0    ;3300 ;1269 ;Bitmap=c:\dands2.bmp }
            { 1000000030;Image  ;150  ;0    ;2730 ;2115 ;Bitmap=c:\dands.bmp }
            { 1000000032;Image  ;3000 ;846  ;4020 ;1269 ;Bitmap=c:\dands3.bmp }
            { 1000000033;TextBox;13950;0    ;3150 ;423  ;HorzAlign=Right;
                                                         SourceExpr=FORMAT(TODAY,0,4);
                                                         DataSetFieldName=FORMAT_TODAY_0_4_ }
            { 1000000035;TextBox;14850;846  ;2250 ;423  ;HorzAlign=Right;
                                                         SourceExpr=USERID;
                                                         DataSetFieldName=USERID }
            { 1000000009;Label  ;7350 ;2115 ;7950 ;846  ;FontSize=20;
                                                         FontBold=Yes;
                                                         CaptionML=ENU=Daily Work Sheet;
                                                         DataSetFieldName=Daily_Work_SheetCaption }
            { 1000000025;TextBox;15900;423  ;750  ;423  ;CaptionML=ENU=Page;
                                                         SourceExpr=CurrReport.PAGENO;
                                                         DataSetFieldName=CurrReport_PAGENO }
            { 1000000018;Label  ;15450;423  ;600  ;423  ;CaptionML=ENU=Page;
                                                         DataSetFieldName=PageCaption }
          }
           }
        { PROPERTIES
          {
            SectionType=Body;
            SectionWidth=20400;
            SectionHeight=5076;
          }
          CONTROLS
          {
            { 1000000000;TextBox;2250 ;423  ;5250 ;423  ;SourceExpr="Sales Person";
                                                         DataSetFieldName=Labour_Header__Sales_Person_ }
            { 1000000001;Label  ;0    ;423  ;2250 ;423  ;ParentControl=1000000000;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         CaptionML=ENU=TECHNICIAN;
                                                         DataSetFieldName=TeCHNICIANCaption }
            { 1000000010;TextBox;2250 ;0    ;5250 ;423  ;SourceExpr="Customer Name";
                                                         DataSetFieldName=Labour_Header__Customer_Name_ }
            { 1000000011;Label  ;0    ;0    ;2250 ;423  ;ParentControl=1000000010;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         CaptionML=ENU=CLIENT;
                                                         DataSetFieldName=CLIENTCaption }
            { 1000000012;TextBox;14400;0    ;3600 ;423  ;SourceExpr="Job Reference";
                                                         DataSetFieldName=Labour_Header__Job_Reference_ }
            { 1000000013;Label  ;12450;0    ;1950 ;423  ;ParentControl=1000000012;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         CaptionML=ENU=JOB NO;
                                                         DataSetFieldName=JOB_NOCaption }
            { 1000000014;TextBox;13650;423  ;1650 ;423  ;SourceExpr="Charge Date";
                                                         DataSetFieldName=Labour_Header__Charge_Date_ }
            { 1000000015;Label  ;12300;423  ;750  ;423  ;ParentControl=1000000014;
                                                         HorzAlign=Right;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         CaptionML=ENU=DATE;
                                                         DataSetFieldName=DATECaption }
            { 1000000016;TextBox;14400;846  ;3450 ;423  ;SourceExpr="Worksheet Ref No.";
                                                         DataSetFieldName=Labour_Header__Worksheet_Ref_No__ }
            { 1000000017;Label  ;12450;846  ;1500 ;423  ;ParentControl=1000000016;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         CaptionML=ENU=SERIAL NO.;
                                                         DataSetFieldName=SERIAL_NO_Caption }
            { 1000000002;Label  ;0    ;1269 ;1500 ;423  ;FontBold=Yes;
                                                         CaptionML=ENU=REPORT;
                                                         DataSetFieldName=REPORTCaption }
            { 1000000003;TextBox;4350 ;1269 ;2550 ;423  ;SourceExpr="Arrival Time";
                                                         DataSetFieldName=Labour_Header__Arrival_Time_ }
            { 1000000004;Label  ;1800 ;1269 ;2250 ;423  ;ParentControl=1000000003;
                                                         HorzAlign=Right;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         DataSetFieldName=Labour_Header__Arrival_Time_Caption }
            { 1000000005;TextBox;4500 ;1692 ;2400 ;423  ;SourceExpr="Departure Time";
                                                         DataSetFieldName=Labour_Header__Departure_Time_ }
            { 1000000006;Label  ;2250 ;1692 ;2250 ;423  ;ParentControl=1000000005;
                                                         HorzAlign=Right;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         DataSetFieldName=Labour_Header__Departure_Time_Caption }
            { 1000000007;TextBox;4350 ;2115 ;2550 ;423  ;SourceExpr="Time at work";
                                                         DataSetFieldName=Labour_Header__Time_at_work_ }
            { 1000000008;Label  ;1800 ;2115 ;2400 ;423  ;ParentControl=1000000007;
                                                         HorzAlign=Right;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         DataSetFieldName=Labour_Header__Time_at_work_Caption }
            { 1000000019;TextBox;3000 ;2961 ;11100;2115 ;SourceExpr="Worksheet Description";
                                                         DataSetFieldName=Labour_Header__Worksheet_Description_ }
            { 1000000020;Label  ;0    ;2961 ;3000 ;423  ;ParentControl=1000000019;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         DataSetFieldName=Labour_Header__Worksheet_Description_Caption }
          }
           }
      }
       }
    { PROPERTIES
      {
        DataItemIndent=1;
        DataItemTable=Table50002;
        DataItemTableView=SORTING(Requisition Type,Department,Job Number,Client);
        OnPreDataItem=BEGIN
                        IF NOT GRptOption THEN
                          CurrReport.BREAK;

                        SETRANGE("Job Number","Worksheet Ref No.");
                      END;

        DataItemLink=Job Number=FIELD(Job No.),
                     Worksheet Ref No.=FIELD(Worksheet Ref No.);
      }
      SECTIONS
      {
        { PROPERTIES
          {
            SectionType=Body;
            SectionWidth=20400;
            SectionHeight=0;
          }
          CONTROLS
          {
          }
           }
      }
       }
    { PROPERTIES
      {
        DataItemIndent=2;
        DataItemTable=Table50003;
        DataItemTableView=SORTING(Requisition Type,Department,Document No.,Line No.)
                          WHERE(Type=FILTER(Item));
        OnAfterGetRecord=VAR
                           LItemNo@1000000000 : Record 27;
                         BEGIN

                             IF "Posted Gen. Requisition Line"."Document No."="Posted Gen. Requisition Header"."No." THEN  BEGIN

                                  GQtyIssued:="Posted Gen. Requisition Line"."Qty. Issued";
                                  GItemDesc:="Posted Gen. Requisition Line".Description ;
                               END;

                         END;

        DataItemLink=Document No.=FIELD(No.);
      }
      SECTIONS
      {
        { PROPERTIES
          {
            SectionType=Body;
            SectionWidth=20400;
            SectionHeight=4230;
          }
          CONTROLS
          {
            { 1000000022;Label  ;300  ;0    ;2100 ;423  ;ParentControl=1000000021;
                                                         HorzAlign=Right;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         CaptionML=ENU=Quantity;
                                                         DataSetFieldName=Posted_Gen__Requisition_Line__Qty__Issued_Caption }
            { 1000000021;TextBox;300  ;846  ;2100 ;423  ;SourceExpr=GQtyIssued;
                                                         DataSetFieldName=Posted_Gen__Requisition_Line__Qty__Issued_ }
            { 1000000024;Label  ;3750 ;0    ;4500 ;423  ;ParentControl=1000000023;
                                                         VertAlign=Bottom;
                                                         FontBold=Yes;
                                                         MultiLine=Yes;
                                                         DataSetFieldName=Posted_Gen__Requisition_Line_DescriptionCaption }
            { 1000000023;TextBox;3750 ;846  ;4500 ;423  ;CaptionML=ENU=Item Description;
                                                         SourceExpr=GItemDesc;
                                                         DataSetFieldName=Posted_Gen__Requisition_Line_Description }
          }
           }
      }
       }
  }
  REQUESTFORM
  {
    PROPERTIES
    {
      Width=8910;
      Height=6380;
      SaveValues=Yes;
    }
    CONTROLS
    {
    }
  }
  REQUESTPAGE
  {
    PROPERTIES
    {
    }
    CONTROLS
    {
    }
  }
  CODE
  {
    VAR
      GRptOption@1000000000 : Boolean;
      GQtyIssued@1000000001 : Integer;
      GItemDesc@1000000002 : Code[50];

    BEGIN
    END.
  }
  RDLDATA
  {
  }
}

karuchua · **Posted:** Mon Jul 16, 2012 3:08 pm

anyone out here to heeeeeeeeeeeeeeeeeelp?

mohana_cse06 · **Posted:** Mon Jul 16, 2012 7:59 pm

karuchua wrote:

anyone out here to heeeeeeeeeeeeeeeeeelp?

Cant you wait?

I doubt this code is causing the problem

Code: Select all

SETRANGE("Job Number","Worksheet Ref No.");

What is the goal of above code?

mibuso.com

designing a report with 3 dataitems

Who is online