Guía de las mejores prácticas de Clarion (Por Cristian Olsen)

Guía de las mejores prácticas de Clarion

De ClarionWiki

Saltar a: navegación, buscar

(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