A modo de desván de los recuerdos de nuevo, dejo aquí el código para poder crear en SAP un juego de poker en el que utilizaremos unas cuantas dynpros y tablas de diccionario.
El código ha sido creado en gran parte por Christian García Hernanz y en menor parte por mí.
Intentaré que sea lo mas legible posible, pero es necesario tener conocimientos de sap y abap para entender como hacerlo funcionar.
El programa se compone de un report con selection screen, top y form, y cuenta con 4 screens con sus respectivas modulos PBO, PAI y sus forms.
Desde la carpeta que os comparto en drive a continuación, también podéis ver el diseño de las tablas de diccionario y también el diseño de las screens.
El juego nos permite tener en un servidor el programa y conectarnos con varios usuarios. Permite un uso "online" entre usuarios y "multisesion" en el cual podemos crear partidas nuevas y unirnos a las de otros.
Si dejamos el listbox vacío y elegimos una cantidad de jugadores, al ejecutar el programa nos creará nueva partida, en cambio si seleccionamos una partida en el listbox se unirá a ella. Y el botón "buscar partida" lo que hace es refrescar el listbox.
Al empezar la partida el juego nos mostrará nuestra mano, asi como los demas jugadores de la partida con su efectivo y su apuesta.
Podemos ver que la apuesta inicial es siempre de 10 € y podemos ver la apuesta de los demas jugadores, subir una nueva apuesta o pasar.
Tras estos pasos llegará la fase de descartes, donde con ayuda de unos checkbox podremos seleccionar las cartas a descartar.
Despues tendremos una nueva ronda de apuestas.
Y tras la última ronda de apuestas se nos mostrarán los resultados con el ganador de la partida.
(Las imágenes de las cartas tendréis que introducirlas manualmente desde la transaccion SE78, tendréis que conseguirlas vosotros)
La carpeta compartida de drive está aquí.
You can check the code here.
