Guia de las mejores prácticas de Clarion

De ClarionWiki
Ir a la navegación Ir a la búsqueda

(Por Cristian Olsen)

Tipos de Campos

Acordarse siempre que lo que define el almacenamiento es la opción Characters, la opción Picture es solo como se va a mostrar

Clarion Que se puede almacenar

  • Byte (de 1 a 99)
  • Short (de 1 a 9,999)
  • Long (de 1 a 999,999,999)
  • Decimal (de 1 a 9,999,999,999,999,999,999,999,999,999,999)
  • String (de 1 a 4 Mega-Bytes)

Para guardar hasta 99,999.99 se define un campo del tipo Decimal con un character de 7 decimal 2 picture @N9.2

Para campos alfanuméricos grandes se puede usar CSTRING pero en characters hay que poner uno más del que se quiere almacenar

Pictures para Fecha y Hora

  • @D6 DD/MM/YYYY
  • @D17 Fecha corta según formato Windows
  • @D18 Fecha larga según formato Windows
  • @T1 HH:MM
  • @T4 HH:MM:SS
  • @T7 Hora corta según formato de Windows
  • @T8 Hora larga según formato de Windows

Para todos los pictures si se especifica B esto hará que cuando el campo es cero se muestre blanco (@D6B), otros ejemplos comunes son

  • @N10 <<,<<<,<<<# Ejemplo de CUIT
  • @N_10 <<<<<<<<<# Decimal 11 Picture @P##-########-#P
  • @N010 ########## los guiones nunca son almacenados

Para el ingreso de datos la forma mas sencilla es la siguiente

Campos Entry Mode
Numéricos Insert
Fecha Overwrite
String Overwrite

Relación tipos de campos entre Clarion y MS-SQL Server

CLARION MS-SQL SERVER
Byte Bit (de 0 a 1)
Byte Tinyint (de 1 a 99)
Short SmallInt (de 1 a 9,999)
Long Int (de 1 a 999,999,999)
Decimal Decimal (999.99 se define como: (pres 5 esc 2)
String Char
CString VarChar
Date DateTime (Fecha y Hora)
Time DateTime (Fecha y Hora)

Para un buen funcionamiento de las aplicaciones todos los índices deben ser Únicos y los campos se deben definir sin el atributo NULL

Manejo de Tablas

Acceso a un registro

 CLEAR(TBL:RECORD)
 TBL:CAMPO = XXXXX
 IF Access:TABLA.Fetch(TBL:CLAVE) = LEVEL:BENIGN
    !El registro existe
 ELSE
    !El registro no existe
 END

Insertar un registro

 CLEAR(TBL:RECORD)
 TBL:CAMPO = XXXXX
 IF Access:TABLA.Insert() <> LEVEL:BENIGN
    ! Error al crear el registro

Cambiar un registro

 CLEAR(TBL:RECORD)
 TBL:CAMPO = XXXXX
 IF Access:TABLA.Fetch(TBL:CLAVE) = LEVEL:BENIGN
    TBL:CAMPO = XXXXX
    IF Access:TABLA.Update() <> LEVEL:BENIGN
       !Error al actualizar el registro
    END
 END

Borrar un registro

 CLEAR(TBL:RECORD)
 TBL:CAMPO = XXXXX
 IF Access:TABLA.Fetch(TBL:CLAVE) = LEVEL:BENIGN
    Access:TABLA.DeleteRecord() !Alternativa 1
    Relate:TABLA.Delete(0) !Alternativa 2
    Delete(TABLA) !Alternativa 3
 END

Lectura secuencial

 CLEAR(TBL:RECORD)
 TBL:CAMPO = XXXXX
 SET(TBL:CLAVE,TBL:CLAVE)
 LOOP Until Access:TABLA.Next() OR TBL:CAMPO <> XXXXX
    !!!!
 END

Igualar los registros de dos tablas

  TB1:RECORD :=: TB2:RECORD  :=: es una igualación en profundidad
  Esta instrucción iguala solo los campos que se llamen igual en ambas tablas independientemente de la posición de cada uno de ellos

Antes de abrir la ventana como saber si en el Form estoy en modo ADD-CHANGE-DELETE-VIEW

Window Manager - Init - Open the window (PR-8000)

 IF SELF.Request = InsertRecord
 IF SELF.Request = ChangeRecord
 IF SELF.Request = ViewRecord
 IF SELF.Request = DeleteRecord
 La última instrucción solo es valida siempre que el Form muestre el registro a borrar 

Agregar código antes que el Form realice el ADD-CHANGE-DELETE

Window Manager - TakeCompleted (PR-5000)

 IF SELF.Request = InsertRecord
 IF SELF.Request = ChangeRecord
 IF SELF.Request = DeleteRecord 

Agregar código después que el Form realizo el ADD-CHANGE-DELETE exitosamente

Window Manager - TakeCompleted (PR-5001)

 IF ReturnValue = Level:Benign
    IF SELF.Request = InsertRecord
    IF SELF.Request = ChangeRecord
    IF SELF.Request = DeleteRecord 
 La última instrucción solo es valida siempre que el Form muestre el registro a borrar

Como salir un procedimiento antes de abrir la window

 RETURN Level:Fatal

Donde colocar código para hacer una validación en un campo en un procedimiento del tipo Form

Control Events – Accepted – Generated Code (PR-7000)

 IF Condicion
    BEEP	
    MESSAGE('Texto del Error','Texto de la Ventana’,&|
          ICON:Exclamation,BUTTON:Cancel,BUTTON:Cancel,1)
    SELECT(?)
    CYCLE
 END   

Si quiero tomar control de los botones del cuadro de mensajes

 CASE MESSAGE('Texto del mensaje’,’Texto de la Ventana’,&|
             ICON:Question,BUTTON:Yes+BUTTON:No,BUTTON:No,1)
    OF BUTTON:No
       SELECT(?)
       CYCLE
    OF BUTTON:Yes
 END

Como forzar la validación de un campo

Control Events – Selected – Generated Code (PR-4000)

 ?CAMPO{PROP:Touched} = TRUE

Como saber en la validación de un campo si se esta pasando cuando se presiono el botón OK

 IF NOT ThisWindow{PROP:AcceptAll} o 
 IF NOT (Nombre de Ventana){PROP:AcceptAll}

Como saber si luego de que un control del tipo Field LookUp que accedió a un browse para validar se le dio Select

 IF GlobalResponse = RequestCompleted

Como colocar código en un Browse para cada registro leído

Local Objects – Browse on Tabla – SetQueueRecord (PR-2500)

Como filtrar un Browse antes de mostrarlo

Se puede hacer por record filter Si es mas complejo se puede hacer en

Local Object – Browse on Table – InitSort (PR-10000)

 IF Condicion = 1
    BRW1.SetFilter('(TCON:CVP_B <> 0)')
    BRW1.ApplyFilter()
 END

Como filtrar un registro en un Browse o Reporte antes que se muestre

Local Objects – Browse on Tabla – ValidateRecord (PR-4500)

 IF Condition THEN RETURN Record:Filtered;END

Como controlar desde un Browse justo antes de llamar a un Form

Local Object – Browse on Table – Ask(Byte Request) (PR-4999)

 IF Request = InsertRecord

Como abrir una tabla en modo exclusivo

Colocar la tabla en OTHER TABLE

Window Manager - Init – Open Files (PR-7501)

 Relate:TABLA.Close
 Access:TABLA.SetOpenMode(12h);Relate:TABLA.Open
 Relate:TABLA.Close

O También abrir la tabla en modo exclusivo

Como ordenar una tabla para luego imprimirla en ese orden en un reporte

OpenReport – Code (PR-5000)

 ThisReport.SetOrder('TBL:CAMPO1',TBL:CAMPO2’,’-TBL:CAMPO3’)
 ThisReport.ApplyOrder()

CAMPO1 Y 2 en orden ascendente CAMPO3 en orden descendente

Como filtrar una tabla para luego imprimirla sin esos registros en un reporte

OpenReport – Code (PR-5000)

 ThisReport.SetFilter('TBL:CAMPO1 = XXXX’)
 ThisReport.ApplyFilter()

Tanto para el Order como para el Filter los campos a utilizar si no están pintados en el reporte tienen que estar definidos como HOT FIELDS

Como manejar un Browse con una clave compuesta por más de un campo e ir refrescándolo por cada cambio en esos campos

Clave de la Tabla

  • Empresa
  • Cliente
  • Fecha

Colocar en Range Limit siempre el último campo de la clave que se quiere limitar, en este caso Cliente

Si se cambia la Empresa colocar

 TBL:Empresa = GLO:Empresa
 BRW1.AddRange(TBL:Empresa)
 BRW1.ApplyRange()
 ThisWindow.Reset(True)

Si se cambia el Cliente colocar

 TBL:Cliente = GLO:Cliente
 BRW1.AddRange(TBL:Cliente)
 BRW1.ApplyRange()
 ThisWindow.Reset(True)

Como refrescar un Browse

 SETCURSOR(CURSOR:WAIT)
 BRW1.ResetFromFile()
 BRW1.ResetFromBuffer()
 ThisWindow.Reset(True)
 SETCURSOR

Como ordenar un Browse antes de abrir la ventana

Local Objects – Browse on Tabla – InitSort (PR-10000)

 BRW1.SetOrder('TBL:CAMPO')

Como agregar otro ítem al PopUp menú de ABM del browse

Agregar un botón debajo de los estándar ADD-CHANGE-DELETE con atributo Hide

Window Manager - Init – Prepare Alert Key (PR-9001)

 BRW1.PopUp.AddItemMimic('Texto',?Boton)

Como borro un boton de update en ABM del browse

Window Manager - Init – Open the Window (PR-8000)

 BRW4.DeleteControl = 0

Como pararse en un browse de entrada en distintas partes

Window Manager - Init - (PR-9000)

 POST(Event:ScrollUp,?Browse)		! subir un registro
 POST(Event:ScrollDown,?Browse)	! descer un registro
 POST(EVENT:ScrollTop,?Browse)		! primer registro
 POST(EVENT:ScrollBottom,?Browse)	! ultimo registro

Para apretar un botón desde la lógica

 POST(EVENT:ACCEPTED,?Boton)

Colas en memoria (Queue)

Para recorrer toda una cola

 LOOP Q# = 1 TO RECORDS(COLA) BY 1;GET(COLA,Q#)
   !Codigo
 END
 GET(COLA,CAMPO)	Busca un registro (El campo a buscar tiene que ser de la cola previamente igualado)
 ADD(COLA)		Inserta un registro
 PUT(COLA)		Modifica un registro
 DELETE(COLA)	Borra un registro

Bloquear una Tabla

 AUX:TABLA_UseLogOut = Relate:A_STOPRO.UseLogOut
 Relate:TABLA.UseLogout = FALSE
 LOOP;LOGOUT(1,TABLA);UNTIL ERRORCODE() = 0
   !Mi código
 COMMIT
 Relate:TABLA.UseLogOut = AUX:TABLA_UseLogOut

Validación de campos en Browse EIP

Local Object – EIP Manager for browse using ?Browse:1 – Take Completed (BYTE Force) (PR-4999)

 IF BRW1.Q.TBL:CAMPO <> 1
    Return
 END

Poner disable un campo del EIP por una condición

Local Object – EIP Manager for browse using ?Browse:1 – GetEdit (PR-5001)

 IF SELF.Req = ChangeRecord AND Self.Column = 1 AND TBL:MARCA <> 'E'
    ReturnValue = FALSE
 END

Agregar código antes que el EIP realice el ADD-CHANGE-DELETE

Local Object – EIP Manager for browse using ?Browse:1 – TakeCompleted Force (PR-4999)

  IF SELF.Request = InsertRecord
  IF SELF.Request = ChangeRecord
  IF SELF.Request = DeleteRecord
     BRW1.Q.COU:DESCRIPTION = CLIP(UPPER(BRW1.Q.COU:DESCRIPTION))

Agregar código después que el EIP realice el ADD-CHANGE-DELETE Local Object – EIP Manager for browse using ?Browse:1 – TakeCompleted (PR-5001)

IF ReturnValue = Level:Benign

  IF SELF.Request = InsertRecord
  IF SELF.Request = ChangeRecord
  IF SELF.Request = DeleteRecord