GuiXT (SAP R/3) - Koehn Consulting, Lyss - Input script for scrolling

Input script for scrolling

This input script shows how you can change variables to obtain a scroll function.

Input script for scrolling in a list displayed with GuiXT. As the number of elements that can be displayed on a screen is limited (otherwise memory errors occur), it has to be possible to scroll between the individual elements, so that the maximum number of elements is not exceeded.

// 26.03.2010 / Gérald Koehn / Koehn Consulting / www.guixt.ch

Parameter Blaettern

// depending on how scrolling is done, the controlling variables are changed
// these include : V[Anz_Zeilen], V[Anz_Zeilen_pro_Blatt], V[Start_Zeile] , V[Ende_Zeile]
// whereby the variables in the scripts are set (GuiXT script with display of lines or in the input script
// which reads the data e.g. with Call and RFC access)

// More detailed description of the variables
// V[Anz_Zeilen]  		// Contains the total of the rows (e.g. 2323)
// V[Anz_Zeilen_pro_Blatt]	// How many lines per scroll should be displayed each time (e.g. 40)
// V[Start_Zeile]		// Line number of the first line that is to be displayed (can be between 1 and  V[Anz_Zeilen] minus V[Anz_Zeilen_pro_Blatt] )
// V[Ende_Zeile]              // Line number of the last line that is to be displayed

// Scroll on first page
if U[Blaettern=Erste_Seite]
  set V[Start_Zeile] 1
  if V[Anz_Zeilen_pro_Blatt>&[Anz_Zeilen]]
    set V[Ende_Zeile] &[Anz_Zeilen]
  else
    set V[Ende_Zeile] &[Anz_Zeilen_pro_Blatt]
  endif
endif

// Scroll on last page
if U[Blaettern=Letzte_Seite]
  set V[Ende_Zeile] &[Anz_Zeilen] 
  set V[Start_Zeile] &[Ende_Zeile] - &[Anz_Zeilen_pro_Blatt]
  set V[Start_Zeile] &[Start_Zeile] + 1
  if V[Start_Zeile<1]  // if first line were less than 1, then the first line is set to 1
    set V[Start_Zeile] 1
  endif
endif

// Scroll on previous page
if U[Blaettern=Vorige_Seite]
  set V[Start_Zeile] &[Start_Zeile] - &[Anz_Zeilen_pro_Blatt]
  if V[Start_Zeile<1]  // if first line were less than 1, then we set the first line to 1
    set V[Start_Zeile] 1
  endif
  set V[Ende_Zeile] &[Ende_Zeile] - &[Anz_Zeilen_pro_Blatt]
  if V[Ende_Zeile<&[Anz_Zeilen_pro_Blatt]]   // if the last line that is to be displayed were less than the default value of the one to be displayed
       // then we set the last line to the default value
    if V[Anz_Zeilen_pro_Blatt<&[Anz_Zeilen]]
      set V[Ende_Zeile] &[Anz_Zeilen_pro_Blatt]
    else
      set V[Ende_Zeile] &[Anz_Zeilen]
    endif
  endif
endif

// Scroll to next page
if U[Blaettern=Naechste_Seite]
  set V[Ende_Zeile] &[Ende_Zeile] + &[Anz_Zeilen_pro_Blatt]
  if V[Ende_Zeile>&[Anz_Zeilen]]  // End would be greater than max. materials
    set V[Ende_Zeile] &[Anz_Zeilen]
    set V[Start_Zeile] &[Ende_Zeile] - &[Anz_Zeilen_pro_Blatt]
    set V[Start_Zeile] &[Start_Zeile] + 1
    if V[Start_Zeile<1]
      set V[Start_Zeile] 1
    endif
  else
    set V[Start_Zeile] &[Start_Zeile] + &[Anz_Zeilen_pro_Blatt]
  endif
endif

Return

see also example of customer displays including scrolling function
http://www.koehn.ch/anzeigekundenberbapi.html