designing a report with 3 dataitems

karuchua

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

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

karuchua

yes it is

karuchua

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

anyone out here to heeeeeeeeeeeeeeeeeelp?

mohana_cse06

karuchua wrote:

anyone out here to heeeeeeeeeeeeeeeeeelp?

Cant you wait?

I doubt this code is causing the problem

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

What is the goal of above code?