Tutorial PowerBuilder Fundation Class - Parte 3

Nuestra Primera aplicación en PowerBuilder PFC.
 
En las siguientes partes de este tutorial de PowerBuilder Fundation Class veremos los pasos para configurar, ejecutar y crear una aplicación usando PFC.

Para poder seguir el tutorial y usar ejemplos prácticos, se desarrollara un pequeño sistema de ventas de artículos, el cual contara con mantenimiento de tablas maestras, cliente, artículos; Generación de comprobante de venta, Boleta o Factura y creación de reportes de ventas. Para ello haremos uso intensivo de los servicios que nos brinda PFC.

Primeros Pasos:

1. Creamos nuestro Workspace y nuestro objeto Application.
2. Para efectos del tutorial se creara el Workspace y el objeto Application con el nombre demoventas.
3. Añadimos las librerías PFC a nuestro target:
   
   PFCAPSRV.PBL
   
   PFCDWSRV.PBL
   
   PFCMAIN.PBL
   
   PFCUTIL.PBL
   
   PFCWNSRV.PBL
   
   PFEAPSRV.PBL
   
   PFEDWSRV.PBL
   
   PFEMAIN.PBL
   
    PFEUTIL.PBL 

Objeto de usuario n_cst_appmanager

n_cst_appmanager es el gestor de la aplicación y funciona como sustituto del objeto Application. Este objeto contiene muchas funciones útiles así como referencia a variables para los servicios de aplicación.

n_cst_appmanager entre otras cosas nos permite conectarnos a la Base de Datos y definir los servicios que tendrá nuestra aplicación. Este objeto lo encontramos en la librería PFEAPSRV.PBL, la cual contiene los servicios de Aplicación.

n_cst_appmanager

La clase ancestro de n_cst_appmanager es pfc_ncst_app_manager, en la siguiente imagen se puede apreciar la jerarquía de herencia para la clase n_cst_appmanager.

Instanciando n_cst_appmanager

La mejor manera de hacer uso de la clase n_cst_appmanager  es creando un objeto descendiente del mismo, en el cual se agregara el código para personalizar nuestra aplicación.

Para efectos del tutorial  usaremos y modificaremos directamente la clase n_cst_appmanager, pero ¡cuidado!, no modificar la clase ancestro pfc_n_cst_appmanager.

1. Definimos una variable global llamada gnv_app, que se lee Global No Visual Application, esta variable será del tipo n_cst_appmanager.
   
   

   n_cst_appmanager   gnv_app

   
   
   
2. En el evento Open de nuestro objeto Application instanciamos la clase n_cst_appmanager e invocamos al evento pfc_Open.
   
   

   gnv_app = CREATE n_cst_appmanager gnv_app.Event pfc_Open(commandline)

   
   
   
3. En nuestro objeto Application, en la pestaña General, abrimos la ventana de preferencias Additional Properties y modificamos el valor de SQLCA, por n_tr, y el de Message, por n_msg.

Configurando nuestra aplicación.

Ahora codificamos el objeto n_cst_ appmanager para que se ajuste a nuestro propósito, para ello haremos uso de las variables de instancia e inicializaremos algunos servicios.

1. En el evento constructor de n_cst_appmanager agregamos el siguiente código.
    

/*El objeto ContextInformation, provee de informacion referente a la aplicacion que esta ejecutandose como Numero de Versión, Nombre de la Compania, Nombre del Ejecutable, etc.*/ ContextInformation lcx_Aplicacion int   li_version_mayor,li_version_menor date ld_ahora ld_ahora = Today() /*Obtiene la version*/ GetContextService ( 'ContextInformation', lcx_Aplicacion ) lcx_Aplicacion.GetMajorVersion(li_version_mayor) lcx_Aplicacion.GetMinorVersion(li_version_menor) /*Establece el nombre de la aplicación*/ iapp_object.displayname = 'Demo Sistema Ventas - Tutorial PFC' /*Activa el servicio Microhelp*/ of_SetMicroHelp ( True ) /* Establece el nombre del archivo de ayuda. Poner esto solo si se dispone de la ayuda correspondiente.*/ of_SetHelpFile ( 'ayuda.hlp' ) /* Establece la versión  de la aplicacion*/ of_SetVersion ( 'Version ' + String ( li_version_mayor ) + '.' + String ( li_version_menor ) + '.00' ) /* Establece el logo de la aplicacion*/ of_SetLogo ( 'DemoVentas.bmp' ) /* Establece el mensaje de copyright*/ of_SetCopyRight ( 'Copyright (c) 2011-' + String ( Year ( ld_ahora ), '0000' ) + ' Demo Sistema Ventas' ) /*Activa el servicio de preferencia de la aplicacion*/ of_SetAppPreference ( True ) If IsValid ( inv_apppref ) Then       inv_apppref.of_SetRestoreApp ( False )       inv_apppref.of_SetRestoreUser ( True )       inv_apppref.of_SetUserKey ( of_GetUserKey (  ) ) End If /*Establece el nombre del archivo INI*/ of_SetAppIniFile('conexion.ini')

2. Creamos la ventana principal, el cual será heredado del objeto w_frame, que se encuentra en la librería PFEMAIN.PBL. A esta nueva ventana la llamaremos w_principal_ventas.
   
   
3. Codificamos el evento pfc_open del objeto n_cst_appmanager. En este evento mostraremos una venta splash, y activaremos los servicios de registro de transacciones y de mensajes de error. Seguidamente abriremos la ventana principal de nuestra aplicación.
   
   
   

   //Muestra el la ventana Splash of_Splash(1) /*Este servicio es util cuando se utiliza más de un objeto de transaccion, al usar el servicio se consigue que al cerrar la aplicacion todos los objetos transaction se cierren y destruyan*/ of_SetTrRegistration(TRUE) //Inicia el servicio de mensajes de error. of_SetError(TRUE) //Abrimos la ventana principal Open(w_principal_ventas)

    
   
   
4. Al invocar la ventana  w_principal_ventas, en el evento open invocaremos la función gnv_app.of_logondlg() , la cual mostrara la ventana de Login para ingresar el usuario y contraseña, para conectarnos a la Base de Datos.
   
   En el evento open de la ventana w_principal_ventas ingresamos el siguiente código.
   
   
   

   integer li_return //Invocamos la ventana de Login para la validacion de Ingreso li_return= gnv_app.of_logondlg() If li_return=1 Then       SetMicroHelp("Validación de Ingreso Correcta") Else       messagebox(gnv_app.iapp_object.DisplayName,"Validación de Ingreso Incorrecta", StopSign!)       Close(This)       Return End If

   
    El código invoca la ventana de Login para el ingreso de las credenciales de conexión, seguidamente al hacer clic en aceptar invoca al evento pfc_logon del objeto n_cst_appmanager.
   
   
   
5. En el evento pfc_logon del objeto n_cst_appmanager ingresamos el siguiente código.
   
   
   

   String ls_inifile //Recupera el nombre del archivo INI ls_inifile = gnv_app.of_GetAppIniFile() //SQLCA.of_Init, inicia los valores registrados en el archivo INI, como el DBMS, SERVERNAME, DATABASE, If SQLCA.of_Init(ls_inifile, "Login") = -1 Then       This.inv_error.of_message(gnv_app.iapp_object.DisplayName, + &                   "Error iniciando los valores de conexión, .INI no encontrado.")       Return -1 Else       //Setea los datos del usuario y contraseña ingresados       SQLCA.of_setlogidandpassword(as_userid,as_password)              If SQLCA.of_Connect() = -1 Then             This.inv_error.of_message(gnv_app.iapp_object.DisplayName, + &                         "Error conectando a la Base Datos.", StopSign!, OK!)             Return -1                          Else             Return 1       End If End If

   
   
   El código obtiene los datos de conexión del archivo INI, y seguidamente realiza la conexión usando las credenciales ingresadas en la ventana de Login.
   

Llegado a este punto, tenemos nuestra aplicación con su respectiva ventana Login y su ventana principal.

Como se puede observar las librerías PFC nos ahorran mucho trabajo de codificación para construir herramientas de calidad.

Si desea puede descargar las fuentes de la aplicación con lo avanzado hasta el presente tutorial.