SAP Network Blog: Tasting the mix of Shoes and SAP

So you may wondering...What is Shoes? Well...according to why the lucky stiff it is:

Shoes is a tiny graphics toolkit, designed for beginners. But make no mistake: this is real programming. You can make real, colorful apps in Shoes

Shoes comes in an executable file that be downloaded at Download Shoes.

To be able to do the SAP integration, you must download this file from Piers Harding homepage unzipp it and copy the SAP folder inside the Lib folder of the Shoes instalation.

With that, we're are ready to go.

require 'rubygems'
gem 'saprfc'
require "SAP/Rfc"

class SE16 < Shoes
  url '/',      :index
  url '/table', :table
  url '/show',  :show

def index
  stack :margin => 10 do
    para 'Host: '
    @Host = edit_line :width => 100
  end
  stack :margin => 10 do
    para 'System Number: '
    @Sysnr = edit_line :width => 100
  end
  stack :margin => 10 do
    para 'Client: '
    @Client = edit_line :width => 100
  end
  stack :margin => 10 do
    para 'User: '
    @User = edit_line :width => 100
  end
  stack :margin => 10 do
    para 'Password: '
    @Password = edit_line :width => 100, :secret => true
  end
    stack :margin => 10 do
      button('Login') do
        $rfc = SAP::Rfc.new(:ashost => @Host.text,
                            :sysnr  => @Sysnr.text,
                            :lang   => "EN",
                            :client => @Client.text,
                            :user   => @User.text,
                            :passwd => @Password.text,
                            :trace  => 1)
        visit "/table"
      end
    end
end

def table
  stack :margin => 10 do
    para 'Table: '
    @Table = edit_line :width => 100
    stack :margin => 10 do
      button('Show') do
        $Table = @Table.text
        visit "/show"
      end
    end
  end
end

def show
    $itab = $rfc.discover("RFC_READ_TABLE")  
  
    $itab.query_table.value = $Table
    $itab.delimiter.value = "|"  
  
    $rfc.call($itab)

$Fields = Array.new
    $Data = Array.new
    $Data_Fields = Array.new
    $Data_Split = Array.new
    $Data_Names = Array.new
       
    $itab.fields.hashRows {|field| $Fields.push(field) }
    $Fields_Len = $Fields.length
    $itab.data.hashRows {|field| 
                         $Data.push(field['WA'].to_s.strip!) }
    $Data_Len = $Data.length
    $itab.fields.hashRows {|field| $Data_Names.push
                           (field['FIELDNAME'].to_s.strip)}
  
    para "Tabla: #{$Table}"
  
    for i in 0...$Data_Len
      stack :margin => 10 do
        $Data_Fields = $Data[i]
        $Data_Split = $Data_Fields.split("|")
        flow :margin => 10 do
          for i in 0...$Fields_Len
            para "#{$Data_Split[i].to_s.strip} |"
          end
        end
      end
    end
end
end

Shoes.app :width => 600, :height => 450

Now, some screenshots.

Hope you like it -:)

Alvaro Tejada Galindo is a Development Expert, Scripting Languages Geek, Programming books author, Geek Comics author and SAP Mentor Alumni.

Tasting the mix of Shoes and SAP Alvaro Tejada Galindo Business Card Company: SAP Labs - Montreal Posted on May. 12, 2009 07:06 AM in Beginner, Beyond SAP, Emerging Technologies, Ruby, Scripting Languages

Tasting the mix of Shoes and SAP
Alvaro Tejada Galindo
Business Card
Company: SAP Labs - Montreal
Posted on May. 12, 2009 07:06 AM in Beginner, Beyond SAP, Emerging Technologies, Ruby, Scripting Languages