Planeta SoloCodigo

Feeds

176 items (121 unread) in 5 feeds

• Radical Python (44 unread)
• Revista Código Latino (11 unread)
• El blog tecnológico de Blag. (31 unread)
• SergioTarrillo's RichWeblog (27 unread)
• { Radamanthys } (8 unread)

Unread items (10)

SergioTarrillo's RichWeblog

• 

  lstGeeksMs.Where(u => u.Estado == "papafeliz").Select(u => u).ToList().Add(new UserGeek() { Nombre = "sergiotarrillo", Estado = "papafeliz", Hijo = “marcello” });

  Posted: 23 June 2009, 9:10am CEST by Sergio Tarrillo

  

  Pues que nada, me uno a lista de padres en Geeks.ms.

  Ser papá es un sentimiento difícil de describir con palabras, pero, si ser papá es hablarle a la barriguita de tu esposa durante nueve meses, si ser papá es emocionarte con cada patadita del bebé dentro de la barriguita, si ser papá es llorar junto con el bebé cuando da su primer llanto, si ser papá es ensuciarte con el bebé cuando le cambias los pañales, si ser papá es poner cara de tonto cuando el bebé da su primera sonrisa, si ser papá es contarlo públicamente en tu blog, pues si, que soy un papá feliz!

  Y eso, que es una nueva motivación en la vida para ser una persona mejor.

  Saludos,

  

El blog tecnológico de Blag.

• 

  TechEd Phoenix Countdown para BlackBerry

  Posted: 11 June 2009, 5:08pm CEST

  
  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.
  

SergioTarrillo's RichWeblog

• 

  Integrando Sistemas de Informacion?

  Posted: 10 June 2009, 5:16am CEST by Sergio Tarrillo

  

  En la mayoría de proyectos uno de los retos de alguna u otra forma es intercambiar información con sistemas de terceros, a los cuales no tenemos acceso directamente a su fuente de datos. Un caso común es el intercambio de información con proveedores, con entidades financieras, entidades públicas, o alguna otro tipo de aplicación de terceros. Los comentarios a continuación son basados en los escenarios y proyectos en que participado,  y siempre se pueden complementar con alguna experiencia adicional en los comentarios.

  ¿Por qué esta necesidad de intercambiar información?

  • Por que nuestro negocio necesita de otras organizaciones para lograr sus metas. Por ejemplo, si tengo un sitio en la que se realizan ventas on-line, podría crear mi propio medio de pago y encargarme de la cobranza, pero perdería la visión de mi negocio: “vender”, lo que puedo hacer para centrar los esfuerzos en mi negocio, es apoyarme en algún medio de cobro ya existente, pero surge una nueva necesidad: intercambiar información con un sistema de cobro.
  • Eliminar la redundancia de información dentro de nuestra organización. La mayoría de organizaciones, sobre todo las grandes, cuentan con empaquetados o software comúnmente llamado ERP. Pero adicionalmente a tener un ERP, también podemos contar sistemas propios, ya sea por que el ERP no se adecua en todas las áreas dentro de mi organización, o por que simplemente no hay presupuesto para comprar los otros módulos. Tener varios sistemas en nuestra organización, crea la necesidad de poder integrar los mismos, para no tener información “duplicada” en cada sistema, y para remover esa redundancia debemos integrar los sistemas.
  • Crear nuevas oportunidades de negocio en nuestra empresa. Digamos que soy una entidad financiera, o soy una empresa que vende electrodomésticos, y que deseo como nueva oportunidad de negocio, vender determinados seguros dentro de mi organización. Una opción simple y práctica para hacerlo, es sólo vender los seguros y no cubrir los siniestros, para eso debemos buscar una compañía de seguros constituida que sea quien cubra los siniestros, y nosotros sólo centrarnos en vender seguros a nuestros clientes. Pero para llevar a cabo ello, tenemos el reto, del área de TI, de integrar mi información de ventas con la aseguradora. Y este reto también es en viceversa, la aseguradora debe tener los mecanismos que me permitan recibir información.
  • Reportar información a sistemas de terceros. Cuando tenemos que reportar información, a entidades públicas reguladoras, o a otros sistemas dentro de la corporación, por ejemplo en el caso que estemos dentro de alguna franquicia.

  Y dentro de las opciones de comunicación tenemos hasta tres escenarios comunes de intercambiar información:

  • Manual. En esta opción hay un esfuerzo del área de TI que va recibir la información, ya que debe realizar la aplicación que usarán terceros para ingresar información en su fuente de datos. Por ejemplo, una aseguradora no te va dar un conexión directa a su base de datos, una de las opciones que tienen ellos para vender seguros en organizaciones de terceros, es desarrollar una aplicación que sea usada por todas las empresas quieran vender nuestros seguros. Este escenario también es la principal fuente de datos de un ERP, yo puedo consultar y ingresar información a una fuente de datos de un ERP, a través de su aplicación front-end.
  • Masiva. En muchos casos usar el sistema de terceros para enviarles nuestra información a su fuente de datos, puede no ser la mejor solución debido a problemas de infraestructura, de personalización, o simplemente por que no hay un front-end, para realizar aquello. Una opción es intercambiar información a través de archivos, digamos que al finalizar el día puedo generar un archivo plano que contiene toda la información que deseo ingresar en otra fuente de datos. Esta puede ser la manera más práctica, rápida, fácil e interoperable, de intercambiar información, ya que todos los sistemas operativos soportan los archivos planos, y todos los lenguajes contienen librerías, apis, o clases, para el manejo de archivos, sólo basta con definir una estructura y podemos integrar sistemas. Los empaquetados o ERP, normalmente también deberían permitir carga masiva de información a través de archivos.
  • Automatizada o Directa. Una de las “desventajas” del intercambio de información a través de archivos es que tengo que esperar que estos sean procesados para ver reflejada la información en el sistema. Pero tenemos otra opción  “automatizada” de intercambiar información “on-line”, y es que la organización que va enviar información desarrolle su propio sistema, personalizado con las necesidades del mismo, pero que ingrese directamente información en otra fuente de datos, y para lograr este objetivo necesitamos a los famosos “conectores”, y que cualquier producto empaquetado sea ERP u otro, debería tener, y estos pueden ser conectores limitados (del propio fabricante) o conectores estandarizados, como usar Web Services, y en general cualquier otro “Servicio” que me permita conectarme con una fuente de datos de terceros.

  Lo ideal sería que nuestro negocio soporte los tres tipos de comunicación para no perder ninguna oportunidad de crecimiento:

  1. Vayamos al escenario de una organización que fábrica determinados productos electrónicos. La organización, desea aumentar su fuerza de ventas, y para eso tiene pensado elaborar convenios con pequeños proveedores que no tienen un área de TI claramente definida, y que no tienen un sistema de ventas implementado, en este escenario se podría dar desarrollar una aplicación de ventas para los proveedores que quieran vender nuestros productos.
  2. Pero que pasa si hay otros proveedores, que tienen un área de TI definida, y que cuentan con sistemas propios de ventas, una manera simple de recibir la información del proveedor es aceptar la carga masiva a través de archivos, para ello la organización que recibe la información debe definir la estructura, y validación del archivo a intercambiar.
  3. Y finalmente, si hay un proveedor que desea realizar ventas on-line, debido a que en algunos casos se venden productos sin stock, por el tiempo para enviar y procesar un archivo, pero ellos no quieren usar la aplicación de ventas del fabricante, por que tendrían que duplicar la información para que ellos mismos cuenten con la información registrada, en cambio el proveedor quieren realizar una aplicación que registre la venta en su fuente de datos, pero a la vez y de manera automática que registre la venta en la fuente de datos del fabricante, y ahí la necesidad de un conector o Web Services, y en general un servicio, para enviar la información en tiempo real.

  Conocer la visión de negocio o el porque de la necesidad de integrar sistemas, es importante para tener claro proceso y los objetivos de integrar información. Ahora vayamos a un punto de vista más técnico, que me permita “integrar sistemas”.

  En el primer escenario no hay mucha ciencia, ya es algo común y natural desarrollar aplicaciones, sólo hay que tener en cuenta que la misma puede ser usada por terceros fuera de mi organización. Además que existen que internet podemos encontrar muchos frameworks de desarrollo, o blogs hablando de tips para el desarrollo de aplicaciones. Por eso nos vamos a centrar en los dos últimos escenarios mencionados.

  Veamos algunos ejemplos:

  1. Windows Live Product Search, o lo que ahora es Bing Shopping. Si soy una empresa de venta de productos, este servicio me permite promocionar mis productos, es decir va ser un sistema de apoyo a mi negocio. Live Product Search, tenía un servicio para vendedores llamado: Product Upload Service, este servicio me permitía ingresar información en su fuente de datos enviando información en archivos planos o archivos de texto, delimitados por el carácter TAB, un ejemplo sería:
     
     Product   Descripction  Price  Stock
     Prdo01     Este es un producto muy bueno  34.6  8
     Prdo02     Este es un producto muy barato  24.6  4
     
     Sólo tengo que enviar mi archivo con todos los productos de mi sistema que deseo publicar, y que serán ingresado en la fuente de datos de ellos, para que ellos puedan promocionarlos en su Web. Google también tiene su Google Product Search, y que también soporta el envío de archivos de texto delimitados por TAB. Además de archivos planos con separación por tab, otro formato común son los archivos CSV, y hasta se puede intercambiar información en archivos usando archivos Excel, pero es 100% recomendable usar archivos de texto, para no limitar el intercambio de información a determinadas tecnologías.
  2. NetSuite. Dentro de una organización puedo tener aplicaciones de 3 terceros, para realizar nuestras operaciones transaccionales más importantes, como la contabilidad. Pero a medida que la organización sigue creciendo necesita del apoyo de otros negocios o sistemas, y para lograr aquello necesitamos personalizar nuestra comunicación con el empaquetado o ERP que usemos, en nuestro ejemplo el producto es NetSuite. Como primera fuente NetSuite nos brinda una aplicación Web, para ingresar información en su fuente de datos. ¿Qué pasa, si quiero consultar directamente a mi información de NetSuite a través de un sistema?, o ¿si quiero manipular la misma?. Digamos que quiero vender mis productos en Amazon, ellos me envían diariamente las ordenes de compra y quiero enviar directamente las ordenes a Netsuite, no manualmente a través de la Web, si no que sea un proceso automático de un sistema propio. Para lograr aquello, NetSuite posee un juego o api de Web Services llamado SuiteTalk, con el cual podemos hacer diversas operaciones contra nuestra información, consulta o modificación, directamente, sin la necesidad de que sea un proceso manual a través de su Front-End. Un caso similar, es con SAP, el cual posee conectores que permite tener acceso a la información de un sistema SAP, hay una implementación para .Net: SAP .NET Connector, y aquí pueden revisar un ejemplo: ASP.NET Using SAP .NET Connector.

  Notemos, que nosotros no sabemos que motor de base de datos usa Live Products, Google Products, o NetSuite. Pero ello no impide que con un front-end, un archivo masivo, o un conector, pueda consultar y modificar: “mi información”. Y obviamente estos modelos de negocio de poder acceder directamente a mi información, tiene que ver con el modelo SaaS, pero ese será tema de otras entradas.

  Resumiendo, si quiero que otras organizaciones se comuniquen o integren con nuestros sistemas, tenemos 3 opciones:

  1. Desarrollar una aplicación Web o Windows, y que ellos usen la misma para ingresar información directamente en nuestra fuente de datos.
  2. Usar un archivo de carga masiva. Debemos definir: la estructura del archivo, las reglas de validación, y la frecuencia de envío. Y obviamente, soportar la carga masiva a nuestra fuente de datos.
  3. Crear conectores, que pueden ser Web Services u otro Servicio, que permita que terceros puedan desarrollar sus propias aplicaciones, y se ingrese automáticamente la información a nuestra fuente de datos.

  Tomemos el punto 3 para hacer algunas aclaraciones. Definamos la siguiente frase: “Un Web Service no es para que te comuniques tu mismo, un Web Services o Servicio es para habilitar que otro sistemas se comuniquen contigo”. Por ejemplo, si en un mismo servidor estará la base de datos, el Web Service, y una la Aplicación Web. Usar un Servicio, Web Services, o WCF para que la aplicación Web se conecte a la base de datos, ¿se justifica la creación de una capa de servicios para pasar información dentro del mismo servidor?, ¿sabiendo que ese Servicio sólo lo usaremos nosotros?, Nuevamente este es un problema de moda, recomendar el uso de WCF sin conocer el escenario puede ser un problema que finalmente terminan sufriendo los desarrolladores duplicando la comunicación, cuando no hay un entorno distribuido y cuando nadie más que nosotros va a usar el servicio. Esto no quiere decir que no debamos usar WCF, debemos usarlo pero cuando la infraestructura lo necesite o cuando necesitemos que terceros se comuniquen con nuestra fuente de datos, y no por que en todos lados hablan de Servicios, Web Services, o WCF. Leer también este artículo de elBruno: la arquitectura de la cebolla, del mismo podemos acotar la siguiente frase: “aplicar la solución correcta al problema específico, y que cuando el mismo cambie o evolucione, en ese momento cambiemos o evolucionemos nuestra solución”

  Y para cerrar, ya mencionamos algunas opciones para poder integrar sistemas, en los siguientes post vamos a desarrollar el uso de intercambio de archivos para carga masiva de información.

  Saludos,

  

El blog tecnológico de Blag.

• 

  Blag's Flex 3 compiler - Edición ejecutable

  Posted: 24 May 2009, 3:20am CEST

  
  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.
  

Radical Python

• 

  Eliminar archivos duplicados en el PC

  Posted: 16 May 2009, 8:05pm CEST by RadicalEd

  import hashlib, sys, os #Esta funcion detectara el hash MD5 del archivodef sabersiya(archivo):....archi = open(archivo)....cabeceramd5 = hashlib.md5(archi.read()).hexdigest()....archi.close()....return cabeceramd5 todo = os.walk(sys.argv[1])#Diccionario para guardar los datosdic = {}#Esta variable sera el nombre de los indicesx = 0#Recorremos el arbol de directorios#todo = os.walk('.')for path, dirname, filename in todo:....for x in filename:........var = '%s/%s' % (path, x)........dic[var] = sabersiya(var)........#Verificamos que sea el mismo hash, pero diferente clavefor h in dic:....for hh in dic:........if dic.get(h) == dic.get(hh) and h != hh:............#print '%s/%s --> %s/%s' % (h, dic.get(h),hh, dic.get(hh))............try:................#Eliminamos el archivo................os.remove('%s' % (hh))................print 'El archivo eliminado fue %s' % (hh)............except:................pass

  
  

  

El blog tecnológico de Blag.

• 

  Shoes y SAP

  Posted: 14 May 2009, 9:36pm CEST

  
  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)

  Posted: 14 May 2009, 9:21pm CEST

  
  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

  Posted: 14 May 2009, 9:08pm CEST

  
  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.
  

{ Radamanthys }

• 

  Obtener un arreglo sin valores duplicados

  Posted: 24 April 2009, 3:43am CEST by shakka

  Buscando la forma mas simple de generar un arreglo a partir de otro, pero sin tomar en cuenta los valores repetidos de este ultimo, siempre me topaba con array_unique().

  print_r(array_unique($orders));

  Array
  (
      [0] => 135
      [2] => 136
      [3] => 138
  )

  Que si bien es cierto, me devolvia un arreglo con valores unicos, aun me faltaba regenerar el indice(necesitaba que iniciara de 0 en incrementara en 1).

  Al final, me tope con esta forma.

  print_r(array_keys(array_count_values($orders)));

  Donde $orders es un arreglo compuesto de la sgte. forma:

  $orders = array('135', '135', '136', '138', '138', '138', '136');

  Lo que sucede aqui, es que array_count_values($orders) me duvuelve un arreglo, con un indice, el cual sera cada valor encontrado en $orders y su correspondiente valor sera la cantidad de ocurriencias encontradas, es decir:

  Array
  (
      [135] => 2
      [136] => 2
      [138] => 3
  )

  Posteriormente, le paso este nuevo arreglo a array_keys(), quien me generara otro nuevo arreglo, con indice numerico, inicializado a partir de cero, que incrementara en 1, y su valor seria cada clave(indice) del arreglo pasado como paremetro (lo que realmente necesitaba).

  Array
  (
      [0] => 135
      [1] => 136
      [2] => 138
  )

Radical Python

• 

  He volvido

  Posted: 05 April 2009, 8:09pm CEST by RadicalEd

  Si buenas, a todos los que leen mi blog, por aquí reapareciendo desde casí 2 meses desaparecido, lo que prometí en mi último post creo que no lo podré hacer ya que no estudíe mucho sino que me la pasé de vago; algo bueno para resaltar es que no sé como madres tengo un PageRank de 2 jejeje al parecer google debe estar equivocado :P.
  
  Bueno prometo colocar posts pero en estos días no tan amenudo ya que estoy un poquito perdido en otras vainas.
  
  Cuidense Chao