El blog tecnológico de Blag.

Blag's Word Clock

2012-01-18T04:46:00.000-08:00

Sabes lo que es un Word Clock? Bueno, es basicamente un reloj que te da la hora utilizando palabras en vez de numeros.

La primera vez que vi uno...sabia que queria comprarlo, pero luego pense y me dije a mi mismo..."Hey! Soy un programador...porque comprar uno cuando yo puedo hacerlo?" Ademas...me di cuenta de que la mayoria de los Word Clocks no te dan la hora exacta, como pueden ver en la imagen...asi que decidi arreglar eso -:)

El siguiente paso era decidir que lenguaje de programacion utilizar...necesitaba una buena interface grafica asi que ABAP y R estaban totalmente descontados...no estaba buscado hacer una version web, asi que PHP fue descartado tambien...asi que mi siguiente opcion fue un lenguaje que me encanta y que no quiero olvidarme tan rapidamente -;) Asi que elegi Python y wxPython para hacerlo funcionar -:) Desde luego...estoy lejos de ser un experto en Python, asi que estoy seguro de que mi codigo podria ser un poco mas corto -:P


#Blag's Word Clock
#Alvaro "Blag" Tejada Galindo
#17/01/2012
import wx
import time
import datetime

class MyApp(wx.App):
    def OnInit(self):
        self.frame = MyFrame(None, title="Blag's Word Clock")
        self.SetTopWindow(self.frame)
        self.frame.Show()
        return True

class MyFrame(wx.Frame):
    def __init__(self, parent, id=wx.ID_ANY, title="",
                 pos=wx.DefaultPosition, size=(330, 260),
                 style=wx.DEFAULT_FRAME_STYLE ^ wx.RESIZE_BORDER,
                 name="MyFrame"):
        super(MyFrame, self).__init__(parent, id, title, pos,size, style, name)
        self.timer = wx.Timer(self)
        self.Bind(wx.EVT_TIMER, self.update, self.timer)
        self.timer.Start(1000)
        self.SetBackgroundColour("Black")
        text_font = wx.Font(15, wx.SWISS, wx.NORMAL, wx.NORMAL, False, u'Arial')
        self.label_it=wx.StaticText(self,1,"IT",wx.Point(10,10))
        self.label_it.SetForegroundColour("yellow")
        self.label_it.SetFont(text_font)
        self.label_is=wx.StaticText(self,1,"IS",wx.Point(35,10))
        self.label_is.SetForegroundColour("yellow")
        self.label_is.SetFont(text_font)
        self.label_half=wx.StaticText(self,1,"HALF",wx.Point(60,10))
        self.label_half.SetForegroundColour("gray")
        self.label_half.SetFont(text_font)
        self.label_twenty=wx.StaticText(self,1,"TWENTY",wx.Point(120,10))
        self.label_twenty.SetForegroundColour("gray")
        self.label_twenty.SetFont(text_font)
        self.label_quarter=wx.StaticText(self,1,"QUARTER",wx.Point(215,10))
        self.label_quarter.SetForegroundColour("gray")
        self.label_quarter.SetFont(text_font)
                
        self.label_ten=wx.StaticText(self,1,"TEN",wx.Point(10,40))
        self.label_ten.SetForegroundColour("gray")
        self.label_ten.SetFont(text_font)
        self.label_to=wx.StaticText(self,1,"TO",wx.Point(75,40))
        self.label_to.SetForegroundColour("gray")
        self.label_to.SetFont(text_font)
        self.label_one=wx.StaticText(self,1,"ONE",wx.Point(120,40))
        self.label_one.SetForegroundColour("gray")
        self.label_one.SetFont(text_font)
        self.label_two=wx.StaticText(self,1,"TWO",wx.Point(180,40))
        self.label_two.SetForegroundColour("gray")
        self.label_two.SetFont(text_font)
        self.label_three=wx.StaticText(self,1,"THREE",wx.Point(245,40))
        self.label_three.SetForegroundColour("gray")
        self.label_three.SetFont(text_font)
                
        self.label_four=wx.StaticText(self,1,"FOUR",wx.Point(10,70))
        self.label_four.SetForegroundColour("gray")
        self.label_four.SetFont(text_font)
        self.label_five=wx.StaticText(self,1,"FIVE",wx.Point(75,70))
        self.label_five.SetForegroundColour("gray")
        self.label_five.SetFont(text_font)
        self.label_six=wx.StaticText(self,1,"SIX",wx.Point(125,70))
        self.label_six.SetForegroundColour("gray")
        self.label_six.SetFont(text_font)
        self.label_seven=wx.StaticText(self,1,"SEVEN",wx.Point(170,70))
        self.label_seven.SetForegroundColour("gray")
        self.label_seven.SetFont(text_font)
        self.label_eight=wx.StaticText(self,1,"EIGHT",wx.Point(250,70))
        self.label_eight.SetForegroundColour("gray")
        self.label_eight.SetFont(text_font)
                
        self.label_nine=wx.StaticText(self,1,"NINE",wx.Point(10,100))
        self.label_nine.SetForegroundColour("gray")
        self.label_nine.SetFont(text_font)
        self.label_eleven=wx.StaticText(self,1,"ELEVEN",wx.Point(110,100))
        self.label_eleven.SetForegroundColour("gray")
        self.label_eleven.SetFont(text_font)
        self.label_twelve=wx.StaticText(self,1,"TWELVE",wx.Point(230,100))
        self.label_twelve.SetForegroundColour("gray")
        self.label_twelve.SetFont(text_font)
                
        self.label_minutes=wx.StaticText(self,1,"MINUTES",wx.Point(10,130))
        self.label_minutes.SetForegroundColour("gray")
        self.label_minutes.SetFont(text_font)
        self.label_past=wx.StaticText(self,1,"PAST",wx.Point(115,130))
        self.label_past.SetForegroundColour("gray")
        self.label_past.SetFont(text_font)
        self.label_to_x=wx.StaticText(self,1,"TO",wx.Point(180,130))
        self.label_to_x.SetForegroundColour("gray")
        self.label_to_x.SetFont(text_font)
        self.label_one_x=wx.StaticText(self,1,"ONE",wx.Point(215,130))
        self.label_one_x.SetForegroundColour("gray")
        self.label_one_x.SetFont(text_font)
        self.label_two_x=wx.StaticText(self,1,"TWO",wx.Point(265,130))
        self.label_two_x.SetForegroundColour("gray")
        self.label_two_x.SetFont(text_font)
                
        self.label_three_x=wx.StaticText(self,1,"THREE",wx.Point(10,160))
        self.label_three_x.SetForegroundColour("gray")
        self.label_three_x.SetFont(text_font)
        self.label_four_x=wx.StaticText(self,1,"FOUR",wx.Point(85,160))
        self.label_four_x.SetForegroundColour("gray")
        self.label_four_x.SetFont(text_font)
        self.label_five_x=wx.StaticText(self,1,"FIVE",wx.Point(150,160))
        self.label_five_x.SetForegroundColour("gray")
        self.label_five_x.SetFont(text_font)
        self.label_six_x=wx.StaticText(self,1,"SIX",wx.Point(205,160))
        self.label_six_x.SetForegroundColour("gray")
        self.label_six_x.SetFont(text_font)
        self.label_seven_x=wx.StaticText(self,1,"SEVEN",wx.Point(245,160))
        self.label_seven_x.SetForegroundColour("gray")
        self.label_seven_x.SetFont(text_font)
                
        self.label_eight_x=wx.StaticText(self,1,"EIGHT",wx.Point(10,190))
        self.label_eight_x.SetForegroundColour("gray")
        self.label_eight_x.SetFont(text_font)
        self.label_nine_x=wx.StaticText(self,1,"NINE",wx.Point(95,190))
        self.label_nine_x.SetForegroundColour("gray")
        self.label_nine_x.SetFont(text_font)
        self.label_ten_x=wx.StaticText(self,1,"TEN",wx.Point(165,190))
        self.label_ten_x.SetForegroundColour("gray")
        self.label_ten_x.SetFont(text_font)
        self.label_eleven_x=wx.StaticText(self,1,"ELEVEN",wx.Point(235,190))
        self.label_eleven_x.SetForegroundColour("gray")
        self.label_eleven_x.SetFont(text_font)
                
        self.label_twelve_x=wx.StaticText(self,1,"TWELVE",wx.Point(10,220))
        self.label_twelve_x.SetForegroundColour("gray")
        self.label_twelve_x.SetFont(text_font)
        self.label_oclock=wx.StaticText(self,1,"O'CLOCK",wx.Point(125,220))
        self.label_oclock.SetForegroundColour("gray")
        self.label_oclock.SetFont(text_font)
        self.label_am=wx.StaticText(self,1,"AM",wx.Point(235,220))
        self.label_am.SetForegroundColour("gray")
        self.label_am.SetFont(text_font)
        self.label_pm=wx.StaticText(self,1,"PM",wx.Point(283,220))
        self.label_pm.SetForegroundColour("gray")
        self.label_pm.SetFont(text_font)
    
    def reset_colours(self):
        self.label_pm.SetForegroundColour("gray")
        self.label_am.SetForegroundColour("gray")
        self.label_oclock.SetForegroundColour("gray")
        self.label_one.SetForegroundColour("gray")
        self.label_two.SetForegroundColour("gray")
        self.label_three.SetForegroundColour("gray")
        self.label_four.SetForegroundColour("gray")
        self.label_five.SetForegroundColour("gray")
        self.label_six.SetForegroundColour("gray")
        self.label_seven.SetForegroundColour("gray")
        self.label_eight.SetForegroundColour("gray")
        self.label_nine.SetForegroundColour("gray")
        self.label_one_x.SetForegroundColour("gray")
        self.label_two_x.SetForegroundColour("gray")
        self.label_three_x.SetForegroundColour("gray")
        self.label_four_x.SetForegroundColour("gray")
        self.label_five_x.SetForegroundColour("gray")
        self.label_six_x.SetForegroundColour("gray")
        self.label_seven_x.SetForegroundColour("gray")
        self.label_eight_x.SetForegroundColour("gray")
        self.label_nine_x.SetForegroundColour("gray")
        self.label_half.SetForegroundColour("gray")
        self.label_twenty.SetForegroundColour("gray")
        self.label_quarter.SetForegroundColour("gray")
        self.label_ten.SetForegroundColour("gray")
        self.label_ten_x.SetForegroundColour("gray")
        self.label_eleven.SetForegroundColour("gray")
        self.label_eleven_x.SetForegroundColour("gray")
        self.label_twelve.SetForegroundColour("gray")
        self.label_twelve_x.SetForegroundColour("gray")

    def hours(self,hour):
        if hour == 12:
            self.label_twelve.SetForegroundColour("yellow")
        elif hour == 11:
            self.label_eleven.SetForegroundColour("yellow")
        elif hour == 10:
            self.label_ten.SetForegroundColour("yellow")
        elif hour == 9:
            self.label_nine.SetForegroundColour("yellow")
        elif hour == 8:
            self.label_eight.SetForegroundColour("yellow")
        elif hour == 7:
            self.label_seven.SetForegroundColour("yellow")
        elif hour == 6:
            self.label_six.SetForegroundColour("yellow")
        elif hour == 5:
            self.label_five.SetForegroundColour("yellow")
        elif hour == 4:
            self.label_four.SetForegroundColour("yellow")
        elif hour == 3:
            self.label_three.SetForegroundColour("yellow")
        elif hour == 2:
            self.label_two.SetForegroundColour("yellow")
        elif hour == 1:
            self.label_one.SetForegroundColour("yellow")            

    def minutes(self,reminder):
        if reminder == 9:
            self.label_nine.SetForegroundColour("yellow")
        if reminder == 8:
            self.label_eight.SetForegroundColour("yellow")
        if reminder == 7:
            self.label_seven.SetForegroundColour("yellow")
        if reminder == 6:
            self.label_six.SetForegroundColour("yellow")
        if reminder == 5:
            self.label_five.SetForegroundColour("yellow")
        if reminder == 4:
            self.label_four.SetForegroundColour("yellow")
        if reminder == 3:
            self.label_three.SetForegroundColour("yellow")
        if reminder == 2:
            self.label_two.SetForegroundColour("yellow")
        if reminder == 1:
            self.label_one.SetForegroundColour("yellow")

    def update(self, event):        
        self.reset_colours()
        now=datetime.datetime.now()
        hour = now.hour
        minute = now.minute
        if hour >= 12 and minute != 0:
            self.label_pm.SetForegroundColour("yellow")
            hour = hour - 12
        elif hour < 12 and minute != 0:
            self.label_am.SetForegroundColour("yellow")
        elif minute == 0:
            self.label_oclock.SetForegroundColour("yellow")
            if hour >= 12:
                hour = hour - 12
                self.hours(hour)
            else:
                self.hours(hour)

        if minute >= 1 and minute <= 29:
            self.label_minutes.SetForegroundColour("yellow")
            self.label_past.SetForegroundColour("yellow")
            if hour == 12:
                self.label_twelve_x.SetForegroundColour("yellow")
            elif hour == 11:
                self.label_eleven_x.SetForegroundColour("yellow")
            elif hour == 10:
                self.label_ten_x.SetForegroundColour("yellow")
            elif hour == 9:
                self.label_nine_x.SetForegroundColour("yellow")
            elif hour == 8:
                self.label_eight_x.SetForegroundColour("yellow")
            elif hour == 7:
                self.label_seven_x.SetForegroundColour("yellow")
            elif hour == 6:
                self.label_six_x.SetForegroundColour("yellow")
            elif hour == 5:
                self.label_five_x.SetForegroundColour("yellow")
            elif hour == 4:
                self.label_four_x.SetForegroundColour("yellow")
            elif hour == 3:
                self.label_three_x.SetForegroundColour("yellow")
            elif hour == 2:
                self.label_two_x.SetForegroundColour("yellow")
            elif hour == 1:
                self.label_one_x.SetForegroundColour("yellow")
            division = minute / 20
            reminder = minute % 20                
            if division == 1 and reminder == 0:
                self.label_twenty.SetForegroundColour("yellow")
            elif division == 1 and reminder != 0:
                self.label_twenty.SetForegroundColour("yellow")
                self.minutes(reminder)
            division = minute / 10
            reminder = minute % 10                
            if division == 1 and reminder == 0:
                self.label_ten.SetForegroundColour("yellow")
            elif division == 1 and reminder != 0:
                self.label_ten.SetForegroundColour("yellow")
                if reminder == 9:
                    self.label_nine.SetForegroundColour("yellow")
                if reminder == 8:
                    self.label_eight.SetForegroundColour("yellow")
                if reminder == 7:
                    self.label_seven.SetForegroundColour("yellow")
                if reminder == 6:
                    self.label_six.SetForegroundColour("yellow")
                if reminder == 5:
                    self.label_ten.SetForegroundColour("gray")
                    self.label_quarter.SetForegroundColour("yellow")
                if reminder == 4:
                    self.label_four.SetForegroundColour("yellow")
                if reminder == 3:
                    self.label_three.SetForegroundColour("yellow")
                if reminder == 2:
                    self.label_ten.SetForegroundColour("gray")
                    self.label_twelve.SetForegroundColour("yellow")
                if reminder == 1:
                    self.label_ten.SetForegroundColour("gray")
                    self.label_eleven.SetForegroundColour("yellow")
            elif division == 0 and reminder != 0:
                if reminder == 9:
                    self.label_nine.SetForegroundColour("yellow")
                if reminder == 8:
                    self.label_eight.SetForegroundColour("yellow")
                if reminder == 7:
                    self.label_seven.SetForegroundColour("yellow")
                if reminder == 6:
                    self.label_six.SetForegroundColour("yellow")
                if reminder == 5:
                    self.label_five.SetForegroundColour("yellow")
                if reminder == 4:
                    self.label_four.SetForegroundColour("yellow")
                if reminder == 3:
                    self.label_three.SetForegroundColour("yellow")
                if reminder == 2:
                    self.label_two.SetForegroundColour("yellow")
                if reminder == 1:
                    self.label_one.SetForegroundColour("yellow")
                        
        elif minute == 30:
            self.hours(hour)
            self.label_half.SetForegroundColour("yellow")
            self.label_past.SetForegroundColour("yellow")

        elif minute >= 29 and minute <= 59:
            self.label_minutes.SetForegroundColour("yellow")
            minute = 60 - minute
            self.label_to_x.SetForegroundColour("yellow")
            hour = hour + 1
            if hour == 12:
                self.label_twelve_x.SetForegroundColour("yellow")
            elif hour == 11:
                self.label_eleven_x.SetForegroundColour("yellow")
            elif hour == 10:
                self.label_ten_x.SetForegroundColour("yellow")
            elif hour == 9:
                self.label_nine_x.SetForegroundColour("yellow")
            elif hour == 8:
                self.label_eight_x.SetForegroundColour("yellow")
            elif hour == 7:
                self.label_seven_x.SetForegroundColour("yellow")
            elif hour == 6:
                self.label_six_x.SetForegroundColour("yellow")
            elif hour == 5:
                self.label_five_x.SetForegroundColour("yellow")
            elif hour == 4:
                self.label_four_x.SetForegroundColour("yellow")
            elif hour == 3:
                self.label_three_x.SetForegroundColour("yellow")
            elif hour == 2:
                self.label_two_x.SetForegroundColour("yellow")
            elif hour == 1:
                self.label_one_x.SetForegroundColour("yellow")
            division = minute / 20
            reminder = minute % 20                
            if division == 1 and reminder == 0:
                self.label_twenty.SetForegroundColour("yellow")
            elif division == 1 and reminder != 0:
                self.label_twenty.SetForegroundColour("yellow")
                if reminder == 9:
                    self.label_nine.SetForegroundColour("yellow")
                if reminder == 8:
                    self.label_eight.SetForegroundColour("yellow")
                if reminder == 7:
                    self.label_seven.SetForegroundColour("yellow")
                if reminder == 6:
                    self.label_six.SetForegroundColour("yellow")
                if reminder == 5:
                    self.label_five.SetForegroundColour("yellow")
                if reminder == 4:
                    self.label_four.SetForegroundColour("yellow")
                if reminder == 3:
                    self.label_three.SetForegroundColour("yellow")
                if reminder == 2:
                    self.label_two.SetForegroundColour("yellow")
                if reminder == 1:
                    self.label_one.SetForegroundColour("yellow")
            division = minute / 10
            reminder = minute % 10                
            if division == 1 and reminder == 0:
                self.label_ten.SetForegroundColour("yellow")
            elif division == 1 and reminder != 0:
                self.label_ten.SetForegroundColour("yellow")
                if reminder == 9:
                    self.label_nine.SetForegroundColour("yellow")
                if reminder == 8:
                    self.label_eight.SetForegroundColour("yellow")
                if reminder == 7:
                    self.label_seven.SetForegroundColour("yellow")
                if reminder == 6:
                    self.label_six.SetForegroundColour("yellow")
                if reminder == 5:
                    self.label_ten.SetForegroundColour("gray")
                    self.label_quarter.SetForegroundColour("yellow")
                if reminder == 4:
                    self.label_four.SetForegroundColour("yellow")
                if reminder == 3:
                    self.label_three.SetForegroundColour("yellow")
                if reminder == 2:
                    self.label_ten.SetForegroundColour("gray")
                    self.label_twelve.SetForegroundColour("yellow")
                if reminder == 1:
                    self.label_ten.SetForegroundColour("gray")
                    self.label_eleven.SetForegroundColour("yellow")
            elif division == 0 and reminder != 0:
                self.minutes(reminder)    

if __name__ == "__main__":
    app = MyApp(False)
    app.MainLoop()

Saludos,

Blag.

Modelo de Prediccion utilizando HANA y R

2012-01-14T05:22:00.000-08:00

Estos ultimos dias, he estado leyendo y jugando bastante con R, y realmente he llegado a adorarlo...desde luego, no tengo ni idea en esas raras funciones estadisticas, pero eso no significa que no pueda usar R e intentar hacer algunas cuantas cosas asombrosas.

Asi que, ayer estaba pensando acerca de hacer integracion entre HANA y R, mis nuevos hijos adoptivos, asi que tuve la idea de hacer un modelo de prediccion para una companhia aerea. Segui estos pasos.

1.- Primero, tenia que escoger una tabla, asi que tome SNVOICE:

Esta tabla nos ofrece, el Carrier Id, la fecha y el Book Id, lo cual significa el numero de boletos vendidos en un dia en particular. Y de aqui podia hacer unos cuantos calculos y determinar cuantos boletos se vendieron en cada mes en un anho en particular.

2.- Necesitaba una tabla para guardar mi nueva informacion, asi que cree la tabla TICKETS_BY_YEAR:

3.- Necesitaba un Procedure para analisar la tabla, determinar el total por dia del mes y luego calcular el gran total por mes.


CREATE PROCEDURE GetTicketsByMonth 
(IN var_year NVARCHAR(4),IN var_carrid NVARCHAR(2))
LANGUAGE SQLSCRIPT AS
v_found NVARCHAR(2) := 1;
sum_bookid INT;
v_date NVARCHAR(8) := '';
BEGIN                
TT_MONTH = select fldate, count(bookid) as "BOOKID"
           from sflight.snvoice 
           where year(fldate) = VAR_YEAR and carrid = VAR_CARRID
           group by fldate
           order by fldate asc;
v_date := (:var_year * 10000) + 101;
while :v_found <= 12 do 
select sum(bookid) into sum_bookid
from :TT_MONTH
where month(fldate) = :v_found;
insert into TICKETS_BY_YEAR
values(v_date,sum_bookid);
v_date := :v_date + 100;
v_found := :v_found + 1;
end while;           
END;

4.- Por supuesto...necesitaba llamar a mi Procedure...


CALL P075400.GetTicketsByMonth('2011','''AA''');

5.- Una vez terminado, revise mi tabla para estar seguro de que todo funciono como lo esperado...

6.- Luego de asegurarme de que mi informacion estaba correcta y limpia, la exporte a un archivo .CSV (Disculpen...pero no hay imagen esta vez...ya la postee antes)

7.- Fui a mi R Studio y empece a programar...


Flight_Tickets=read.csv(file="Flight_Tickets.csv",header=TRUE)
period=Flight_Tickets$PERIOD
tickets=Flight_Tickets$TICKETS
var_year=substr(period[1],1,4)
var_year=as.integer(var_year)
var_year=var_year+1
var_year=as.character(var_year)
new_period=gsub("^\\d{4}",var_year,period)
next_year=data.frame(year=new_period,StringsAsFactors=FALSE)
prt.lm=lm(tickets ~ period)
pred=predict(prt.lm,next_year,interval="none")

plot(tickets,type="b",
     col="red",
     main="Annual Tickets Sale",
     xlab="Months",ylab="Tickets")
lines(pred,type="b",col="blue")
legend("bottomleft",inset=.05,title="Real vs. Predicted",
       c("Real","Predicted"),
       lty=c(1,1),col=c("red","blue"))

8.- Observe my grafico generado mostrando la venta real de tickets versus la venta predecida de tickets. La real es por cada mes de 2011 y la predecida es para cada mes del 2012.

9.- Nada que hacer aqui...ya esta hecho -:)

10.- Nos vemos la proxima vez, con HANA, R o alguna otra tecnologia.

Saludos,

Blag.

Los mejores blogs del 2011 segun Blag

2012-01-02T11:28:00.000-08:00

Asi que el 2011 ya se fue...fue un buen anho, asi que es momento para continuar con una tradicion que comence hace 4 anhos con el blog Blag's best blogs picks from 2007.

Puedo ver con felicidad, que cada anho, mejores blogs estan siendo escritos, y es dificil para mi no incluirlos en la lista, la cual crece cada anho.

Nuevamente, no soy un experto en cada campo, lejos de eso, lo unico que he hecho, como en los anhos anteriores, es navegar en los blogs de cada mes, y tratar de seleccionar los que para mi son los mejores, o simplemente son joyas escondidas....blogs sin comentarios, pero que realmente aportan algo nuevo. Espero que les guste la lista -:) Y si no estas en ella...perdon, pero hacer una lista tan grande como esta es un trabajo muy pesado, asi que seguramente debo haber perdido algunos muy buenos -:(

ABAP

Don't try to be smart. Be smart. by Tobias Trapp

Caffeine in Action by Daniel Vocke

ABAP Trapdoors: The Myth of the Instance Constructor by Volker Wegert

Operations Research & ABAP by Tobias Trapp

Open Source

More Barcodes with Barcode Writer in Pure Postscript by Robert Russell

Dealing with R and HANA by Alvaro Tejada Galindo

abap2gapps: is your ABAP ready for the Google cloud? by Ivan Femia

OAuth2: Next generation authentication API by Ivan Femia

On Demand and Software as a Services (SaaS)

Why Dick Hirsch is mostly wrong about ByDesign guerilla tactics by Dennis Howlett

Guerrilla Tactics for SAP’'s OnDemand 'Go to Market' Strategy by Richard Hirsch

Improving My Experience

Does the SAP SCN community need more achievements and rewards? by Tom Cenens

"Programmers are lazy" - InnoJam them! by Chris Paine

Download basket approvals gone with the wind by Tom Cenens

SAP Developer Network

16 SAP Mentor Magic Moments 2010 by Mark Finnern

SCN Blogs Go Mobile by Gali Kling Schneider

SDN Time Capsule : How it all started by Jeff Word by Martin Gillet

Things that drive me crazy on SDN by Martin Maruskin

Top 25 SCN Blogs of all Time by Mark Finnern

Web Dynpro

Kiss of Life for ABAP Dynpro –- It’s going to stay, so let’s improve the integration by Thorsten Franz

Standards

Sorry Singleton I don't love you anymore. by Chris Paine

Community Projects

Can the community be improved? by Dennis Howlett

A simple way of giving back to the community by John Astill

Damned If You Do And Damned If You Do Not by Marilyn Pratt

Governance, Risk and Compliance

Making the case for SAP Mentor alumni program by Dennis Howlett

Beyond SAP

[Plagiarism] Why thieves from portals like saptechies.com are safe ? Bloggers please help... by Michal_Krawczyk_PIXI

OINK OINK! Welcome to the SAP Gamification Cup! by Mario Herger

Is ABAP for Non-ABAPers (Functionals)? by Fabio Luiz Esperati Pagoti

Not your Grandfather’s SAP (Recommended by Ivan Femia) by Thorsten Franz

About 'Embracing Inclusion to Drive Innovation' by Matthias Steiner

R.I.P Dennis Ritchie, and thank you ! by Vijay Vijayasankar

Rest In Peace, Game Changer by Vijay Vijayasankar

A word of thanks by Tom Cenens

Join with SAP and the U.N. as One of the 7 Billion! by Mark Yolton

Ranting

Bad good, and Great Consultants??? by Michelle Crapo

Etiquette Versus Netiquette by Bala Prabahar

Five signs that the new SCN is dysfunctional by Jim Spath

ERP

Embed an HTML landing page into your SAP GUI home screen by John Moy

Why Workday is a Major Threat to SAP by Jarret Pazahanick

Business Process Management

SAPMentors + ASUG +VNSG +SAP = #winning! by Susan Keohan

Business Process Expert

Embracing Inclusion –- Driving Innovation : An Introduction by Marilyn Pratt

SAP TechEd

Why I'm excited about the upcoming TechEd in Las Vegas by Matt Harding

Help an SAP Mentor with his travels? by Jim Spath

SCNotty Goes To Bollywood by Jim Spath

Design Thinking, Women in technology at Tech-ed BLR 2011 a participant’'s view by SINGHKUMUD

Python

Tasting the mix of Python and SAP by Alvaro Tejada Galindo

In-Memory Business Data Management

POV: HANA's impact on ABAP Programming by Ram Batulla

Quick Thoughts about HANA and InMemory Technology by Richard Hirsch

Finding SAP HANA Documentation by John Appleby

An InnoJam Experience - with HANA flavour by Sarat Atluri

Are we putting the cart before the horse? by Bala Prabahar

Experience HANA - the wish list by Vijay Vijayasankar

How much of the game will HANA change? by Vijay Vijayasankar

Why SAP HANA 1.0 SP03 - Project Orange - will be a runaway success by John Appleby

Using Excel on HANA by Thomas Zurek

ExaData, ExaLogic, and now ExaLytics? ExaSperating… by Aiaz Kazi

Mobile

An Android App for searching HELP.SAP.COM by John Moy

Mobile SAP Applications using DHTMLX Touch by Brad Pokroy

SAPMentors Outreach iOS App by Bjoern Weigand

Proudly Presenting the SAP Mentors Outreach Mobile App for Android – Connect with SAP Mentors at SAPphireNOW/ASUG Orlando by Thorsten Franz

Thoughts on the current debate about the Sybase Unwired Platform and options to energize the mobile development community by Richard Hirsch

SAP Mentor Outreach is now available on JQuery Mobile by Ivan Femia

An experiment of Android with HANA In-Memory Database by Sudhir Verma

BSP mobile logon screen using jQueryMobile by Alessandro Spadoni

SAP Streamwork

SAP StreamWork: Picking up Steam? by Tammy Powlas

Social Media and Social Networks

Why Google+'s rapid adoption doesn't impress me by Jamie Oswald

8 Ways to Let You Know SCN is Listening (on Twitter) by Sylvia Santelli

Confessions of mixed emotions about the coming new SCN by Gretchen Y Lindquist

What I Learned About Social Media Marketing from a Webinar on Mobile Marketing by Natascha Thomson

How cool is SCN? by Graham Robinson

What it means to me to be an SAP Mentor by Natascha Thomson

12 SAP Troublemakers by Jarret Pazahanick

I'm outta here !! by Dennis Howlett

Unsolicited Advice for Blogging Marketers by Jamie Oswald

Emerging Technologies

My first Android Application by Girish Kaimal

Ruby

Ruby, Camping and...Gateway? by Alvaro Tejada Galindo

Building a Cross-Platform Mobile App with rhomobile by Mark Teichmann

Run SAP

SAP HANA InnoJam Online, SAP's new developer competition by Anne Hardy

SCN runs SAP! by Maya Bahar

SAP NetWeaver Gateway

Thoughts on NetWeaver Gateway by Graham Robinson

SAP NetWeaver Gateway: 90-day trial version, train race, webinar, and other news by Helena Losada

SAP NetWeaver Gateway: A Poor Man's EDMX Generation Tool by James Wood

Community Day

SAP Inside Track Milan 2011 - The reporting by Ivan Femia

PHP

Consuming SAP NetWeaver Gateway OData web services using PHP by Christopher Reichley

Visual Composer

Old School UI Modeling - Meet HANA by Yariv Zur

Portal Development - Why Web Dynpro Java is replaceable by Tobias Hofmann

Feliz Anho Nuevo 2012!

2011-12-31T17:49:00.000-08:00

Supongo que este es el momento de hablar de todas las cosas buenas que me pasaron el 2011, y de las cosas buenas que quiero que me pasen el 2012...asi que aqui voy -:)

2011
* Entre a SAP
* Aprendi HANA, Gateway y R
* Deje de ser un Consultor ABAP despues de casi 11 anhos

2012
* Escribir mi libro de Python
* Continuar aprendiendo R
* Perder peso
* Darle a mi hija la mejor fiesta de 4 anhos que ha habido jamas

y de paso...FELIZ ANHO NUEVO 2012!!!

Saludos,

Blag.

Venta de Navidad!

2011-12-07T20:01:00.000-08:00

Nuevamente...hasta el 30% de descuento en mis libros (edicion impresa) en...

Libros de Blag en Lulu.com

Disponible hasta la primera semana de Enero...aprovechen -;)

Saludos,

Blag.

Decimal a Binario en "R"

2011-12-05T10:25:00.000-08:00

Ultimamente...he estado aprendiendo "R"...ese raro lenguaje de programacion orientado a la programacion Estadistica...y de verdad me gusta...asi que como siempre, necesitaba crear mi propia aplicacion de Decimal a Binario -;)


binary<-function(p_number) {
  bsum<-0
  bexp<-1
  while (p_number > 0) {
     digit<-p_number %% 2
     p_number<-floor(p_number / 2)
     bsum<-bsum + digit * bexp
     bexp<-bexp * 10
  }
  return(bsum)
}

p_number<-readline("Decimal number?: ")
p_number<-as.numeric(p_number)
bsum<-binary(p_number)
cat("Binary: ", bsum)

Para este ejemplo, utilice RStudio.

Greetings,

Blag.

Concurso SAP HANA InnoJam OnLine - Llamada de atencion

2011-12-03T12:02:00.000-08:00

Sabian que hay un Consurso de SAP HANA InnoJam Online? Espero que no, porque lo mas probable...es que no hayan enviado su idea...

Anne Hardy y Michelle Crapo han escrito blogs sobre el concurso...SAP HANA InnoJam online contest, new start...Switching Gears - Have you heard about the Hana Online InnoJam? pero al parecer dos blogs no son suficientes para enviar un mensaje...

Karin Schattka amablemente create creo un WIKI con toda la informacion y el FAQ para este concurso SAP HANA InnoJam Online 2012 asi que no hay mucho que me quede por decir, excepto quizas por darles el enlace a Ideas Place para que pueden enviar su super idea y ganar el concurso -;)

sap_hana_innojam_online

Pero ya me conocen...no puedo limitarme solamente a eso...sabian ustedes que si su idea es aceptada...las 100 primeras van a serlo, van a tener acceso al Sandbox de SAP HANA? Y este sera su espacio para que puedan usar o installar herramientas adicionales que podrian ayudarte, como "R" por ejemplo, o Microsoft Excel y Business Object Explorer.

Deberia hablar de los premios? No...yo pienso que no...pueden leer eso en otro ado, ademas estoy seguro de que para todos los geeks alla afuera, tener la oportunidad de jugar con SAP HANA es premio suficiente, no?

Hasta el dia de hoy, solo tenemos 47 ideas enviadas al Ideas Place...lo cual significa que 53 plazas estan disponibles para ser llenadas...asi que apurence! Piensa en tu super idea! Enviala a Ideas Place! Clasifica y desarrolla tu idea utilizando SAP HANA! Llega a las finales! Gana el concurso!

Reamente espero que luego de leer este blog, envies tu idea...Estare vigilando -;)

Saludos,

Blag.

Trabajando con HANA y R

2011-11-28T19:03:00.000-08:00

Primero lo primero...que es "R"? Poniendolo de una manera simple...es un lenguaje de programacion y entorno de software para graficos y calculo estadisticos. Mas informacion en Wikipedia R on Wikipedia

He programado en muchos lenguages de programacion, algunos de ellos muy comerciales, y algunos muy poco conocidos, pero debo decir, de todos ellos, "R" es uno de los mas raros e impresionantes lenguages con los que he jugado...y tiene un repositorio impresionante de add-ons customizados.

Si has leido el HANA Pocketbook te habras dado cuenta de que hay una referencia de "R" en la pagina 59. Por el momento, este tipo de integracion entre "R" y HANA no ha sido desarrollada, pero eso no significa que no podamos ensuciarnos las manos haciendo un poco de investigacion y desarollo.

Lo que hice para este ejemplo, fue simplemente mostrar la informacion de mi Vista Analitica en HANA y exportarla como un archivo CSV. Luego, es muy facil importarla en "R" y comenzar a hacer cosas interesantes. (La idea es que podamos desarrollar en "R" directamente en el entorno de HANA...o por lo menos es como yo pienso que va a ser...)

El primer ejemplo que vamos a construir en "R" es un simple grafico de Pie, utilizando la informacion de los campos FORCURAM y CARRNAME.

En este ejemplo, basicamente estamos leyendo el archivo CSV, incluyendo la cabecera. Y haciendo una agregacion de los dos campos con los cuales queremos interactuar. Luego de eso, tan solo debemos pasar los valores, los nombres y llamar al grafico de pie.

El siguiente ejemplo es un poco mas complicado...y usa un paquete customizado llamado Word Clouds

Aqui, debemos cargar la librerias requeridas, leer el archivo CSV, hacer la agregacion, crear una matriz con los valores de la agregacion, ordenar la matriz, crear un vector, obtener su longitud, crear un array conteniendo los nombres y finalmente asignar los valores y llamar al metodo grafico wordcloud...

Espero que les haya gustado...y esten pendientes para mas "R"...

Saludos,

Blag.

Sigue mis blogs en un solo Feed!

2011-11-18T10:15:00.002-08:00

Gracias a una contribucion de Consultoria SAP ahora pueden seguir mis 2 blogs El Blog Tecnologico de Blag y Blag's bag of rants utilizando un solo feed.

Saludos,

Blag.

Y ahora...algunas noticias locas...

2011-11-01T05:00:00.000-07:00

Aquellos que me conocen en la vida real, saben que estoy loco por SAP...y lo digo en serio...de verdad amo SAP...

Asi que...los amo tanto que, que creen? Voy a comenzar a trabajar oficialmente para ellos este 21 de Noviembre -:D

Voy a tener el puesto de Development Expert en Platform Evangelism and Developer Adoption de SAP Labs.

Las buenas noticias...voy a estar mas on-line que nunca, lo cual significa que voy a poder postear mas en el blog -:)

Saludos,
Blag.

wxPython y SAP

2011-07-15T06:28:00.000-07:00

Post original: Tasting the mix of Python and SAP - Volume 3

Hola y bienvenidos de vuelta a este pequeño y divertido rincon de Lenguajes Script -:)

Hoy dia, vamos a ver como podemos utilizar wxPython y SAP para hacer una emulacion de la SE16.

Asi que, que es wxPython? Es un wrapper en Python del wxWidgets de C++ que nos ayuda a crear aplicaciones GUI enriquecidas.

Para este blog estuve tentado a utilizar Tkinter pero debo admitir que me gusta mas el wxPython...puesto que ya lo he utlizado antes para mis proyectos en Ruby. Bueno, en Ruby era un poco mas facil que en Python -:P

Basta de hablar, vamos al codigo fuente...(Eso se veria bien en un polo, no?)

Nuevamente, y como siempre en mis proyectos Python/SAP...utilice YAML para guardar los parametros de conexion a SAP.

sap.yml


ashost: localhost
sysnr: "00"
client: "001"
lang: EN
trace: 1
loglevel: warn

SE16_wxPython.py


import wx
import sapnwrfc
import wx.grid as wxGrid

conn = ""
table = ""


class MyApp(wx.App):

    def OnInit(self):
        self.frame = MyFrame(None, title="Login")
        self.SetTopWindow(self.frame)
        self.frame.Show()
        return True


class MyFrame(wx.Frame):

    def __init__(self, parent, id=wx.ID_ANY, title="",
                 pos=wx.DefaultPosition, size=(210, 150),
                 style=wx.DEFAULT_FRAME_STYLE,
                 name="MyFrame"):
        super(MyFrame, self).__init__(parent, id, title, pos,
                                      size, style, name)

        self.panel = wx.Panel(self)
        self.text_font = wx.Font(12, wx.DEFAULT, wx.NORMAL, wx.NORMAL)
        self.t_user = wx.StaticText(self.panel, -1, "User", 
                                    size=(40, 20), pos=(10, 12))
        self.t_password = wx.StaticText(self.panel, -1, "Password",
        size=(40, 20), pos=(10, 32))
        self.t_user.SetFont(self.text_font)
        self.t_password.SetFont(self.text_font)
        self.user = wx.TextCtrl(self.panel, value="", pos=(90, 10))
        self.password = wx.TextCtrl(self.panel, value="", 
                                    pos=(90, 30), 
                                    style=wx.TE_PASSWORD)
        self.btnConnect = wx.Button(self.panel, label="Connect", 
                                    pos=(70, 80))

        self.Bind(wx.EVT_BUTTON, self.OnButtonConnect, 
                  self.btnConnect)

    def OnButtonConnect(self, event):
        global conn
        user = self.user.GetValue()
        password = self.password.GetValue()
        sapnwrfc.base.config_location = "sap.yml"
        sapnwrfc.base.load_config()
        conn = sapnwrfc.base.rfc_connect({'user': user, 
                                          'passwd': password})
        self.Close()
        myGrid = GridFrame(None, title="SE16 Emulator")
        myGrid.Show()


class GridFrame(wx.Frame):

    def __init__(self, parent, id=wx.ID_ANY, title="",
                 pos=wx.DefaultPosition, size=(600, 400),
                 style=wx.DEFAULT_FRAME_STYLE,
                 name="GridFrame"):
        super(GridFrame, self).__init__(parent, id, title, pos,
                                        size, style, name)

        self.panel = wx.Panel(self)
        self.text_font = wx.Font(12, wx.DEFAULT, wx.NORMAL, wx.NORMAL)
        self.t_table = wx.StaticText(self.panel, -1, "Table", 
                                     size=(40, 20), pos=(180, 12))
        self.t_table.SetFont(self.text_font)
        self.table = wx.TextCtrl(self.panel, value="", pos=(225, 10))
        self.btnShow = wx.Button(self.panel, label="Show Table",
                                 pos=(330, 10))

        self.Bind(wx.EVT_BUTTON, self.OnButtonShow, self.btnShow)

    def OnButtonShow(self, event):
        global conn
        table = self.table.GetValue()
        fields = []
        fields_name = []
        func_disc = conn.discover("RFC_READ_TABLE")
        func = func_disc.create_function_call()
        func.QUERY_TABLE(str(table))
        func.DELIMITER("|")
        func.invoke()
        data_fields = func.DATA.value
        data_names = func.FIELDS.value
        long_fields = len(func.DATA())
        long_names = len(func.FIELDS())

        for line in range(0, long_fields):
            fields.append(data_fields[line]["WA"].strip())
        for line in range(0, long_names):
            fields_name.append(data_names[line]["FIELDNAME"].strip())

        self.grid = wxGrid.Grid(self.panel, pos=(0, 40), 
                                size=(853, 320))
        self.grid.EnableEditing(False)
        self.grid.CreateGrid(long_fields, long_names)

        for line in range(0, long_names):
            field_name = fields_name[line]
            self.grid.SetColLabelValue(line, field_name)
        for line_f in range(0, long_fields):
            data_split = fields[line_f].split("|")
            for line_n in range(0, long_names):
                self.grid.SetCellValue(line_f, line_n, 
                                       data_split[line_n])

    def onClose(self, event):
        global conn
        conn.close()


if __name__ == "__main__":
    app = MyApp(False)
    app.MainLoop()

Ahora, las imagenes:

Asi que, basicamente, lo que tenemos aca es una ventana de Logeo con el Nombre de Usuario y Password y un boton para conectarnos. Cuando nos conectamos a SAP, entonces la ventana desaparece y una nueva ventana aparece. Esta nueva ventana nos pide el nombre de la tabla y nos muestra un Grid conteniendo toda la informacion.

Nos vemos la proxima vez -;)

Blag.

Decimales a Romanos y Numeros LCD en Python

2011-07-04T18:46:00.000-07:00

Como parte de mi aprendizaje de Python, estoy tomando mis viejos codigos de Ruby y convirtiendolos a Python...y creanme...no hay mejor manera de aprender -:)

El primer programa que tome fue Decimales a Romanos, el cual descubri que no estaba funcionando bien para numeros grandes -:( Luego de unos retoques con Python, esta listo para la accion -;)


Roman_Table = {1000: 'M', 900: 'CM', 500: 'D', 400: 'CD',
               100: 'C', 90: 'XC', 50: 'L', 40: 'XL', 
               10: 'X', 9: 'IX', 5: 'V', 4: 'IV', 1: 'I'}

global result
keys = []

def reverse_numeric(x, y):
    return y - x

def Roman_Number(number):
    result = ""
    keys = Roman_Table.keys()
    keys = sorted(keys, cmp=reverse_numeric)
    while number > 0:
        for i in keys:
            if number >= i:
                result += str(Roman_Table.get(i, 0))
                number -= i
                break
    return result

number = input("\nEnter a number: ")
result = Roman_Number(number)
print ("\n" + result)

El siguiente fue Numeros LCD el cual creanlo o no...logre bajar de las 160 lineas de codigo de Ruby, a solamente 35 lineas...impresionante, no?


global line1, line2, line3

line1 = ""
line2 = ""
line3 = ""

zero = {1: ' _  ', 2: '| | ', 3: '|_| '}
one = {1: '  ', 2: '| ', 3: '| '}
two = {1: ' _  ', 2: ' _| ', 3: '|_  '}
three = {1: '_  ', 2: '_| ', 3: '_| '}
four = {1: '    ', 2: '|_| ', 3: '  | '}
five = {1: ' _  ', 2: '|_  ', 3: ' _| '}
six = {1: ' _  ', 2: '|_  ', 3: '|_| '}
seven = {1: '_   ', 2: ' |  ', 3: ' |  '}
eight = {1: ' _  ', 2: '|_| ', 3: '|_| '}
nine = {1: ' _  ', 2: '|_| ', 3: ' _| '}

num_lines = {0: zero, 1: one, 2: two, 3: three, 4: four,
             5: five, 6: six, 7: seven, 8: eight, 9: nine}

def Lines(number):
    global line1, line2, line3
    line1 += number.get(1, 0)
    line2 += number.get(2, 0)
    line3 += number.get(3, 0)

number = str(input("\nEnter a number: "))
length = len(number)
for i in range(0, length):
    Lines(num_lines.get(int(number[i:i+1]), 0))

print ("\n")
print line1
print line2
print line3
print ("\n")

Siento mucha pensa por Ruby, porque aun lo amo mucho...pero Python esta haciendo mucho esfuerzo para convertirse en mi lenguaje script favorito -;)

Saludos,

Blag.

Python, EasyGui y SAP

2011-06-22T07:00:00.000-07:00

Post original: Tasting the mix of Python and SAP - Volume 2

Este post continua con mis aventuras aprendiendo Python, y asi como amo los Micro Frameworks Web, tambien amo los frameworks graficos simples...esta vez, vamos a utilizar EasyGui, que es un wrapper para Tkinter que es a su vez una capa para Tk.

Asi que cual el alboroto con EasyGui? Bueno...es una forma facil de hacer GUI's...entienden? Easy-Gui...Gui-Facil.

Como sea, no es tan completo como TKinter pero de hecho es mas facil de aprender y programar. Basta de hablar...veamos el codigo fuente...

Primero, use Yaml nuevamente para esconder la mayoria de los parametros de conexion del usuario.


ashost: localhost
sysnr: "00"
client: "001"
lang: EN
trace: 1
loglevel: warn

SE16_EasyGui.py


from easygui import *
import sapnwrfc

TITLE = "Python (Easy Gui) & SAP - SE16 Emulator"
conn = ""
table = ""


def Login():
    global conn
    msg = "Python (Easy Gui) & SAP - SE16 Emulator"
    title = "Login"
    fieldNames = ["User", "Passwd"]
    fieldValues = []
    fieldValues = multpasswordbox(msg, title, fieldNames)
    user, passwd = fieldValues[0], fieldValues[1]
    sapnwrfc.base.config_location = "sap.yml"
    sapnwrfc.base.load_config()
    conn = sapnwrfc.base.rfc_connect({'user': user, 'passwd': passwd})
    ChooseTable()


def ChooseTable():
    global table
    table = enterbox("Show Table")
    if table != " ":
        ShowTable()


def ShowTable():
    global conn, table
    fields = []
    fields_name = []
    fields_length = []
    output = []
    header = ""
    lines = ""
    separator = ""
    counter = 0
    func_disc = conn.discover("RFC_READ_TABLE")
    func = func_disc.create_function_call()
    func.QUERY_TABLE(table)
    func.DELIMITER("|")
    func.invoke()
    data_fields = func.DATA.value
    data_names = func.FIELDS.value
    long_fields = len(func.DATA())
    long_names = len(func.FIELDS())

    for line in range(0, long_fields):
        fields.append(data_fields[line]["WA"].strip())
    for line in range(0, long_names):
        counter = counter + 1
        fields_name.append(data_names[line]["FIELDNAME"].strip())
        fields_length.append(data_names[line]["LENGTH"].strip())

    for line in range(0, long_names):
        field_name = fields_name[line]
        field_length = fields_length[line]
        if len(field_name) > field_length:
            field_length = len(field_name)
        field_length = int(field_length) - len(field_name)
        spaces = " " * int(field_length)
        counter = counter + len(field_name) + len(spaces)
        header = header + field_name + spaces + "|"

    separator = "-" * counter
    output.append(header)
    output.append(separator)

    for line in range(0, long_fields):
        lines = ""
        field_length = ""
        spaces = ""
        data_split = fields[line].split("|")
        for line in range(0, long_names):
            field_name = fields_name[line]
            field_length = fields_length[line]
            if len(field_name) > int(field_length):
                field_length = len(field_name)
                field_length = int(field_length) - 
                               len(data_split[line])
            else:
                field_length = 0
            spaces = " " * int(field_length)
            lines = lines + data_split[line] + spaces + "|"
        output.append(lines)


    codebox("", TITLE, "\n".join(output))

if __name__ == "__main__":
    Login()

Ahora, unas imagenes por supuesto -:)

Espero que les haya gustado...nos vemos la proxima vez...

Saludos,

Blag.

Python, Bottle, Flask y SAP

2011-06-22T06:49:00.000-07:00

Post original: Tasting the mix of Python and SAP

Ha pasado mucho tiempo desde mi ultimo "Tasting the mix of" blog post...pero aqui estamos para cambiar esto -;)

Ultimamente, he estado aprediendo Python...un lenguaje de programacion sexy, poderoso y facil de aprender...asi que desde luego...cada vez que aprendo algo nuevo, quiero aplicarlo al mundo de SAP...y como tengo mucha suerte, Piers Harding ha creado un conector llamado Python SAPRfc -:D

Asi que, con todo preparado y trabajando, empeze a trabajar en un emulador de SE16 utilizando una pantalla de DOS...pero luego me di cuenta de que aunque el no creo una SE16, mi buen amigo David Hull ya habia utilizado Python, SAPRfc y una pantalla DOS en su blog titulado Python and SAP Adventures.

Como ya habia trabajado antes con Micro Frameworks en Ruby, pense que seria una buena idea implementar lo mismo utilizando Python...asi que luego de un poco de investigacion, encontre dos interesantes candidatos (Notese que amo los Micro Frameworks y los Frameworks no tan populares...refiriendome a que no amo, no se y no utilizo Rails o Djanjo...me gusta mantener las cosas simples).

Estos Micro Frameworks se llaman Bottle y Flask (Nombre raros, no?).

Asi que para hacer las cosas simples, utilice YAML, donde utilizamos un archivo de configuracion donde vamos a poner nuestras cadenas de conexion...algo asi como el SAPLogon.ini


ashost: localhost
sysnr: "00"
client: "001"
lang: EN
trace: 1
loglevel: warn

Para los codigo fuentes, empecemos con Bottle.

SE16_Bottle.py


from bottle import get, post, request, run, redirect, route
import sapnwrfc

conn = ""


@get('/login')
def login_form():
    return '''<DIV ALIGN='CENTER'><BR><BR><BR><BR>
                <H1>Python (Bottle) & SAP - SE16 Emulator</H1>
                <BR><TABLE BORDER='1' BORDERCOLOR='BLUE' 
                     BGCOLOR='WHITE'>
                <FORM METHOD='POST'>
                <TR><TD>User</TD><TD>
                <INPUT TYPE='TEXT' NAME='User'></TD></TR>
                <TR><TD>Password</TD>
                <TD><INPUT TYPE='PASSWORD' NAME='Passwd'></TD></TR>
                <TR><TD COLSPAN='2' ALIGN='CENTER'>
                <INPUT TYPE='SUBMIT' value='Log In' NAME='LOG_IN'>
                <INPUT TYPE='RESET' value='Clear'></TD></TR>
                </FORM>
                <TABLE>
              </DIV>'''


@post('/login')
def login_submit():
    global conn
    user = request.forms.get('User')
    passwd = request.forms.get('Passwd')
    sapnwrfc.base.config_location = "sap.yml"
    sapnwrfc.base.load_config()
    conn = sapnwrfc.base.rfc_connect({'user': user, 'passwd': passwd})
    redirect("/choose")


@get('/choose')
def choose_table():
    return '''<CENTER>
                <FORM METHOD='POST'>
                <INPUT TYPE='TEXT' NAME='Table'><BR>
                <INPUT TYPE='SUBMIT' value='Show Table' 
                 NAME='Show_Table'>
                </FORM>
              </CENTER>'''


@post('/choose')
def show_table():
    global conn
    fields = []
    fields_name = []
    table = request.forms.get('Table')
    func_disc = conn.discover("RFC_READ_TABLE")
    func = func_disc.create_function_call()
    func.QUERY_TABLE(table)
    func.DELIMITER("|")
    func.invoke()
    data_fields = func.DATA.value
    data_names = func.FIELDS.value
    long_fields = len(func.DATA())
    long_names = len(func.FIELDS())

    for line in range(0, long_fields):
        fields.append(data_fields[line]["WA"].strip())
    for line in range(0, long_names):
        fields_name.append(data_names[line]["FIELDNAME"].strip())

    output = "<table border='1'><tr>"
    for line in range(0, long_names):
        field_name = fields_name[line]
        output += "<th> %s </th>" % field_name
    output += "</tr>"
    for line in range(0, long_fields):
        output += "<tr>"
        data_split = fields[line].split("|")
        for line in range(0, long_names):
            output += "<td> %s </td>" % data_split[line]
        output += "</tr>"
    output += "</table>"
    return output
    conn.close()

run(host='localhost', port=8080)

Ahora, continuemos con Flask:

SE16_Flask.py


from flask import Flask, redirect, request
import sapnwrfc
app = Flask(__name__)

conn = ""


@app.route("/")
def login():
    return '''<DIV ALIGN='CENTER'><BR><BR><BR><BR>
                <H1>Python (Flask) & SAP - SE16 Emulator</H1>
                <BR><TABLE BORDER='1' BORDERCOLOR='BLUE' 
                     BGCOLOR='WHITE'>
                <FORM ACTION='/login_submit' METHOD='POST'>
                <TR><TD>User</TD><TD>
                <INPUT TYPE='TEXT' NAME='User'></TD></TR>
                <TR><TD>Password</TD>
                <TD><INPUT TYPE='PASSWORD' NAME='Passwd'></TD></TR>
                <TR><TD COLSPAN='2' ALIGN='CENTER'>
                <INPUT TYPE='SUBMIT' value='Log In' NAME='LOG_IN'>
                <INPUT TYPE='RESET' value='Clear'></TD></TR>
                </FORM>
                <TABLE>
              </DIV>'''


@app.route("/login_submit", methods=['GET', 'POST'])
def login_submit():
    global conn
    if request.method == 'POST':
        user = request.form['User']
        passwd = request.form['Passwd']
        sapnwrfc.base.config_location = "sap.yml"
        sapnwrfc.base.load_config()
        conn = sapnwrfc.base.rfc_connect({'user': user, 
                                          'passwd': passwd})
        return redirect("/choose")


@app.route("/choose")
def choose_table():
    return '''<CENTER>
                <FORM ACTION='/show' METHOD='POST'>
                <INPUT TYPE='TEXT' NAME='Table'><BR>
                <INPUT TYPE='SUBMIT' value='Show Table' 
                 NAME='Show_Table'>
                </FORM>
              </CENTER>'''


@app.route("/show", methods=['GET', 'POST'])
def show_table():
    global conn
    if request.method == 'POST':
        fields = []
        fields_name = []
        table = str(request.form['Table'])
        func_disc = conn.discover("RFC_READ_TABLE")
        func = func_disc.create_function_call()
        func.QUERY_TABLE(table)
        func.DELIMITER("|")
        func.invoke()
        data_fields = func.DATA.value
        data_names = func.FIELDS.value
        long_fields = len(func.DATA())
        long_names = len(func.FIELDS())

        for line in range(0, long_fields):
            fields.append(data_fields[line]["WA"].strip())
        for line in range(0, long_names):
            fields_name.append(data_names[line]["FIELDNAME"].strip())

        output = "<table border='1'><tr>"
        for line in range(0, long_names):
            field_name = fields_name[line]
            output += "<th> %s </th>" % field_name
        output += "</tr>"
        for line in range(0, long_fields):
            output += "<tr>"
            data_split = fields[line].split("|")
            for line in range(0, long_names):
                output += "<td> %s </td>" % data_split[line]
            output += "</tr>"
        output += "</table>"
        return output
        conn.close()

if __name__ == "__main__":
    app.run()

Mismo resultado, diferentes Micro Frameworks...excelente, no?

Nos vemos pronto con otra receta para el "Tasting the mix of..."

Saludos,

Blag.

Tic-Tac-Toe - Un juego en Python

2011-05-25T13:15:00.000-07:00

Python? Es un los mejores lenguajes de programacion? Si que lo es -:)
Asi es, comence a aprender Python hace un par de semanas...un mes quizas...asi que como empece?

Ya conocia Python por nombre desde hace mucho tiempo...haciendo cosas en Ruby sabia que Ruby hereda muchas cosas de Python (y de Perl tambien), pero nunca le di mucha importancia.

Un dia, me dije a mi mismo...tienes que aprender Python! se ve como un buen lenguaje...asi que me embarque en el viaje de aprender un nuevo lenguaje de programacion.
La mayoria de gente que usa Python dice "Python es facil de aprender, es sexy, te hace escribir codigo bonito"...y saben que? Es totalmente cierto -:)

Asi que, como parte de mi proceso de aprendizaje tome un Tic-Tac-Toe que hice en Ruby 5 anhos atras y lo converti a Python...creanlo o no...el codigo es mas robusto y logre reducir el codigo en 38 lineas menos...excelente, no?

Asi que aqui esta el codigo...y recuerden que soy un novato en Python...asi que no vengan con su "Oh, si fueras un verdadero Pythonista, harias las cosas asi"...porque no soy un Pythonista...por lo menos no todavia -;) Soy un ABAPista -:P


#TIC_TAC_TOE
#Made by Blag - 2011

game = False
coordenates = ""
player_won = ""
player_turn = "1"
line1 = ""
line2 = ""
line3 = ""
line4 = ""
line5 = ""

board_array = [" ", " ", " ", " ", " ", " ", " ", " ", " "]
played_moves = [" ", " ", " ", " ", " ", " ", " ", " ", " "]


def clean_lines():
    line1 = " "
    line2 = " "
    line3 = " "
    line4 = " "
    line5 = " "


def initial_board():
    clean_lines()
    line1 = "   |   |   "
    line2 = "---+---+---"
    line3 = "   |   |   "
    line4 = "---+---+---"
    line5 = "   |   |   "

    print "\n"
    print (line1)
    print (line2)
    print (line3)
    print (line4)
    print (line5)
    print "\n"


def board(coordenates, player):
    clean_lines()

    if board_array[coordenates] == " ":
        board_array[coordenates] = player
    else:
        cheat = True

    Move_1 = board_array[0]
    Move_2 = board_array[1]
    Move_3 = board_array[2]
    Move_4 = board_array[3]
    Move_5 = board_array[4]
    Move_6 = board_array[5]
    Move_7 = board_array[6]
    Move_8 = board_array[7]
    Move_9 = board_array[8]

    print "\n"
    print " %s | %s | %s " % (Move_1, Move_2, Move_3)
    print "---+---+---"
    print " %s | %s | %s " % (Move_4, Move_5, Move_6)
    print "---+---+--- "
    print " %s | %s | %s " % (Move_7, Move_8, Move_9)
    print "\n\n"


def print_winner(player):
    print "Player ", player, " won\n\n"


def check_who_wins():
    game = False
    if (board_array[0] != " " and board_array[0] == board_array[1] and
        board_array[1] == board_array[2]):
        game = True
        if board_array[0] == "*":
            print_winner(1)
        else:
            print_winner(2)

    if (board_array[3] != " " and board_array[3] == board_array[4] and
        board_array[4] == board_array[5]):
        game = True
        if board_array[3] == "*":
            print_winner(1)
        else:
            print_winner(2)

    if (board_array[0] != " " and board_array[0] == board_array[3] and
        board_array[3] == board_array[6]):
        game = True
        if board_array[0] == "*":
            print_winner(1)
        else:
            print_winner(2)

    if (board_array[1] != " " and board_array[1] == board_array[4] and
        board_array[4] == board_array[7]):
        game = True
        if board_array[1] == "*":
            print_winner(1)
        else:
            print_winner(2)

    if (board_array[2] != " " and board_array[2] == board_array[5] and
        board_array[5] == board_array[8]):
        game = True

        if board_array[2] == "*":
            print_winner(1)
        else:
            print_winner(2)

    if (board_array[0] != " " and board_array[0] == board_array[4] and
        board_array[4] == board_array[8]):
        game = True
        if board_array[0] == "*":
            print_winner(1)
        else:
            print_winner(2)

    if (board_array[2] != " " and board_array[2] == board_array[4] and
        board_array[4] == board_array[6]):
        game = True
        if board_array[2] == "*":
            print_winner(1)
        else:
            print_winner(2)

    wins = 0

    for board in board_array:
        if board != " ":
            wins += 1

    if wins == 9:
        game = True
        print "It's a Tie'.\n\n"

    return game


def make_move(player_turn, game, coordenates):
    index_coordenates = 0
    if game == False:
        cheat = False
        if player_turn == "1":
            coordenates = input("Player 1: ")
            coordenates = coordenates
            if coordenates <= 0 or coordenates > 9:
                print "Please, only values from 1 to 9\n"
                make_move(player_turn, game, coordenates)
            for moves in played_moves:
                if moves == coordenates:
                    cheat = True
            if cheat == True:
                cheat = False
                print "That move was already made!\n"
                make_move(player_turn, game, coordenates)
            index_coordenates = coordenates - 1
            played_moves[index_coordenates] = coordenates
            player = "*"
            board(index_coordenates, player)
            game = check_who_wins()

    if game == False:
        cheat = False
        player_turn = "2"
        if player_turn == "2":
            coordenates = input("Player 2: ")
            coordenates = coordenates
            if coordenates <= 0 or coordenates > 9:
                print "Please, only values from 1 to 9\n"
                make_move(player_turn, game, coordenates)

            for moves in played_moves:
                if moves == coordenates:
                    cheat = True

            if cheat == True:
                cheat = False
                print "That move was already made!\n"
                make_move(player_turn, game, coordenates)

            index_coordenates = coordenates - 1
            played_moves[index_coordenates] = coordenates
            player = "O"
            board(index_coordenates, player)
            game = check_who_wins()
            player_turn = "1"
    return game

initial_board()


while(game == False):
    game = make_move(player_turn, game, coordenates)

Saludos,

Blag.

Programming non-sense #2

2010-12-02T12:23:00.000-08:00

Uno de mis hobbies es hacer que el ABAP haga cosas para las que no ha sido exactamente diseñando...asi que cuando aprendi a poner color a las celdas del ALV...siempre tuve la idea de hacer algo con eso...entonces, se me ocurrio hacer una especie de Paint.

En este caso, tenemos 4 colores disponibles, lo cuales se activan haciendo doble click en cada una de las celdas...si la celda esta en blanco y hacemos doble click...cambia de color, si volvemos a hacer doble click, cambia nuevamente...y asi hasta que regresa a blanco y continua.

Esta es la imagen para que se hagan una idea...

Y este el codigo fuente...espero que les guste -;)


REPORT zalv_painting NO STANDARD PAGE HEADING.

TYPE-POOLS: abap.
CLASS lcl_event_receiver DEFINITION DEFERRED.

DATA: it_fieldcatalog TYPE lvc_t_fcat,
      wa_fcat TYPE lvc_s_fcat,
      dataref TYPE REF TO data,
      new_line TYPE REF TO data,
      l_fieldname TYPE string,
      data_catalog TYPE REF TO data,
      t_stable TYPE STANDARD TABLE OF
      lvc_s_stbl WITH HEADER LINE,
      ct_fieldcat TYPE lvc_t_fcat,
      gs_layout TYPE lvc_s_layo,
      gs_variant TYPE disvariant,
      custom_container TYPE REF TO
      cl_gui_custom_container,
      it_color TYPE TABLE OF lvc_s_scol,
      it_color_aux TYPE TABLE OF lvc_s_scol,
      wa_color_aux TYPE lvc_s_scol,
      it_celltab TYPE lvc_t_styl,
      event_receiver TYPE REF TO lcl_event_receiver,
      grid1 TYPE REF TO cl_gui_alv_grid,
      mycontainer TYPE scrfname VALUE 'CUSTOM_ALV',
      ls_celltab TYPE lvc_s_styl,
      wa_color TYPE lvc_s_scol,
      l_color TYPE lvc_col,
      l_tabix(2) TYPE c,
      ok_code TYPE sy-ucomm,
      x_save.

FIELD-SYMBOLS: <row> TYPE table,
               <l_line> TYPE ANY,
               <l_field> TYPE ANY,
               <fs_catalog> TYPE lvc_s_fcat,
               <fs_color> LIKE LINE OF it_color,
               <fs_color_aux> LIKE LINE OF it_color_aux,
               <ct_fieldcat> LIKE LINE OF ct_fieldcat.

*-----------------------------------------------------*
* CLASS LCL_EVENT_RECEIVER DEFINITION                 *
*-----------------------------------------------------*
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS: handle_double_click
             FOR EVENT double_click OF cl_gui_alv_grid
             IMPORTING e_row e_column.
ENDCLASS. "LCL_EVENT_RECEIVER DEFINITION

*-----------------------------------------------------*
* CLASS lcl_event_receiver IMPLEMENTATION             *
*-----------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_double_click.
    PERFORM paint_cell USING e_row e_column.
  ENDMETHOD.                    "handle_double_click
ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION

*=====================================================*
* START-OF-SELECTION                                  *
*=====================================================*
START-OF-SELECTION.
  PERFORM create_structure.
  PERFORM fill_layout.
  PERFORM generate_alv_catalog.
  PERFORM call_alv.
  CALL SCREEN 0100.

*&----------------------------------------------------*
*&      Form  CREATE_STRUCTURE                        *
*&----------------------------------------------------*
FORM create_structure.

  DO 20 TIMES.
    l_tabix = l_tabix + 1.
    CONCATENATE 'FIELD' l_tabix INTO l_fieldname.
    wa_fcat-fieldname = l_fieldname.
    wa_fcat-ref_table = 'PERF_STRING_STRUCT'.
    wa_fcat-ref_field = 'DATA'.
    APPEND wa_fcat TO it_fieldcatalog.
  ENDDO.

  wa_fcat-fieldname     = 'COLOR'.
  wa_fcat-ref_table     = 'PERF_STRING_STRUCT'.
  wa_fcat-ref_field     = 'DATA'.
  APPEND wa_fcat TO it_fieldcatalog.

  wa_fcat-fieldname     = 'COLOR_CELL'.
  wa_fcat-ref_table     = 'RESC_DEFAULT_ALV_FIELDS'.
  wa_fcat-ref_field     = 'COLORTAB'.
  APPEND wa_fcat TO it_fieldcatalog.

  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog           = it_fieldcatalog
    IMPORTING
      ep_table                  = dataref
    EXCEPTIONS
      generate_subpool_dir_full = 1
      OTHERS                    = 2.

  ASSIGN dataref->* TO <row>.
  CREATE DATA new_line LIKE LINE OF <row>.
  ASSIGN new_line->* TO <l_line>.

  DO 40 TIMES.
    INSERT <l_line> INTO TABLE <row>.
  ENDDO.

ENDFORM.                    " CREATE_STRUCTURE

*&----------------------------------------------------*
*&      Form  FILL_LAYOUT                             *
*&----------------------------------------------------*
FORM fill_layout.

  gs_layout-sel_mode = 'A'.
  gs_layout-ctab_fname = 'COLOR_CELL'.

ENDFORM.                    " FILL_LAYOUT

*&-----------------------------------------------------*
*&      Form  GENERATE_ALV_CATALOG                     *
*&-----------------------------------------------------*
FORM generate_alv_catalog.

  CREATE DATA data_catalog TYPE lvc_s_fcat.
  ASSIGN data_catalog->* TO <fs_catalog>.

  CLEAR l_tabix.

  DO 20 TIMES.
    l_tabix = l_tabix + 1.
    CONCATENATE 'FIELD' l_tabix INTO l_fieldname.
    APPEND INITIAL LINE TO ct_fieldcat
    ASSIGNING <ct_fieldcat>.
    <ct_fieldcat>-fieldname = l_fieldname.
  ENDDO.

ENDFORM.                    " GENERATE_ALV_CATALOG

*&------------------------------------------------------*
*&      Form  CALL_ALV                                  *
*&------------------------------------------------------*
FORM call_alv.

  IF custom_container IS INITIAL.
    CREATE OBJECT custom_container
      EXPORTING
        container_name              = mycontainer
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5.
  ENDIF.

  CREATE OBJECT grid1
    EXPORTING
      i_parent = custom_container.

  CREATE OBJECT event_receiver.

  SET HANDLER event_receiver->handle_double_click FOR grid1.

  CALL METHOD grid1->set_table_for_first_display
    EXPORTING
      is_variant      = gs_variant
      i_save          = x_save
      i_default       = 'X'
      is_layout       = gs_layout
    CHANGING
      it_fieldcatalog = ct_fieldcat
      it_outtab       = <row>.

ENDFORM.                    " CALL_ALV

*&----------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT                   *
*&----------------------------------------------------*
MODULE status_0100 OUTPUT.

  SET PF-STATUS '0100'.
  SET TITLEBAR 'TITLE'.

ENDMODULE.                 " STATUS_0100  OUTPUT

*&----------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT              *
*&----------------------------------------------------*
MODULE user_command_0100 INPUT.

  ok_code = sy-ucomm.

  CASE ok_code.
    WHEN 'BACK' OR 'STOP' OR 'CANCEL'.
      SET SCREEN 0.
      LEAVE SCREEN.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT

*&----------------------------------------------------*
*&      Form  PAINT_CELL                              *
*&----------------------------------------------------*
FORM paint_cell USING p_row
                      p_column.

  READ TABLE <row> ASSIGNING <l_line>
  INDEX p_row.
  IF sy-subrc EQ 0 AND <l_line> IS ASSIGNED.
    ASSIGN COMPONENT 22 OF STRUCTURE <l_line> TO <l_field>.
    it_color[] = <l_field>.
    READ TABLE it_color ASSIGNING <fs_color>
    WITH KEY fname = p_column.
    IF sy-subrc EQ 0 AND <fs_color> IS ASSIGNED.
      CASE <fs_color>-color-col.
        WHEN space or 2.
          l_color = 1.
        WHEN 1.
          l_color = 4.
        WHEN 4.
          l_color = 5.
        WHEN 5.
          l_color = 6.
        WHEN 6.
          l_color = 2. "White
      ENDCASE.

      MOVE l_color TO <fs_color>-color-col.
      MOVE p_column TO <fs_color>-fname.
    ELSE.
      l_color = 1.
      MOVE l_color TO wa_color-color-col.
      MOVE p_column TO wa_color-fname.
      APPEND wa_color TO it_color.
    ENDIF.

    ASSIGN COMPONENT 22 OF STRUCTURE <l_line> TO <l_field>.
    <l_field> = it_color[].

    CALL METHOD grid1->refresh_table_display
      EXPORTING
        is_stable = t_stable.
  ENDIF.

ENDFORM.                    " PAINT_CELL

Saludos,

Blag.

Venta navideña!

2010-11-30T08:34:00.000-08:00

Empezando desde hoy y por todo el mes de Diciembre...obten un 25% de descuento en todos mis libros!

Blag en Lulu.com

Aprovecha esta excelente oferta!

Saludos,

Blag.

XML y RegEx otra vez...

2010-11-10T16:25:00.000-08:00

En blog anterior Tres son multitud...XML, RegEx y Programación Dinámica hablamos de como leer un archivo XML utilizando RegEx y Programación Dinámica...entonces hoy dia estuve pensando que si podemos leer un XML utilizando RegEx...tambien podemos crearlo...claro, esta no es para nada la mejor manera, puesto que podemos hacer lo mismo utilizando Simple Transformations, XLST Transformation y XML DOM.

Como siempre...este código fue muy divertido de hacer -;)


TYPES: BEGIN OF TY_XML,
       FIELD TYPE STRING,
       END OF TY_XML.

DATA: T_DD03P_TAB  TYPE STANDARD TABLE OF DD03P,
      T_FILETAB TYPE FILETABLE,
      T_XML TYPE STANDARD TABLE OF TY_XML.

DATA: L_FLAG TYPE C,
      L_AUX TYPE STRING,
      L_STRING TYPE STRING,
      L_XML_LINE TYPE STRING,
      DATA_TAB TYPE REF TO DATA,
      SIZE TYPE I,
      W_SUBRC TYPE SY-SUBRC,
      W_FILE_OUT TYPE STRING.

FIELD-SYMBOLS:  TYPE STANDARD TABLE,
                TYPE ANY,
                TYPE ANY,
                LIKE LINE OF T_XML,
                LIKE LINE OF T_DD03P_TAB,
                LIKE LINE OF T_FILETAB.

SELECTION-SCREEN BEGIN OF BLOCK TEST WITH FRAME.
PARAMETERS:
           TABNAME TYPE DD02L-TABNAME,
           FILE_OUT LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK TEST.

START-OF-SELECTION.
  PERFORM VALIDATE_TABLE USING TABNAME
                         CHANGING L_FLAG.
  IF L_FLAG EQ SPACE.
    PERFORM LOAD_TABLE_STRUCT USING TABNAME.
    PERFORM LOAD_TABLE_INFO USING TABNAME.
    PERFORM CREATE_XML.
    PERFORM DOWNLOAD_XML.
  ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE_OUT.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    EXPORTING
      WINDOW_TITLE     = 'Seleccionar archivo'
      DEFAULT_FILENAME = '*.xml'
      FILE_FILTER      = '*.xml'
    CHANGING
      FILE_TABLE       = T_FILETAB
      RC               = W_SUBRC.

  READ TABLE T_FILETAB INDEX 1
  ASSIGNING .
  FILE_OUT = .
  W_FILE_OUT = FILE_OUT.

  IF FILE_OUT IS INITIAL.
    EXIT.
  ENDIF.

*&------------------------------------------------------*
*&      Form  VALIDATE_TABLE                            *
*&------------------------------------------------------*
FORM VALIDATE_TABLE USING P_TABNAME
                    CHANGING P_FLAG.

  SELECT SINGLE TABNAME
  INTO P_TABNAME
  FROM DD02L
  WHERE TABNAME EQ P_TABNAME.
  IF SY-SUBRC NE 0.
    P_FLAG = 'X'.
  ELSE.
    CLEAR P_FLAG.
  ENDIF.

ENDFORM.                    " VALIDATE_TABLE

*&------------------------------------------------------*
*&      Form  LOAD_TABLE_STRUCT                         *
*&------------------------------------------------------*
FORM LOAD_TABLE_STRUCT USING P_TABNAME.

  CALL FUNCTION 'DDIF_TABL_GET'
    EXPORTING
      NAME          = P_TABNAME
    TABLES
      DD03P_TAB     = T_DD03P_TAB
    EXCEPTIONS
      ILLEGAL_INPUT = 1
      OTHERS        = 2.

ENDFORM.                    " LOAD_TABLE_STRUCT

*&------------------------------------------------------*
*&      Form  LOAD_TABLE_INFO                           *
*&------------------------------------------------------*
FORM LOAD_TABLE_INFO USING P_TABNAME.

  CREATE DATA DATA_TAB TYPE STANDARD TABLE OF (P_TABNAME).
  ASSIGN DATA_TAB->* TO .
  SELECT *
  FROM (P_TABNAME)
  INTO TABLE .

ENDFORM.                    " LOAD_TABLE_INFO

*&------------------------------------------------------*
*&      Form  CREATE_XML                                *
*&------------------------------------------------------*
FORM CREATE_XML.

  APPEND INITIAL LINE TO T_XML ASSIGNING .
  -FIELD = ''.
  APPEND INITIAL LINE TO T_XML ASSIGNING .
  -FIELD = ''.
*XML Logic here!
  LOOP AT  ASSIGNING .
    L_XML_LINE = ''.
    LOOP AT T_DD03P_TAB ASSIGNING .
      ASSIGN COMPONENT -FIELDNAME OF
      STRUCTURE  TO .
      L_AUX = .
      CONDENSE L_AUX NO-GAPS.
      CONCATENATE -FIELDNAME '/' L_AUX
      INTO L_STRING.
      REPLACE REGEX '(\w+)[\/](\w+)' IN L_STRING
      WITH '<$1>$2'.
      CONCATENATE L_XML_LINE L_STRING INTO L_XML_LINE.
    ENDLOOP.
    APPEND INITIAL LINE TO T_XML ASSIGNING .
    -FIELD = L_XML_LINE.
    CONCATENATE -FIELD ''
    INTO -FIELD.
  ENDLOOP.
*XML Logic here!
  APPEND INITIAL LINE TO T_XML ASSIGNING .
  -FIELD = ''.

ENDFORM.                    " CREATE_XML

*&------------------------------------------------------*
*&      Form  DOWNLOAD_XML                              *
*&------------------------------------------------------*
FORM DOWNLOAD_XML.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_DOWNLOAD
    EXPORTING
      BIN_FILESIZE = SIZE
      FILENAME     = W_FILE_OUT
      FILETYPE     = 'DAT'
    CHANGING
      DATA_TAB     = T_XML.

ENDFORM.                    " DOWNLOAD_XML

Saludos,

Blag.

Programming non-sense #1

2010-11-03T19:30:00.000-07:00

Con este post, quiero iniciar una pequeña serie de posts sobre programas en ABAP que no sirven para nada pero que son divertidos de hacer -:) Considero programar en ABAP divertido...aunque no lo crean...

En fin...mi primer código, que dicho sea de paso no funciona de la mejor manera, es un reloj...simplemente leemos la hora del sistema y la mostramos en forma digital...luego, activamos un temporizador que va a ejecutarse cada segundo y nuevamente va a leer la hora del sistema y mostrarla en formato digital...por supuesto, ya que no contamos en ABAP con un CLRSCR(); o un CLS, debemos leer cada linea y modificar el contenido.


DATA: temporizador TYPE REF TO cl_gui_timer,
      hour(2) TYPE c,
      minute(2) TYPE c,
      second(2) TYPE c,
      one(1) TYPE c,
      two(1) TYPE c,
      line1 TYPE string,
      line2 TYPE string,
      line3 TYPE string.

*----------------------------------------------------------------------*
*       CLASS clock DEFINITION                                         *
*----------------------------------------------------------------------*
CLASS clock DEFINITION.
  PUBLIC SECTION.
    METHODS: zero IMPORTING line TYPE string,
             one IMPORTING line TYPE string,
             two IMPORTING line TYPE string,
             three IMPORTING line TYPE string,
             four IMPORTING line TYPE string,
             five IMPORTING line TYPE string,
             six IMPORTING line TYPE string,
             seven IMPORTING line TYPE string,
             eight IMPORTING line TYPE string,
             nine IMPORTING line TYPE string,
             periods IMPORTING line TYPE string,
             show IMPORTING number TYPE c.
ENDCLASS.                    "clock DEFINITION

*----------------------------------------------------------------------*
*       CLASS clock IMPLEMENTATION                                     *
*----------------------------------------------------------------------*
CLASS clock IMPLEMENTATION.
  METHOD zero.
    CASE line.
      WHEN 1.
        CONCATENATE line1 ' _ ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 '| |' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 '|_|' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "zero
  METHOD one.
    CASE line.
      WHEN 1.
        CONCATENATE line1 '  ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 ' |' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 ' |' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "one
  METHOD two.
    CASE line.
      WHEN 1.
        CONCATENATE line1 ' _ ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 ' _|' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 '|_ ' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "two
  METHOD three.
    CASE line.
      WHEN 1.
        CONCATENATE line1 ' _ ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 ' _|' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 ' _|' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "three
  METHOD four.
    CASE line.
      WHEN 1.
        CONCATENATE line1 '   ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 '|_|' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 '  |' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "four
  METHOD five.
    CASE line.
      WHEN 1.
        CONCATENATE line1 ' _ ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 '|_ ' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 ' _|' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "five
  METHOD six.
    CASE line.
      WHEN 1.
        CONCATENATE line1 ' _ ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 '|_ ' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 '|_|' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "six
  METHOD seven.
    CASE line.
      WHEN 1.
        CONCATENATE line1 '_  ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 ' | ' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 ' | ' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "seven
  METHOD eight.
    CASE line.
      WHEN 1.
        CONCATENATE line1 ' _ ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 '|_|' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 '|_|' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "eight
  METHOD nine.
    CASE line.
      WHEN 1.
        CONCATENATE line1 ' _ ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 '|_|' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 ' _|' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "nine
  METHOD periods.
    CASE line.
      WHEN 1.
        CONCATENATE line1 '   ' INTO line1 SEPARATED BY space RESPECTING BLANKS.
      WHEN 2.
        CONCATENATE line2 ' * ' INTO line2 SEPARATED BY space RESPECTING BLANKS.
      WHEN 3.
        CONCATENATE line3 ' * ' INTO line3 SEPARATED BY space RESPECTING BLANKS.
    ENDCASE.
  ENDMETHOD.                    "periods
  METHOD show.
    CASE number.
      WHEN 0.
        zero( EXPORTING line = '1' ).
        zero( EXPORTING line = '2' ).
        zero( EXPORTING line = '3' ).
      WHEN 1.
        one( EXPORTING line = '1' ).
        one( EXPORTING line = '2' ).
        one( EXPORTING line = '3' ).
      WHEN 2.
        two( EXPORTING line = '1' ).
        two( EXPORTING line = '2' ).
        two( EXPORTING line = '3' ).
      WHEN 3.
        three( EXPORTING line = '1' ).
        three( EXPORTING line = '2' ).
        three( EXPORTING line = '3' ).
      WHEN 4.
        four( EXPORTING line = '1' ).
        four( EXPORTING line = '2' ).
        four( EXPORTING line = '3' ).
      WHEN   5.
        five( EXPORTING line = '1' ).
        five( EXPORTING line = '2' ).
        five( EXPORTING line = '3' ).
      WHEN 6.
        six( EXPORTING line = '1' ).
        six( EXPORTING line = '2' ).
        six( EXPORTING line = '3' ).
      WHEN 7.
        seven( EXPORTING line = '1' ).
        seven( EXPORTING line = '2' ).
        seven( EXPORTING line = '3' ).
      WHEN 8.
        eight( EXPORTING line = '1' ).
        eight( EXPORTING line = '2' ).
        eight( EXPORTING line = '3' ).
      WHEN 9.
        nine( EXPORTING line = '1' ).
        nine( EXPORTING line = '2' ).
        nine( EXPORTING line = '3' ).
    ENDCASE.
  ENDMETHOD.                    "show
ENDCLASS.                    "clock IMPLEMENTATION

*----------------------------------------------------------------------*
*       CLASS lcl_event_handler DEFINITION                             *
*----------------------------------------------------------------------*
CLASS lcl_event_handler DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS: on_timer FOR EVENT finished OF cl_gui_timer
    IMPORTING sender.
ENDCLASS.                    "lcl_event_handler DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_event_handler IMPLEMENTATION                         * 
*----------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION.
  METHOD on_timer.
    DATA: g_clock TYPE REF TO clock.

    IF NOT g_clock IS BOUND.
      CREATE OBJECT g_clock.
    ENDIF.

    CLEAR: line1, line2, line3.

    hour = sy-uzeit+0(2).
    one = hour+0(1).
    g_clock->show( EXPORTING number = one ).
    two = hour+1(1).
    g_clock->show( EXPORTING number = two ).
    g_clock->periods( EXPORTING line = '1' ).
    g_clock->periods( EXPORTING line = '2' ).
    g_clock->periods( EXPORTING line = '3' ).
    minute = sy-uzeit+2(2).
    one = minute+0(1).
    g_clock->show( EXPORTING number = one ).
    two = minute+1(1).
    g_clock->show( EXPORTING number = two ).
    g_clock->periods( EXPORTING line = '1' ).
    g_clock->periods( EXPORTING line = '2' ).
    g_clock->periods( EXPORTING line = '3' ).
    second = sy-uzeit+4(2).
    one = second+0(1).
    g_clock->show( EXPORTING number = one ).
    two = second+1(1).
    g_clock->show( EXPORTING number = two ).

    READ LINE 1.
    MODIFY LINE 1 FIELD VALUE line1 FROM line1.
    READ LINE 2.
    MODIFY LINE 2 FIELD VALUE line2 FROM line2.
    READ LINE 3.
    MODIFY LINE 3 FIELD VALUE line3 FROM line3.

    sender->run( ).
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  CREATE OBJECT temporizador.
  SET HANDLER lcl_event_handler=>on_timer FOR temporizador.

  temporizador->interval = 1.
  temporizador->run( ).

  DATA: g_clock TYPE REF TO clock.
  CREATE OBJECT g_clock.

  hour = sy-uzeit+0(2).
  one = hour+0(1).
  g_clock->show( EXPORTING number = one ).
  two = hour+1(1).
  g_clock->show( EXPORTING number = two ).
  g_clock->periods( EXPORTING line = '1' ).
  g_clock->periods( EXPORTING line = '2' ).
  g_clock->periods( EXPORTING line = '3' ).
  minute = sy-uzeit+2(2).
  one = minute+0(1).
  g_clock->show( EXPORTING number = one ).
  two = minute+1(1).
  g_clock->show( EXPORTING number = two ).
  g_clock->periods( EXPORTING line = '1' ).
  g_clock->periods( EXPORTING line = '2' ).
  g_clock->periods( EXPORTING line = '3' ).
  second = sy-uzeit+4(2).
  one = second+0(1).
  g_clock->show( EXPORTING number = one ).
  two = second+1(1).
  g_clock->show( EXPORTING number = two ).

  WRITE:/ line1.
  WRITE:/ line2.
  WRITE:/ line3.

Saludos,

Blag.

Tres son multitud...XML, RegEx y Programación Dinámica

2010-10-16T18:22:00.001-07:00

Como dije...aqui esta mi primer post sobre ABAP luego de mucho tiempo -:)

Como ya saben...soy un fanatico del RegEx o Expresiones Regulares y trato de utilizarlos cada vez que puedo. Herramienta matemática con RegEx y JavaScript.

Hace un par de semanas tuve que rehacer un programa hecho por otra persona, que leia un XML y creaba IDOCs con esa informacion...al ser un XML simple, pense que era un buen candidato para RegEx...asi que puse manos a la obra y el programa quedo excelente -;)

Claro, para efectos del blog tuve que crear un ejemplo nuevo que reflejara todos los componentes que utilice.

Entonces, lo primero es que crear un XML con este formato...

Luego, aqui tenemos el codigo fuente...


*&---------------------------------------------------------------------*
*& Report  ZDUMMY                                                      *
*&---------------------------------------------------------------------*
REPORT ZDUMMY NO STANDARD PAGE HEADING.

*=====================================================*
* DECLARACION DE TYPES                                *
*=====================================================*
TYPES: BEGIN OF TY_FIELDS,
       FIELD TYPE STRING,
       END OF TY_FIELDS.

*=====================================================*
* DECLARACION DE VARIABLES                            *
*=====================================================*
DATA: DATA_TAB TYPE TABLE_OF_STRINGS,
      T_FILETAB TYPE FILETABLE,
      W_FILE_IN TYPE STRING,
      RESULT_TAB TYPE MATCH_RESULT_TAB,
      T_RESULTS TYPE MATCH_RESULT_TAB,
      W_SUBRC TYPE SY-SUBRC,
      SIZE TYPE I,
      AUX TYPE STRING,
      OFF TYPE I,
      LEN TYPE I,
      L_TABIX TYPE SY-TABIX,
      L_LINES TYPE I,
      L_STRING TYPE STRING,
      T_FIELDS TYPE STANDARD TABLE OF TY_FIELDS,
      DATAREF TYPE REF TO DATA,
      NEW_LINE TYPE REF TO DATA,
      IT_FIELDCATALOG TYPE LVC_T_FCAT,
      WA_FCAT TYPE LVC_S_FCAT.

FIELD-SYMBOLS: <FS_FILETAB> LIKE LINE OF T_FILETAB,
               <FS_RESULT_TAB> LIKE LINE OF RESULT_TAB,
               <FS_RESULTS> LIKE LINE OF T_RESULTS,
               <FS_DATA_TAB> LIKE LINE OF DATA_TAB,
               <FS_FIELDS> LIKE LINE OF T_FIELDS,
               <ROW> TYPE TABLE,
               <FS_ROW> TYPE ANY,
               <FS_ANY> TYPE ANY,
               <L_LINE> TYPE ANY.

*=====================================================*
* SELECTION-SCREEN                                    *
*=====================================================*
SELECTION-SCREEN BEGIN OF BLOCK TEST WITH FRAME.
PARAMETERS:
           FILE_IN LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK TEST.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE_IN.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    EXPORTING
      WINDOW_TITLE     = 'Seleccionar archivo'
      DEFAULT_FILENAME = '*.*'
      FILE_FILTER      = '*.*'
    CHANGING
      FILE_TABLE       = T_FILETAB
      RC               = W_SUBRC.

  READ TABLE T_FILETAB INDEX 1
  ASSIGNING <FS_FILETAB>.
  FILE_IN = <FS_FILETAB>.
  W_FILE_IN = FILE_IN.

  IF FILE_IN IS INITIAL.
    EXIT.
  ENDIF.

  CLEAR T_FILETAB.
  REFRESH T_FILETAB.

*=====================================================*
* START-OF-SELECTION                                  *
*=====================================================*
START-OF-SELECTION.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_UPLOAD
    EXPORTING
      FILENAME   = W_FILE_IN
      FILETYPE   = 'DAT'
    IMPORTING
      FILELENGTH = SIZE
    CHANGING
      DATA_TAB   = DATA_TAB.

  LOOP AT DATA_TAB ASSIGNING <FS_DATA_TAB>.
    FIND REGEX '<[a-zA-Z][^>]*>\S' IN <FS_DATA_TAB>.
    IF SY-SUBRC NE 0.
      CONTINUE.
    ENDIF.
    FIND ALL OCCURRENCES OF REGEX '<[^>]+>[^<]*</[^>]+>' IN <FS_DATA_TAB> RESULTS T_RESULTS.
    LOOP AT T_RESULTS ASSIGNING <FS_RESULTS>.
      AUX = <FS_DATA_TAB>+<FS_RESULTS>-OFFSET(<FS_RESULTS>-LENGTH).
      FIND REGEX '[a-zA-Z\/][^>]*' IN AUX MATCH OFFSET OFF MATCH LENGTH LEN.
      READ TABLE T_FIELDS ASSIGNING <FS_FIELDS>
      WITH KEY FIELD = AUX+OFF(LEN).
      IF SY-SUBRC NE 0 OR NOT <FS_FIELDS> IS ASSIGNED.
        APPEND INITIAL LINE TO T_FIELDS ASSIGNING <FS_FIELDS>.
        <FS_FIELDS>-FIELD = AUX+OFF(LEN).
      ENDIF.
    ENDLOOP.
  ENDLOOP.

  LOOP AT T_FIELDS ASSIGNING <FS_FIELDS>.
    WA_FCAT-FIELDNAME = <FS_FIELDS>-FIELD.
    WA_FCAT-REF_TABLE = 'PERF_STRING_STRUCT'.
    WA_FCAT-REF_FIELD = 'DATA'.
    APPEND WA_FCAT TO IT_FIELDCATALOG.
  ENDLOOP.

  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG           = IT_FIELDCATALOG
    IMPORTING
      EP_TABLE                  = DATAREF
    EXCEPTIONS
      GENERATE_SUBPOOL_DIR_FULL = 1
      OTHERS                    = 2.

  ASSIGN DATAREF->* TO <ROW>.
  CREATE DATA NEW_LINE LIKE LINE OF <ROW>.
  ASSIGN NEW_LINE->* TO <L_LINE>.

  LOOP AT DATA_TAB ASSIGNING <FS_DATA_TAB>.
    FIND REGEX '<[a-zA-Z][^>]*>\S' IN <FS_DATA_TAB>.
    IF SY-SUBRC NE 0.
      CONTINUE.
    ENDIF.
    FIND ALL OCCURRENCES OF REGEX '<[^>]+>[^<]*</[^>]+>' IN <FS_DATA_TAB> RESULTS T_RESULTS.
    LOOP AT T_RESULTS ASSIGNING <FS_RESULTS>.
      AUX = <FS_DATA_TAB>+<FS_RESULTS>-OFFSET(<FS_RESULTS>-LENGTH).
      FIND REGEX '[a-zA-Z\/][^>]*' IN AUX MATCH OFFSET OFF MATCH LENGTH LEN.
      CONCATENATE '<L_LINE>-' AUX+OFF(LEN) INTO L_STRING.
      REPLACE ALL OCCURRENCES OF REGEX '<[a-zA-Z\/][^>]*>' IN AUX WITH SPACE.
      ASSIGN (L_STRING) TO <FS_ANY>.
      <FS_ANY> = AUX.
    ENDLOOP.
    INSERT <L_LINE> INTO TABLE <ROW>.
  ENDLOOP.

  DESCRIBE TABLE IT_FIELDCATALOG LINES L_LINES.

  LOOP AT <ROW> ASSIGNING <L_LINE>.
    CLEAR L_TABIX.
    DO L_LINES TIMES.
      L_TABIX = L_TABIX + 1.
      ASSIGN COMPONENT L_TABIX OF STRUCTURE <L_LINE> TO <FS_ROW>.
      WRITE:/ <FS_ROW>.
    ENDDO.
    SKIP 1.
  ENDLOOP.

El resultado seria...

Ahora...una pequenha explicacion...

* Utilizo el RegEx para poder leer los campos del XML y generar una tabla interna dinamica.
* Utilizo el RegEx nuevamente para poder llenar la tabla interna dinamica con los valores de los campos del XML.
* Utilizo programacion dinamica para poder imprimir los valores que hemos leido del XML.

Para que despues no vayan a criticarme...el XML tiene que tener un formato como el que puesto en el ejemplo...si tiene otro formato (cada TAG en una linea), este codigo no va a funcionar...habria que modificar el codigo un poco...asi que no...el codigo no sirve para leer cualquier XML que tengan en frente...sino como dije al inicio, para leer XML's simples y concretos.

Saludos,

Blag.

Como pasa el tiempo...

2010-10-14T05:40:00.000-07:00

Recien ayer me di cuenta de que no posteo desde el anho pasado (Disculpen que no escriba bien, pero con teclado en ingles hay letras que no salen).

Para los que siguen mis otros blogs, o mis updates en Twitter, sabran que desde hace unos 5 meses estoy viviendo en Montreal, Canada con mi esposa y mi hija y estoy trabajando en Beyond Technologies.

La vida en Montreal es bastante tranquila...uno trabaja para vivir, y no vive para trabajar como en el Peru...aqui se respetan las 8 horas laborales y las horas extras son muy bien pagadas...claro, no todo es color de rosa, puesto que los impuestos son ridiculamente altos, pero en lineas generales, me encanta vivir aca -:)

Este anho, como comprenderan, no voy a ir al TechEd en Las Vegas, puesto que no puedo dejar a mi familia sola durante una semana en un pais nuevo...aunque si me escape al Inside Track Newton Square en Philadelphia, que duro 1 dia.

No puedo garantizar que voy a escribir muchos posts, puesto que ya lo he dicho antes, pero no siempre alcanza el tiempo y con mis otros blogs y proyectos personales, es un poco complicado...lo que si, voy a tratar de postear algo...jejeje...

Mi proximo blog, que estara listo yo asumo el fin de semana, sera como leer un archivo XML utilizando Expresiones Regulares...espero que les guste y es bueno estar de vuelta -;)

P.D: Gracias a todos mis lectores! Ya sobrepasamos las 100,000 visitas!!! Todo un mega logro para un humilde blog como este -:)

Saludos,

Blag.

Feliz Navidad 2009!

2009-12-23T08:18:00.000-08:00

Se nos acaba el año 2009...es por eso que es tiempo de desearles una...

FELIZ NAVIDAD Y PRÓSPERO AÑO NUEVO!!!

Que este año 2010, sea excelente para todos nosotros, que podamos alcanzar todas nuestras metas y seguir siendo tan Geeks como podemos serlo -;)

Saludos,

Blag.

Edita tus fotos a la AIR

2009-12-15T03:26:00.000-08:00

El otro día estaba revisando la página de mi amigo Duane "Chaos" Nickull llamada Technoracle(a.k.a "Duane's World") y encontré que está dando gratis 50 licencias para Citrify . Por supuesto...me arriesgué y felizmente fuí uno de los elegidos -:) Ahora soy un usuario de Citrify -;)

Pero...que es Citrify? Es una aplicación en Adobe AIR que se usa para editar las fotos en una forma fácil y divertida.

Escoge una imagen...

Puedes ajustar el Brightness (Brillo), Contrast (Contraste), Hue (Matiz), Saturation (Saturación), Resize (Tamaño), Rotate (Rotación) and Sharpen (Enfoque).

También pueden hacer retoques con with Airbrush (Aerógrafo), Blemish (Mancha), Glare (Luminosidad), Redeye (Ojo rojo), Toothbrush (Cepillo de dientes) and Wrinkle (Arruga).

Por supuesto...no se olviden de los efectos, pueden utilizar Halftone (Medio tono), Flashback (Retrospectiva), Watercolor (Acuarela), Hulkify (Hulkificar), Obamify (Obamizar), Sepia (Sepia), Black & White (Blanco y negro) and Pencil sketch (Dibujo a lápiz).

Jugando un poco con estos efectos y ajustes, puedes hacer que las fotos se vean muy extrañas, como esta -:)

Realmente recomiendo este software...fácil de usar, construído con Adobe AIR...qué mas pueden pedir?

Saludos,

Blag.

ChessJam - Ajedrez en línea

2009-12-13T04:42:00.001-08:00

Debo admitir que soy muy malo en Ajedrez...pero eso no significa que no me guste -;)
Así que cuando estaba navegando en mi RSS Reader, encontré ChessJam.

ChessJam es una aplicación construida con Adobe Flex y ColdFusion corriendo en Adobe AIR.

Pero se estarán preguntando...porque tanta conmoción por un juego de Ajedrez? Fácil...puedes jugar contra robots o contra gente de cualquier lugar del mundo...chat incluido...para mi...eso es asombroso -:)

Debemos crear una cuenta y luego logearnos.

Podemos escoger entre un juego simple of chatear y retar a otros jugadores....

Podemos escoger varios tipos de juegos (Dependiendo del tiempo de duración) o entrar en un Torneo.

Tenemos muchas oportunidades para decidir si queremos jugar con un robot o con otro ser humano.

Podemos escoger entre una vista 3D...

o una clásica vista 2D...

Cuando te inscribes...debes indicar tu país de residencia...para que el sistema pueda correr algunas interesantes estadísticas.

Así que...porque no lo dan a este juego una oportunidad? Juegenlo...disfrutenlo y pasenselo a sus amigos -;)

Saludos,

Blag.

Herramienta matemática con RegEx y JavaScript

2009-12-12T03:10:00.000-08:00

Post original "RegEx and JavaScript Mathematical Tool".

Si me conocen...ya saben que amo los nuevos lenguajes de programación y las herramientas. Aunque las Expresiones Regulares y el JavaScript no son exactamente nuevos, no han sido explotados en ABAP, es por eso que quiero que este blog muestre todo lo que podemos lograr utilizándo cualquiera de estas dos adiciones al lenguaje.

La historia en resumen, es así...Estaba revisándo mi Google Reader como todas la mañanas, cuando vi este excelente y muy gracioso comic de XKCD...

Supe que era la hora de intentar convertirme en un heroe del RegEx...

Debo admitir que el RegEx no es fácil...a veces es complejo y avaro...pero creánme...llegas a amarlo (Ok...no todo el mundo lo ama...)

Así que, supe que era hora de que construyera una pequeña herramienta utilizándo mis nuevas habilidades. Así que construí una pequeña herramienta matemática, utilizándo tanto RegEx como JavaScript...y lo gracioso aquí es que mientras me rompía la cabeza con RegEx, recordé que utilizándo JavaScript tenía el trabajo prácticamente hecho...pero como soy un Geek...no podía simplemente tomar el camino fácil...seguí luchando hasta que mi RegEx funcionó, pero dejé mi JavaScript como una manera de decir..."Hay más de una manera de hacer que las cosas funcionen...".

Dejenme mostrarles algunas imagenes primero, y luego les muestro el código fuente...

Podemos pasar una expresión muy simple...

O una expresión muy compleja...

Y probarlas ya sea con RegEx o con JavaScript...

Ahora el código fuente...


*&-----------------------------------------------------------*
*& 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.

Utilicé RegEx para extraer las operaciones dentro de los parentesis y para construir la precedencia de operadores.

Si encuentran algún bug (Realmente espero que no), no duden en decirmelo -:)

Si quieren más información sobre RegEx por favor lean esto en el SCN.

ABAP Geek 14 - Regular Expressions Made Easy

Express Yourself Regularly with SAP NetWeaver 7.0, Part 1

Express Yourself Regularly with SAP NetWeaver 7.0, Part 2

Express Yourself Even More Regularly

Saludos,

Blag.

Donde me había metido?

2009-11-16T13:31:00.002-08:00

Se que hace varios meses no posteo nada en el blog -:( Lo que pasa es que he estado bastante ocupado con mis nuevas funciones de Project Manager, el SAP TechEd de Phoenix y un proyecto que estoy haciendo para mi compañía (Una vez Geek...siempre Geek)...

No voy a decir "Ahora voy a postear como antes!" porque no creo que sea verdad...para ser sinceros...espero podear postear por lo menos una vez a la semana -:)

Eso si...estoy pensando sacar la segunda edición de mi libro El Arte de Programar NetWeaver, así que estén atentos -;)

Saludos,

Blag.

Biz Partner - Servicios de Consultoría SAP

2009-08-24T14:30:00.000-07:00

Normalmente no escribiría esto en mi blog, pero dado que ahora mi función es de Project Manager y encargado del Área Comercial...

La empresa donde trabajo Biz Partner ofrece servicios de consultoría tanto a nivel técnico (ABAP, BSP, WebDynpro) como a nivel funcional (FI, SD, MM) entre muchos otros. Así como servicios de Implementación, Roll-Out y Mejora continua.

Pueden contactarme directamente en:

Alvaro Tejada Galindo
Project Manager - SAP Mentor
Biz Partner.
atejada@bizpartner.biz
(511)-6280214

Saludos,

Blag.

Learning on Demand por SAP

2009-08-11T08:13:00.000-07:00

Siendo un SAP Mentor recibo muchos beneficios y regalos de gente muy buena y amable.

Hace unos días recibí el acceso a Learning on Demand por SAP, así que por supuesto me puse a jugar un poco.

Cuando te logeas puedes navegar por los cursos disponibles, los cuales no serán muchos pero van a crecer en el tiempo.

Por supuesto, lo primero que hice fué buscar cursos de ABAP -;) Ahora seré un Project Manager pero aún soy un apasionado de la programación en ABAP.

Encontré el TAW11 - ABAP Details y empezé a leerlo...está muy bien hecho, fácil de seguir y con información muy útil.

Algo que me gustó mucho fué el hecho de que estaba esperando solo un grupo de diapositivas en Power Point...pero en realidad, son un grupo de diapositivas con voz -:)

Pienso que LoD es una gran idea...un lugar en donde puedes aprender sobre varios temas, con muy buen material. Mis recomendaciones...espera a que madure un poco más y luego subscribete. Siendo un servicio relativamente nuevo, necesita corregir algunas cosas y mantener una librería más grande...

Saludos,

Blag.

TechEd Phoenix Countdown para BlackBerry

2009-06-11T08:08:00.001-07:00

Si me siguen en Twitter sabrán que me compré un BlackBerry Pearl 8100...mi primer Smartphone dicho sea de paso...

Lo primero que hice, obviamente, fué instalarme algunas aplicaciones y juegos necesarios...pero también descargué el Eclipse Plug-In que permite desarrollar aplicaciones para el Berry.

Como deben recordar, construí un SAP TechEd Phoenix 2009 countdown utilizando Adobe AIR así que está vez quise construir lo mismo, pero esta vez utilizando Java para BlackBerry.

De mi experiencia desarrollandolo...debo decir que me tomó muy pocas modificaciones trasladar la versión ActionScript a la versión Java...así que programar para el BlackBerry es sencillo y divertido -:)

Quieren probarlo? Descarguelo aquí. Incluye los archivos .ALX y .COD así que deberán utilizar el Desktop Manager.

Por siacaso...es una aplicación muy simple...pero que más pueden esperar de una aplicación de cuenta regresiva? -:)

Saludos,

Blag.

Blag's Flex 3 compiler - Edición ejecutable

2009-05-23T18:20:00.000-07:00

El año pasado, escribí un blog en el SCN titulado Blag's Flex 3 Compiler que era basicamente, una aplicación Ruby que usaba WxRuby para el GUI y Flex 3 SDK para compilar aplicaciones Flex y AIR.

Se preguntarán por qué vuelvo a postear luego de un largo año...fácil...finalmente pude crear una versión ejecutable.

Cuando desarrollé el compilador por primera vez, intenté hacer un archivo .EXE utilizando RubyScript2Exe y Exerb, que son excelentes scripts para compilar Ruby en archivos .EXE...pero los dos fallaron cuando utilizé WxRuby...

Hace unos cuantos días...encontré Ocra. Debo decirlo...Ocra es excelente! Is veloz, compila cualquie cosa y lo más importante...mantiene los archivos .EXE generados, relativamente pequeños...

Así que, acá está el link del compilador...y no se olviden del leer el archivo README (Solo está en Inglés...la verdad me da mucha flojera traducirlo) -;)

Blag's Flex 3 Compiler

Saludos,

Blag.

Shoes y SAP

2009-05-14T12:36:00.000-07:00

Seguramente se estarán preguntando...Que es Shoes? Bueno...de acuerdo con why the lucky stiff es:

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 es un pequeño toolkit gráfico, diseñado para principiantes. Pero no se equivoquen: esto es verdadera programación. Puedes hacer aplicaciones reales y coloridas en Shoes)

Shoes viene como un archivo ejecutable que puede ser descargado de Download Shoes.

Para poder hacer la integración con SAP, deben bajar este archivo de la página de Piers Harding, descomprimirlo y copiar el contenido de la carpeta SAP dentro de la carpeta Lib de su instalación de Shoes.

Con eso, estamos listos para empezar.


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

Ahora, algunas imágenes...

Espero que les guste -:)

Saludos,

Blag.

Blue Ruby (Ruby en SAP)

2009-05-14T12:21:00.001-07:00

Alguna vez han oido hablar de Blue Ruby? No? Bueno...dejando las cosas simples, Blue Ruby te permite programar con Ruby dentro del Stack de ABAP de SAP NetWeaver...es lo suficientemente bueno? Lo es para mi obviamente -:)

Los que me conocen...virtual o personalmente, saben que soy muy apasionado acerca de las tecnologías y sobre todo de los Lenguages Script.

Esta semana, gracias a Juergen Schmerder y el Team de Blue Ruby, tengo acceso temprano al IDE de Blue Ruby basado en WebGui.

Por supuesto, lo primero que hice fué logearme y tratar de hacer algunas pruebas...mayormente pruebas relacionadas al lenguage. Afortunadamente descubrí que casi todo lo que hacía en Ruby(Core Language) podía hacerlo en Blue Ruby.

Así que, lo siguiente que hice fué comenzar a trabajar en mi ejemplo de toda la visa...un emulador de SE16.

Fué relativamente sencillo porque he hecho muchos examplos de SE16 utilizando Ruby, Camping, WxRuby, Sinatra, PHP y PHP/Flex.

En fin...Aquí está el código. Solo para que lo sepan...hay una manera de hacer el código mucho más corto...algo de 6 líneas...pero decidí quedarme con el ejemplo largo por 3 simples razones.

1.- Quería probar las capacidades del lenguaje.

2.- Quería separar cada campo y mostrarlo de forma individual.

3.- Quería divertirme escribiendo más código -:P


#RFC Example by Blag.

require 'rfc'

$spfli = Rfc.new 'RFC_READ_TABLE'

$spfli.query_table = 'SPFLI'
$spfli.delimiter = '|'

$spfli.call!

$Fields = Array.new
$Fields_Length = Array.new
$Data = Array.new
$Data_Fields = Array.new
$Data_Split = Array.new

$spfli.fields.each do |field|
 $Fields.push(field.fieldname.to_s)
 $Fields_Length.push(field.length.to_i)
end
$spfli.data.each do |field|
 $Data.push(field.wa.to_s.strip!)
end

$Fields_Len = $Fields.length
$Data_Len = $Data.length

print "Table: SPFLI\n\n"

for i in 0...$Data_Len
$Data_Fields = $Data[i]
$Data_Split = $Data_Fields.split("|")
 for i in 0...$Fields_Len
   $space = ""
   $len = ( $Fields_Length[i].to_i - $Data_Split[i].length ) + 1
   $len.times do
    $space += "\s"
   end 
   print $Data_Split[i].to_s + "#{$space}"
 end
print "\n"
end

Ahora, las imagenes...

Estoy seguro de que se van a sorprender con esto -:) Yo aún continúo impresionado -:D

Así que...si quieren aprender más, les dejo algunos enlaces muy útiles:

Blue Ruby: A Ruby VM in ABAP (PDF)
Blue Ruby - a Ruby VM in ABAP
Blue Ruby Demo Video Part 1: How to get started
Blue Ruby Demo Video Part 2: How to call ABAP functions
Introduction to Blue Ruby Replay

Saludos,

Blag.

Ruby, Sinatra y SAP

2009-05-14T12:08:00.000-07:00

Estoy seguro de que ya se habrán dado cuenta de que amo los Lenguajes Script. Eso signigica que cada cierto tiempo, me encanta jugar con nuesvos lenguajes o algún Framework web nuevo. Esta vez me tocó jugar con Sinatra, un framework muy impresionante.

Debo decir que la documentación es bastante pobre...aún cuando un libro de Sinatra está en proceso.

He dicho muchas veces que voy a aprender Rail, pero de alguna manera...cada vez que empiezo lo dejo a los pocos días...por qué? Seguramente por Sinatra y Camping que son mucho más sencillos de aprender y aportan basicamente las mismas funcionalidades que Rails.

Pero estoy seguro que ninguno de ustedes quiere conocer mi vida privada de programación...Así que vayamos al código...


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

get '/' do
  body do
    <<-eos
    <h1>Ruby/Sinatra and SAP - SE16 Emulation</h1>
    <form action='/login' method='post'>
      <label for='host'>Host</label><br />
      <input type='text' name='host' /><br />
      <label for='sysnr'>System Number</label><br/>
      <input type='text' name='sysnr' /><br />    
      <label for='client'>Client</label><br />
      <input type='text' name='client' /><br />
      <label for='user'>User</label><br />
      <input type='text' name='user' /><br />
      <label for='password'>Password</label><br />
      <input type='password' name='password' /><br />
      <input type='submit' name='submit' value='Login' />
    </form>
    eos
  end
end

get '/login_view' do
  body do
    <<-eos
    <form action='/table_view' method='post'>
      <label for='table'>Table:</label><br />
      <input type='text' name='table' /><br />
      <input type='submit' name='submit' value='Show Table' />
    </form>
    eos
  end
end

get '/show_table' do
  $output = "<table border='1'><tr>"
  for i in 0...$Fields_Len
    $Fields_Fields = $Data_Names[i].to_s
    $output += "<th> #{$Fields_Fields} </th>"
  end
  $output += "</tr>"
  for i in 0...$Data_Len    
    $output += "<tr>"
    $Data_Fields = $Data[i]
    $Data_Split = $Data_Fields.split("|")
    for i in 0...$Fields_Len
      $output += "<td> #{$Data_Split[i].to_s.strip} </td>"
    end
    $output += "</tr>"
  end
  $output += "</table>"
body $output
end

post '/login' do
  $host,$sysnr,$client,$user,$password = params[:host],params[:sysnr],
                                         params[:client],params[:user],
                                         params[:password]
  "#{do_login}"
                       
  redirect '/login_view'
end

post '/table_view' do
   $table = params[:table]

   "#{get_table}"
    
   redirect '/show_table'
end

helpers do
  def do_login
  $rfc = SAP::Rfc.new(:ashost => $host,
                       :sysnr  => $sysnr.to_i,
                       :lang   => "EN",
                       :client => $client.to_i,
                       :user   => $user,
                       :passwd => $password,
                       :trace  => 1)
  end
  
  def get_table
    $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)}
  end  
end

Ahora, algunas imagenes...

Saludos,

Blag.

SAP Inside Track Lima 2009

2009-04-01T12:23:00.000-07:00

Ya se que faltan aún mucho meses para Julio...Pero con todos los eventos Inside Track event alrededor del mundo, pienso que es un buen momento para hablarles sobre el...

SAP Inside Track Lima 2009

Este evento es acerca de compartit conocimientos, difundir la palabra sobre SAP y sus tecnologías relacionadas, así que es acerca de ti. Tu presentando o asistiendo a sesiones, tu compartiendo experiencias con otros profesionales SAP.

Así que las preguntas básicas son...

¿Donde? Necesita ser confirmado, pero desde luego en Lima, Perú.

¿Cuando? Sábado 04 de Julio del 2009.

¿Costoo? Gratis por supuesto.

¿Por qué? Porque el Community Day oficial ya no existe. Necesitamos poner aún más poder a los eventos regionales.

Donde puedo inscribirme? Hay un enlace en el WIKI...pero...Aquí está el enlace directo:

Para asistentes

Para Auspiciadores

Espero verlos allí!

Saludos,

Blag.

Excel OLE y ABAP

2009-02-05T13:08:00.000-08:00

El otro día el funcional me pidió que hiciera un reporte en Excel. "Eso es demasiado fácil" pensé...Bueno...No era tan verdad...El quería titulos, colores de fondo, letra en negrita y un formato especial.

Todos sabemos que cuando descargamos un Excel utilizando ABAP, no importa lo que hagamos, vamos a tener siempre la misma aburrida estructura. Sin colores y sin estructuras extrañas.

Por supuesto, pensé en utilizar Excel OLE...Pero nunca lo había utilizado, así que me puse a buscar en el SCN para tratar de encontrar algo que me ayudara a aprender. Llegué a Manipulate Excel with OLE & ABAP escrito por mi buen amigo Rich Heilman.

Este blog es realmente muy bueno, pero le faltan algunas cosas importantes que necesitaba para mi reporte...El archivo necesitaba existir en el sistema y no estaba utilizando colores ni formato de letras...Claro, en ese entonces, el estaba recién aprendiendo como utilizar las herramientas, así que más que una crítica, pienso que es excelente que compartiera sus conomientos mientras estaba aprendiendo.

En fín...Seguí buscando en los foros y encontré toda la información que necesitaba para terminar mi reporte. Luego de eso, decidí crear un pequeño y simple ejemplo, mostrando lo que se puede hacer con Excel OLE y ABAP.


*&----------------------------------------------------*
*& Report  ZDUMMY_SANDBOX                             *
*&----------------------------------------------------*
REPORT zdummy_sandbox.

*&----------------------------------------------------*
* INCLUDES                                            *
*&----------------------------------------------------*
INCLUDE ole2incl.

*&----------------------------------------------------*
*&   TYPES                                            *
*&----------------------------------------------------*
TYPES: BEGIN OF ty_spfli,
       carrid TYPE spfli-carrid,
       connid TYPE spfli-connid,
       countryfr TYPE spfli-countryfr,
       cityfrom TYPE spfli-cityfrom,
       airpfrom TYPE spfli-airpfrom,
       countryto TYPE spfli-countryto,
       cityto TYPE spfli-cityto,
       airpto TYPE spfli-airpto,
       END OF ty_spfli.

TYPES: BEGIN OF ty_titles,
       title(20) TYPE c,
       field(20) TYPE c,
       END OF ty_titles.

*&----------------------------------------------------*
*&   INTERNAL TABLES                                  *
*&----------------------------------------------------*
DATA: t_spfli TYPE STANDARD TABLE OF ty_spfli,
      t_titles TYPE STANDARD TABLE OF ty_titles.

*&----------------------------------------------------*
*&   FIELD-SYMBOLS                                    *
*&----------------------------------------------------*
FIELD-SYMBOLS: <fs_spfli> LIKE LINE OF t_spfli,
               <fs_titles> LIKE LINE OF t_titles,
               <fs> TYPE ANY.

*&----------------------------------------------------*
*&   VARIABLES                                        *
*&----------------------------------------------------*
DATA: w_tabix TYPE sy-tabix,
      w_titles TYPE sy-tabix,
      w_line TYPE sy-tabix,
      w_field TYPE string,
      filename TYPE string,
      path TYPE string,
      fullpath TYPE string.

DATA: data_titles TYPE REF TO data.

DATA: e_sheet TYPE ole2_object,
      e_activesheet TYPE ole2_object,
      e_newsheet TYPE ole2_object,
      e_appl TYPE ole2_object,
      e_work TYPE ole2_object,
      e_cell TYPE ole2_object,
      e_color TYPE ole2_object,
      e_bold TYPE ole2_object.

*&----------------------------------------------------*
*&   SELECTION-SCREEN                                 *
*&----------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1.
PARAMETERS: p_file TYPE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK b1.

*&----------------------------------------------------*
*&  START-OF-SELECTION                                *
*&----------------------------------------------------*
START-OF-SELECTION.
  PERFORM get_titles.
  PERFORM get_data.
  PERFORM create_excel.

*&----------------------------------------------------*
*& AT SELECTION-SCREEN                                *
*&----------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      window_title      = 'Select archivo'
      default_extension = 'xls'
      file_filter       = '*.xls'
    CHANGING
      filename          = filename
      path              = path
      fullpath          = fullpath.

  IF sy-subrc EQ 0.
    p_file = fullpath.
  ENDIF.

*&----------------------------------------------------*
*&      Form  get_titles                              *
*&----------------------------------------------------*
FORM get_titles.

  CREATE DATA data_titles TYPE ty_titles.
  ASSIGN data_titles->* TO <fs_titles>.

  <fs_titles>-title = 'CARRIED ID'.
  <fs_titles>-field = 'CARRID'.
  APPEND <fs_titles> TO t_titles.
  <fs_titles>-title = 'CONNECTION ID'.
  <fs_titles>-field = 'CONNID'.
  APPEND <fs_titles> TO t_titles.
  <fs_titles>-title = 'COUNTRY FROM'.
  <fs_titles>-field = 'COUNTRYFR'.
  APPEND <fs_titles> TO t_titles.
  <fs_titles>-title = 'AIRPORT FROM'.
  <fs_titles>-field = 'AIRPFROM'.
  APPEND <fs_titles> TO t_titles.
  <fs_titles>-title = 'COUNTRY TO'.
  <fs_titles>-field = 'COUNTRYTO'.
  APPEND <fs_titles> TO t_titles.
  <fs_titles>-title = 'CITY TO'.
  <fs_titles>-field = 'CITYTO'.
  APPEND <fs_titles> TO t_titles.
  <fs_titles>-title = 'AIRPORT TO'.
  <fs_titles>-field = 'AIRPTO'.
  APPEND <fs_titles> TO t_titles.

ENDFORM.                    "get_titles

*&----------------------------------------------------*
*&      Form  get_data                                *
*&----------------------------------------------------*
FORM get_data.

  SELECT carrid connid countryfr cityfrom
         airpfrom countryto cityto airpto
  INTO TABLE t_spfli
  FROM spfli
  WHERE carrid EQ 'LH'.

ENDFORM.                    " get_data

*&----------------------------------------------------*
*&      Form  create_excel                            *
*&----------------------------------------------------*
FORM create_excel.

  w_line = 1.

  CREATE OBJECT e_appl 'EXCEL.APPLICATION'.
  SET PROPERTY OF e_appl 'VISIBLE' = 1.

  CALL METHOD OF e_appl 'WORKBOOKS' = e_work.
  CALL METHOD OF e_work 'Add' = e_work.

  GET PROPERTY OF e_appl 'ActiveSheet' = e_activesheet.
  SET PROPERTY OF e_activesheet 'Name' = 'Flights'.

  LOOP AT t_spfli ASSIGNING <fs_spfli>.
    w_tabix = sy-tabix.
    w_line = w_line + 1.

    LOOP AT t_titles ASSIGNING <fs_titles>.
      w_titles = sy-tabix.
      CALL METHOD OF e_appl 'Cells' = e_cell
        EXPORTING
          #1 = 1
          #2 = w_titles.
      SET PROPERTY OF e_cell 'Value' =  <fs_titles>-title.
      GET PROPERTY OF e_cell 'Interior' = e_color.
      SET PROPERTY OF e_color 'ColorIndex' = 35.

      GET PROPERTY OF e_cell 'Font' = e_bold.
      SET PROPERTY OF e_bold 'Bold' = 1.

      CALL METHOD OF e_appl 'Cells' = e_cell
        EXPORTING
          #1 = w_line
          #2 = w_titles.

      CONCATENATE '<fs_spfli>-' <fs_titles>-field
      INTO w_field.
      ASSIGN (w_field) TO <fs>.

      SET PROPERTY OF e_cell 'Value' = <fs>.
      GET PROPERTY OF e_cell 'Interior' = e_color.
      SET PROPERTY OF e_cell 'ColumnWidth' = 20.
      SET PROPERTY OF e_color 'ColorIndex' = 0.
      GET PROPERTY OF e_cell 'Font' = e_bold.
      SET PROPERTY OF e_bold 'Bold' = 0.
    ENDLOOP.
  ENDLOOP.

  CALL METHOD OF e_work 'SAVEAS'
    EXPORTING
      #1 = p_file.

  CALL METHOD OF e_work 'close'.
  CALL METHOD OF e_appl 'QUIT'.
  FREE OBJECT e_appl.

ENDFORM.                    " create_excel

Ahora...Una imagen...

Saludos,

Blag.

Haz que tu proceso de upgrade...No sea doloroso...

2009-01-06T12:50:00.000-08:00

Ok...Usualmente no hablo acerca de software o servicios que no he probado yo mismo...Pero en esta ocación, voy a hacer una pequeña excepción.

Panaya ofrece una gran herramienta para hacer tu proceso de upgrade, no sea doloroso...¿Y cómo lo hacen? Fácil...

Tú:

1. Copia un reporte ABAP (Certificado por SAP) en tu sistema SAP.
2. Ejecuta el reporte para extraer tu código y estadísticas a un archivo.
3. Carga el archivo sobre una conexión HTTPS a Panaya.

Panaya:

* Analiza tu códigos y los archivos de usabilidad.
* Mapea todos los objetos y sus dependencias.
* Ejecuta tu código en ERP 6.0
* Lista problemas, sus soluciones, y pruebas.

Esto significa, nada de testing manual de tu parte...No más "Necesito hacer millones de pruebas de programas ABAP"...Deja que Panaya lo haga por ti -:)

¿Quieres saber más? Entra aquí.

Bueno...Deben estar pensando...¿Por qué les estoy haciendo publicidad gratis? Simple...Porque también ofrecen esto...

ABAP Ninja

Un servicio online gratuito que te ayuda a encontrar los mejores Enhancement Points para tus desarrollos customizados. Además, participaron en el TechEd Las Vegas 2008...Donde ví a ABAP Ninja en acción.

Saludos,

Blag.

Blag's best blogs picks from 2008

2008-12-17T09:12:00.000-08:00

Tal como el año pasado Blag's best blogs picks from 2007, este año quiero mostrar mi lista de mis blogs favoritos del 2008 en el SCN. Para felicidad mía, este año la lista es sorprendentemente grande...Muchos blog muy buenos han sido escritos, así que solamente quiero decir "Felicitaciones SCN...Excelente año!" -:)

ABAP

SDN Blog Browser por Alvaro "Blag" Tejada Galindo
ABAP Interpreter / Translator to Java – Open Source ABAP Parser por Felix Jeyareuben
Web Dynpro: Running Web Dynpro Applications over SAPGUI por David Fernandes Pietroniro A Tool to Compare Runtime Measurements: Z_SE30_COMPARE por Siegfried Boes
ABAP Objects Wiki pages +10k Page Visits por Marcelo Ramos
Power of ABAP Objects: Overcome the Restrictions of SALV Model por Naimesh Patel

WebDynpro

Web Dynpro ABAP exercises from TechEd 2007 por Manfred Lutz
Web Dynpro ABAP: How Fast Can You Consume 1 Million Rows? por Thomas Jung
Practical tips for developing with ABAP WebDynpro por Roger Sainsbury
Using Flex in SAP Web applications (without Adobe Flash Islands) por Guillaume Garcia

Mobile Mobile Webdynpro(Accessing Webdynpro Applications in Mobile Devices) por Sathishkumar GS
First steps with NW Mobile 7.1 Trial Version por Jan Fetzer
Native integration of SAP CRM on BlackBerry Devices por Gregor Wolf
Mobile Influence update - sneak peak of Ajax app por Jim Spath

Business Server Pages

ABAP Freak Show - jQuery for BSP por Thomas Jung CHAT Application using BSP and AJAX por Salil Patel
Display Hierarchy Report in BSP using TableView and Tableview Iterator por Vijay Babu Dudla

Emerging Technologies

Twitter and the Enterprise por Craig Cmehil
SAP, ANDROIDS and HEALTHCARE por Paolo Romano

SAP NetWeaver Platform

Subscription program - From naysayer to yea-sayer por Harald Reiter Poor performance: detective story for this week por Jim Spath
[Oracle] Index key compression por Stefan Koehler
Downtime Manager por Sapna Subramaniam

PHP

PHP Connector? A New Hope por Nigel James

Ruby
Blag's Flex 3 Compiler por Alvaro "Blag" Tejada Galindo

Scripting Languages

Singleton Classes in Actionscript 3.0 por Abesh Bhattacharjee

Virtual Worlds and 3D Web

BPX in Action Cartoon available por Richard Hirsch
Community Clubhouse on SmallWorlds por Alvaro "Blag" Tejada Galindo
New Approaches to Virtual Worlds por Alexander Bachmann
Second Life and SAP Public Sector por Alexander Bachmann

Application Server

SAPmvc, a new MVC for Classical ABAP Dynpro por Marcelo Ramos
Yes, you should floss your indices regularly por Jim Spath

Beginner

Little tool for performance por Alvaro "Blag" Tejada Galindo
How to use Workflow wizards? por Sunil Ojha
Beginning Blogging & the WYSIWYG Editor por Gali Kling Schneider
Building a Wiki and your reputation por Mario Herger

Beyond SAP

Marbles Game in ABAP por Naimesh Patel
Show us what you can do, Create your own open source project and share with SDN! por Marcelo Ramos
From The Grumpy Old Man: SAP employees confuse SCN with Twitter por Eddy De Clercq
BI BI Bapor, BI BI por Eddy De Clercq
Easy search on SAP sites with Ubiquity por Daniel Graversen
Why Social Networks Matter Now por Mark Yolton

Business Intelligence (BI)

One stage stop to know all about BW Extractors-Part1 por swapna gollakota
BI Process Chains with Dynamic System Command por Ryan Quackenboss

Widgets

SAP TechEd 2008 Countdown por Marcelo Ramos Working with SAP Widget Development Tools por Sumangala Byali
Actionscript Libraries for SAP Widget Foundation : Available now ! por Abesh Bhattacharjee

Community Day
Community Day Lima 2008 - The Recap por Alvaro "Blag" Tejada Galindo
SDN Community Day Mentor Hands-On Workshop por Thomas Jung
Nanomonk - Adobe and SAP por Craig Cmehil
Community Day Buenos Aires, el día después. por Ignacio Hernández
SDN community day in London - my experiences por Harald Reiter
SAP Community Day London 2008 por Darren Hague Community Day Magic por Mark Finnern
Community Day Changed My Life por Darren Hague

Community Projects

The ESME Collaboration and what it tells us about Web 2.0 por Richard Hirsch
ESME - The Demo por Abesh Bhattacharjee
GuidEd - TechEd Information Aggregator for the iPhone por Oliver Kohl

Java Programming

An introduction to Scala, part 1 por Darren Hague
Isn't it Groovy - extending the Development Component build with Groovy? por Marion Schlotte

SAP Developer Network

Eddy was here... por Abesh Bhattacharjee
Signal versus Noise por Mark Finnern What’s thy color? – v2.0 por Wenceslaus Gnana
SDN - long time ago por Santosh V

Business Process Expert

Some of the BPX Stars Have Aligned por Marilyn Pratt
Getting the Most Out of the BPX Community por Marco ten Vaanholt
The reputation problem por Dennis Howlett
The Geek Gap: Do Suits Care? por Bill Pfleging and Minda Zetlin
The BPX Community Book Finally here !...BPX Education and Certification #2 por Marco ten Vaanholt

SAP TechEd

Video: Behind the Scenes at SAP TechEd '07 por Chip Rodgers
SAP Forum in Brazil: Sao Paolo Hosted ~5000 including SDN Top Contributors por Mark Yolton
The people of SAP TechEd 2005-2007 por Craig Cmehil
SAP TechED Countdown Widgets Redux ! por Abesh Bhattacharjee
Social Networking - Beta Release por Craig Cmehil

Ranting

How to Lower Your Status in The SAP Community por Marilyn Pratt
How to Further Damage Your SAP Community Reputation por Marilyn Pratt
Why Do Companies Release Software with Bugs? por Bill Pfleging and Minda Zetlin

Composition Environment (CE)

Music Composition Environment por Ignacio Hernández

Enterprise Portal (EP)

Creating Search Webpage Process in CAF-GP por rakesh verma

Visual Composer

Visual Composer demo - Customer and Google API por Jakob Diness
How to create Portal content with the Visual Composer for Composition Environment? por Dafna Yanay
Visual Composer7.1 and Yahoo Maps - Part I por Vivek Kumar Mishra

Open Source

SAPmvc Framework Release 0.1.0 by Marcelo Ramos

Disfrutenlos! -:D

Saludos,

Blag.

Foros del SCN en Español!

2008-12-15T10:43:00.000-08:00

Hoy día me llegó un mail de Henrique Pinto de SAP avisándome que en el SCN se han creados nuevos foros...Uno de ellos en Español y el otro en Portuges.

No puedo ocultar la emoción que siento por esto, puesto que desde entré al SCN, he luchado por ganar un espacio para la Comunidad Latina.

Claro, no estoy diciendo que me hicieron caso y gracias a mi existen estos foros...Por supuesto que no...pero si estoy seguro que por lo menos los hice darse cuenta de la necesidad de dar un mayor espacio a nuestra comunidad.

Si bien son foros pequeños y basicamente "multi propósito", es un gran paso, así que están esperándo para loguearse y comenzar a postear?!

Spanish: Español
Portuguese: Português

Y recuerden...Ahora también pueden escribir sus blog 100% en Español!!! -:D

Saludos,

Blag.

Buscando el IDE perfecto para Ruby

2008-12-05T11:45:00.001-08:00

Me considero a mi mismo como un fan de Ruby...Es por eso que siempre estoy buscando novedades y por supuesto...nuevos IDE's.

Mi primer intento fué con FreeRide, un IDE hecho en Ruby. Lo que me gusta acerca de este IDE es su simplicidad...Mientras que algunas personas están acostumbradas a las herramientas RAD, a mi me gusta mantener las cosas lo más simple posible...FreeRide ofrece esto.

Mi segundo intento fué con Ruby in Steel, que es gratuito en su edición personal. Nunca he sido un fan de Visual Studio a pesar de que tengo experiencia en C#...Fuera de eso, decidí darle a este IDE una oportunidad...La instalación fué rápida y sin problemas...Sin embargo, como ya tenía instalado Ruby en mi laptop, decidí saltarmelo de la instalación para configurarlo manualmente más adelante...Triste sorpresa cuando hice referencia a mi carpeta de instalación de Ruby...Ruby in Steel no la aceptaba...De acuerdo con el mensaje, necesitaba que Ruby estuviera instalado en la carpeta Program Files, mientras que yo lo tenia en la carpeta Programacion. Bastante malo, puesto que no tengo intenciones de desintalar mi configuración anterior...

Mi último intento fué NetBeans 6.5 que incluye actualmete a Ruby/Rails, Groovy/Grails, C/C++, Java/JavaME/JavaFX and PHP (Me pregunto porque dejaron fuera a Python y Perl)...Fué realmente una agradable sorpresa...NetBeans ha hecho un excelente trabajo...Me encanta el IDE y de hecho me encanta el soporte de Ruby que se ejecuta bajo JRuby...Pude instalar todos mis queridos GEMS y empezar a trabajar...Muy recomendado -:)

Bueno...Ya se que es lo que están pensando..."Oye Blag...No has intentado con Eclipse?" Por supuesto que sí, pero no pienso que sea necesario ponerlo aquí...Yo uso Eclipse para mis desarrollos en Flex y quiero continuar así...

Además...Hay una gran cantidad de IDEs allá afuera...Pero esos tres son los más importantes para mi...Cuales son los tuyos?

P.D: @dacuad me recomendó JetBrains...Que se ve bastante bueno, pero aún no lo he podido probar...

Saludos,

Blag.

Twitea como los profesionales...Con Twitwall

2008-10-31T09:37:00.000-07:00

Si eres un adicto del Twitter, como yo -;) Seguramente debes conocer Tinypaste y TwitPic, dos maravillosos compañeros de Twitter...¿Pero conoces Twitwall?

Este es un servicio gratuito creado por Michael E. Carluen y provee las misma funcionalidades que Tinypaste y TwitPic con más opciones interesantes...Veamos algunas fotos...

Primero, te darás cuenta de que la interface es bastante similar a Twitter, pero puedes cambiar el tamaño y el tipo de letra -:)

Tienes un muy útil editor de texto enriquecido con la opción de incluir fotos en el mismo post...

Las fotos son embedidas en tu post...Y sí...Adjunté la misma imagen que está arriba -:) ¿Te has dado cuenta de puedes incluir un título y una descripción a tu post?

En Twitter puedes ver el título, y un enlace te manda a Twitwall para poder ver la foto y la descripción de tu post.

Luego de ver esto...¿Porque aún no has creado tu cuenta? Inclusive tienes Twitter Grader incorporado en tu cuenta -:D

Saludos,

Blag.

Buscando el lenguaje de programación perfecto...

2008-10-24T10:10:00.000-07:00

Empecé en el mundo de la programación, hace casi 11 años (En Marzo)...Mis primeros lenguajes fueron Visual Basic 6.0 y C++.

Desde ese momento, aprendí que había nacido para programar...No hay que supere a crear algo de la nada...Como por ejemplo, cuando necesitaba un reproductor de MP3 en mi PC de escritorio y como no tenía internet, no tenía puerto USB (Creo no aún no existían...puro diskette o CD solamente)...Tuve que hacer el mío propio -;)

Al pasar los años, me asomé a algunos lenguajes que hoy en día en desuso (Bueno...También lo estaban en ese momento LOL) como QBasic y Pascal.

Claro, también investigué otros como Euphoria, ADA, PHP, Ruby...Y un sinfín de lenguajes más...Y no quiero que esto suene como una frase sacada de Pókemon...Pero quería aprenderlos todos! -:D Dura lección cuando descubrí esta página web... 99 Bottles of Beer. El mismo programa escrito en 1229 lenguajes de programación!!! Bueno...Hace unos años, era cerca de 600...De acuerdo con el autor...

n middle of June 2002 there were more than 315 languages, and 2004 there were 621 examples available.

En fín...Obviamente me di cuenta de que la mía era una tarea sinceramente imposible...Así que continué con los lenguajes que ya conocía y agregué algunos cuantos más...Así que en este momento conozco cerca de 20 lenguajes (Claro...Algunos más que otros...Otros nunca más los he usado)...Bastante lejos de la meta no? -;)

Inclusive, intenté llegar más lejos con mi búsqueda y aprender Assembler...Lenguaje bastante complicado si me lo preguntan...A lo máximo que llegué fué a un Hola Mundo...

Bueno...Navegando un poco por la web el otro día...Me encontré con la herramienta que me ayudaría a resolver todos mis problemas...Para que aprender tantos lenguajes si con esta maravilla puedo programar lo que sea sin importarme el lenguaje?

Estoy hablando del SuperCoder 2000!!!

Como todos sabemos, las computadoras por más lenguajes de bajo nivel que utilicemos, finalmente siempre van a leer todo como 1's y 0's...Entonces -:D Porque no programar con 1's y 0's directamente!!! -:D

Saludos,

Blag.

P.D: Obviamente este post es bastante ridículo y no debe ser tomado en serio...Nadie puede programar con el SuperCoder 2000...O por lo menos, nadie que yo conozca -:)

Quake Live...Está vivo!

2008-10-03T13:34:00.000-07:00

Hace algunas semanas...Bueno...En realidad la semana pasada LOL Me apunté para el Programa Beta de Quake Live...Afortunadamente...Me aceptaron -;) Así que me creé una cuenta...Descargué el cliente web (Funciona perfecto en Firefox, no lo he probado en otros browsers...aún).

Entonces...¿Alguna vez han jugado Quake, Doom o Wolfenstein 3D? Definitivamente, yo sí...Soy un gran fan de los juegos de ID Software...

Veamos algunas imagenes...Primero, puedes escoger de varios personajes...

Puedes acceder a una arena "Aprende primero"...

Un bot llamado Crash está listo para darte tus primeras lecciones...

Inclusive puedes pelear contra Crash en un pequeño DeathMatch de práctica...

Los gráficos son muy buenos, los movimientos son sencillos y los controles responden muy bien y tienes una gran variedad de armas...

Como en muchos juegos On-Line, data adicional es downloaded cuando cargas una nueva Arena, pero la descarga es bastante veloz -;)

En otras palabras...Quake Live es excelente!!!

Saludos,

Blag.

Google Chrome

2008-09-04T08:00:00.000-07:00

Es una lástima, pero recién puedo postear acerca del Google Chrome -:) A diferencia de varios amigos míos...No soy blogger a tiempo completo -;)

Veamos...La instalación de Chrome es bastante rápida...Y la interface es sencilla y directa...Veamos algunos detalles...

Como pueden ver en la imagen, Chrome guarda un registro de nuestra páginas más visitas para que la próxima vez que navegamos la web, podamos regresar a esas páginas de una manera más rápida...Esto sería muy bueno, si es que Opera no lo hubiera hecho antes y mejor -;) ¿Por qué digo que mejor? Muy simple...Opera nos permite elegir las páginas que queremos tener en la pantalla inicial, mientras que en Chrome esto no se puede hacer...El mismo browser escoge las páginas dependiendo de que tan seguido las visitemos...

Ahora un detalle muy interesante es el Modo Incognito que nos permite navegar en la web sin dejar rastros.

Claro...Safari ya había hecho esto antes...

Una característica que me parece muy útil y que si es algo hasta el momento único en Chrome es el hecho de que todos los tabs y ventanas se manejan como procesos independientes, así que si un tab se cuelga, simplemente terminamos su proceso, y continuamos trabajando...

La opciones de configuración son como las de cualquier otro browser...Aunque mucho más sencillas, es decir, como mucho menos opciones -:(

La ventana de error que se nos muestra cuando un página o plug-in hacen algo que no deben, me recuerda bastante a la ventana que mostraba el Macintosh Plus...(Aunque por lástima no he podido conseguir la imagen).

Otra carácterística interesante es la de poder revisar toda la estructura de una página web...E inclusive modificarla (Aunque claro...solo como un skin).

Finalmente...Y felizmente, el Chrome no tiene problemas con Flex -;)

Mis comentarios finales son...

* Chrome es el browser más veloz que he utilizado hasta ahora (Safari, Opera, IE, Firefox).
* Chrome toma prestadas muchas características de otros browsers.
* Chrome consume menos recursos que los otros browsers.
* Si bien Chrome tiene todo para ser el mejor...Aún no lo es...Sea que porque está en versión Beta o sea porque necesitaría incluir aún más opciones.

Chrome es un browser que vale la pena probar...

Saludos,

Blag.

Nuevo diseño en mi tienda en Lulu.com

2008-09-02T13:50:00.000-07:00

El otro día mejoré el diseño de mi tienda en Lulu.com Alvaro "Blag" Tejada Galindo's Storefront

Espero que esto los inspire a seguir comprando mis libros -;)

Y hablando de eso...Hasta ahora nadie ha comprado mi libro El Arte de Programar Flex -:(

Saludos,

Blag.

El Arte de Programar - Flex

2008-08-24T11:26:00.000-07:00

Así es, acabo de publicar un nuevo libro de programación...Esta vez le tocó el turno a Flex. Espero que les guste -:D

El Arte de Programar - Flex.

Saludos,

Blag.

Mi entrevista en WhoHub...

2008-08-21T10:50:00.000-07:00

Hoy día recibí una invitación para llenar una entrevista en WhoHub un directorio de entrevistas a profesionales.

Así que si quieren saber un poco más de mi, visiten el enlace.

Entrevista a Blag

Saludos,

Blag.

Demo Jam en Las Vegas TechEd 2008

2008-08-14T13:59:00.000-07:00

Usted saben que amo el TechEd...Amo el Community Day...I realmente amo el Demo Jam.
Si no han ido a ningún TechEd y se están preguntando...¿Que es ese Demo Jam?

La respuesta es muy sencilla...Los equipos muestran sus proyectos, la gente se sorprende y escogen a un ganador.

El año pasado fué increíble con Majority Desk. Más información en Blag on TechEd (Las Vegas) - TechEd Day 1.

Este año, por su puesto que tenemos Demo Jam! Así que si van a Las Vegas, no se lo pueden perder!

Foto cortesía de Chip Rodgers.

Saludos,

Blag.

Technorati Tags: sdn blogger

Cuil...O como no hacer un buscador...

2008-07-31T11:43:00.000-07:00

Mucho se ha comentado sobre Cuil en estos días...Y claro, yo no podía quedarme atrás -;)

Cuil es un buscador web, de quien se dijo, estaba destinado a combatir contra Google...Según lo que he leído, ha fallado terriblemente.

Cual es mi opinión? Cuil me parece bastante interesante, tiene conceptos nuevos, aunque ¿Quién puede competir con Google?

Veamos la presentación...Que me gusta bastante -:)

Ahora, busquemos por ejemplo SAP...

Hasta ahora todo se ve bien...Aunque la imagen que se muestra de SAP no tiene nada que ver con SAP...Sin importar que realmente pertenezca a SAP, lo ideal habría sido mostrar un logo, ¿No creen?
Entonces, ahora vamos a la parte peligrosa de este buscador...
Busquemos a mi buen amigo Nigel James...

¿Todo parece estar bien no? Pues no! Esa foto no es de Nigel...Ni siquiera se parecen ni son parientes...Este es realmente el buen Nigel...

Por si fuera poco...Hasta hace algunos días, cuando buscamos Cuil en
Cuil no se encontraban resultados...Felizmente para ellos, estos ya está corregido...

Y como seguramente estaban esperando esto...Veamos que pasa cuando buscamos Alvaro Tejada Galindo...

Ese si soy yo -;)

Saludos,

Blag.

Nuevo libro...El pequeño libro del Performance

2008-07-13T11:46:00.000-07:00

Ayer publiqué un nuevo libro en Lulu.com llamado El pequeño libro del Performance.

El libro es para Performance en SAP NetWeaver.

Saludos,

Blag.

Identi.ca...El nuevo Twitter

2008-07-12T07:45:00.000-07:00

Luego de la salida de Twitter...Muchos servicios han querido quitarle el reinado...aunque no con mucho éxito...

El turno le toca ahora a Identi.ca, un servicio que siendo sinceros...Es un Twitter con menos gente y sin caídas (Que es lo más importante).

El problema que tiene, es que no mucha gente lo conoce...por lo tanto, no mucha gente lo usa...Aunque a mi modo de ver, es bastante estable.

La verdad es que no hay mucho que decir...Identi.ca está comenzando...Y yo le auguro un buen futuro -;)

Saludos,

Blag.

TinyPaste....TinyUrl para tweets

2008-06-27T09:26:00.000-07:00

TinyPaste es un servicio que a diferencia de TinyUrl que sirve para crear versiones cortas de links largos...Nos permite crear versiones cortas de Textos largos para Twitter, con lo cual podemos sobrepasar el límite de 140 caracteres permitidos.

Saludos,

Blag.

Spaz...Un cliente AIR para Twitter

2008-06-25T08:24:00.000-07:00

Como todos saben...Me encantan Flex y Twitter...Así que cuando veo un cliente de Twitter hecho en AIR, no puedo hacer otra cosa más que descargarlo y testearlo -;)

Esta vez le tocó el turno a Spaz.

En lo personal el diseño me gusta bastante...Además de que tiene una interesante opción de ver a tus amigos y acceder a los blogs que hayan registrado...

Las opciones no están tan visibles como me gustaría, pero es un detalle que no importa, puesto que el programa cumple con su deber...Y dato curioso...La opción de Replies estaba inactiva en Twitter mientras que en Spaz funcionaba correctamente...

Saludos,

Blag.

Smilebox...Invitaciones al estilo Flex...

2008-06-25T07:54:00.000-07:00

Nuevamente nos encontramos con un servicio basado el Flex...Se trata de Smilebox, un servicio para crear invitaciones, presentaciones, y muchas cosas más...
El instalador no pesa practicamente nada, puesto que que cada vez que lo ejecutamos, nos conectamos a internet para hacer las actualizaciones necesarias y llamar a la interface.

Lo primero que debemos hacer, es obviamente crear un usuario para poder comenzar a trabajar...

Una vez que estamos listo, debemos escoger el tipo de invitación que quremos crear (Tenemos multiples plantillas disponibles).

Cuando sabemos que invitación queremos crear...debemos agregar las imágines, videos o sonidos...

Cuando terminamos, podemos customizar nuestra invitación...

Una vez que hemos terminado, podemos enviar nuestra invitación por mail, postearla a nuestro blog, imprimirla o grabarla como imagen.

No se ustedes...Pero yo definitivamente voy a usar esto para el primer cumpleaños de mi hijita -;)

Saludos,

Blag.

SearchMe....Segundo round...

2008-06-25T07:35:00.000-07:00

Hace algún tiempo escribí un post sobre SearchMe, un servicio basado en Flex, que nos permite buscar en la web de una manera totalmente innovadora...Desde esa vez hasta ahora, muchas cosas han cambiado...Aunque hay algunas otras que sigen igual -:(

Por ejemplo...Busquemos Blag.

Vamos a encontrar muchas cosas, pero ninguna relacionada conmigo -:'(
Entonces...Busquemos solamente en blogs...

Seguimos sin suerte... -:'(
Busquemos ahora Alvaro Tejada...La tercera va la vencida dicen por ahí -;)

Finalmente! Encontramos que las dos primeras entradas tienen relación conmigo -;)

Ahora...Supongamos que queremos (Ok...Yo quiero -:P) guardar un enlace directo a mi página en Lulu.com.
Para esto, debemos crear un stack...Que aunque se ve como una gran idea...Solo funciona mientras no limpiemos el buffer de Flash...Ok...Hay un tema de seguridad dentro de esto...Pero sigue sin convencerme mucho...

Cuando agregamos el stack...No damos cuenta de algo que yo indiqué al equipo de SearchMe en su momento...Y que hasta ahora no me han hecho caso -:(

1.- No hay búsqueda para páginas en Español.
2.- El indexado aún es muy lento.

De todos modos, sigue siendo un excelente servicio y sobre todo muy creativo -;)

Saludos,

Blag.

Hellotxt...Micro blogging en batch...

2008-06-25T07:31:00.000-07:00

El otro día me inscribí en Hellotxt un servicio que nos permite publicar post en un gran número de servicio de Micro blogging.

Como ven, podemos elegir los servicios en los cuales queremos postear, y así no tener que estar ingresando a cada uno de ellos...Un gran servicio si me lo preguntan -;)

Saludos,

Blag.

Mi nuevo blog...Blag's bag of rants

2008-06-20T19:31:00.000-07:00

Desde hace mucho tiempo quería empezar un nuevo blog...Así que ayer Blag's bag of rants vió la luz... -:)

Cuál es la idea de este nuevo blog? Bueno...Simplemente se trata de posts que pienso que no deberían ir en el SCN ni mi blog tecnológico...Ademas...El blog va a estar en Inglés.

Si bien voy a seguir hablando sobre SAP, Tecnologías y Lenguajes Script en mi nuevo blog...Voy a hablar de esos temas de un punto de vista distinto...Ya verán a que me refiero cuando lean los posts -;)

Claro...No significa que voy a dejar de postear en mis otros blogs...Aunque claro, no con mucha frecuencia...Porque mantener tres blogs es un poco complicado...

Espero que les guste! -:D

Saludos,

Blag.

ToonDoo...Crea tus comics en la web...

2008-06-15T17:39:00.000-07:00

Siempre has querido hacer comics...pero no sabes dibujar? No te preocupes, yo tampoco...jejeje...Con ToonDoo todos podemos ser artistas -;)

Primero debemos escoger como va a ser el formato de nuestro comic.

Luego, debemos escoger a los personajes de nuestra historia.

Escogemos un fondo acorde a la historia...O bueno, no tan acorde... -;)

Incluimos el texto de los personajes...

Inclusive podemos crear nuevos personajes o incluso modificar personajes ya existentes...

Este comic es para promocionar mi blog... -:)

Saludos,

Blag.

Pwytter - Un cliente Twitter hecho en Python

2008-06-14T13:23:00.000-07:00

Estaba buscando clientes Twitter para probar, puesto que el Tweetr dejó de funcionar en mi laptop por alguna razón...Y desde hace meses no me preocupo por ver si ya funciona -:P

En fín...Estaba buscando y encontré uno bastante interesante llamado Pwytter. Lo primero que me llamó la atención es que estaba hecho en Python, un lenguaje que quiero continuar aprendiendo (Se lo básico...muy básico) desde hace tiempo...

Primero debemos configurarlo...

Y luego leer y escribir Tweets...

Cual es la gran desventaja de este pequeño cliente? Pues que no te permite navegar hacia Tweets pasados...Además de que todo se ve muy hacinado...En fín...es interesante para probarlo, escribir un par de Tweets...Y esperar a que lancen una nueva versión -:)

Saludos,

Blag.

Opera 9.5

2008-06-14T12:48:00.001-07:00

Hace un tiempo, posteé sobre Opera y ahora nuevamente lo hago, puesto que la versión 9.5 ya está disponible.

Entre las novedades que trae, está la de Protección Automática contra fraudes, es decir páginas web que no son realmente lo que dices ser...Es decir, Anti-Phishing. Además de esto, mayor velocidad de navegación y seguridad en general.

Obviamente, el Speed Dial que tanto me gusta, continúa con algunas pequeñas modificaciones visuales.

Una ventaja que me parece que vale la pena resaltar, es que nos dá la opcíón de importar Bookmarks de casi todos los browsers conocidos.

Los Widgets se han mantenido como era de esperarse.

Las opciones de configuración son sencillas y rápidas de usar.

Finalmente, debo decir que lo recomiendo completamente...Si nunca antes han utilizado Opera, es hora de que lo vayan haciendo. Si ya son usuarios de Opera, pues actualicense.

Saludos,

Blag.

Plurk - El clon de Twitter más extraño...

2008-06-13T14:51:00.000-07:00

Como era de suponerse, cuando un nuevo servicio aparece (Si que es innovador), rápidamente los "clones" comienzan a aparecer...Algunos agregan mejoras...otros no esfuerzan tanto...Y hay unos pocos que llevan las cosas a otro nivel.

Este el caso de Plurk un sistema bastante extraño...Clon de Twitter...aunque se lleva un premio a la originalidad.

La primera diferencia salta a la vista...En vez del típico drill down de Twitter, Plurk nos presenta un TimeLine, es decir, todos los mensajes publicados en un determinado momento del tiempo...Concepto que confunde al inicio, pero que luego llega a resultar bastante agradable.

Otro tema extraño, es el Karma...Una puntuación que nos indica cuanto hemos posteado, cuata gente a respondido a nuestros posts...Es decir una reputación...Algo como TweeterBoard pero completamente integrado a Plurk.

Por lo general, me gusta comentar en que lenguaje está desarrollado el servicio o el programa...Pero en este caso...no tengo idea...Flex no es...PHP? Rails? Python? JSP? Le preguntaría al Team pero al parecer todos son animales...En el buen sentido de la palabra -;)

Que más hace interesante a Plurk? Bueno, podemos compartir videos e imágenes.

Otro tema interesante es que contamos con emociones predeterminadas (Aunque claro, podemos elegir personalizarlas).

Como último punto, las conversaciones se mantienen enlazadas al post original al que estamos respondiendo...Algo así como en los foros...

Saludos,

Blag.

Sixent - Construye tu red social al estilo Flex

2008-06-13T13:26:00.000-07:00

Desde el lanzamiento de Adobe Flex, muchas y variadas aplicaciones han visto la luz...Aunque...Una red de contactos en Flex? Ver para creer...Pues vean Sixent...Que aunque se encuentra en fase Alpha Cerrada (Es decir, solo se permite el registro mediante invitación), ya me ha sorprendido muy gratamente.

Veamos mi página pública (Si...pública...aunque no pública como en Twitter sino pública como en Sixent te permite tener 3 perfiles, uno público, otro para los amigos y otro profesional...Así puedes controlar que colocar en cada uno y quines pueden acceder a que datos tuyos).

Cambiar entre perfiles es bastante sencillo, solo basta escoger el queremos de una lista y comenzar a hacer las modificaciones necesarias.

Seguramente estarán pensando...Claro, muy interesante, pero que más hace de este servicio algo diferente a los demás?...Muy simple...Podemos crear PODs, que son pequeñas aplicaciones que se insertan en nuestra página y que podemos configurar (Tamaño, color, estado, posición). Crear los PODs es muy sencillo y tenemos a disposición cualquier servicio de internet (Inclusive hay PODs listos para usar). El Sprout de Twitter que hice con Sprout Builder funcionó perfectamente cuando lo integré a Sixent.

Si esto les parece bueno...esperen a ver lo que viene...Recuerden que están aún en fase Alpha...Muchas cosas pueden cambiar y otras mejorar -;)

La verdad es que no se cuantas invitaciones tendré disponibles...Pero si alguien quiere probar, pues que envié un mail para poder crearles una cuenta -:)

Saludos,

Blag.

Sprout Builder - Construyendo en Flex

2008-06-13T13:08:00.000-07:00

Alguna vez has utilizado Flash? Saben programar en Flex? Si no han utilizado Flash, o se les hace muy complicado...Y tampoco saben programar en Flex...Sprout Builder les alegrará la vida...
Qué es Sprout Builder? Es un nuevo (Ok...No tan nuevo, es solo que no había blogeado antes sobre ellos...Y recién ahora visito la página nuevamente LOL) servicio que nos permite crear impresionantes interfaces Flex con algunos cuantos clicks...

Cuenta con una interfaz bastante amigable, componentes ya construidos (Twitter, Seesmic, Google Maps) y por supuesto capacidad para agregar música y video.

Como era de esperarse, podemos hacer una previsualización de nuestro Sprout para ver como está quedando...

Y cuando estamos listo, no tenemos que hacer más publicarlo y copiar el código donde queramos...

Si son observadores, notarán que mi Sprout de Twitter está en la página principal del blog...Como ven, simple, rápido y efectivo.

Saludos,

Blag.

Community Clubhouse en SmallWorlds

2008-06-09T15:02:00.000-07:00

En mi blog anterior SmallWorlds hablé sobre la idea de tener un Community Clubhouse dentro de este mundo virtual...Adivinen que...No quise esperar...Y sacrifiqué mi "casa" en favor de la comunidad.

Si tenemos una isla de SAP dentro de Second Life...¿Por qué no podemos tener una casa aquí?

Aquí hay algunas imágenes...Necesito más dinero para hacerla mejor...Pero todos son libres de hacerme una vista y firmar el libro de visitas...Solo busquen a Alvaro Tejada y teletransportense al Clubhouse.

Estoy seguro que con estas imagenes van a interesarse más en esto...Creanme...Es muy divertido -:)

Quien se apunta para un Community Day???

Saludos,

Blag.

Cuando el "Gran Jefe" está mirando...

2008-06-09T08:52:00.000-07:00

Hoy día en la mañana...Antes de escribir mi blog sobre el Community Day Lima 2008, recibí una sorpresa muy agradable (Ok...Casi me desmayo...jejeje) en mi Twitter.

Mark Yolton Vice Presidente Senior del SAP Community Network...Que incluye a las Comunidades del SDN y el BPX, además de los eventos TechEd y el TechTour me envío el siguiente mensaje...

En otras palabras, me agradece por haber organizado y dirigido el Community Day Lima...Si eso no es impresionante...Entonces no se que es...

Saludos,

Blag.

Technorati Tags: sdn blogger

Community Day Lima 2008 - Lo que fué...

2008-06-09T07:52:00.000-07:00

Este sábado pasado, 25 personas asistieron al Community Day Lima 2008 en las oficinas de TSNet Global.

Fué un evento realmente bueno, la pasamos muy bien y compartimos un poco del espíritu de la Comunidad.

TSNet Global y SAP Peru auspiciaron el evento brindándones el Coffee Break y un paquete con regalos (Un cuaderno, lapiceros, lápices, porta foto y un borrador).

Yo hablé sobre el SDN/BPX y Lenguajes Script y SAP.

Lennon Shimokawa de Synopsis habló sobre el conector JCO y SAP.

Mario Galvis de SAP Colombia hizo una presentación WebEx sobre Master Data Management.

Juan Carlos Velarde Saravia de ActualiSap Peru habló sobre ABAP Enhancements (BADI's, User-Exits, Enhacement Points, Customer-Exits).

Al final, tres afortunados ganadores se llevaron una copia gratuita de mi libro, El Arte de Programar SAP NetWeaver.

Esperamos por supuesto repetir este evento el año que viene...Con más personas participando...Más presentaciones y más diversión -:)

Saludos,

Blag.

SmallWorlds

2008-06-05T08:50:00.001-07:00

Ayer creé mi cuenta en este mundo virtual llamado SmallWorlds...Al principio pensé que era como Second Life...Pero luego de mi cuenta dos diferencias bastante obvias...

1.- SmallWorld funciona 95% en el browser...Así que no hay que descargar ningún cliente.
2.- SmallWorlds está desarrollado en Flash (Flex?).

Actualmente se encuentran en Beta abierta y no hay mucho por hacer...

1.- Ir a la tienda a comprar una silla.
2.- Colocar la silla en tu cuarto.
3.- Navegar por algunas tiendas.

Hasta el momento, me parece bastante interesante...Aunque se necesita una conexión a Internet bastante veloz...Y el último Plug-In de Flash instalado...

Si quieren buscarme...Estoy como Alvaro Tejada -;)

Saludos,

Blag.

Community Day Lima - Sábado 7 de Junio

2008-06-05T06:53:00.000-07:00

Este sábado 7 de Junio...Blag (Ese soy yo), TSNet Global y SAP Perú vamos a traer el Community Day Lima por primera vez en la historia.

Que pueden esperar? Colaboración, Intercambios y Contactos.

Qué sesiones van a ser cubiertas? Aquí está una pequeña pero interesante lista.

* SDN y BPX (Incluyendo un video del TechEd cortesía de Craig Cmehil)
* MDM (Webex)
* Lenguajes Script y SAP
* Conector JCO y SAP
* User-Exits, BADI's, BTE's, Enhacement Points y Customer Exits
* Adobe Forms (Por confirmar)

Dónde va a ser? Aquí está la dirección.

TSnet S.A.
Av. Javier Prado Este # 2612
San Borja- Lima 41

Desde las 9:00 a.m a la 1:00 p.m

Esperamos por lo menos a 40 participantes...Así que si tu eres uno de ellos, no te olvides de pasar por mi lado para decirme "Hola" -;)

Saludos,

Blag.

Technorati Tags: sdn blogger

Inform 7 - Creando Ficción Interactiva

2008-04-30T12:20:00.000-07:00

Mi pasión por los juegos de Ficción Interactiva ha regresado gracias a que descargué la última versión de Inform 7 un motor para creación de juegos de este genero.

El creado de Inform Graham Nelson es todo un Gurú puesto que su creación hace que la programación de juegos IF sea muy sencilla...Sobre todo con la versión 7, puesto que se utiliza el Natural Language...Es decir, se programa como si se estuviera escribiendo un libro.

"Hello World" by "I.F. Author"

The story headline is "An Interactive Example".

The Living Room is a room. "A comfortably furnished living room." The Kitchen is north of the Living Room. The Front Door is south of the Living Room. The Front Door is a closed locked door.

El entorno de programación es simple pero directo, es decir, ayuda mucho -:)

Claro, si les preocupa que todo esté en Inglés...Pues bueno, siempre hay una solución -;) Pueden descargar InformATE! que es una versión de Inform 6 totalmente en Español...Y por supuesto, la página del CAAD es al lugar donde hay que ir para conseguir juegos, ayuda y algunos buenos amigos -;)

Saludos,

Blag.

Master Mind - Juego en ABAP

2008-04-29T14:53:00.001-07:00

En la tarde, publiqué este blog en el SDN ABAP's Mind Game, así que me toca publicarlo aquí también -;)

Hice un juego al estilo de Master Mind, que es donde la PC piensa en el orden de 5 números y nosotros tenemos que adivinar cual es...Claro que el sistema nos indica si las posiciones que ingresamos son correctas o incorrectas.

Primero comencé con un simple Dynpro...

Luego, escribí el código fuente...


REPORT ZABAP_MIND_GAME.

*&---------------------------------------------------------*
* CONSTANTS                                                *
*&---------------------------------------------------------*
CONSTANTS: line_length TYPE i VALUE 254.

*&---------------------------------------------------------*
* TYPES                                                    *
*&---------------------------------------------------------*
TYPES: BEGIN OF ty_rand_table,
       value(1) TYPE c,
       END OF ty_rand_table.

*&---------------------------------------------------------*
* INTERNAL TABLES                                          *
*&---------------------------------------------------------*
DATA: t_rand_table TYPE STANDARD TABLE OF ty_rand_table,
      t_user_table TYPE STANDARD TABLE OF ty_rand_table,
      t_game_lines TYPE TABLE OF tline-tdline,
      data_rand TYPE REF TO data,
      data_lines TYPE REF TO data.

*&---------------------------------------------------------*
* FIELD-SYMBOLS                                            *
*&---------------------------------------------------------*
FIELD-SYMBOLS: <fs_rand_table> LIKE LINE OF t_rand_table,
               <fs_user_table> LIKE LINE OF t_user_table,
               <fs_rand_value> LIKE LINE OF t_rand_table.

*&---------------------------------------------------------*
* VARIABLES                                                *
*&---------------------------------------------------------*
DATA: custom_container TYPE REF TO cl_gui_custom_container,
      text_editor TYPE REF TO cl_gui_textedit,
      w_ucomm TYPE sy-ucomm,
      ran_int TYPE qf00-ran_int,
      flag TYPE c,
      counter TYPE c,
      gv_line TYPE string,
      button_count TYPE c,
      xtext TYPE tline-tdline,
      game_win TYPE string,
      game_counter TYPE string.

DATA: message_one TYPE string,
      message_two TYPE string,
      message_three TYPE string,
      message_four TYPE string,
      message_five TYPE string.

DATA: gv_one TYPE c,
      gv_two TYPE c,
      gv_three TYPE c,
      gv_four TYPE c,
      gv_five TYPE c.

DATA: gv_flag_one TYPE c,
      gv_flag_two TYPE c,
      gv_flag_three TYPE c,
      gv_flag_four TYPE c,
      gv_flag_five TYPE c.

DATA: gv_user_one TYPE c,
      gv_user_two TYPE c,
      gv_user_three TYPE c,
      gv_user_four TYPE c,
      gv_user_five TYPE c.

*----------------------------------------------------------*
*   START-OF-SELECTION                                     *
*----------------------------------------------------------*
START-OF-SELECTION.
  CALL SCREEN 0100.

*&---------------------------------------------------------*
*&      Form  call_editor                                  *
*&---------------------------------------------------------*
FORM call_editor.

  IF text_editor IS INITIAL.
    CREATE OBJECT custom_container
      EXPORTING
        container_name              = 'CUSTOM_CONTROL'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5.

    CREATE OBJECT text_editor
      EXPORTING
        wordwrap_mode              =
cl_gui_textedit=>wordwrap_at_fixed_position
        wordwrap_position          = line_length
        wordwrap_to_linebreak_mode = cl_gui_textedit=>true
        parent                     = custom_container
      EXCEPTIONS
        error_cntl_create          = 1
        error_cntl_init            = 2
        error_cntl_link            = 3
        error_dp_create            = 4
        gui_type_not_supported     = 5
        others                     = 6.

    CALL METHOD text_editor->set_readonly_mode
      EXPORTING readonly_mode = 1.
  ENDIF.

  PERFORM get_randoms.

ENDFORM.

*&---------------------------------------------------------*
*&      Form  get_randoms                                  *
*&---------------------------------------------------------*
FORM get_randoms.

  CREATE DATA data_rand TYPE ty_rand_table.
  ASSIGN data_rand->* TO <fs_rand_table>.

  WHILE flag EQ space.
    CALL FUNCTION 'QF05_RANDOM_INTEGER'
         EXPORTING
              ran_int_max   = 5
              ran_int_min   = 1
         IMPORTING
              ran_int       = ran_int
         EXCEPTIONS
              invalid_input = 1
              OTHERS        = 2.

    READ TABLE t_rand_table ASSIGNING <fs_rand_value>
    WITH KEY value = ran_int.
    IF sy-subrc NE 0.
      <fs_rand_table>-value = ran_int.
      APPEND <fs_rand_table> TO t_rand_table.
      counter = counter + 1.
      IF counter EQ 5.
        flag = 'X'.
      ENDIF.
    ENDIF.
  ENDWHILE.

  game_counter = 1.

ENDFORM.                    " get_randoms

*&---------------------------------------------------------*
*&      Form  validate_game                                *
*&---------------------------------------------------------*
FORM validate_game.

  LOOP AT t_rand_table ASSIGNING <fs_rand_value>.
    IF gv_one IS INITIAL.
      gv_one = <fs_rand_value>-value.
    ELSEIF gv_two IS INITIAL.
      gv_two = <fs_rand_value>-value.
    ELSEIF gv_three IS INITIAL.
      gv_three = <fs_rand_value>-value.
    ELSEIF gv_four IS INITIAL.
      gv_four = <fs_rand_value>-value.
    ELSEIF gv_five IS INITIAL.
      gv_five = <fs_rand_value>-value.
    ENDIF.
  ENDLOOP.

  CLEAR: gv_user_one,gv_user_two,gv_user_three,
         gv_user_four,gv_user_five.

  LOOP AT t_user_table ASSIGNING <fs_user_table>.
    IF gv_user_one IS INITIAL.
      gv_user_one = <fs_user_table>-value.
    ELSEIF gv_user_two IS INITIAL.
      gv_user_two = <fs_user_table>-value.
    ELSEIF gv_user_three IS INITIAL.
      gv_user_three = <fs_user_table>-value.
    ELSEIF gv_user_four IS INITIAL.
      gv_user_four = <fs_user_table>-value.
    ELSEIF gv_user_five IS INITIAL.
      gv_user_five = <fs_user_table>-value.
    ENDIF.
  ENDLOOP.

  CLEAR: game_win.

  IF gv_one EQ gv_user_one.
    message_one = 'First is Ok!'.
    game_win = game_win + 1.
  ELSE.
    message_one = 'First is Wrong!'.
    game_win = game_win - 1.
  ENDIF.
  IF gv_two EQ gv_user_two.
    message_two = 'Second is Ok!'.
    game_win = game_win + 1.
  ELSE.
    message_two = 'Second is Wrong!'.
    game_win = game_win - 1.
  ENDIF.
  IF gv_three EQ gv_user_three.
    message_three = 'Third is Ok!'.
    game_win = game_win + 1.
  ELSE.
    message_three = 'Third is Wrong!'.
    game_win = game_win - 1.
  ENDIF.
  IF gv_four EQ gv_user_four.
    message_four = 'Forth is Ok!'.
    game_win = game_win + 1.
  ELSE.
    message_four = 'Forth is Wrong!'.
    game_win = game_win - 1.
  ENDIF.
  IF gv_five EQ gv_user_five.
    message_five = 'Fifth is Ok!'.
    game_win = game_win + 1.
  ELSE.
    message_five = 'Fifth is Wrong!'.
    game_win = game_win - 1.
  ENDIF.

  IF game_win EQ 5.
    CLEAR: message_one,message_two,message_three,
           message_four,message_five.
    message_one = 'You win!'.
    CONCATENATE 'In' game_counter 'tries'
    INTO message_two SEPARATED BY space.
  ELSE.
    game_counter = game_counter + 1.
    CLEAR: gv_flag_one,gv_flag_two,gv_flag_three,
           gv_flag_four,gv_flag_five,sy-ucomm.
  ENDIF.

ENDFORM.                    " validate_game

*&---------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT                        *
*&---------------------------------------------------------*
MODULE status_0100 OUTPUT.

  SET PF-STATUS 'MAIN'.
  SET TITLEBAR 'TITLE'.

  IF flag EQ space.
    PERFORM call_editor.
  ELSE.

    LOOP AT SCREEN.
      IF screen-name EQ 'ONE' AND gv_flag_one EQ 'X'.
        screen-invisible = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-name EQ 'TWO' AND gv_flag_two EQ 'X'.
        screen-invisible = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-name EQ 'THREE' AND gv_flag_three EQ 'X'.
        screen-invisible = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-name EQ 'FOUR' AND gv_flag_four EQ 'X'.
        screen-invisible = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-name EQ 'FIVE' AND gv_flag_five EQ 'X'.
        screen-invisible = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.

    IF button_count EQ 5.

      CLEAR button_count.

      SHIFT gv_line LEFT DELETING LEADING space.

      SPLIT gv_line AT space INTO TABLE t_user_table.

      PERFORM validate_game.

      xtext = gv_line.
      APPEND xtext TO t_game_lines.

      CLEAR gv_line.

      CALL METHOD text_editor->set_text_as_r3table
      EXPORTING table = t_game_lines.

    ENDIF.
  ENDIF.

ENDMODULE.                 " STATUS_0100  OUTPUT

*&---------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT                   *
*&---------------------------------------------------------*
MODULE user_command_0100 INPUT.

  w_ucomm = sy-ucomm.

  CASE w_ucomm.
    WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
      SET SCREEN 0.
      EXIT.
    WHEN 'ONE'.
      CONCATENATE gv_line '1' INTO
      gv_line SEPARATED BY space.
      button_count = button_count + 1.
      gv_flag_one = 'X'.
    WHEN 'TWO'.
      CONCATENATE gv_line '2' INTO
      gv_line SEPARATED BY space.
      button_count = button_count + 1.
      gv_flag_two = 'X'.
    WHEN 'THREE'.
      CONCATENATE gv_line '3' INTO
      gv_line SEPARATED BY space.
      button_count = button_count + 1.
      gv_flag_three = 'X'.
    WHEN 'FOUR'.
      CONCATENATE gv_line '4' INTO
      gv_line SEPARATED BY space.
      button_count = button_count + 1.
      gv_flag_four = 'X'.
    WHEN 'FIVE'.
      CONCATENATE gv_line '5' INTO
      gv_line SEPARATED BY space.
      button_count = button_count + 1.
      gv_flag_five = 'X'.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT

Finalmente, tomé algunos pantallazos -;)

Espero que les guste -:)

Saludos,

Blag.

Ein Ami comes to Lippstadt

2008-04-28T09:11:00.000-07:00

El sábado recogí de la oficina de correos el libro de mi amigo Craig Cmehil titulado Ein Ami comes to Lippstadt que vendría a significar Un Norte Americano viene a Lippstadt.

El libro, es bastante interesante, puesto que cuenta en versión resumida como Craig salió de Estados Unidos para irse a Alemania. A modo de historias cortas nos damos cuenta de como las costumbres y modo de vida pueden cambiar tanto de un país a otro o de un continente a otro...Realmente disfruté mucho leyendo el libro, así que les recomiendo que lo compren -;)

Saludos,

Blag.

Mis discos favoritos de Punk

2008-04-23T07:23:00.000-07:00

Llevo escuchando Punk desde hace 16 años...Así que está es una pequeña lista gráfica de mis discos favoritos de todos los tiempos -;)

Never Mind the Bollocks - Sex Pistols

Fresh Fruit for Rotting Vegetables - Dead Kennedys

Against the Grain - Bad Religion

Are young and good looking - The Dwarves

White Trash, Two Heebs and a Bean - NOFX

Famous Monsters - Misfits

Saludos,

Blag.

Bienvenida Kiarita!!!

2008-04-22T06:52:00.000-07:00

Algunos de ustedes deben saberlo...otros seguramente no...Pero ya soy padre -:')

Mi hija Kiara nació el Jueves 17 de Abril pesando 2,854 kilos y midiendo 48.5 centimetros...No expresar la alegría cuando la vi por primera vezy cuando la sostuve en mis brazos...No hay nada que se compare con la experiencia de ser un padre...

Marilyn Pratt escribió un emotivo blog en el SCN para celebrar este evento SAP Community Network: An Extended Family To Some

Les dejo un par de fotos -:)

Saludos,

Blag.

Quien está mal...SAP o los negocios?

2008-04-16T08:10:00.000-07:00

Revisando el SAP Facts encontré uno realmente muy bueno... Fact

SAP doesn't need enhanced. It is your business process that is wrong.

Traduciendo...

SAP no necesita ser mejorado. Es tu proceso de negocio el que está mal.

Saludos,

Blag.

Flex 4?

2008-04-16T07:53:00.001-07:00

Al parecer, la gente de Adobe no descanza...A pesar de que hace relativamente poco tiempo lanzaron Flex 3 ahora están trabando en Flex 4 código clave Gumbo.

Definitivamente estas son buenas noticias, Flex me encanta...Es versatil, fácil de programar y realmente ha redefinido las páginas web...Pero yo digo...Uno se compró Flex 2...Al poco tiempo tuvo que actualizarse a Flex 3 y a finales de año podría actualizar a Flex 4 Beta? Además...Adobe no tiene tiendas en Perú...Por lo cual por más que quiera no podría comprarlo -:(

En fin...Supongo que no podemos detener la tecnología solamente por el hecho de que avanza más rápido de lo que nosotros aprendemos...

Saludos,

Blag.

La caída de Windows?

2008-04-16T07:36:00.000-07:00

Estuve leyendo un post bastante interesante ahora en la mañana La evolución tecnológica marcaría el final de Windows

Según el artículo, Microsoft no está haciendo nada nuevo, solamente "mejorando" lo que ya tiene...

Veamos...Yo he utilizando una gran variedad de Sistemas Operativos a lo largo de mi vida y mi carrera...

* Windows (3.1,95,98,ME,NT,2003 Server,XP,Vista)
* Novell Netware
* Mac OS (Varias versiones incluida OS X)
* Linux (RedHat, Suse, Knoppix, Slax)

Algunos han sido buenos, otros no tanto, otros eran casi copias de los anteriores y otros simplemente distribuciones.

En el caso específico de Windows, antes del XP, windows era malo, muy malo...Con XP para mi todo cambió puesto que me encanta...Con Vista...Tuvieron un retroceso...

Cual es el problema? Muy simple...Una cosa es tomar un sistema operativo sólido como XP y mejorarlo...Pero otra cosa muy distinta es tomar XP y utilizar su código fuente para crear algo totalmente nuevo...

Yo no digo que Microsoft debería haber escrito Vista de cero...No es necesario reinventar la rueda...Pero repitiendo lo que ya dije, tomar el código existente para crear algo nuevo, simplemente no funciona...

Los que hayan utilizado Vista, saben que muchos de los programa que usamos actualmente no son compatibles, pero aún cuando hablamos de los Drivers...En muchos casos no basta con formatear el disco para instalar otro SO, puesto que Vista es un sistema que no se deja matar facilmente...Lo que queda es crear una partición o utilizar el WMWare o el Virtual PC para instalar un XP dentro de Vista...

Lo mismo pasó como Windows ME...Windows 98 logró ser bueno luego de miles de Service Packs...Pero el ME fué totalmente una desgracias y verguenza para todos...

Se habrán dado cuenta también de que muchas empresas están apostando seriamente por la web...Versiones on-line de Photoshop, Google Docs, Zoho y demás ofrecen suites de ofimatica totalmente gratuitas y vía web...No más instalaciones ni espacio en disco duro...Pero que hace Microsoft? Me parece que hay un Office On-Line...Pero quien lo usa? Está hecho con ASP y Ajax? O están aprovechando Silverlight así como Adobe hace con Flex y AIR?

El problema con Microsoft es que practimante nos obliga a comprar Vista, puesto la mayoría de Laptops viene con Vista instalado por defecto...Gracias a dios mi LG T1 vino con XP...De otra manera, no la habría comprado -;)

Saludos,

Blag.