OBJECT Report 50001 InfoOnLastPage v1 { OBJECT-PROPERTIES { Date=05/12/12; Time=15:29:22; Modified=Yes; Version List=; } PROPERTIES { EnableExternalImages=Yes; } DATAITEMS { { PROPERTIES { DataItemTable=Table18; } SECTIONS { { PROPERTIES { SectionType=Header; SectionWidth=13650; SectionHeight=846; } CONTROLS { { 1000000005;Label ;6300 ;0 ;4500 ;846 ;ParentControl=1000000004; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Customer_CityCaption } { 1000000003;Label ;1650 ;0 ;4500 ;846 ;ParentControl=1000000002; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Customer_NameCaption } { 1000000001;Label ;0 ;0 ;1500 ;846 ;ParentControl=1000000000; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Customer__No__Caption } } } { PROPERTIES { SectionType=Body; SectionWidth=13650; SectionHeight=423; } CONTROLS { { 1000000000;TextBox;0 ;0 ;1500 ;423 ;SourceExpr="No."; DataSetFieldName=Customer__No__ } { 1000000002;TextBox;1650 ;0 ;4500 ;423 ;SourceExpr=Name; DataSetFieldName=Customer_Name } { 1000000004;TextBox;6300 ;0 ;4500 ;423 ;SourceExpr=City; DataSetFieldName=Customer_City } { 1000000006;TextBox;11700;0 ;1500 ;423 ;SourceExpr=txtInfoLastPage; DataSetFieldName=txtInfoLastPage } } } } } } REQUESTFORM { PROPERTIES { Width=9020; Height=3410; } CONTROLS { } } REQUESTPAGE { PROPERTIES { } CONTROLS { } } CODE { VAR txtInfoLastPage@1000000000 : TextConst 'ENU=azertyuiop'; BEGIN END. } RDLDATA { 1cm 2.5cm DataSet_Result

0.63492cm true =Fields!Customer__No__.Value true =Fields!Customer_Name.Value true =Fields!Customer_City.Value

0.63492cm true =First(Fields!Customer__No__Caption.Value) true =First(Fields!Customer_NameCaption.Value) true =First(Fields!Customer_CityCaption.Value)

1.26984cm 3.83333cm 3.83333cm 3.83333cm 1cm11.49999cm1

0.63492cm true =First(Fields!txtInfoLastPage.Value) true

0.63492cm 7cm 7cm

2.5cm

Public Function BlankZero(ByVal Value As Decimal)
    if Value = 0 then
        Return ""
    end if
    Return Value
End Function

Public Function BlankPos(ByVal Value As Decimal)
    if Value > 0 then
        Return ""
    end if
    Return Value
End Function

Public Function BlankZeroAndPos(ByVal Value As Decimal)
    if Value >= 0 then
        Return ""
    end if
    Return Value
End Function

Public Function BlankNeg(ByVal Value As Decimal)
    if Value < 0 then
        Return ""
    end if
    Return Value
End Function

Public Function BlankNegAndZero(ByVal Value As Decimal)
    if Value <= 0 then
        Return ""
    end if
    Return Value
End Function

Shared PageNo as Object
Public Function GetPageNo() as Object
   Return Cstr(PageNo)
End Function

Public Function SetPageNo(NewData as Object)
  If NewData > "" Then
      PageNo = NewData
  End If
End Function

Shared TotalPageNo as Object
Public Function GetTotalPageNo() as Object
   Return Cstr(TotalPageNo)
End Function

Public Function SetTotalPageNo(NewData as Object)
  If NewData > "" Then
      TotalPageNo = NewData
  End If
End Function

Shared LastPageInfo as Object
Public Function GetLastPageInfo() as Object
   Return Cstr(LastPageInfo)
End Function

Public Function SetLastPageInfo(NewData as Object)
  If NewData > "" Then
      LastPageInfo = NewData
  End If
End Function

Customer_CityCaption Customer_NameCaption Customer__No__Caption Customer__No__ Customer_Name Customer_City txtInfoLastPage DummyDataSource DataSet Result SQL bc78ee12-9a92-4917-83e0-69f68350f990 29.7cm 21cm en-US 2.5cm 2.5cm true true 0cm 0.25cm 0.25cm 2 true 0.63492cm 0.5cm ="Page No's Footer: " & Globals!PageNumber & " of /" & Globals!TotalPages 12.25cm 1 textbox5 1cm true 0.63492cm 0.25cm 0.25cm =Code.GetLastPageInfo() 11.25cm textbox11 1.25cm =Iif(Globals!TotalPages = Globals!PageNumber,False,True) 11.75cm 0.75cm true true true 0.63492cm =Code.SetLastPageInfo(ReportItems!txtLastPageInfo.Value) true 9.5cm 29.7cm 21cm 2.5cm 2.5cm 14.00661cm true 0.25cm e6f3063f-f0bd-4d26-a623-3157470ed1ae true END_OF_RDLDatA } }