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 -:)