Tipos de datos PowerBuilder

PowerBuilder tiene los siguientes tipos de datos

Tipos de datos estándar

Tipo Dato	Descripción
Blob	Almacena cantidades ilimitadas de datos, por ejemplo, binario genérico,  imagen, archivo, etc.
Boolean	Tipo de dato lógico, puede contener dos valores, verdadero o falso.
Char or character	Contiene un carácter ASCII, por ejemplo: char c c=’T’
Date	Contiene datos de fecha, Incluye del año 1000 al 3000. Por ejemplo. 25-12-2010
DateTime	Contiene datos de fecha y hora, por ejemplo. 25-12-2010 10:05:00 PowerBuilder soporta microsegundos.
Decimal or Dec	Numero decimal con un máximo de 18 dígitos, puede colocar el punto decimal dentro de los 18 dígitos. Por ejemplo. 9.25632541254745214 123456789.365987452
Double	Numero con punto flotante, con 15 dígitos de precisión y un rango de 2.2250738585073E-308 a  1.79769313486231E+308
Integer or Int	Entero de 16 bit con signo, con rango de -32768 a +32767
Long	Entero de 32 bit con signo, con rango de -2147483648 a +2147483647
LongLong	Entero de 64 bit  con signo, con rango de -9223372036854775808 a 9223372036854775807
Real	Signo con punto flotante con seis dígitos de precisión y un rango de 3.402822E-38 a 3.402822E+38
String	Cadena de caracteres con longitud de 0 a 2147483647
Time	La hora en formato de 24 Horas, horas de 00 a 23, minutos de 00 a 59, segundos de 00 a 59, y la fracción de segundos hasta 6 dígitos, por ejemplo.
UnsignedInteger, UnsignedInt, or UInt	Entero de 16 bit sin signo, con rango de 0 a 65535
UnsignedLong or ULong	Entero de 32 bit sin signo, con rango de 0 a 4294967295

  

Tipo de Dato Any

El tipo de dato Any puede contener cualquier tipo de valor, incluyendo los tipos de datos estándar, objetos, estructuras y arrays. A este tipo de dato Any se le llama tipo de dato camaleón, porque toma el tipo de dato del valor asignado.

El tipo de dato Any se declare de la misma forma que los tipos de datos estándar.

Cambiar contraseña de inicio de sesión SQL Server

Para cambiar la contraseña de un inicio de sesión de SQL Server ejecutamos el siguiente procedimiento almacenado sp_password.

Argumentos:
@old : Es la contraseña antigua.
@new: Es la nueva contraseña.
@loginame:  Es el nombre de inicio de sesión.


Observaciones:

La contraseña puede contener de 1 a 128 caracteres.
La contraseña se almacena de forma cifrada en el campo password de la tabla sysxlogins de la Base Datos master.

sp_password @old = '123456', @new = 'elmer84', @loginame ='sa'

Si no se especifica el parámetro @loginame  se cambia el nombre de sesión con el cual estamos logueado.

Pasar datos de una ventana a otra usando objeto estructura

Pasar datos de una ventana a otra, se puede realizar de muchas maneras, una de ellas es usando estructura de datos.

Para el ejemplo pasaremos datos de un trabajador de la Ventana 1 a la Ventana 2.

Para ello creamos previamente la estructura a utilizar.

La estructura a crear es st_trabajador, el cual tendrá código, nombre y sueldo mensuales recibidos por el trabajador, el cual se almacenara en el array sueldos_anno.

Objeto Estructura

Ventana 1

Creamos la Ventana 1 y agregamos los siguientes objetos:

• sle_codigo
• sle_nombre
• sle_enero
• sle_febrero
• sle_marzo
• cb_pasar_datos

      El diseño quedaría de la siguiente manera:

Ventana 1

En el evento clicked del botón cb_pasar_datos ingresamos el siguiente código:

//Instanciamos estructura st_trabajador

st_trabajador st_trabajador_parametro

//cargamos los datos para las variables de la estructura

st_trabajador_parametro.codigo=sle_codigo.text

st_trabajador_parametro.nombre=sle_nombre.text

//Carga variable array

st_trabajador_parametro.sueldos_anno[1]=dec(sle_enero.text)//Enero

st_trabajador_parametro.sueldos_anno[2]=dec(sle_febrero.text)//Febrero

st_trabajador_parametro.sueldos_anno[3]=dec(sle_marzo.text)//Marzo

//Abrimos Ventana 2 enviando como parametro la estructura

OpenWithParm(w_ventana2,st_trabajador_parametro)

Evento Clicked - cb_pasar_datos

Ventana 2 

Creamos la Ventana 2  y agregamos los siguientes objetos:

• sle_codigo
• sle_nombre
• sle_suma_sueldos 

Ventana 2

En el evento open de la Ventana 2 ingresamos el siguiente código:

//Instanciamos estructura st_trabajador

st_trabajador lst_trabajador_parametro

/*message.powerobjectparm => almacena la referencia del objeto pasado como parametro.

Usamos message.powerobjectparm porque el parametro pasado es un objeto.*/

//Cargamos el paramatro a la instancia lst_trabajador_parametro

lst_trabajador_parametro=message.powerobjectparm

//Obtenemos los datos

sle_codigo.text=lst_trabajador_parametro.codigo

sle_nombre.text=lst_trabajador_parametro.nombre

//Obtenemos los datos del array

sle_suma_sueldos.text=string lst_trabajador_parametro.sueldos_anno[1] & + lst_trabajador_parametro.sueldos_anno[2] & + lst_trabajador_parametro.sueldos_anno[3],"###,##0.00")

Evento open Ventana 2

Objeto Application 

En el evento open del objeto application ingresamos el siguiente código

open(w_ventana1)

Ejecución


 Ejecutamos la aplicación.

Ventana 1

Ventana 2

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.

Función para encriptar y desencriptar cadena de texto

Dejo el código para encriptar y desencriptar una cadena de texto.

Para esto creamos dos funciones, una que encripta y otra que desencripta el texto.

Función 1: f_encripta(as_origen)

String vls_char, vls_result String vls_str1, vls_str2 int    j vls_str1 = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz1234567890/" vls_str2 = "zaq1xsw2cde3vfr4bgt5nhy6mju7ki8lo9ñp0ZAQXSWCDEVFRBGTNHYMJUKILOÑP&" vls_result = "" FOR j=1 TO len(a_origen)             vls_char = mid(a_origen,j,1)       vls_result += mid(vls_str2, pos(vls_str1, vls_char), 1) NEXT RETURN vls_result

f_encripta

Función 2: f_des_encripta(a_origen)

String vls_char, vls_result String vls_str1, vls_str2 int    j vls_str2 = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz1234567890/" vls_str1 = "zaq1xsw2cde3vfr4bgt5nhy6mju7ki8lo9ñp0ZAQXSWCDEVFRBGTNHYMJUKILOÑP&" vls_result = "" FOR j=1 TO len(a_origen)             vls_char = mid(a_origen,j,1)       vls_result += mid(vls_str2, pos(vls_str1, vls_char), 1) NEXT RETURN vls_result

f_desencripta