Blog sobre Lenguajes Script, Tecnología y SAP.
Labels: Misc
posted by Alvaro "Blag" Tejada Galindo at 8:18 AM
0 comments
links to this post
posted by Alvaro "Blag" Tejada Galindo at 3:26 AM
0 comments
links to this post
posted by Alvaro "Blag" Tejada Galindo at 4:42 AM
0 comments
links to this post
*&-----------------------------------------------------------*
*& Report ZDUMMY_SANDBOX *
*&-----------------------------------------------------------*
*& Sandbox application only for testing porpouses. *
*&-----------------------------------------------------------*
REPORT zdummy_sandbox.
*INTERNAL TABLES
DATA: message TYPE string,
t_results TYPE match_result_tab,
t_precedence TYPE match_result_tab,
t_operations TYPE match_result_tab.
*VARIABLES
DATA: g_number TYPE string,
g_sum TYPE i,
g_sum_text TYPE string,
g_operator TYPE string,
g_string TYPE string,
source TYPE string,
return_value TYPE string,
js_processor TYPE REF TO cl_java_script.
*CONSTANTS
CONSTANTS: c_operator TYPE string VALUE '+*/-%'.
*FIELD-SYMBOLS
FIELD-SYMBOLS: <fs_results> LIKE LINE OF t_results,
<fs_precedence> LIKE LINE OF t_precedence,
<fs_operations> LIKE LINE OF t_operations.
*SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME.
PARAMETERS:
p_msg TYPE string OBLIGATORY,
p_js RADIOBUTTON GROUP sa DEFAULT 'X',
p_re RADIOBUTTON GROUP sa.
SELECTION-SCREEN END OF BLOCK b01.
*START-OF-SELECTION
START-OF-SELECTION.
message = p_msg.
IF p_re EQ 'X'.
*REGULAR EXPRESSIONS
WHILE sy-subrc EQ 0.
FIND REGEX '[^\+\-]\*.*' IN message RESULTS t_precedence.
IF sy-subrc EQ 0.
READ TABLE t_precedence INDEX 1 ASSIGNING <fs_precedence>.
g_string = message+<fs_precedence>-offset(<fs_precedence>-length).
CONCATENATE '(' g_string ')' INTO g_string.
REPLACE REGEX '[^\+\-]\*.*' IN message WITH g_string.
CONDENSE g_string.
ENDIF.
FIND REGEX '\(([0-9]{0,9}|[\* \+ \- \/])+\)' IN message RESULTS t_results.
READ TABLE t_results INDEX 1 ASSIGNING <fs_results>.
IF sy-subrc NE 0 AND <fs_results> IS NOT ASSIGNED.
EXIT.
ENDIF.
g_string = message+<fs_results>-offset(<fs_results>-length).
CONDENSE g_string.
FIND ALL OCCURRENCES OF REGEX '([\(]|[0-9]{0,9}|[\* \+ \- \/]|[\)])'
IN g_string RESULTS t_operations.
LOOP AT t_operations ASSIGNING <fs_operations>.
g_number = g_string+<fs_operations>-offset(<fs_operations>-length).
IF g_number EQ '(' OR g_number EQ ')'.
CONTINUE.
ENDIF.
IF g_sum EQ space.
g_sum = g_number.
ENDIF.
IF g_number CA c_operator.
g_operator = g_number.
CONTINUE.
ENDIF.
CASE g_operator.
WHEN '+'.
g_sum = g_sum + g_number.
CLEAR g_operator.
WHEN '-'.
g_sum = g_sum - g_number.
CLEAR g_operator.
WHEN '*'.
g_sum = g_sum * g_number.
CLEAR g_operator.
WHEN '/'.
g_sum = g_sum / g_number.
CLEAR g_operator.
WHEN '%'.
g_sum = g_sum MOD g_number.
CLEAR g_operator.
ENDCASE.
ENDLOOP.
g_sum_text = g_sum.
REPLACE REGEX '\(([0-9]{0,9}|[\* \+ \- \/])+\)' IN message
WITH g_sum_text.
FIND REGEX '[^\+\-]\*.*' IN message RESULTS t_precedence.
IF sy-subrc EQ 0.
READ TABLE t_precedence INDEX 1 ASSIGNING <fs_precedence>.
g_string = message+<fs_precedence>-offset(<fs_precedence>-length).
CONCATENATE '(' g_string ')' INTO g_string.
REPLACE REGEX '[^\+\-]\*.*' IN message WITH g_string.
CONDENSE g_string.
ENDIF.
CLEAR: g_sum,g_operator,g_number.
ENDWHILE.
FIND ALL OCCURRENCES OF REGEX '([\(]|[0-9]{0,9}|[\* \+ \- \/]|[\)])'
IN message RESULTS t_operations.
LOOP AT t_operations ASSIGNING <fs_operations>.
g_number = message+<fs_operations>-offset(<fs_operations>-length).
IF g_number EQ '(' OR g_number EQ ')'.
CONTINUE.
ENDIF.
IF g_sum EQ space.
g_sum = g_number.
ENDIF.
IF g_number CA c_operator.
g_operator = g_number.
CONTINUE.
ENDIF.
CASE g_operator.
WHEN '+'.
g_sum = g_sum + g_number.
CLEAR g_operator.
WHEN '-'.
g_sum = g_sum - g_number.
CLEAR g_operator.
WHEN '*'.
g_sum = g_sum * g_number.
CLEAR g_operator.
WHEN '/'.
g_sum = g_sum / g_number.
CLEAR g_operator.
WHEN '%'.
g_sum = g_sum MOD g_number.
CLEAR g_operator.
ENDCASE.
ENDLOOP.
WRITE:/ 'The result is:', g_sum.
ELSE.
*JAVASCRIPT
js_processor = cl_java_script=>create( ).
CONCATENATE
'var string = ' message ';'
'function Set_String() '
' { string = eval(string); '
' } '
'Set_String(); '
'string; '
INTO source SEPARATED BY cl_abap_char_utilities=>cr_lf.
return_value = js_processor->evaluate( source ).
WRITE:/ 'The result is:', return_value.
ENDIF.
posted by Alvaro "Blag" Tejada Galindo at 3:10 AM
0 comments
links to this post
Labels: ABAP, Misc, SAP, TechEd_2009
posted by Alvaro "Blag" Tejada Galindo at 1:31 PM
0 comments
links to this post
posted by Alvaro "Blag" Tejada Galindo at 2:30 PM
3 comments
links to this post
posted by Alvaro "Blag" Tejada Galindo at 8:13 AM
1 comments
links to this post
Labels: BlackBerry, Java, TechEd_2009
posted by Alvaro "Blag" Tejada Galindo at 8:08 AM
2 comments
links to this post
posted by Alvaro "Blag" Tejada Galindo at 6:20 PM
0 comments
links to this post
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
posted by Alvaro "Blag" Tejada Galindo at 12:36 PM
0 comments
links to this post
Jefe de Proyectos. Consultor ABAP Senior. Mentor SAP. Geek de Lenguajes Script. SDN Blag Blogs
Quick Search Labels:
ABAP
SAP
Misc
PHP
Rails
Ruby
SDN
Python
C#
Flex
AIR
Games
Java
JavaME
SAP TechEd 2007
Community Day
BlackBerry
SAP TechEd 2009
S(D)N Presence:
