domingo, 18 de enero de 2009

Standard Visual - User Object

Los Standard Visual - User Object heredan caracteristicas de un control standar de PowerBuilder.

Creando un Standard Visual - User Object

Para crear un Standard User Object, presionamos click en el icono New del PowerBar y escogemos Standar Visual del Tab PB Object.

Creando un CommandButton User Object

Escogemos CommandButton

Nota: Es muy común usar CommandButton's en nuestras apliaciones, entonces para dar un ejemplo de herencia en PowerBuilder crearemos un CommandButton User Object base o ancestro con nombre u_cb.

Lo sgte que tenemos que hacer es heredar del objeto u_cb (Standard Visual CommandButton Ancestro), buscamos el objeto u_cb, le da damos click derecho y elegimos Inherit.

Luego Crearemos el CommandButton Guardar, que va ser descendiente de la clase u_cb

Y asi sucesivamente creamos los CommandButton's que nuestra aplicación necesite ejemplo: "Nuevo, Eliminar, Imprimir, Modificar, Eliminar, Cerrar, etc"

User Object

Una de las principales características de la programación orientada a objetos es la reutilización. En una aplicación, que normalmente tiene una selección de controles u objetos, que fundamentalmente realizan la misma tarea, dispersos en todo el diseño.

Existen dos tipos de User Object:

1 - Visual User Objects

  • Custom Visual
  • External Visual
  • Standard Visual

2 - No Visual(Class)

  • Custom Class
  • Standard Class

Background Color

Seleccionamos los campos que deseamos cambiar de color, en Propiedades buscamos el Tab Font y en Background Color en el boton que esta a lado le damos click:

Al dar le click nos mostrara la sgte ventana, digitamos lo sgte:

if ( getrow() = currentrow() , rgb(192, 192, 192) , rgb(255, 255, 255) )

Click en Verify, para verificar si es codigo ingresado es correcto y si es asi click en OK, listo eso es todo.

Desactivar una columna en DataWindow

0 - Falso, la columna no esta protegida.
1 - Es cierto, la columna está protegida.

Sintaxis:

dw_control.Object.columnname.Protect

Ejemplo:

dw_1.Object.num_doc.Protect = 1

Ó

dw_1.Modify("num_doc.Protect=1")

DataWindow Edit Format (dd/mm/yyyy)

En las propiedades del campo tipo fecha (Datetime) del DW, buscamos el Tab Edit y en las propiedades colocamos :

Style Type : EditMask
Mask: dd/mm/yyyy

Desplegando o creando archivos ejecutables

En este post explicare la forma mas practica que utilizo para desplegar o crear archivos ejecutables (PBD's, PowerBuilder Dynamic Libraries):

1 - Para crear los PBD's o archivos ejecutables, tenemos que crear un objeto Project.

2 - Ya creado el objeto Project, en el Painter del mismo:

  • 1: Executable File Name, Nombre del Archivo Ejecutable
  • 2: Rebuild, elegir Full
  • 3: Activar los PBL's que seran PBD's
Painter del Objeto Project

3 - Realizado todo lo anterior en el PowerBar dar click al icono Desploy para generar los PBD's

Espero sea de utilidad, cualquier duda o comentario solo escriban que gustoso respondere.