ClarionWiki - Contribuciones del usuario [es]

Comunidad Clarion

2017-11-15T11:31:38Z

Jorge Brugger: /* Bases de conocimiento gratuitas */

== Soporte ==

=== Grupos de noticias ===

[news://news.softvelocity.com/softvelocity.clarion.intl.spanish Grupo de soporte oficial en Español]

Server: news.softvelocity.com

Grupo: softvelocity.clarion.intl.spanish

=== Skype Chat Clarioneros ===

[https://join.skype.com/w0yUGoFhHyA2 Chat Clarioneros]

=== Foro Clarioneros ===

[http://www.clarioneros.com www.clarioneros.com]

=== Webinarios Clarioneros en Español ===

[http://www.clarioneros.net www.clarioneros.net]

=== Clarionhub (en inglés) ===

[http://www.clarionhub.com www.clarionhub.com]

== Bases de conocimiento gratuitas ==

[http://www.icetips.com/articleindex.php Icetips Articles]

[http://www.nettalkcentral.com/ Sitio web de soporte de Nettalk de Capesoft]

[http://www.ClarionLive.com/ ClarionLive (Webinars y tutoriales muy útiles)]

[http://www.templatesclarion.com.ar/download/ Manuales y Howto's de Clarion Templates (en español)]

[http://www.litreum.com/Categories ClarionFoundry]

== Repositorios de archivos ==

[http://www.icetips.com/ftp/ Icetips FTP]

[http://http://templatesclarion.com.ar/downloads/ Templates Clarion - Downloads]

[http://www.dasu.com.ar/clarion DASU]

Guia de las mejores prácticas de Clarion

2017-08-25T11:26:35Z

Jorge Brugger:

(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

Comunidad Clarion

2016-08-09T17:59:35Z

Jorge Brugger: /* Repositorios de archivos */

Comunidad Clarion

2016-08-09T17:58:13Z

Jorge Brugger: /* Bases de conocimiento gratuitas */

== Soporte ==

=== Grupos de noticias ===

[news://news.softvelocity.com/softvelocity.clarion.intl.spanish Grupo de soporte oficial en Español]

Server: news.softvelocity.com

Grupo: softvelocity.clarion.intl.spanish

=== Foro Clarioneros ===

[http://www.clarioneros.com www.clarioneros.com]

=== Clarionhub (en inglés) ===

[http://www.clarionhub.com www.clarionhub.com]

== Bases de conocimiento gratuitas ==

[http://www.icetips.com/articleindex.php Icetips Articles]

[http://www.nettalkcentral.com/ Sitio web de soporte de Nettalk de Capesoft]

[http://www.ClarionLive.com/ ClarionLive (Webinars y tutoriales muy útiles)]

[http://www.templatesclarion.com.ar/download/ Manuales y Howto's de Clarion Templates (en español)]

== Repositorios de archivos ==

[http://www.clariondeveloper.net/modules/wfdownloads/ ClarionDeveloper downloads]

[http://www.icetips.com/ftp/ Icetips FTP]

[http://www.par2.com/CWS/C5LAUNCH.DLL/D7.EXE.0 Par2.com Download Center]

[http://http://templatesclarion.com.ar/downloads/ Templates Clarion - Downloads]

[http://www.dasu.com.ar/clarion DASU]

Comunidad Clarion

2016-08-09T17:56:23Z

Jorge Brugger: /* Bases de conocimiento gratuitas */

== Soporte ==

=== Grupos de noticias ===

[news://news.softvelocity.com/softvelocity.clarion.intl.spanish Grupo de soporte oficial en Español]

Server: news.softvelocity.com

Grupo: softvelocity.clarion.intl.spanish

=== Foro Clarioneros ===

[http://www.clarioneros.com www.clarioneros.com]

=== Clarionhub (en inglés) ===

[http://www.clarionhub.com www.clarionhub.com]

== Bases de conocimiento gratuitas ==

[http://www.icetips.com/articleindex.php Icetips Articles]

[http://www.clariondeveloper.net/modules/smartfaq/ ClarionDeveloper FAQs]

[http://faq.clarionmag.com ClarionFAQ en Clarion Magazine]

[http://www.nettalkcentral.com/ Sitio web de soporte de Nettalk de Capesoft]

[http://www.ClarionLive.com/ ClarionLive (Webinars y tutoriales muy útiles)]

[http://www.templatesclarion.com.ar/download/ Manuales y Howto's de Clarion Templates (en español)]

== Repositorios de archivos ==

[http://www.clariondeveloper.net/modules/wfdownloads/ ClarionDeveloper downloads]

[http://www.icetips.com/ftp/ Icetips FTP]

[http://www.par2.com/CWS/C5LAUNCH.DLL/D7.EXE.0 Par2.com Download Center]

[http://http://templatesclarion.com.ar/downloads/ Templates Clarion - Downloads]

[http://www.dasu.com.ar/clarion DASU]

Recomendaciones

2015-03-08T20:06:46Z

Jorge Brugger: /* Video tutoriales acerca de Clarion */ Videos ya no están disponibles

'''Recomendaciones y Trucos que nos pueden evitar dolores de cabeza'''
= Versión Demo (básica) =
Poner este embed global en un par de tablas importantes
Global Embeds
Abc Objects
File Managers
File Manager for YourFile
Insert - Before Parent Call
IF RECORDS(SELF.FILE)> 10
MESSAGE('Demo Version')
RETURN LEVEL:FATAL
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

= Obtener un total general (al final) en un Reporte =
Lo mas facil es armar un break group sobre una variable que no cambie nunca,
(puede ser cualquier variable global, por ejemplo)
Luego pones los totales en un group footer de este break y listo.
Como la variable nunca cambia (puede ser una global por ejemplo) solo se
imprime el group footer al final del reporte.
Tambien podria usarse el Group Header de ese break como "caratula" del reporte
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

= Usar DLLs no creadas en Clarion =
Para Usar DLLs no creadas en Clarion, hay que seguir los siguientes pasos:
- Crear los prototipos equivalentes en Clarion
para esto hay que averiguar cuales son los prototipos originales (en c, por ej.)
y ver la equivalencia de tipos entre Clarion, C y o C++
- Usar el Libmaker para la creacion de una Clarion Library (.LIB File) para la DLL
- Incluir el .LIB File al proyecto

Para mas detalles, ver .\docs\FAQsTips&Tricks.pdf el tema "How to Use Windows DLLs NOT Created in Clarion".

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

= Modificar código en múltiples embeds, o varias tablas del DCT =
Se puede exportar la aplicación o el DCT a Texto (app.TXA) modificar el texto con un buen editor (yo recomiendo el textpad) y luego importar de nuevo.

Obviamente, hacer un backup primero porque esto es una opración "peligrosa"

En la sección de [http://www.templatesclarion/download/ Downloads] el documento de migración de TPS a SQL se basa en esta técnica para modificar el DCT.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

= Deshabilitar el PopUp en un control TEXT =
Simplemente asignar la Key MouseRight al control TEXT

= Desplegar una opción de menú desde un botón =
Pónle un hotkey al menu, por ejemplo:
Menu Text: &Browse
Luego en el botón
PRESSKEY(AltB)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

= Obtener los diferentes elementos del path =
Global Embeds - Inside Global Map
Include('clib.clw')

En el embed:
X# = FnSplit(LOC:Path,LOC:Drive,LOC:Dir,LOC:File,LOC:Ext)
DISPLAY

Las variables locales son todas CSTRING(256)
Por ejemplo para saber solo el nombre del archivo se usaria LOC:File & LOC:Ext

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

= Conversión de Archivos =
1) Tenés que tener un diccionario aparte, en principio vacio. Yo lo llamo
conversiones.dct.

2) Abrís ambos DCT. Te parás en la definición que querés convertir y
apretás "copiar". Te parás en el conversiones.dct y apretás "pegar". A
este archivo pegado lo renombrás con la fecha (por ejemplo, si mi archivo
a convertir se llama CLIENTES, en conversiones lo pego como CLIENTES_
050328).

3) Hacés todos los cambios que necesites en la definición de tu archivos
CLIENTES. Acá ya podés recompilar todo tu sistema.

4) Cerrá tu diccionario, dejá abierto Conversiones.dct. Seleccioná
"convert" el archivo, te pide el path al archivo y primero te hace un
"browse" sobre el mismo, de ahí seleccionás el menú "File", "Convert
File" y te abre una ventanita.

5) Acá, en target dictionary elegís tu DCT, el que tiene la definición
ahora modificada (Acordate que estás en el conversiones.dct).

6) En target structure, buscás en tu DCT el nombre del archivo
convertido.

7) En Generated source, tipeá algo que tenga sentido: yo voy numerando
mis programas conversores, así que voy poniendo algo como CONV0001,
CONV0002, etc. Fijate bien el path donde lo metés.

8) Si no salió solo, salí del browser, cerrá todos los DCT.

9) Andá por "File", "Change directory" y cambiate al directorio donde
grabaste el fuente del conversor. Yo uso un subdirectorio "pasa".

10) Andá a "File", "Open", elegí "Clarion source", y abrí el programa
conversor.

11) Andá a "Project", "Set" y seleccioná el archivo de proyecto que tiene
el mismo nombre que el fuente del conversor.

12) Editale lo que quieras al programa conversor. Acá por ejemplo a veces
cambio el directorio de salida, o ajusto la ventana de display, le pongo
mensajes o hago cualquier asignación que sea necesaria.

13) Compilá, correlo y listo. Te queda un ejecutable autónomo que podés
correr en el cliente llamándolo a mano, desde un instalador o desde tu
propia aplicación.

14) Ventaja adicional: Si tu cliente guarda backups de los archivos, y
por la circunstancia que sea tiene que reprocesar información de un
archivo viejo, se pueden correr todos los programas de conversión que
corresponden a ese archivo, en secuencia, para llevar su formato al
actual.

15) Otra ventaja: este método sirve para cualquier base ISAM, para SQL
hay que hacer algunos pasos más pero básicamente se puede hacer lo mismo.

Finalmente, te digo que esto lleva muchísimo más tiempo explicarlo y
aprenderlo que hacerlo. Cuando te digo que todo esto lleva 1 minuto, es
en serio, es lo que lleva cuando ya sabés cómo hacerlo de memoria.

Una acotación, con este método te van quedando en el conversiones.dct
todas las definiciones históricas de tus archivos, algo que puede llegar
a ser muy últil, mientras que en tu dct de "trabajo" sólo está la
definición "actual" y no hay nada que haga ruido.

Saludos,
Jorge A. Lavera

= Encriptación de TPS =
Sobre el Owner Name y su seguridad o capacidad de encriptación
depende mas que nada del planeamiento que a la herramienta en sí
misma

Caso 1 : Owner Name : " Tu palabra clave "

Este caso es el mas vulnerable de todos no se demora mas de
una hora en buscarlo y encontrarlo a simple vista , con la tecnología
adecuada son solo minutos.

Caso 2 : Owner Name : " ©}êô?Ñé? " ( Carcateres ALT + xxxx)

Este caso ya comienza a complicar el nivel de búsqueda dentro
del exe porque no se encuentra relación y lleva a la confusión con
los otros caracteres dentro del exe y todos los hexadecimales, pero es
vulnerable.

Caso 3 : Owner Name : " VGLO:xxxxxxxxxxxxxxx"

Aca el valor del Owler Name está dentro de una variable
global, esa variable global puede traer la informacion desde otro lado ,
archivo , otra variable,etc. Este método es el mas complicado de todos para aquel que
quiera romper el TPS.

Para mi el mejor caso de seguridad en TPS's es el 3, por el nivel de
dificultad que presenta y ante un intento de vulnerabilidad por fuerza bruta siempre devuelve un
valor 0.
Es muy importante tener bien documentado lo realizado utilizando el caso 3
porque de perder la información, el diseño, etc. el mismo desarrollador puede quedar
preso y victima de su propia seguridad

Estos son lo niveles que se pueden manejar desde el IDE de desarrollo de
Clarion, pero tambien se le pueden agregar elementos externos.

Por ejemplo utilizando el Caso 3 + algún compactador de exes ( ASPACK )
realmente se hace casi imposible encontrar las cabeceras de definición de las tablas ,
etc.etc. .

Remarco de lo CASI , porque se puede vulnerar, pero ahi ya comienzan a medir
otros parámetros como ser el costo/beneficio de invertirle horas y horas o días y
días a ese intento de poder vulnerar el archivo , etc, etc, etc. el cual también está
relacionado al hardware y su capacidad de procesamiento , etc.

Espero que les sirva.

Ing. Fabian Coria

Consultor Seguridad Informatica, Capital Soft

= Diferir la carga de un browse ABC =

Los browse ABC se cargan automáticamente al abrir la ventana. Pero muchas veces se desea controlar el momento de la carga porque se utilizan filtros que deben ser ingresados por el usuario (por ejemplo, un rango de fechas). Es un tema particularmente importante cuando se trata de browses “file loaded”, o cuando se trabaja sobre MySQL (al utilizar este motor todos los browse son “file loaded”).

Para diferir la carga de un browse ABC hay dos posiblidades.

'''A. Mediante ''BrowseClass.ActiveInvisible'''''

Esta técnica consiste en “esconder” el ListBox mediante HIDE y apagar la propiedad ''BrowseClass.ActiveInvisible''. Cuando se quiere cargar el browse se quita la propiedad HIDE al ListBox.

Los pasos a seguir son los siguientes:

1. En el Window Formatter encender la propiedad HIDE (o utilizar el comando HIDE en el código del procedimiento) para el control correspondiente al ListBox del browse.

2. En ''WindowManager.Init'', con prioridad 8150, agregar el siguiente código:
BRW1.ActiveInvisible = False !BRW1 es el nombre del objeto Browse

3. Cuando se quiera cargar y mostrar el browse, agregar el siguiente código:
?Browse:1{PROP:Hide} = False !?Browse:1 es el control del ListBox
ThisWindow.Reset(True)

'''B. Derivando la BrowseClass'''

Esta técnica tiene la ventaja de que no es necesario que el ListBox esté oculto. Consiste en agregar una nueva propiedad a la clase BrowseClass que controle cuándo se desea cargar el browse. Según el estado de esta propiedad se omite o se ejecuta el método ''BrowseClass.ResetQueue''.

Los pasos a seguir son los siguientes:

1. En BrowseBoxBehavior, en la solapa Classes, encender la opción “Derive?”

2. En New Class Properties agregar una propiedad de tipo BYTE. Para seguir con la nomenclatura en inglés del resto de la clase, la llamaremos “WaitToFill”
Property Name: WaitToFill
Property Type: BYTE

3. En ''WindowManager.Init'', con prioridad 8150, agregar el siguiente código:
BRW1.WaitToFill = True !BRW1 es el nombre del objeto Browse

4. En ''BrowseClass.ResetQueue'', con prioridad 2500 (antes del ParentCall), agregar el siguiente código:
IF SELF.WaitToFill
RETURN
END

5. Cuando se quiera cargar y mostrar el browse, agregar el siguiente código:
BRW1.WaitToFill = False !BRW1 es el nombre del objeto browse
ThisWindow.Reset(True)

Si bien esto mismo se podría lograr con una variable, con una nueva propiedad se puede administrar más de un browse en el mismo procedimiento, aunque tengan diferente comportamiento.

'''Otras posibilidades'''

Como solución elemental esta técnica es suficiente. Una solución más completa sería derivar directamente la clase ''BrowseClass'' y utilizar la clase derivada en lugar de la clase original. El método ''ResetQueue'' de la nueva clase haría su propia omisión en base al valor de la propiedad ''WaitToFill''. También se podría agregar un método para encender y apagar la propiedad ''WaitToFill''.

La solución final consistiría en escribir un template que se encargue de implementar la técnica.

----
Daniel Ruzo [http://www.amazingGUI.com (amazingGUI)]

= Identificación ÚNICA =
En ocasiones el campo de identificación de nuestros archivos no son suficiente con que éste sea autonumerado de forma secuencial.
Por ejemplo tener un pedido en un archivo y los productos del pedido en otro archivo, podría ocurrir que ambos archivos sean reemplazados por backups de diferentes fechas (ej. pedidos mas viejo que item) asi cuando abrimos un nuevo pedido éste ya poseerá productos. Otro ejemplo es que tengamos varias bases distribuidas en diferentes máquinas (no en red) y éstas se vuelcan sobre un solo grupo de archivos via internet (o cualquier otro medio) si son autonumeradas existirán mas de una ID con el mismo número.
Para solucionar esto pruebe lo siguiente:
En el Campo del archivo que sirve de Identificación Ej. ClienteNumero
colocar en INITIAL VALUE colocar la función ''GeneraID()''

Crear la función GeneraID
loc:IDU STRING(20)
CODE
!Identificación Única
loc:IDU = FORMAT(TODAY(),@d11) & FORMAT(CLOCK(),@t5) & FORMAT(RANDOM(0,999),@n03)
RETURN loc:IDU

un saludo
DIPS

= Parámetros en procedimientos llamados en threads nuevos =
Si quiero mandar parámetros a un procedimiento llamado con START (es decir, en un thread nuevo), puedo mandar solo hasta 3 parámetros y todos deben estar definidos como string en el prototipo del procedimiento. Internamente puedo convertir esos parámetros al tipo que necesito en variables locales al procedimiento.

= Meses, días, botones en Español =
En el main, en el embed "Initialize the procedure" colocar:
LOCALE('CLAMONTH','Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre')
LOCALE('CLAMON','Ene,Feb,Mar,Abr,May,Jun,Jul,Ago,Sep,Oct,Nov,Dic')
LOCALE('CLACOLSEQ','AÁÄÅÆaàáâäåæBbCÇcçDdEÉeèéêëFfGgHhIÍiìíîïJjKkLlMmNnÑñOÓÖoòóôöPpQqRrSsßTtUÚÜuùúûüVvWwXxYyÿZz')
LOCALE('CLABUTTON','Aceptar,&Sí,&No,&Abortar,&Reintentar,&Ignorar,Cancelar,&Ayuda')
LOCALE('CLACASE','ÄÁÅÆÇÉÍÑÓÖÚÜ,äáåæçéíñóöúü')
LOCALE('CLAAMPM','a.m.,p.m.')

= Consultas SQL que en el Motor corren rapido pero en Clarion NO =
Un truco fácil pero funcional (sólo válido para SQL Server).

Suponiendo que la instrucción original sea:

Select P.Codigo, P.Descripcion, K.Entradas, K.Salidas, K.Valor_Entradas, K.Valor_Salidas
From Productos P
Inner Join Kardex K On P.Id_Producto = K.Id_Producto
Where P.Codigo = 'AAA001' And K.Fecha = '01-10-2006'
Order By K.Fecha, P.Codigo

Como '''CLARION''' genera un cursor puede que en ocaciones dicho query sea muy pesado y el cursor tarde mucho en resolverlo, para ello simplemente agrega lo siguiente:

Select P.Codigo, P.Descripcion, K.Entradas, K.Salidas, K.Valor_Entradas, K.Valor_Salidas
'''Into #TempTable'''
From Productos P
Inner Join Kardex K On P.Id_Producto = K.Id_Producto
Where P.Codigo = 'AAA001' And K.Fecha = '01-10-2006'
Order By K.Fecha, P.Codigo
'''Select * From #TempTable'''

De esta manera todo se realiza en el servidor y solo va a devolver los datos ya procesados en el #TempTable

'''Este truco se lo agradezco a mi amigo Juan Manuel Medina.'''

Javier A. Junca Barreto. [http://www.sicya.com (SICyA Software Ltda.)]

= Exportar fechas a Excel =

Para exportar campos fecha a Excel hay que mandarlos con format(campo, @d01b), de lo contrario Excel interpreta aleatoriamente meses como días, días como meses, etc.

De todas maneras, que el mecanismo comentado arriba funcione depende de la configuración de Excel. Otra opción es usar la función “date” de Excel, y enviar por separado año, mes y día. Por ejemplo:

MSExcel1.ExecFunction('A1', '=date(' & year(FechaClarion) & ',' & month(FechaClarion) & ',' & day(FechaClarion) & ')')

Recomendaciones

2015-03-08T00:36:22Z

Jorge Brugger:

Codigo Util

2015-03-08T00:34:37Z

Jorge Brugger:

En esta sección se incluyen rutinas de código que nos resultaron útiles en más de una ocasión.

== PDF con cualquier versión de Clarion ==
Después de mucho rebuscar algo gratis que haga esto, hoy pude componer algo:
1º) Aporte de Fernando Cerini para "capturar" los .wmf de los reportes de Clarion:

En el embed PrintPreview.Open, despues de Parent call

get(SELF.ImageQueue,POINTER(SELF.ImageQueue))
LOOP a# = 1 to RECORDS(SELF.ImageQueue)
get(SELF.ImageQueue,a#)
COPY(SELF.ImageQueue, 'c:\temp\Pagina' & a# &'.WMF')
IF ERRORCODE() THEN MESSAGE(ERROR()).
END

En mi caso, con Clarion 5.0 ABC el embed point fue Previewer.Open, después del Parent call

2º) Instalar OpenOffice y seguir las instrucciones de
http://www.xml.com/pub/a/2006/01/11/from-microsoft-to-openoffice.html
para crear la macro.
La verdad, no pude cambiar el nombre de Module1 a Conversiones o algo así, pero no importó mucho.

3º) Cree un batch con la línea

"C:\Archivos de Programa\OpenOffice.org 2.3\program\soffice" -invisible macro:///Standard.Module1.SaveAsPDF(c:\temp\pagina8.wmf)

Es lo que dice el instructivo mencionado en el punto 2º) acomodado a mi instalación de OpenOffice, lo corrí y funcionó a la primera prueba.

4º) Sólo queda hacer la llamada mediante RUN en el código de Clarion y santo remedio.

Espero sea de ayuda para alguien.
Saludos
Ezequiel

== Como filtrar un Tree ==
Una tecnica de Saul Perez Quezada para filtrar Arboles (generados con el template Relacion Tree), con filtros en runtime que son complejos, y que no podemos hacer con un simple SetFilter().

Alguien ha posteado una pregunta sobre como Filtrar arboles, yo en lo personal he dejado de usar arboles, por que son bastante lentos y deficientes, pero en algunas aplicaciones es bastante util, de manera que comparto la experiencia y les subo una pequeña explicacion de como filtrar Arboles (generados con el template Relacion Tree), con filtros en runtime que son complejos, y que no podemos hacer con un simple SetFilter(), ya que no existe esto en la propiedad.

Saludos y espero les sirva.

Como filtrar un Tree con solamente tablas:

Dentro del Template para armar los arboles, tiene dentro de Primary y Secondary files la opcion de filtrar, agregando un filtro, pero muchas veces dicho filtro no es tan simple de armar, o necesitamos estarlo cambiando en runtime.

Aqui les presento un caso y como su solucion, esperando que les sirva...

Tengo tres tablas:

Abuelos
Padres
Hijos

Y en la tabla hijos, tengo un campo que define en que nivel de escuela en que va cada hijo: Pre-escolar, Primaria, Secundaria, Bachillerato, Universidad, PostGrado, Maestria y Doctorado.

En la ventana requiero que el usuario pueda filtrar por el nivel escolar, pero con las siguientes condiciones:

1.- El usuario puede seleccionar si quiere ver cualquier combinacion de estudios, es decir, que pueda ver los de primaria y universidad solamente o todos, o ninguno...
2.- Si selecciona un filtro donde resulte que un abuelo o padre no tiene hijos que cumplan la condicion, entonces no debe mostrarnos a esos abuelos y padres...

Considerando que el Tree template, muestra siempre los niveles de acuerdo al filtro que se arma, pues podria convertirse algo engorroso, estar cambiando el filtro, ya que no es una propiedad del relacion tree, tal como sucede con el browse class, sino que el tree filtra a base de If's interpuestos al llenar el queue...

Usando el template y solo poniendo los filtros de NIVELESCOLAR = LOC:MINIVEL, solo mostraria los hijos de un nivel, asi que este metodo no nos servira...

La idea seria entonces que como filtro usaremos una condicion matematica, si la condicion es Verdadera, entonces mostrara el hijo, de lo contrario no lo mostrara.

Asi que con el comando EVALUATE, evaluaremos un filtro, dentro del secondary files, opcion filter, si el filtro es bueno (igual a 1), entonces nos mostrara la info de lo contrario no...

Por ejemplo:

En el secondary files en buscamos la tabla de Hijos y le escribimos en el filtro:

0<EVALUATE(Filtro) ! Si el filtro es valido, entonces nos mostrara el resultado, de lo contrario no...

Declaramos un check box por cada cada condicion, con su respectiva variable: Preescolar, Primaria, Secundaria, etc... que sea tipo byte, con valor true = 1 y valor false = 0

! En el acepted del check box Preescolar... y cada condicion...
Do Filtrar
Display

! En procedure routines
Filtrar Routine
Clear(Filtro) ! Variable para filtrar

If Preescolar Then Filtro = 'HIJ:NIVELESCOLAR=''Preescolar''' ..

If Filtro And Primaria
Filtro = Clip(Filtro) & ' And HIJ:NIVELESCOLAR=''Primaria'''
ElsIf Filtro And Primaria
Filtro = 'HIJ:NIVELESCOLAR=''Primaria'''
End
! Esto se repite con todas las condiciones...
...
...

! Despues de armar el filtro, refrescar el browse...

DO REL4::RefreshTree ! Esta rutina la genera el template, se debe buscar en los modulos su nombre correcto.
POST(EVENT:NewSelection,?RelTree)

Exit

Hasta ahora, lo que se ha logrado es que cuando el usuario seleccione un tipo nivel escolar, nos mostrara o no los hijos, pero resulta, que ahora lo que necesito es que solo me muestre los abuelos que tienen nietos, y los padres que tienen hijos, es entonces por que no tiene caso que el arbol se llene con Mil abuelos, si solo 30 de ellos tienen nietos...

Para hacer debemos entender como se llena el queue del tree, basicamente, el tree, tantas vueltas como combinaciones de nuestra estructura tengamos, es decir, suponiendo que tenemos 3 abuelos, 3 padres, con 3 hijos cada uno, lo que hace el template es:

Por cada Abuelo Barre (con Loop) la tabla Padres por completo 1 vez y selecciono los que me corresponden y por cada padre barro la tabla hijos (con Loop) por completo y selecciono los que me corresponden...

Entonces esta estructura daria 3 x 3 x 3 = 27 vueltas. (Ahora imaginen lo que tarda en entre tablas de 10000 registros...)

Bueno, siguiendo esta idea, entonces lo que necesitamos, es interceptar cada vuelta en el punto donde no queremos que se ingrese al queue y hacer un break.

Conociendo esto buscamos en nuestros embeds, embedido llamado:

RelacionTree After Next Primary File y RelationTree After Next Secondary File...

Aqui buscamos el archivo que requerimos excluir en algunos casos, que es Padres e Hijos, le escribimos en el caso de Padres:

PAD:AbueloId = ABU:AbueloId
If Access:Padres.Fetch(FK AbueloId) ! Si no existen padres que sean dependientes de este abuelo
Break ! hacer el break al Loop del armado del tree...
End

Y el caso de los hijos repetimos la condicion:

HIJ:PadreId = PAD:PadreId
If Access:Hijos.Fetch(FK PadreId) ! Si no existen hijos que sean dependientes de este abuelo
Break ! hacer el break al Loop del armado del tree...
End

El efecto sera que no nos mostrara aquellos padres y abuelos que no tengan hijos.

Si requerimos algo mas complejo podemos usar una vista, en vez de una Fetch a una tabla, pero obviamente se alentara esto cada vez mas y mas al llenar el Arbol.

Nota
Si usamos un motor de SQL, una alternativa mucho mas eficiente es declarar un Vista en nuestro motor y diccionario que sirva de base para llenar el Arbol, con esto aumentaria considerablemente la velocidad.

== Reemplazar caracteres en un string ==
Una rutina generica para reemplazar todas las instancias de un string dentro de otro

Replace PROCEDURE(string find,string replace,*cstring into)
Locate LONG,AUTO
CODE
IF UPPER(find)<>UPPER(replace)
LOOP
Locate = INSTRING(UPPER(find),UPPER(into),1,1)
IF ~Locate THEN RETURN .
into = SUB(into,1,Locate-1) & replace &SUB(into,Locate+LEN(find),LEN(into))
END
END

Para llamarlo:

Replace('Busacr','Reemplazar',Loc:miString)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Contar los threads abiertos ==
Este código fue posteado por Jeff Slarve
ChildThreadCount Procedure!,Long
Ndx Long
Count Long
T &Window
W &Window
Code

Count = 0
SetTarget
T &= System{PROP:Target}
Loop Ndx = 1 to MaxThreads
SetTarget(,Ndx)
W &= System{PROP:Target}
If NOT W &= T
Count += 1
end
end
SetTarget
Return Count

== Permitir solo una instancia del EXE en ejecucion ==
En Inside the global map:

INCLUDE('CWUTIL.INC'),ONCE

En Global Program Setup:

IF NOT BeginUnique('MiAPP.exe')
BEEP(BEEP:SystemExclamation)
YIELD()
CASE MESSAGE('El programa ya esta ejecutando..','Ho, ho...',ICON:Asterisk,BUTTON:OK,BUTTON:OK,0)
OF BUTTON:OK
HALT()
END
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Cambiar los atributos de un archivo ==
(Del FAQ de SoftVelocity)
1. En Global Embeds

A. Before Global Includes:

LPCSTR EQUATE(CSTRING)
DWORD EQUATE(ULONG)

B. Global Data: Equates de los artributos

FILE_ATTRIBUTE_READONLY EQUATE(00000001h)
FILE_ATTRIBUTE_HIDDEN EQUATE(00000002h)
FILE_ATTRIBUTE_SYSTEM EQUATE(00000004h)
FILE_ATTRIBUTE_ARCHIVE EQUATE(00000020h)
FILE_ATTRIBUTE_NORMAL EQUATE(00000080h)
FILE_ATTRIBUTE_TEMPORARY EQUATE(00000100h)

C. Inside Global Map:

Module('Win32.lib')
SetFileAttributes(*CSTRING, ULONG), BOOL, RAW, PASCAL, NAME('SetFileAttributesA')
GetFileAttributes(*CSTRING), ULONG, RAW, PASCAL, NAME('GetFileAttributesA')
END

2. En el codigo:

filename CSTRING(50)

filename = 'test.txt'
y# = GetFileAttributes(filename) ! Leer atributos
y# = SetFileAttributes(filename, FILE_ATTRIBUTE_READONLY)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Crear directorios ==
Hay 2 opciones:

1- Con Clarion (no sé si estarán estas funciones en versiones anteriores de Clarion)

En "Inside the Global map"
Include('clib.clw')

En Local Data
MiDir Cstring(256)
Ret Long

En tu embed
MiDir = 'Dirtest'
Ret = MkDir(MiDir)

2- Con API
En Global Embeds - inside global map:

MODULE('')
DirAccess(*CSTRING,SHORT=0),SHORT,RAW,NAME('_access'),PROC
MkDir(*CSTRING),SHORT,RAW,NAME('_mkdir'),PROC
DirRename(*CSTRING, *CSTRING), SHORT, RAW, NAME('_rename'),PROC
RmDir(*CSTRING),SHORT,RAW,NAME('_rmdir'),PROC
END

Y en tu embebido podés poner lo siguiente:

Var='O:\test' ! Ojo tiene que ser Cstring
IF DirAccess(Var)<>0 !Si no existe
MkDir(Var) !Crearlo
END

También se puede usar DirRename y RmDir para renombrar o borrar

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Modificar la posicion de un informe ==

Este código permite modificar la posición inicial vertical y horizontal de un informe. Es útil cuando trabajamos con un formulario preimpreso o una hoja membretada y necesitamos desplazar la impresión sin necesidad de reconfigurar el programa.

El punto embebido donde se ubica es After Open the Report.

!=====================================================
! MODIFICAR LA POSICION DEL INFORME
! El pie de página modificarlo sólo si se usa:
! Por ejemplo se pone ahí el Nro de página o algo así.
! No es necesario cambiar los atributos de las bandas
! de detalle adicionales que se usan en el informe.
!-----------------------------------------------------
DesplazamientoX = getini('Parametros',|
'DesplazamientoX','','.\prog.ini')
DesplazamientoY = getini('Parametros',|
'DesplazamientoY','','.\prog.ini')

if DesplazamientoX or DesplazamientoY then
SETTARGET(Report)
x# = report{prop:Xpos}
y# = report{prop:Ypos}
x# += DesplazamientoX
y# += DesplazamientoY
target{prop:Xpos} = x#
target{prop:Ypos} = y#
settarget

SETTARGET(Report,?Encabezado)
x# = ?Encabezado{prop:Xpos}
y# = ?Encabezado{prop:Ypos}
x# += DesplazamientoX
y# += DesplazamientoY
?Encabezado{prop:Xpos} = x#
?Encabezado{prop:Ypos} = y#
settarget

SETTARGET(Report,?PiePagina)
x# = ?PiePagina{prop:Xpos}
y# = ?PiePagina{prop:Ypos}
x# += DesplazamientoX
y# += DesplazamientoY
?PiePagina{prop:Xpos} = x#
?PiePagina{prop:Ypos} = y#
SETTARGET
end

== Generar un informe a partir de una cola en memoria ==

(Sin pasar por el template)

Se puede definir en el módulo en la parte de DATA el reporte necesario y mandarlo a imprimir.

En DATA SECTION

WMFQue QUEUE
PageImage STRING(64)
END
ReportRunDate LONG
ReportRunTime LONG
!!> Report (portrait)
Report REPORT,AT(1000,2000,6000,7000),THOUS,PRE(RPT),FONT('Arial',10)
HEADER,AT(1000,1000,6000,1000)
END
Detail DETAIL
END
FOOTER,AT(1000,9000,6000,1000)
END
FORM,AT(1000,1000,6000,9000)
END
END

Luego, en el botón que imprime, poner el siguiente código:

ReportRunDate = today()
ReportRunDate = today()
ReportRunTime = clock()
OPEN(Report)
LOOP x# = 1 to records(ColaError)
get(ColaError,x#)
PRINT(rpt:DetalleUno)
END
ENDPAGE(Report)
ReportPreview(WMFQue)
IF GlobalResponse = RequestCompleted
Report{PROP:FlushPreview} = True
END
CLOSE(Report)
FREE(WMFQue)

Este proceso usa el Print Preview de Clarion para visualizar el informe, por consiguiente, la apariencia es totalmente normal para el usuario

== Proceso BATCH que funcione sincronizado con el TIMER de la ventana. ==

En un proceso BATCH hecho a mano se puede operar en forma similar al report o al proccess, para eso hay que definir una pantalla que tenga el atributo TIMER (un valor de 1 es suficiente). El código fuente quedaría de la siguiente manera:

open(PantaTrabaja)
Accept
case event()
of event:openwindow
Display()
! Abrir pantalla, Abrir archivos, hacer el set
! Inicial
of event:timer
?Mensaje{prop:text} = 'Procesando...'
display(?Mensaje)
loop 2 times
next(archivo)
if errorcode() then
FinArchivo = true
Break
end
! HACER AQUÍ ALGÚN PROCESO..
end
of event:closewindow
Setcursor()
Close(PantaTrabaja)
Break
End!case

case field()
of ?BotonCancelar
if event() = event:accepted then
message('Proceso cancelado por el usuario.')
post(event:closewindow)
end
End
end!accept

== Drop Combo a mano, con opción a todos y recuerdo de último elegido ==

En muchos de mis informes, cuando pido parámetros asumo lo siguiente, por ejemplo: Si el código de cliente es igual a 0 (cero) se imprimen todos los clientes, sino, se imprime uno solo. Este código permite armar lo mismo con un DropCombo, agregando la opción TODOS LOS XXXX (código Cero).

1. Definir una cola con la siguiente estructura ( por ejemplo ):

Cola QUEUE,PRE(col)
descri STRING(20)
codigo SHORT
END

2. Definir una variable local llamada por ejemplo

Combo1 STRING(20)

3. En la pantalla definir una drop combo a mano, en el campo FROM poner el nombre de la COLA, y en el USE poner Combo1 ( no poner ?Combo1 )

4. Cargar la cola según corresponda después de abrir archivos, poniendo como último dato el código 0 y el texto 'TODOS LOS REGISTROS' y hacer un ADD(Cola,1) para que quede al principio.

5. Definir una variable global ( o local estática) que va a guardar el resultado elegido:

Glo:codigo short

6. En el evento open window, ANTES de abrir la ventana va el siguiente código

loop x# = 1 to records(Cola)
get(Cola,x#)
if col:codigo = glo:codigo then break.
end
Combo1 = col:descri
?Combo1{prop:selected} = x#

7. Al hacer esto, el combo se abre posicionado en el último elemento elegido o en TODOS LOS REGISTROS si es la primera vez.

== En un report, poner los totales en otra página ==

En algún informe, se puede solicitar como parámetro la opción de imprimir los totales correspondientes en una página nueva. Para ello, después de abrir el report:

if glo:totpag then
settarget(report)
?TituloTotalCategoria{prop:pagebefore} = 1
end

== En un report, cambiar el color de un campo según alguna condición ==

Si durante la impresión de un informe se desea cambiar algún atributo (tal como el color) de un campo puede hacer lo siguiente (antes de imprimir el detalle):

if cl:impotota <> cl:totacalc
settarget(report)
?ARC:importe{PROP:FONTCOLOR} = COLOR:RED
settarget(ProgressWindow)
else
settarget(report)
?ARC:importe{PROP:FONTCOLOR} = COLOR:NONE
settarget(ProgressWindow)
end
print(rpt:Detalle) ! Imprimir la línea de detalle

== Cerrar todas las ventanas abiertas ==
LOOP Thrd# = 2 TO 64 !1 es el Frame
POST(Event:CloseWindow,,Thrd#)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Abrir cualquier archivo con ShellExecute ==
Hay varios templates gratis que implementan Shellexecute, por ejemplo:
http://www.sterlingdata.com/shellex.htm

Para hacerlo con codigo:

En Global-embed 'Inside the Global Map':
Module('Win32.lib')
ShellExecute(Long,*CString,*CString,*CString,*CString,Short),UShort,PASCAL,RAW,NAME('ShellExecuteA')
END

En Local Data
LOC:Handle LONG
LOC:Op CSTRING (255)
LOC:File CSTRING (255)
LOC:Path CSTRING (255)
LOC:Param CSTRING (255)
LOC:Show LONG
LOC:RetHandle LONG

En el embed
LOC:Handle = 0{PROP:Handle}
LOC:Op = 'Open'
LOC:File = 'C:\TEST.TXT'
LOC:Path = PATH()
LOC:Param = ' '
LOC:Show = 1
LOC:RetHandle = ShellExecute(LOC:Handle,LOC:Op,LOC:File,LOC:Param,LOC:Path,LOC:Show)
If LOC:Rethandle <> 0 Then
Message('Error','Error',Icon:Exclamation)
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Abrir una pagina WEB con ShellExecute ==
(Ver declaraciones del API y variables en el ejemplo anterior)

En el embed
LOC:Handle = 0{PROP:Handle}
LOC:Op = 'Open'
LOC:File = 'http://www.templatesclarion.com.ar'
LOC:Path = ' '
LOC:Param = ' '
LOC:Show = 1
LOC:RetHandle = ShellExecute(LOC:Handle,LOC:Op,LOC:File,LOC:Param,LOC:Path,LOC:Show)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Convertir un LONG a un String Binario ==
binario='' !binario es CSTRING
LOOP F# = 1 TO 32
IF BAND(abinario, 1) !abinario es LONG
binario = '1' & binario
ELSE
binario = '0' & binario
END
abinario = abinario / 2
if abinario = 0 then break.
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Convertir un string binario a LONG ==
Para volver del CSTRING al LONG seria simplemente
X# = EVALUATE (binario & 'b')

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Copiar la QUEUE (solo lo que se esta viendo) de un browse a Excel ==
Copiar='' !Cstring de 4.000.000
LOOP C#= 1 TO BRW1.View{Prop:Fields}
!Primero una fila con los titulos
Copiar= Copiar & ?Browse:1{PropList:Header,C#} & '<9>'
END
Copiar= Copiar &'<13,10>'

LOOP F# = 1 TO RECORDS(BRW1.Q)
LOOP C#= 1 TO BRW1.View{Prop:Fields}
GET(BRW1.Q, F#)
Copiar= Copiar & FORMAT(WHAT(BRW1.Q, C#), ?Browse:1{PropList:Picture,C#}) & '<9>'
END
Copiar= Copiar &'<13,10>'
END
SETCLIPBOARD(Copiar)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Copiar el VIEW (cuidado: se lee todo) de un browse a Excel ==
Copiar='' !CSTRNG de 4.000.000
LOOP C#= 1 TO BRW1.View{Prop:Fields}
Copiar= Copiar & ?Browse:1{PropList:Header,C#} & '<9>'
END
Copiar= Copiar &'<13,10>'

SET (BRW1.View)
LOOP
NEXT(BRW1.View)
IF ERRORCODE() THEN BREAK.
BRW1.SetQueueRecord
LOOP C#= 1 TO BRW1.View{Prop:Fields}
Copiar= Copiar & FORMAT(WHAT(BRW1.Q, C#), ?Browse:1{PropList:Picture,C#}) & '<9>'
END
Copiar= Copiar &'<13,10>'
END
SETCLIPBOARD(Copiar)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Para que no lea todo el contenido del archivo, sino que procese estrictamente lo mismo que muestra el browse, basta con agregar la antes del BRW1.SetQueueRecord el llamado a BRW1.ValidateRecord().
...
LOOP
NEXT(BRW1.View)
IF ERRORCODE() THEN BREAK.
IF BRW1.ValidateRecord() THEN CYCLE.
BRW1.SetQueueRecrod
...

Daniel Ruzo

== Mostrar iconos en un listbox desde una queue ==
Ejemplo: marcar en una cola de memoria si un empleado tiene entrada y/o salida

Primero agregar los iconos al Project

En el Codigo:

cola_empleados queue, pre(que)
nombre string(30)
entro long
entro_ico long
salio long
salio_ico long
end

En el list:

primer campo: nombre

segundo campo: entro, picture @p p, iconized, transparente

tercer campo: salio, picture @p p, iconized, transparente

En el init de la pantalla:

?list{prop:iconlist,1} = '~no.ico'
?list{prop:iconlist,2} = '~si.ico'

Donde cargo la cola y la muestro:

if condicion (si NO hay entrada)
que:entro_ico = 1 ! icono de no
else
que:entro_ico = 2 !icono de si
end
if condicion (si NO hay salida)
que:salio_ico = 1 ! icono de no
else
que:salio_ico = 2 !icono de si
end
! otras asignaciones
add(cola_empleados)
!
display(?list)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Calcular Días Hábiles ==

Ante todo necesitas una tabla de feriados, con al menos un campo llamado,
por ej., diaferiado y una clave por dicho campo.

Luego podés hacer lo siguiente

habiles# = 0
loop dia# = FechaInicial to FechaFinal
if (Dia# % 7) = 0 then cycle. ! porque es domingo
if (Dia# % 7) = 6 then cycle. ! porque es sabado
!
! busco si es feriado
!
clear(feriado:record)
feriado:diaferiado = dia#
if access:feriado.fetch(Feriado:PorDia) = level:benign then cycle. !porque es feriado
!
habiles# += 1
end!loop
corridos# = fechafinal - fechainicial

Si los cálculos que vas a realizar son muchos y continuos, sería conveniente
que la tabla de feriados la cargues en una queue y realices las búsquedas
sobre ella.

Adrian Gallegos - Mega Sistemas S.R.L.

Otra opción: Días Hábiles del mes - Rutina que quita los días sábados y domingos del mes

CONTAR_DIAS ROUTINE
LOC:DIAS = 0
tope# = 1
LOOP UNTIL DAY(LOC:FECHA) = tope#
CASE LOC:FECHA % 7
of 0 ! Domingo
LOC:FECHA = LOC:FECHA - 1
CYCLE
of 6 ! sabado
LOC:FECHA = LOC:FECHA - 1
CYCLE
ELSE
LOC:DIAS += 1
LOC:FECHA = LOC:FECHA - 1
END !CASE
END !LOOP
IF LOC:FECHA % 7 = 0 or LOC:FECHA % 7 = 6 THEN !si el primero es feriado
! nada
else
LOC:DIAS += 1
END !IF

Julio César Britez

== Último día del mes y cantidad de días (Lunes, Martes, etc) entre 2 Fechas ==
Incluye el truco de saber el último día del mes: en la parte " Date(4,1,2005)-1 " significa que le resto 1 al primer día del mes siguiente, lo cual es una forma de obtener el último día del mes actual...

Loop Fecha# = Date(3,1,2005) TO (Date(4,1,2005)-1)
EXECUTE (Fecha# % 7) + 1
Domingo# +=1
Lunes# +=1
Martes# +=1
Miercoles# +=1
Jueves# +=1
Viernes# +=1
Sabado# +=1
END
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Fecha en Español (por ejemplo en el Frame)==
Si quieres que funcione independientemente de como este configurado windows,
lo mejor es poner este embed, al final de WindowManager.Init

EXECUTE (TODAY() % 7) + 1
Dia"= 'Domingo'
Dia"= 'Lunes'
Dia"= 'Martes'
Dia"= 'Miercoles'
Dia"= 'Jueves'
Dia"= 'Viernes'
Dia"= 'Sabado'
END

EXECUTE (MONTH(TODAY()))
Mes" = 'Enero'
Mes" = 'Febrero'
Mes" = 'Marzo'
Mes" = 'Abril'
Mes" = 'Mayo'
Mes" = 'Junio'
Mes" = 'Julio'
Mes" = 'Agosto'
Mes" = 'Septiembre'
Mes" = 'Octubre'
Mes" = 'Noviembre'
Mes" = 'Diciembre'
END
AppFrame{Prop:StatusText,1} = CLIP(Dia") & ' ' & DAY(TODAY()) & ' de ' &
CLIP(Mes")

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Dia" = Choose(((TODAY() % 7) + 1),'Domingo','Lunes','Martes','Miercoles','Jueves','Viernes','Sabado')

Javier A. Junca Barreto [http://www.sicya.com (SICyA Software - Colombia)]

== Obtener la fecha del server ==
Este código lee la fecha del servidor, usando el truco de crear un archivo en el servidor y leer la fecha y hora de los atributos:

!Data
LOC:TMP STRING(254),STATIC
TMP FILE,DRIVER('Ascii'),CREATE,NAME(LOC:TMP)
RECORD RECORD
LIN STRING(1)
.
.
FILS QUEUE(File:queue),PRE(FIL)
END

CODE
LOC:TMP = PATH()&'\TMP'&RANDOM(10000,99999)&'.TMP'
CREATE(TMP)
IF NOT ERRORCODE()
DIRECTORY(FILS,LOC:TMP,0)
REMOVE(TMP)
GET(FILS,1)
IF TODAY() <> FIL:DATE OR ABS(CLOCK()-FIL:TIME) > 100
!FECHA DIFERENTE O 1 SEGUNDO DE DESFASE
SETTODAY(FIL:DATE)
SETCLOCK(FIL:TIME)
END
ELSE
REMOVE(TMP)
END

Carlos Gutierrez

''Con SQL''

La sugerencia de Carlos es muy buena. Si estás usando SQL o drivers ODBC, la otra opción es preguntarle la fecha al motor de base de datos.

La forma genérica de hacerlo es:
temp{prop:sql}='SELECT {fn curdate() }'

''Con NET TIME''

Posteado por Diego Sánchez al foro.
Run('NET TIME \\Server_Name /SET /Y')
Reemplazar "Server_Name" por el nombre del servidor o equipo del cual se desea obtener la hora
Fue posteado originalmente por un NICOLAS VEILLEUX nveilleux@nbautomation.com, en el foro comp.lang.clarion

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Llamar a un Stored Procedure ==
El código sería mas o menos asi:
L:Query = 'CALL NombreDelStored (''' & FORMAT(ParamFecha,@D12) & ''', ''' &
FORMAT(OtraFecha,@D12) & ''', ' & OtroParam1 &', ' & OtroParam2 &', ' &
OtroParam3 &' )'

ResSQL{prop:sql} = L:Query
Loop Until Access:ResSql.Next()
MiVariable = R:Campo1
etc = R:Campo2
....
END

En la tabla auxiliar ResSQL obtienes el resultado del último SELECT que
tenga el Stored Procedure.

Para mas detalles ver el documento sobre SQL Embebido [http://templatesclarion.com.ar/downloads/ (Templates Clarion)]

También recomiendo leer el help "MSSQL Accelerator Calling a Stored
Procedure". Ahi está explicado además el uso de valores de retorno y parámetros de salida.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Encriptación básica ==
Encriptación / desencriptación básica de un campo usando el metodo XOR.
!la primera vez encripta
!al volver a aplicar el algoritmo con la misma
!Clave de encriptado: desencripta
X# = 1
loop Y# = 1 to Len(Campo)
Campo [Y#] = chr(bxor(val(Campo[Y#]), val(ClaveEncriptado[X#])))
X# += 1
if X# > len (ClaveEncriptado) then X# = 1.
end
display

!Campo y ClaveEncriptado son campos CString

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Generar un archivo de Texto a máxima velocidad==
Estas son las APIs para generar un archivo de texto sin necesidad de declararlo en el Diccionario.

Además es muy rápido, ideal para exportaciones.

En Global - Inside Global map:

MODULE('Windows API')
_lcreat(*CSTRING,SIGNED),SIGNED,PASCAL,RAW
_hwrite(SIGNED,*CSTRING,LONG),LONG,PASCAL,RAW
_lclose(SIGNED),SIGNED,PASCAL
END

Por ejemplo para guardar el contenido de un control Text

IF NOT FILEDIALOG('Guardar como',FileName,'Text|*.TXT|Source|*.CLW',FILE:Save + FILE:LongName)
CYCLE
END
F# = _lcreat(FileName,0)
X# = _hwrite(F#,Texto,LEN(Texto))
X# = _lclose(F#)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Efecto BLINK en un campo ==
Tienes que crear un timer en la ventana, para eso ponle cada cuanto se va a
ejecutar en la propiedad timer de la ventana. Son centesimas de seg, asi que
si le pones 50 por ejemplo tu campo va a titilar 2 veces por segundo.

Luego cierra la ventana, vuelve a entrar y vas a encontrar un evento timer
de la ventana en los embeds.

Window Events --> Timer
if ?campo{prop:background} = COLOR:WHITE
?campo{prop:background} = COLOR:SILVER
else
?campo{prop:background} = COLOR:WHITE
end

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Función para calcular dígito verificador en CUIT ==
- La siguiente función devuelve el numero de CUIT con el dígito verificador
correcto.
- El parámetro que recibe es el numero de CUIT a revisar incluyendo el
dígito verificador.

...
CuitCliente='20-15433984-6'
IF Cuit(CuitCliente)=CuitCliente THEN
MESSAGE('Digito verificador correcto')
ELSE
MESSAGE('Digito verificador incorrecto')
END
...

Cuit PROCEDURE(cuit1)
cuit2 STRING(255)
digver LONG
lon LONG
fac LONG
car STRING(1)

CODE
cuit2=cuit1
digver=0
fac=2
lon=LEN(CLIP(cuit2))
LOOP i#=lon-1 TO 1 BY -1
car=SUB(cuit2,i#,1)
IF car<'0' OR car>'9' THEN
CYCLE
.
digver=digver+(car*fac)
fac+=1
IF fac>7 THEN
fac=2
.
.
digver=11-(digver%11)
IF digver>9 THEN
digver=0
.
cuit2=SUB(cuit2,1,lon-1) & FORMAT(digver,@n01)
RETURN(cuit2)

Este codigo esta en la documentacion del template de Impresoras Fiscales
(BIGSYS TEMPLATES) del amigo Juan Carlos Rodríguez

== Validar Email ==
Puedes hacerlo con MATCH, el cual devuelve 1 o 0 si el mail no es valido.
Ejemplo:

X# = MATCH(UPPER(CLIP(locemail)),|
'^[-A-Z0-9._]+@{{[-A-Z0-9._]+.}+[A-Z][A-Z][A-Z]?[A-Z]?$', Match:Regular)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Restar Horas==
Para sacar la diferencia entre horas es simplemente:
resultado = hora2 - hora + 1

El +1 es porque sino que faltaria un segundo cuando muestres el resultado (en formato @T6, por ej)

Si Hora2 es del dia siguiente, la cuenta seria:
resultado = (hora2 +(100*60*60*24)) - hora + 1

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Digito Verificador para 5 digitos ==

Si tenes un numero de 5 digitos y deses verificar que el mismo es ingresado correctamente podes usar este codigo que genera un digito verificador

Crea una funcion que tenga un parametro (numero a verificar) y retorne el digito verificador correspondiente ejem: DigitoV5(LONG xNumero),BYTE

loc:Numero = xNumero

loc:Valor = (loc:Numero[1]*5) + |
(loc:Numero[2]*4) + |
(loc:Numero[3]*3) + |
(loc:Numero[4]*2) + |
(loc:Numero[5]*7)

IF (loc:Valor%5) + 1 = 0 OR (loc:Valor%5) + 1 = 1
loc:Digito = 0
ELSE
loc:Digito = 6 - ((loc:Valor%5) + 1)
END

RETURN loc:Digito

Ruben Garcia [http://www.dipsarg.com (DiPS)]

== Digito Verificador para Cualquier Longitud ==

Si no sabes que longitud puede tener el numero a verificar podes probar verificarla con este codigo

Crea una funcion cuyo parametro es el numero a verificar y retorne el digito verificador. Ej. DigitoV(STRING xNumero),BYTE

!Inicializa
loc:Numero = xNumero
loc:Valor = 0
loc:Multiplo = 1

!Barrido y calculo
LOOP loc:Posicion = LEN(CLIP(loc:Numero)) TO 1 BY -1
loc:Multiplo += 1
IF loc:Multiplo > 7
loc:Multiplo = 2
END
loc:Valor += loc:Numero[loc:Posicion] * loc:Multiplo
END

loc:Digito = loc:Valor % 11

IF loc:Digito = 10
loc:Digito = 0
END

RETURN loc:Digito

Ruben Garcia [http://www.dipsarg.com (DiPS)]

== Autoincremento Manual ==

Esto se utiliza cuando tenemos una tabla en la cual queremos manejar la clave de auto incremento

CLEAR(MASTER)
SET(MAS:ClavePorID, MAS:ClavePorID)
ACCES:MASTER.Previous()
IF MAS:Id = 0 THEN
MAS:Id = 1
ELSE
MAS:Id = MAS:Id +1
END

!!!MAS:Id TENDRÍA EL VALOR DEL PROXIMO NUMERO.-

Gracias [mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Nota: El mecanismo descrito es "confiable" sólo para aplicaciones que usan TPS y en modo single-user. Para Multiusuario y SQL hay que tener cuidado con las lecturas simultáneas del último valor.
También puede simplificarse el "if ... then ... else ..." como "MAS:Id = MAS:Id +1" (si es cero, será 1, no hace falta chequearlo)

== Desabilitar menu desde cualquier procedimiento ==
Una opcion seria usando NOTIFY.
En el Frame
Window Events
Notify
DISABLE = VariableGlobal

En cualquier procedimiento que se necesite deshabilitar un menu

VariableGlobal = Nro de Use del Menu
NOTIFY (999, 1)

Puede ser 999 o cualquier cosa ya que no estoy usando ese parametro.
(bueno, en realidad podria usar ese parametro en lugar de la global...)
1 es el Tread del Frame

Como desde los otros procedimientos no existen los use del los items de menu
(o sea ?menuitem) lo que hay que hacer es ponerles un numero a cada uno.
Esto se logra poniendolos de esta manera ?use, numero en la definicion del
menu.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

==Formatear fechas en SQL ==
Les paso una función que utilizo para trabajar con las fechas en el SQL parecido al format de clarion. Es muy útil.

CREATE FUNCTION dbo.FormatDateTime
(
@dt DATETIME,
@format VARCHAR(16)
)
RETURNS VARCHAR(64)
AS
BEGIN
DECLARE @dtVC VARCHAR(64)
SELECT @dtVC = CASE @format

WHEN 'LONGDATE' THEN

DATENAME(dw, @dt)
+ ',' + SPACE(1) + DATENAME(m, @dt)
+ SPACE(1) + CAST(DAY(@dt) AS VARCHAR(2))
+ ',' + SPACE(1) + CAST(YEAR(@dt) AS CHAR(4))

WHEN 'LONGDATEANDTIME' THEN

DATENAME(dw, @dt)
+ ',' + SPACE(1) + DATENAME(m, @dt)
+ SPACE(1) + CAST(DAY(@dt) AS VARCHAR(2))
+ ',' + SPACE(1) + CAST(YEAR(@dt) AS CHAR(4))
+ SPACE(1) + RIGHT(CONVERT(CHAR(20),
@dt - CONVERT(DATETIME, CONVERT(CHAR(8),
@dt, 112)), 22), 11)

WHEN 'SHORTDATE' THEN

LEFT(CONVERT(CHAR(19), @dt, 0), 11)

WHEN 'SHORTDATEANDTIME' THEN

REPLACE(REPLACE(CONVERT(CHAR(19), @dt, 0),
'AM', ' AM'), 'PM', ' PM')

WHEN 'UNIXTIMESTAMP' THEN

CAST(DATEDIFF(SECOND, '19700101', @dt)
AS VARCHAR(64))

WHEN 'YYYYMMDD' THEN

CONVERT(CHAR(8), @dt, 112)

WHEN 'YYYY-MM-DD' THEN

CONVERT(CHAR(10), @dt, 23)

WHEN 'YYMMDD' THEN

CONVERT(VARCHAR(8), @dt, 12)

WHEN 'YY-MM-DD' THEN

STUFF(STUFF(CONVERT(VARCHAR(8), @dt, 12),
5, 0, '-'), 3, 0, '-')

WHEN 'MMDDYY' THEN

REPLACE(CONVERT(CHAR(8), @dt, 10), '-', SPACE(0))

WHEN 'MM-DD-YY' THEN

CONVERT(CHAR(8), @dt, 10)

WHEN 'MM/DD/YY' THEN

CONVERT(CHAR(8), @dt, 1)

WHEN 'MM/DD/YYYY' THEN

CONVERT(CHAR(10), @dt, 101)

WHEN 'DDMMYY' THEN

REPLACE(CONVERT(CHAR(8), @dt, 3), '/', SPACE(0))

WHEN 'DD-MM-YY' THEN

REPLACE(CONVERT(CHAR(8), @dt, 3), '/', '-')

WHEN 'DD/MM/YY' THEN

CONVERT(CHAR(8), @dt, 3)

WHEN 'DD/MM/YYYY' THEN

CONVERT(CHAR(10), @dt, 103)

WHEN 'HH:MM:SS 24' THEN

CONVERT(CHAR(8), @dt, 8)

WHEN 'HH:MM 24' THEN

LEFT(CONVERT(VARCHAR(8), @dt, 8), 5)

WHEN 'HH:MM:SS 12' THEN

LTRIM(RIGHT(CONVERT(VARCHAR(20), @dt, 22), 11))

WHEN 'HH:MM 12' THEN

LTRIM(SUBSTRING(CONVERT(
VARCHAR(20), @dt, 22), 10, 5)
+ RIGHT(CONVERT(VARCHAR(20), @dt, 22), 3))

ELSE

'Invalid format specified'

END
RETURN @dtVC
END
GO

Ejemplos:

DECLARE @now DATETIME
SET @now = GETDATE()

PRINT dbo.FormatDateTime(@now, 'LONGDATE')
PRINT dbo.FormatDateTime(@now, 'LONGDATEANDTIME')
PRINT dbo.FormatDateTime(@now, 'SHORTDATE')
PRINT dbo.FormatDateTime(@now, 'SHORTDATEANDTIME')
PRINT dbo.FormatDateTime(@now, 'UNIXTIMESTAMP')
PRINT dbo.FormatDateTime(@now, 'YYYYMMDD')
PRINT dbo.FormatDateTime(@now, 'YYYY-MM-DD')
PRINT dbo.FormatDateTime(@now, 'YYMMDD')
PRINT dbo.FormatDateTime(@now, 'YY-MM-DD')
PRINT dbo.FormatDateTime(@now, 'MMDDYY')
PRINT dbo.FormatDateTime(@now, 'MM-DD-YY')
PRINT dbo.FormatDateTime(@now, 'MM/DD/YY')
PRINT dbo.FormatDateTime(@now, 'MM/DD/YYYY')
PRINT dbo.FormatDateTime(@now, 'DDMMYY')
PRINT dbo.FormatDateTime(@now, 'DD-MM-YY')
PRINT dbo.FormatDateTime(@now, 'DD/MM/YY')
PRINT dbo.FormatDateTime(@now, 'DD/MM/YYYY')
PRINT dbo.FormatDateTime(@now, 'HH:MM:SS 24')
PRINT dbo.FormatDateTime(@now, 'HH:MM 24')
PRINT dbo.FormatDateTime(@now, 'HH:MM:SS 12')
PRINT dbo.FormatDateTime(@now, 'HH:MM 12')
PRINT dbo.FormatDateTime(@now, 'goofy')

Posteado al foro por Omar Squiabro

== Anular Tecla Escape ==

Hay veces que se necesita que el usuario salga de una FORM o de una ventana solo cuando pulse un determinado boton o se halla completado alguna condicion. Y en estos casos puede suceder que si el usuario pulsa la tecla ESC cause algun problema

Primero hay que activar la alerta de la tecla esc en el INIT de la ventana

ALERT(EscKey)

Despues en el evento alertkey

IF KEYCODE() = EscKey
SELECT(?UnDeterminadoCampo) !1= al primero
RETURN Level:Notify
END

Si el codigo embebido es puesto despues del codigo generado por clarion reemplazar el RETURN por CYCLE

Ruben Garcia [http://www.programaya.com (DiPS)]

== Convertir Número Hexadecimal a Binario ==
A veces, y sobre todo al trabajar con estados de puertos de comunicaciones, necesitamos convertir numeros hexadecimales a binario para establecer errores o tratar envios y recepciones.
Esta función hace justamente esto de forma sencilla.

HexaABinario PROCEDURE(PAR:Nhexa) ! (String),String
HBinario String(4),dim(16) !Equivalencias
RetuBina String(100) !Variable Retorno

CODE
HBinario[01] = '0000' ! 0h
HBinario[02] = '0001' ! 1h
HBinario[03] = '0010' ! 2h
HBinario[04] = '0011' ! 3h
HBinario[05] = '0100' ! 4h
HBinario[06] = '0101' ! 5h
HBinario[07] = '0110' ! 6h
HBinario[08] = '0111' ! 7h
HBinario[09] = '1000' ! 8h
HBinario[10] = '1001' ! 9h
HBinario[11] = '1010' ! Ah 65
HBinario[12] = '1011' ! Bh 66
HBinario[13] = '1100' ! Ch 67
HBinario[14] = '1101' ! Dh 68
HBinario[15] = '1110' ! Eh 69
HBinario[16] = '1111' ! Fh 70
CLEAR(RetuBina)
PAR:NHexa = UPPER(PAR:NHexa) !Aseguro letras en mayusculas
LOOP I# = 1 to LEN(CLIP(PAR:NHexa))
IF NUMERIC(PAR:NHexa[I#]) THEN !Si es numero es <= 9
!Asigno equivalente
RetuBina = CLIP(RetuBina) & HBinario[PAR:NHexa[I#]+1]
ELSE
!Asigno equivalente tomando,por ejemplo, 65 - 54 = 11 para "A"
RetuBina = CLIP(RetuBina) & HBinario[VAL(PAR:NHexa[I#])-54]
END
END
!Retorno la cadena binaria sin ceros a la izquierda
RETURN(SUB(RetuBina, INSTRING('1',RetuBina), LEN(CLIP(RetuBina))))

Bueno, espero les sea de utilidad!

Mario A. Wojcik

Comunidad Clarion

2015-03-08T00:03:08Z

Jorge Brugger: /* Bases de conocimiento gratuitas */

== Soporte ==

=== Grupos de noticias ===

[news://news.softvelocity.com/softvelocity.clarion.intl.spanish Grupo de soporte oficial en Español]

Server: news.softvelocity.com

Grupo: softvelocity.clarion.intl.spanish

=== Foro Clarioneros ===

[http://www.clarioneros.com www.clarioneros.com]

=== Clarionhub (en inglés) ===

[http://www.clarionhub.com www.clarionhub.com]

== Bases de conocimiento gratuitas ==

[http://www.par2.com/CWS/C5LAUNCH.DLL/FAQS/THEFAQS.EXE.0 Par2.com Just the FAQs]

[http://www.icetips.com/articleindex.php Icetips Articles]

[http://www.clariondeveloper.net/modules/smartfaq/ ClarionDeveloper FAQs]

[http://faq.clarionmag.com ClarionFAQ en Clarion Magazine]

[http://www.nettalkcentral.com/ Sitio web de soporte de Nettalk de Capesoft]

[http://www.ClarionLive.com/ ClarionLive (Webinars y tutoriales muy útiles)]

[http://www.templatesclarion.com.ar/download/ Manuales y Howto's de Clarion Templates (en español)]

== Repositorios de archivos ==

[http://www.clariondeveloper.net/modules/wfdownloads/ ClarionDeveloper downloads]

[http://www.icetips.com/ftp/ Icetips FTP]

[http://www.par2.com/CWS/C5LAUNCH.DLL/D7.EXE.0 Par2.com Download Center]

[http://http://templatesclarion.com.ar/downloads/ Templates Clarion - Downloads]

[http://www.dasu.com.ar/clarion DASU]

Puntos Embebidos

2015-03-07T23:06:17Z

Jorge Brugger: /* Cuando se produce el borrado sin abrir el Form */

Los puntos embebidos son la pesadilla de todo principiante de Clarion. Son extremadamente útiles, pero son muy difíciles de aprender. Para colmo, la abstracción que implementa la clase ABC hace más difícil todavía conocerlos y aprovecharlos. Por eso esta sección es de vital importancia.

== FORMULARIOS ==
=== ¿Qué procedimiento llamó al Form? ===
Al principio del WindowManager.Init del Form (primer prioridad disponible)

GlobalErrors.GetProcedureName()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones complejas ===
Por ejemplo validar un Email:
En el accepted del campo
Puedes hacerlo con MATCH, ejemplo:

X# = MATCH(UPPER(CLIP(locemail)),|
'^[-A-Z0-9._]+@{{[-A-Z0-9._]+.}+[A-Z][A-Z][A-Z]?[A-Z]?$', Match:Regular)

Devuelve 1 o 0 si el mail no es válido.
El MATCH puede usarse con expresiones regulares para validar casi cualquier cosa...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se Abre/inicializa el Form ===
ThisWindow.Init
!Es interesante entrar por el botón source a este embed para entender bien todas sus prioridades
!GlobalRequest (pasada por el browse) se guarda en la propiedad ThisWindow.Request
!Se puede preguntar por SELF.Request para saber para qué se lo llamó al form:
!InsertRecord EQUATE (1)
!ChangeRecord EQUATE (2)
!DeleteRecord EQUATE (3)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar el Form a "Solo lectura" ante una condición===
ThisWindow.Init
! [Priority 4950] La prioridad es importante!
IF FAC:facturado = 1 THEN SELF.Request = ViewRecord.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Truco: Llamar al form para insertar desde el menú ===
Podríamos asumir que si la GlobalRequest está en blanco es que se lo
llamó para insertar, evitaríamos asi el paso por un Browse
!Al principio del Init (antes de Snap-Shot global Request):
!If GlobalRequest = 0 Then GlobalRequest = InsertRecord.

Si la tabla tiene una clave Autonumber, se complica un poco mas, sería asi:
!Al principio del Init (antes de Snap-Shot global Request):
!Por ej prioridad 300
If GlobalRequest = 0
GlobalRequest = InsertRecord
DesdeMenu# = True
End

!Después de Open Files:
!Por ej prioridad 7800
If DesdeMenu# = True
Access:People.PrimeAutoinc()
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Llamar a un form para editar una tabla con un solo registro ===
Típicamente una tabla de parametros, obviamente no queremos pasar por un browse
WindowManager.Init,
!al principio
GlobalRequest = ChangeRecord

!Luego de Open files
Set(Tabla)
access:Tabla.Next()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se confirma un Form ===
ThisWindow.TakeCompleted
! [Priority 2800]
!ANTES DE QUE SE CONFIRME LA GRABACION
! Parent Call
ReturnValue = PARENT.TakeCompleted()
! [Priority 6300]
!YA SE GRABÓ EL REGISTRO.
!VERIFICAR SI SELF.Response=RequestCompleted A VER SI SE GRABÓ OK.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se cierra un Form ===
ThisWindow.Kill
!VERIFICAR LOS valores de SELF.Request y SELF.Response
!Para decidir que acciones tomar
!Este punto ya es "demasiado tarde" para hacer algo antes de que se grabe el registro
!Para eso usar TakeCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se produce el borrado sin abrir el Form ===
Si tenemos un form para actualizar una tabla, y definimos que el borrado sea Confirmando (Standard Warning) o Automático (Automatic Delete), y necesitamos ejecutar un código en el form cuando se efectúe el borrado, usamos:

ThisWindow.PrimeUpdate, después del Parent Call

if self.request = DeleteRecord and self.Response = RequestCompleted
!lo que quiero hacer
end

Hay que tener en cuenta que el borrado de un registro no pasa por el TakeCompleted, excepto cuando se usa la ventana del form (Display Form).

Aporte de Gustavo Olmedo [http://templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Chequear si se modificó cualquier campo del FORM ===

En el TakeCompleted ponemos el siguiente código:

IF NOT SELF.Primary.Me.EqualBuffer(SELF.Saved)
! message('Cambio')
END

Aporte de Pablo Guarnieri y Gustavo Olmendo

=== Chequear si se modificó un campo del FORM ===

IF CLI:Campo <> history::CLI:Record.Campo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Forzar grabación del form ===

Este código sirve para grabar el form inclusive cuando el usuario lo cancele

TakeCloseEvent PROCEDURE(),BYTE,VIRTUAL
IF loc:condicion
SELF.CancelAction = Cancel:Save !immediate save (no confirmation)
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Filtrar un Drop Combo ===

Este código sirve para filtrar un drop combo utilizando pro:sqlfilter, suponemos que en
la variable loc:filtro se arma el filtro ha enviar, algo asi como: 'a.idtercero = <39>90909090<39>'
FDCB14 es el nombre del objeto el cual se puede verificar en propiedades --> clases.

ApplyFilter PROCEDURE,VIRTUAL
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = <39>'&clip(loc:filtro)&'<39>'
IF FILEERRORCODE()
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = ''
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Obtener el número autogenerado por SQL Server en tablas con identity ===
Después del Parent Call, en el TakeCompleted del Form:
IF Self.Response=RequestCompleted AND Self.Request = InsertRecord
Tabla{prop:Sql}= 'SELECT @@IDENTITY' !busco el número que se asignó
IF not Access:Tabla.Next()
!en el primer campo de Tabla viene cargado el número autogenerado
else
message('Error')
end
end

Tomado de una respuesta de Fernando Cerini en el foro.

== REPORTES Y PROCESOS ==
=== Ocultar un campo del detalle según condición ===
!En TakeRecord, antes del Print (Process Manager)
IF <CONDICION>
REPORT$?Control{PROP:HIDE}=True
ELSE
REPORT$?Control{PROP:HIDE}=False !si la condición no se cumple, vuelvo a hacer visible el control
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Saber si un proceso se completó ===
O sea que no se salió por el botón de cancelar
!En el WindowManager.Kill
IF Self.Response = RequestCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Inicializar el número de página ===
!WindowManager.OpenReport, despues del Parent Call
IF ReturnValue = Level:Benign
Report{PROP:NextPageNo} = xxx
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Deshabilitar la impresión ===
!Local Objects, Abc Objects, Previewer, Display, After ParentCall.
!impresión prohibida
ReturnValue = False

Por ejemplo:

If ReturnValue and DemoVersion
ReturnValue = False
Message("Está utilizando una versión del demo, no puede imprimir este documento !")
End
Aporte de Olivier Cretey

Otra opción, en Previewer.TakeAccepted, antes del Parent Call
IF CLIP(ACCEPTED(){PROP:TIP}) = 'Print this report' THEN RETURN LEVEL:BENIGN.

O sea pregunto por el Tool Tip del botón que se ha presionado. Ojo, si lo tienes traducido tienes que cambiar el 'Print this report' por tu Tool Tip.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un Proceso ===
!Windows Manager -->> Validate Records -->> [Priority 5600]
If <Condición de Filtro>
Return Record:Filtered
Else
Return Record:OK
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Habilitar o deshabilitar el Print Preview ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
Self.SkipPreview = Loc:Preview

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Cantidad de Páginas generadas ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
ENDPAGE(SELF.Report)
Loc:Paginas = RECORDS(SELF.PreviewQueue)

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Imprimir un Transporte ===
Necesitas crear 3 details.
DetailDatos
DetailTransporte: aca van las variables locales con los totales
DetailSalto: este detail es vacío y con la propiedad PageAfter

En el embed TakeRecord (antes de los PRINTs) habría que hacer algo asi
LOC:Fila += 1
If LOC:Fila % 28 = 0 !28 líneas por página...
PRINT(RPT:DetailSalto)
PRINT(RPT:DetailTransporte)
LOC:Fila = 1
End
LOC:Total += LIBRO:Total
PRINT (RPT:Detalle)
RETURN LEVEL:Benign

Marcelo Martínez
y [mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Acelerar las actualizaciones ===
Para que los procesos que agreguen registros funcionen mas rápido hay que agregar un Logout o Stream en Init y un Commit o Flush en el kill.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Se imprime o se Cancela? ===
Los embeds son
ABC Objectd
--WindowManager(ReportManager)
--CancelPrintReport
-Se Cancela

--PrintReport
-Se imprime

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Recorrer la cola de las páginas ===
Cada página del reporte genera una imagen .WMF, la cual se guarda en el directorio temporal.
Con este ejemplo se puede recorrer la cola donde se guardan los nombres de estos archivos. Ésto es lo que usa por ejemplo el [http://templatesclarion.com.ar/downloads/ EC_Mail Template] para enviar estas páginas por mail.
Previewer.Open PROCEDURE
....
loop a# = 1 to RECORDS(SELF.ImageQueue)
get(SELF.ImageQueue,a#)
message(SELF.ImageQueue)
end

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir una Queue ===
La mejor forma de hacerlo en Clarion6 es en Report Properties - General -
Datasource: Queue.

Yo generalmente pongo los parametros en la ventana y cargo la queue en el
evento accepted del PauseButton.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir un SQL ===
Lo que yo hago es poner todos los parámetros en la ventana del reporte.
En el accepted del boton de pausa cargo la cola de memoria con:

SQL{PROP:SQL} = !aca armo el string SQL
IF ERRORCODE() THEN STOP( FILEERROR()).
FREE(ColaMemoria)
LOOP
NEXT(SQL) !O ABC, como prefieras...
IF ERRORCODE() THEN BREAK.
ColaMemoria :=: SQL:Record
ADD(ColaMemoria)
END

El reporte lo configuro para trabajar con la cola (data source) y en el
Detail del reporte pongo los campos de la cola de memoria.
Lo ideal es tener una cola de memoria global con el atributo thread y usar
siempre la misma para todo.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar o hacer cortes de control manuales en reportes ===
En TakeRecord, antes del Print.

!Actualizar contadores

IF AUX <> CampoCorte
IF AUX <> 0 !para evitar la primera vez
!Inicializar los contadores
END
AUX=CAMPO
!SE VIENE EL CORTE
END

Este método TakeRecord se usa también para actualizar cualquier variable calculada antes de la impresión de la banda de detalle.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo BLOB ===
Este código va en el método TakeRecord, antes del PRINT

Report$?Image1{PROP:NoWidth} = TRUE
Report$?Image1{PROP:NoHeight} = TRUE
Report$?Image1{PROP:ImageBlob} = STU:Photograph{PROP:Handle}
IF Report$?Image1{PROP:Height} > 1000
AspectRatio$ = Report$?Image1{PROP:Width}/Report$?Image1{PROP:Height}
Report$?Image1{PROP:Height} = 1000
Report$?Image1{PROP:Width} = 1000 * AspectRatio$
END
IF Report$?Image1{PROP:Width} > 1000
AspectRatio$ = Report$?Image1{PROP:Height}/Report$?Image1{PROP:Width}
Report$?Image1{PROP:Width} = 1000
Report$?Image1{PROP:Height} = 1000 * AspectRatio$
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo CSTRING ===
Este caso es similar al anterior, pero en el campo se encuentra el path donde está la imagen
!En el método TakeRecord, antes del PRINT
Report$?Image1{PROP:Text} = PRO:Foto

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Evitar el cartel "No records to process" en un proceso ===
!En el metodo TAKE NO RECORDS poner un RETURN antes del parent call.
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir el reporte en blanco, cuando no hay registros ===
En WindowManager. Next, antes del Parent Call con prioridad 500.

! [Priority 500] antes del Parent Call
If Primera=0 !variable local byte
Primera=1
SELF.Process.RecordsProcessed = 1
Return Level:Benign
End
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Cuando hay filtros y rangos, esta solución suele duplicar el primer registro del detalle.
Para Solucionar esto en ProcessManager NextPROCEDURE(BYTE ProcessRecord) con prioridad 7500 se debe colocar el siguiente código:

IF ReturnValue = 0 AND LOC:Primera = 0 THEN !Si hay un registro
LOC:Primera = 1 !Dejo al reporte seguir su curso normal
END

Mario Wojcik

=== Detectar el último registro en un process o Reporte (fin de archivo) ===
ThisProcess.Next PROCEDURE(BYTE ProcessRecords=True)
! [Priority 5001]
If ReturnValue = 5 !Level:Notify
!Fin del proceso
End

Esto por ejemplo es muy útil para cambiar etiquetas en los totales generales del reporte, en un page footer
ThisReport.Next PROCEDURE(BYTE ProcessRecords)
....
! [Priority 5001] despues del Parent Call
If ReturnValue = 5 !Level:Notify
REPORT$?LabelTotal{prop:text}= 'Total'
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Reporte con múltiples detalles ===
Por Ejemplo:

Viajes
|-->pasajeros
|-->comisiones

Habría que poner solo la tabla viajes en el Table Schematic. Pasajeros y Comisiones en Other Tables

En el reporte crear 3 details, uno para cada tabla.

En ThisReport.TakeRecord, antes de los PRINTs

! [Priority 5500]
PRINT(RPT:DetailViaje)
CLEAR(PAS:RECORD)
PAS:idViaje = VIA:IdViaje
SET(PAS:ClavePorViaje, PAS:ClavePorViaje)
LOOP UNTIL ACCESS:Pasajeros.Next() OR PAS:idViaje <> VIA:IdViaje
PRINT(RPT:DetailPasajeros)
END
!Y lo mismo para las comisiones
CLEAR(COM:RECORD)
COM:idViaje = VIA:IdViaje
SET(COM:ClavePorViaje, COM:ClavePorViaje)
LOOP UNTIL ACCESS:Comisiones.Next() OR COM:idViaje <> VIA:IdViaje
PRINT(RPT:DetailComisiones)
END
Return Level:Benign !ya imprimí todo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Otra alternativa podría ser utilizando el Template '''ReportChildFiles''' (desde version 6.X ?) ya que puede ser utilizado mas de una vez en un mismo reporte, apuntando cada instancia a un archivo "hijo" diferente.
Es fácil de configurar: Se debe seleccionar la tabla CHILD y la PARENT. En el reporte hay que definir el REPORT DETAIL (para el CHILD) y ponerle algún nombre en el label que luego debe ser configurado en el Template.

Jose Sturniolo

=== Imprimir exactamente lo que estamos viendo en el browse ===
En el browse pones un botón que llame al reporte y en parameters:
(Brw1.view{PROP:Filter}, Brw1.view{PROP:Order})

En las propiedades del reporte o proceso:
Prototype: (STRING, STRING)
Parameters: (FILTRO, ORDEN)

En WindowManager.Init, al final:
ThisReport.SetFilter(FILTRO) ! o ThisProcess....
ThisReport.SetOrder(ORDEN)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar tamaño de hoja en el reporte ===
En el embed WindowManager 'OpenReport', PRIORITY(7500)

IF ~ReturnValue
SETTARGET(REPORT)
CASE PRINTER{PROPPRINT:Paper}
OF PAPER:LETTER
REPORT{PROP:height} = 8500
?Footer{PROP:Ypos} = 9000
OF PAPER:LEGAL
REPORT{PROP:height} = 11000
?Footer{PROP:Ypos} = 11500
etc.
END
SETTARGET()
END

etc. con los tamaños de papel que quieras.
Esto acomoda el contenido del reporte en run-time, haciéndolo ocupar más
o menos hoja según sea el largo de la misma. Chiche, ¿no?.
Ajustá los valores a tus necesidades.
Para tener en cuenta: el usuario tiene que elegir el tamaño del papel
ANTES de generar el reporte. Si ya está en la vista previa, el reporte ya
está generado, por lo tanto si cambia el largo de hoja ahí, no se lo va a
tomar.

Jorge Lavera

=== Cambiar Impresora ===
En Global Properties-->Embeds-->Before Global INCLUDEs
INCLUDE('PRNPROP.CLW')
!para poder acceder a las propiedades de las impresoras

Luego en el Reporte en
ThisReport.Open()
!para guardar la impresora por defecto de Windows
GLO:IMPRESORA = PRINTER{PROPPRINT:Device}
!Seteo la impresora que quiero usar.
!El string debe ser igual al que figura en IMPRESORAS
PRINTER{PROPPRINT:Device} = 'HP Deskjet 840'

y por último en
ThisReport.Kill()
!para devolver la impresora por defecto de windows
PRINTER{PROPPRINT:Device} = CLIP(GLO:IMPRESORA)

Guillermo Ondetti, Pragma Sistemas

=== Detectar Salto de Página de Reporte ===
Este sería el codigo, siempre y cuando no tengas break groups (ahi se complica bastante)
El embebido es TakeRecord en ABC, o Before Print Detail en Legacy.
VarLocal += REPORT$?Detail{PROP:height}
IF VarLocal > REPORT{PROP:height}
VarLocal = REPORT$?Detail{PROP:height}
!En el siguiente PRINT Cambia la página...
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Aplicar Filtro sql en el reporte ===
Se arma el filtro si se quiere en una variable por ejemlo loc:sql
y se aplica en Local Objects --> Abc Objects -- > Process manager --> Apply Filter antes del parent call, asi:

Process:View{Prop:SqlFilter}=Loc:SQL

Ivan Dario Benitez

=== Imprimir mas de una Copia por Reporte ===
Se tiene que poner en el Window Manager --> Open (Prioridad(5000))

PRINTER{PROPPRINT:COPIES}=n !! n = Cantidad de copias

Luego es aconsejable poner en el Window Manager --> Kill

PRINTER{PROPPRINT:COPIES}=1

ASC Sergio D. Caballero

== BROWSES ==
=== Actualizar un campo al hacer click en una columna ===
Por ejemplo, en People.app

En el evento Accepted del Control del browse.
!Si se hizo click en el campo
IF ?BROWSE:1{PropList:MouseDownField}= 4
ACCESS:PEOPLE.Fetch(PEO:KeyId)
PEO:Gender = 'X'
ACCESS:PEOPLE.Update()
BRW1.ResetFromFile()
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtrar con SQL===
A veces es muy útil aplicar un filtro SQL encima de todos los demas filtros que ya tenga el browse, por ejemplo para filtrar por usuario, por sucursal, etc.
Yo normalmente le pongo el filtro SQL en el método windowmanager.Reset,
prioridad 5000
BRW1.View{PROP:SQLFILTER}='+ filtro sql'
Luego se refresca normalmente, o manualmente con ThisWindow.Reset (1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Activar un Browse invisible, o sea que está en otro TAB ===
Esto es especialmente útil cuando necesitamos que se ejecuten totalizadores del browse aunque éste no esté visible en la pantalla.
!ABC Objects ->
Local Objects ->
Windows Manager->
Init Priority[7500]
BRW2.ActiveInvisible = True

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Copiar un Registro ===

!ABC Objects -> Browse on Clientes -> PrimeRecord Priority[4500]
IF Loc:Copiar
SuppressClear = True
CLEAR(Loc:Copiar)
END!IF

!Control Events --> Copiar -> Accepted -> Priority[5000]
Loc:Copiar = True
POST(EVENT:Accepted,?UseDelBotonAgregar)

!Notas: Crear Variable Local Loc:Copiar
! SuppressClear es un Parametro de BrowseClass.PrimeRecord

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar el Popup ===
!ABC Objects -> Local Objects -> Windows Manager-->>Init Priority[9001]
Brw1.Popup.KILL

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Ordenamiento Dinámico ===
En Clarion6 se puede hacer automáticamente con la opcion Sort Headers.
Si se quiere hacer desde código para ordenar por cualquier campo, se puede utilizar:
Brw1.SetOrder('TAB:Campo')
Brw1.ApplyOrder()
ThisWindow.Reset(1)
Por ejemplo si quisiera emular un ordenamiento con el doble click sobre una columna, habría que alertar el doble click en al browse, y el código sería mas o menos asi.
Control Event -> Browse:1 ->Alert Key [4500]
! Código usado para cambiar el Orden del Browse
! cuando se hace doble click en la columna
IF KEYCODE()=MouseLeft2
?Browse:1{PropList:Header,1} ='Codigo'
?Browse:1{PropList:Header,2} ='Nombre'
Loc:Columna = ?Browse:1{PropList:MouseDownField}
CASE Loc:Columna
OF 1
?Browse:1{PropList:Header,1} ='<<<CODIGO>>>'
Brw1.SetOrder('LCA:LOCALIDAD')
OF 2
?Browse:1{PropList:Header,2} ='<<<NOMBRE>>>>'
Brw1.SetOrder('UPPER(LCA:NOMBRE)')
END!CASE
Brw1.ApplyOrder()
ThisWindow.Reset(1)
END!IF

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Locator Múltiple ===
Por ejemplo, para posicionarme en un código de cuenta contable:
Lo que podrías hacer es poner una variable string sobre el browse y poner un
código mas o menos asi en su accepted del entry

!Asumiendo que cada código tiene cuatro dígitos
!Revisar la sección String Slicing en el Help
Cue:Cuenta = Loc:Cuenta[1:4]
Cue:SubCuenta = Loc:Cuenta[5:8]
Cue:SubSubCuenta = Loc:Cuenta[9:12]
SET(Cue:PorCodigo,Cue:PorCodigo)
Access:Cuentas.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

Otro ejempo, en un browse de órdenes, posicionarse según el nombre del cliente

CLI:Nombre = LOC:Cliente
SET(CLI:PorNombre, CLI:PorNombre)
ACCESS:Clientes.Next()

ORD:CodCliente = CLI:CodCliente
SET(ORD:PorCliente, ORD:PorCliente)
ACCESS:Ordenes.Next()

BRW1.ResetFromFile()
ThisWindow.Reset(1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Pintar un browse según un campo ===
Por ejemplo cuando vemos las facturas de un Cliente se repite el nombre, este código pinta diferente cada grupo de nombres.
Primero hay que ponerle el atributo color al campo que necesites pintar, desde list box format.
Luego va el siguiente código, en WindowManager.Reset antes del Parent Call

Aux = ''
LOOP F#= 1 TO RECORDS (BRW1.Q)
GET(BRW1.Q, F#)
IF Aux <> BRW1.Q.CLI:Nombre
Col# = 1- Col#
Aux = BRW1.Q.CLI:Nombre
END
If Col#
BRW1.Q.CLI:Nombre_NormalBG = COLOR:SILVER
Else
BRW1.Q.CLI:Nombre_NormalBG = COLOR:WHITE
End
PUT(BRW1.Q)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Refrescar un browse desde otra ventana ===
Lo mas fácil sería usando NOTIFY.
En la Ventana 1 (la del browse a refrescar)
WindowManager.Init
GLO:THREAD = THREAD() !VARIABLE GLOBAL LONG

Window Events
Notify
BRW1.ResetfromBuffer() ! o ThisWindow.Reset(1)?

En la ventana 2, cuando se necesite refrescar la 1
NOTIFY (999, GLO:THREAD)

Puede ser 999 o cualquier cosa ya que en éste caso no estoy usando ese parámetro.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Iniciar el browse en un Tab determinado ===
En ThisWindow.Init, al final
SELF.FirstField = ?Tab:4 !Use del tab

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Actualizar el resultado de un totaling del browse de detalle, en el Encabezado ===
En el Browse de abajo (el de detalle)
ResetFromView, prioridad 4500 - La prioridad es importante
GET(Encabezado, ENC:Por_Numero)
ENC:Total = loc:total !ÉSTA ES LA VARIABLE DEL TOTALING
PUT (Encabezado)
IF ERRORCODE() THEN MESSAGE(ERROR()).
BRW1.ResetFromFile()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtro Dinámico ===
Poner un control Text donde el usuario pueda escribir cualquier filtro
X# = EVALUATE(Filtro)
IF ERRORCODE()
MESSAGE('ERROR DE SINTAXIS EN EL FILTRO: ' & ERROR(), 'ATENCION')
ELSE
BRW1.SetFilter(Filtro)
ThisWindow.Reset(1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Rangos múltiples y dinámicos ===
Si tenemos una clave con varios componentes, en Actions del browse ponemos un rango por current value, elegimos el componente de la clave hasta el cual queremos hacer el rango.
El siguiente componente de la clave se puede usar como locator.
Por ejemplo si tenemos una clave con Tipo+Provincia+Localidad, hacemos un rango de current value por provincia y nos queda un locator por localidad.

BRW1.ApplyRange PROCEDURE
! [Priority 5000]
RAN:Tipo= loc:tipo
RAN:Provincia=loc:provincia
SELF.Order.Rangelist.AssignLeftToRight()

En algun boton de aplicar rango
BRW1.ApplyRange()
ThisWindow.Reset(1)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, deshabilitar condicionalmente la actualización de registros ===
IF <Condición>
!Deshabilitar Actualización
BRW1.InsertControl=FALSE
BRW1.ChangeControl=FALSE
BRW1.DeleteControl=FALSE
ELSE
BRW1.InsertControl=?INSERT
BRW1.ChangeControl=?CHANGE
BRW1.DeleteControl=?DELETE
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar el cambio de registro seleccionado en un Browse ===
Ejemplo mostrar una foto del cliente al costado del browse
BRW1.TakeNewSelection PROCEDURE
! [Priority 5001]
!EN CLI:FOTO ESTA EL PATH COMPLETO DE LA FOTO
IF CLI:FOTO <> ''
?Foto{PROP:TEXT}= CLI:FOTO
ELSE
?Foto{PROP:TEXT}= ''
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un browse ===
Ejemplo: Mostrar sólo los clientes que tengan alguna orden

BRW1.ValidateRecord PROCEDURE
! [Priority 5001]
!FILTROS COMPLEJOS
!EJ: MOSTRAR SOLO LOS CLIENTES QUE TENGAN ALGUNA ORDEN
CLEAR(ORD:RECORD)
Ord:CodigoCliente=CLI:ID
SET(Ord:FK_Ordenes_CLIENTES,Ord:FK_Ordenes_CLIENTES)
NEXT(ORDENES)
IF ERRORCODE() OR (Ord:CodigoCliente <> CLI:ID) THEN RETURN Record:Filtered.

RETURN Record:OK
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Poner un campo "saldo" en un browse ===
ThisWindow.Reset, antes del Parent Call

S#=0
LOOP F#= 1 TO RECORDS (Queue:Browse:1)
GET(Queue:Browse:1, F#)
S# += Queue:Browse:1.ORD:Total_Impo
Queue:Browse:1.Saldo = S#
PUT(Queue:Browse:1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Resetear/inicializar un Locator ===
El método a ejecutar es
BRW1::Sort1:Locator.Set

Los nombres de las instancias de Locators por cada TAB se llaman:
BRW1::Sort0:Locator.Set
BRW1::Sort1:Locator.Set
BRW1::Sort2:Locator.Set
!etc..

Luego sería bueno volver a poner el foco en el browse para que se pueda seguir usando el locator normalmente
select (?Browse:1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, disparar un procedimiento después de generar un alta, modificación, etc. ===

El proceso a disparar se hace desde el browse, la idea es saber si del Form volvió aceptando o canceló la actualización. El punto embebido es:

Local Objects
BRW1 (o el objeto de tipo browse class que sea)
ResetFromAsk (después del Parent.call)

IF VCRRequest=VCR:None
CASE Request
OF InsertRecord
IF Response = RequestCompleted
!Hacer algún proceso
END
END
END!

=== Inserción continua refrescando el Browse ===
Este otro método es similar al anterior, también sirve para lo mismo.
Agrego un ejemplo para hacer inserción continua en el Form y además se vaya actualizando el browse

ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)
! Cuidado que existen dos ThisWindow.Run, seleccionar el correcto
! [Priority 8500]
IF Request = InsertRecord And ReturnValue = RequestCompleted
POST(EVENT:ACCEPTED, BRW1.InsertControl)
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Posicionar un browse en un registro seleccionado ===

Al abrir un browse a veces necesitamos posicionar el selector en un registro determinado, tal como lo hacen los browses para selección.

Por ejemplo para posicionar el browse en el registro más cercano al proporcionado por el usuario:

ThisWindow.Open PROCEDURE
! Start of "WindowManager Method Data Section"
! [Priority 5000]
! End of "WindowManager Method Data Section"
CODE
! Start of "WindowManager Method Executable Code Section"
! [Priority 500]
CLI:cliente= LOC:Cliente
ACCESS:Clientes.fetch(CLI:Kcodigo)
BRW1.selecting=1
! Parent Call
PARENT.Open()
! [Priority 6300]
BRW1.selecting=0

Otra idea, propuesta por Matías Flores:
Ubicarlo por el valor de los campos de la clave. Por ejemplo, si en un browse de clientes querés posicionarte en un cliente que tiene un código determinado (Loc:Codigo):

Cli:Codigo = Loc:Codigo
SET(Cli:PorCodigo,Cli:PorCodigo)
Access:Clientes.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

un ejemplo parecido al anterior, pero en legacy, sería:
CLI:Codigo = LOC:Codigo
BRW1::LocateMode = LocateOnValue
DO BRW1::LocateRecord

Una opción más es:
En el WindowManager.init, antes de Initialize browse y después de OpenFiles, colocar el siguiente código:

BRWx.StartAtCurrent = True
TAB:Campo = Valor_Buscado
get(Tabla, TAB:Key_que_ordena_por_Campo)

=== En Legacy, activar un filtro sobre un browse abierto. ===

Esto se pone en el punto embebido "Before opening VIEW". Acordarse de BINDEAR todas las variables que se necesiten.

!---ANTES DE ABRIR EL VIEW---
if SoloPendientes then
BRW2::View:Browse{Prop:Filter} = |
'MER:numertra = BRW2::Sort1:Reset:TRA:numertra AND MER:saldunid <> 0'
end

=== Campos Calculados ===
Por ejemplo cuando quieras presentar el nombre completo sin los espacios de un campo a otro. Pones en el browse una variable local.
En el SETQUEUERECORD (4500)

Loc:ApellidoNombre = clip(CON:Apellido) & ' ' & CON:Nombre

!(Tip de Alex B.)

=== Código antes y después de una actualización DESDE UN BROWSE. ===

- Antes de la llamada al Form de actualización
! ABC Objects -> Browse on Archvivo ->Ask Priority[4500]
IF Request = InsertRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR ALTA ','ALTA',ICON:EXCLAMATION)
ELSIF Request = ChangeRecord
BEEP
MESSAGE('ATENCION: SE VA A ACTUALIZAR ','CAMBIO',ICON:EXCLAMATION)
ELSIF Request = DeleteRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR DE BAJA ','BAJA',ICON:EXCLAMATION)
END

- Después de la actualización del registro
!ABC Objects -> Browse on Provincia ->Ask Priority[5500]
IF ReturnValue =1
BEEP
MESSAGE('ATENCIÓN: SE ACTUALIZÓ EL REGISTRO','ACTUALIZÓ OK',ICON:EXCLAMATION)
ELSIF ReturnValue =2
BEEP
MESSAGE('SE CANCELÓ LA ACTUALIZACIÓN DEL REGISTRO','ATENCIÓN',ICON:HAND)
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar/esconder (cambiar a PROP:HIDE) un control si el browse está vacío - pe. un botón-. ===

En el Browse.UpdateWindow(), última prioridad:
?TuBoton{PROP:Disable}=Choose(Self.Records()<>0,0,1)

===Iniciar un browse con un orden "sort header"===

Si queremos que al abrir un browse el mismo se encuentre ordenado como si hubiéramos hecho click en el sortheader, ponemos luego del generated code del evento openwindow lo siguiente:

BRW1::SortHeader.SetSortFromString('TAB:Campo')

donde TAB:Campo es uno de los campos de la tabla que estoy mostrando en el browse.

== EDIT IN PLACE==
=== Edit in Place o Form, según condición ===
En BrowseClass, Ask, antes del Parent Call
If ?browse:1{proplist:mousedownfield} = 5
Self.AskProcedure = 0
else
Self.AskProcedure = 1
end

Puede usarse cualquier condición, en este caso si el usuario hace doble click en la 5a columna se usa edit in place, sino se usa el formulario

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Desactivar Edit in Place de un campo según condición ===
En las propiedades del EIP del campo admitir la edición del mismo.

En el EIP Field Manager del campo, TakeEvent, antes del Parent Call
if Queue:Browse:1.TAB:Campo_de_mi_Tabla > 0
Return EditAction:Cancel
thiswindow.reset(true)
end

En este ejemplo sólo permito que pueda editarse el campo si el valor actual del mismo es <= 0

=== Inicializar campos al insertar registro ===
O sea lo que hace el Prime Fields en las formas
ABC Objects
BROWSE ON TABLA using ?LIST
PrimeRecords
Después del Parent Call
TPS:TuCampo= valor inicial

=== Poner Disable un campo===
Local Objects -->>
Abc Objects -->>
EIP Field Manag...for Field NombreCampo
-->>Init [Priority 5001]
If SELF.FEQ then SELF.FEQ{Prop:Disable} = true.
También se pueden cambiar otras propiedades como por ejemplo UPPER (mayúsculas) o READ ONLY (sólo lectura)
If SELF.FEQ
SELF.FEQ{prop:readonly} = TRUE
SELF.FEQ{prop:upr} = TRUE
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Campos Calculados ===
Por ejemplo Modificar el total cuando cambia la cantidad.
Primero agregar el campo cantidad en Column Specific
EditInPlace::DET:Cantidad.TakeEvent PROCEDURE(UNSIGNED Event)
....
!Despues del Parent Call

CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
BRW1.Q.DET:Total = BRW1.Q.DET:Cantidad * BRW1.Q.DET:Importe
!Etc... siempre haciendo referencia a los campos de la cola BRW1.Q.
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones ===
Por ejemplo una validación básica de un número requerido
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:NroDocumento
-->>Take Event [Priority 5001]
! Validación del nro. de Documento
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
UPDATE(Self.Feq)
IF NOT BRW1.Q.Cli:NroDocumento
BEEP(BEEP:SystemExclamation) ; YIELD()
MESSAGE('No se informó el número de Documento', |
'Atención!', ICON:Exclamation)
ReturnValue = EditAction:NONE
Return ReturnValue
END
END

Validación con un lookup a una tabla
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:Provincia
-->>Take Event [Priority 5001]
!Valida Provincia
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
Pro:Codigo= BRW1.Q.Cli:Provincia
IF Access:Provincia.Fetch(Pro:PorCodigo)
GlobalRequest = SelectRecord
SelectProvincia
IF NOT Pro:Codigo
ReturnValue = EditAction:NONE
Return ReturnValue
ELSE
BRW1.Q.Cli:Provincia = Pro:Codigo
BRW1.Q.Pro:NOMBRE = Pro:NOMBRE
END
END
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== GLOBALES ==

=== Cambiar los mensajes de error del SQL ===
Con cambiar los TRN no alcanza para ese tipo de errores.

Lo que se puede hacer es determinar el mensaje que viene desde el SQLServer
para mostrar un mensaje mas amigable.

El embebido es
Global Embeds:
Global Objets
Abc Objects
Error Manager
TakeNotify
!Antes del Parent Call
IF INSTRING('COLUMN REFERENCE', SELF.SubsString(),1,1)
SELF.Msg('El registro no puede borrarse porque tiene datos de detalle
que dependen de él. |Presione [OK] para una descripción detallada del
error',SELF.GetErrorBufferTitle(),ICON:Exclamation,Button:OK,BUTTON:OK,0)
END

Hay que armar un IF de estos por cada tipo de error...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validación de campos (Edit in place o Form)===

Para validar campos lo ideal es usar los Global Embeds
Global Embeds
Field Level Validation
Tabla
Campo
IF <No cumple Condición>
Message('error...')
RETURN Level:Notify
END

Esto te va a funcionar "para siempre" ya sea que uses Edit in place, un Form
o código embebido para actualizar la tabla.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Puntos Embebidos

2015-03-07T23:05:58Z

Jorge Brugger:

Los puntos embebidos son la pesadilla de todo principiante de Clarion. Son extremadamente útiles, pero son muy difíciles de aprender. Para colmo, la abstracción que implementa la clase ABC hace más difícil todavía conocerlos y aprovecharlos. Por eso esta sección es de vital importancia.

== FORMULARIOS ==
=== ¿Qué procedimiento llamó al Form? ===
Al principio del WindowManager.Init del Form (primer prioridad disponible)

GlobalErrors.GetProcedureName()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones complejas ===
Por ejemplo validar un Email:
En el accepted del campo
Puedes hacerlo con MATCH, ejemplo:

X# = MATCH(UPPER(CLIP(locemail)),|
'^[-A-Z0-9._]+@{{[-A-Z0-9._]+.}+[A-Z][A-Z][A-Z]?[A-Z]?$', Match:Regular)

Devuelve 1 o 0 si el mail no es válido.
El MATCH puede usarse con expresiones regulares para validar casi cualquier cosa...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se Abre/inicializa el Form ===
ThisWindow.Init
!Es interesante entrar por el botón source a este embed para entender bien todas sus prioridades
!GlobalRequest (pasada por el browse) se guarda en la propiedad ThisWindow.Request
!Se puede preguntar por SELF.Request para saber para qué se lo llamó al form:
!InsertRecord EQUATE (1)
!ChangeRecord EQUATE (2)
!DeleteRecord EQUATE (3)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar el Form a "Solo lectura" ante una condición===
ThisWindow.Init
! [Priority 4950] La prioridad es importante!
IF FAC:facturado = 1 THEN SELF.Request = ViewRecord.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Truco: Llamar al form para insertar desde el menú ===
Podríamos asumir que si la GlobalRequest está en blanco es que se lo
llamó para insertar, evitaríamos asi el paso por un Browse
!Al principio del Init (antes de Snap-Shot global Request):
!If GlobalRequest = 0 Then GlobalRequest = InsertRecord.

Si la tabla tiene una clave Autonumber, se complica un poco mas, sería asi:
!Al principio del Init (antes de Snap-Shot global Request):
!Por ej prioridad 300
If GlobalRequest = 0
GlobalRequest = InsertRecord
DesdeMenu# = True
End

!Después de Open Files:
!Por ej prioridad 7800
If DesdeMenu# = True
Access:People.PrimeAutoinc()
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Llamar a un form para editar una tabla con un solo registro ===
Típicamente una tabla de parametros, obviamente no queremos pasar por un browse
WindowManager.Init,
!al principio
GlobalRequest = ChangeRecord

!Luego de Open files
Set(Tabla)
access:Tabla.Next()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se confirma un Form ===
ThisWindow.TakeCompleted
! [Priority 2800]
!ANTES DE QUE SE CONFIRME LA GRABACION
! Parent Call
ReturnValue = PARENT.TakeCompleted()
! [Priority 6300]
!YA SE GRABÓ EL REGISTRO.
!VERIFICAR SI SELF.Response=RequestCompleted A VER SI SE GRABÓ OK.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se cierra un Form ===
ThisWindow.Kill
!VERIFICAR LOS valores de SELF.Request y SELF.Response
!Para decidir que acciones tomar
!Este punto ya es "demasiado tarde" para hacer algo antes de que se grabe el registro
!Para eso usar TakeCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se produce el borrado sin abrir el Form ===
Si tenemos un form para actualizar una tabla, y definimos que el borrado sea Confirmando (Standard Warning) o Automático (Automatic Delete), y necesitamos ejecutar un código en el form cuando se efectúe el borrado, usamos:

ThisWindow.PrimeUpdate, después del Parent Call

if self.request = DeleteRecord and self.Response = RequestCompleted
!lo que quiero hacer
end

Hay que tener en cuenta que el borrado de un registro no pasa por el TakeCompleted, excepto cuando se usa la ventana del form (Display Form).

Aporte de Gustavo Olmedo [http://templatesclarion.com.ar/downloads/ (Templates Clarion)] (Templates Clarion)]

=== Chequear si se modificó cualquier campo del FORM ===

En el TakeCompleted ponemos el siguiente código:

IF NOT SELF.Primary.Me.EqualBuffer(SELF.Saved)
! message('Cambio')
END

Aporte de Pablo Guarnieri y Gustavo Olmendo

=== Chequear si se modificó un campo del FORM ===

IF CLI:Campo <> history::CLI:Record.Campo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Forzar grabación del form ===

Este código sirve para grabar el form inclusive cuando el usuario lo cancele

TakeCloseEvent PROCEDURE(),BYTE,VIRTUAL
IF loc:condicion
SELF.CancelAction = Cancel:Save !immediate save (no confirmation)
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Filtrar un Drop Combo ===

Este código sirve para filtrar un drop combo utilizando pro:sqlfilter, suponemos que en
la variable loc:filtro se arma el filtro ha enviar, algo asi como: 'a.idtercero = <39>90909090<39>'
FDCB14 es el nombre del objeto el cual se puede verificar en propiedades --> clases.

ApplyFilter PROCEDURE,VIRTUAL
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = <39>'&clip(loc:filtro)&'<39>'
IF FILEERRORCODE()
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = ''
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Obtener el número autogenerado por SQL Server en tablas con identity ===
Después del Parent Call, en el TakeCompleted del Form:
IF Self.Response=RequestCompleted AND Self.Request = InsertRecord
Tabla{prop:Sql}= 'SELECT @@IDENTITY' !busco el número que se asignó
IF not Access:Tabla.Next()
!en el primer campo de Tabla viene cargado el número autogenerado
else
message('Error')
end
end

Tomado de una respuesta de Fernando Cerini en el foro.

== REPORTES Y PROCESOS ==
=== Ocultar un campo del detalle según condición ===
!En TakeRecord, antes del Print (Process Manager)
IF <CONDICION>
REPORT$?Control{PROP:HIDE}=True
ELSE
REPORT$?Control{PROP:HIDE}=False !si la condición no se cumple, vuelvo a hacer visible el control
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Saber si un proceso se completó ===
O sea que no se salió por el botón de cancelar
!En el WindowManager.Kill
IF Self.Response = RequestCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Inicializar el número de página ===
!WindowManager.OpenReport, despues del Parent Call
IF ReturnValue = Level:Benign
Report{PROP:NextPageNo} = xxx
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Deshabilitar la impresión ===
!Local Objects, Abc Objects, Previewer, Display, After ParentCall.
!impresión prohibida
ReturnValue = False

Por ejemplo:

If ReturnValue and DemoVersion
ReturnValue = False
Message("Está utilizando una versión del demo, no puede imprimir este documento !")
End
Aporte de Olivier Cretey

Otra opción, en Previewer.TakeAccepted, antes del Parent Call
IF CLIP(ACCEPTED(){PROP:TIP}) = 'Print this report' THEN RETURN LEVEL:BENIGN.

O sea pregunto por el Tool Tip del botón que se ha presionado. Ojo, si lo tienes traducido tienes que cambiar el 'Print this report' por tu Tool Tip.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un Proceso ===
!Windows Manager -->> Validate Records -->> [Priority 5600]
If <Condición de Filtro>
Return Record:Filtered
Else
Return Record:OK
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Habilitar o deshabilitar el Print Preview ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
Self.SkipPreview = Loc:Preview

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Cantidad de Páginas generadas ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
ENDPAGE(SELF.Report)
Loc:Paginas = RECORDS(SELF.PreviewQueue)

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Imprimir un Transporte ===
Necesitas crear 3 details.
DetailDatos
DetailTransporte: aca van las variables locales con los totales
DetailSalto: este detail es vacío y con la propiedad PageAfter

En el embed TakeRecord (antes de los PRINTs) habría que hacer algo asi
LOC:Fila += 1
If LOC:Fila % 28 = 0 !28 líneas por página...
PRINT(RPT:DetailSalto)
PRINT(RPT:DetailTransporte)
LOC:Fila = 1
End
LOC:Total += LIBRO:Total
PRINT (RPT:Detalle)
RETURN LEVEL:Benign

Marcelo Martínez
y [mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Acelerar las actualizaciones ===
Para que los procesos que agreguen registros funcionen mas rápido hay que agregar un Logout o Stream en Init y un Commit o Flush en el kill.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Se imprime o se Cancela? ===
Los embeds son
ABC Objectd
--WindowManager(ReportManager)
--CancelPrintReport
-Se Cancela

--PrintReport
-Se imprime

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Recorrer la cola de las páginas ===
Cada página del reporte genera una imagen .WMF, la cual se guarda en el directorio temporal.
Con este ejemplo se puede recorrer la cola donde se guardan los nombres de estos archivos. Ésto es lo que usa por ejemplo el [http://templatesclarion.com.ar/downloads/ EC_Mail Template] para enviar estas páginas por mail.
Previewer.Open PROCEDURE
....
loop a# = 1 to RECORDS(SELF.ImageQueue)
get(SELF.ImageQueue,a#)
message(SELF.ImageQueue)
end

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir una Queue ===
La mejor forma de hacerlo en Clarion6 es en Report Properties - General -
Datasource: Queue.

Yo generalmente pongo los parametros en la ventana y cargo la queue en el
evento accepted del PauseButton.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir un SQL ===
Lo que yo hago es poner todos los parámetros en la ventana del reporte.
En el accepted del boton de pausa cargo la cola de memoria con:

SQL{PROP:SQL} = !aca armo el string SQL
IF ERRORCODE() THEN STOP( FILEERROR()).
FREE(ColaMemoria)
LOOP
NEXT(SQL) !O ABC, como prefieras...
IF ERRORCODE() THEN BREAK.
ColaMemoria :=: SQL:Record
ADD(ColaMemoria)
END

El reporte lo configuro para trabajar con la cola (data source) y en el
Detail del reporte pongo los campos de la cola de memoria.
Lo ideal es tener una cola de memoria global con el atributo thread y usar
siempre la misma para todo.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar o hacer cortes de control manuales en reportes ===
En TakeRecord, antes del Print.

!Actualizar contadores

IF AUX <> CampoCorte
IF AUX <> 0 !para evitar la primera vez
!Inicializar los contadores
END
AUX=CAMPO
!SE VIENE EL CORTE
END

Este método TakeRecord se usa también para actualizar cualquier variable calculada antes de la impresión de la banda de detalle.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo BLOB ===
Este código va en el método TakeRecord, antes del PRINT

Report$?Image1{PROP:NoWidth} = TRUE
Report$?Image1{PROP:NoHeight} = TRUE
Report$?Image1{PROP:ImageBlob} = STU:Photograph{PROP:Handle}
IF Report$?Image1{PROP:Height} > 1000
AspectRatio$ = Report$?Image1{PROP:Width}/Report$?Image1{PROP:Height}
Report$?Image1{PROP:Height} = 1000
Report$?Image1{PROP:Width} = 1000 * AspectRatio$
END
IF Report$?Image1{PROP:Width} > 1000
AspectRatio$ = Report$?Image1{PROP:Height}/Report$?Image1{PROP:Width}
Report$?Image1{PROP:Width} = 1000
Report$?Image1{PROP:Height} = 1000 * AspectRatio$
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo CSTRING ===
Este caso es similar al anterior, pero en el campo se encuentra el path donde está la imagen
!En el método TakeRecord, antes del PRINT
Report$?Image1{PROP:Text} = PRO:Foto

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Evitar el cartel "No records to process" en un proceso ===
!En el metodo TAKE NO RECORDS poner un RETURN antes del parent call.
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir el reporte en blanco, cuando no hay registros ===
En WindowManager. Next, antes del Parent Call con prioridad 500.

! [Priority 500] antes del Parent Call
If Primera=0 !variable local byte
Primera=1
SELF.Process.RecordsProcessed = 1
Return Level:Benign
End
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Cuando hay filtros y rangos, esta solución suele duplicar el primer registro del detalle.
Para Solucionar esto en ProcessManager NextPROCEDURE(BYTE ProcessRecord) con prioridad 7500 se debe colocar el siguiente código:

IF ReturnValue = 0 AND LOC:Primera = 0 THEN !Si hay un registro
LOC:Primera = 1 !Dejo al reporte seguir su curso normal
END

Mario Wojcik

=== Detectar el último registro en un process o Reporte (fin de archivo) ===
ThisProcess.Next PROCEDURE(BYTE ProcessRecords=True)
! [Priority 5001]
If ReturnValue = 5 !Level:Notify
!Fin del proceso
End

Esto por ejemplo es muy útil para cambiar etiquetas en los totales generales del reporte, en un page footer
ThisReport.Next PROCEDURE(BYTE ProcessRecords)
....
! [Priority 5001] despues del Parent Call
If ReturnValue = 5 !Level:Notify
REPORT$?LabelTotal{prop:text}= 'Total'
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Reporte con múltiples detalles ===
Por Ejemplo:

Viajes
|-->pasajeros
|-->comisiones

Habría que poner solo la tabla viajes en el Table Schematic. Pasajeros y Comisiones en Other Tables

En el reporte crear 3 details, uno para cada tabla.

En ThisReport.TakeRecord, antes de los PRINTs

! [Priority 5500]
PRINT(RPT:DetailViaje)
CLEAR(PAS:RECORD)
PAS:idViaje = VIA:IdViaje
SET(PAS:ClavePorViaje, PAS:ClavePorViaje)
LOOP UNTIL ACCESS:Pasajeros.Next() OR PAS:idViaje <> VIA:IdViaje
PRINT(RPT:DetailPasajeros)
END
!Y lo mismo para las comisiones
CLEAR(COM:RECORD)
COM:idViaje = VIA:IdViaje
SET(COM:ClavePorViaje, COM:ClavePorViaje)
LOOP UNTIL ACCESS:Comisiones.Next() OR COM:idViaje <> VIA:IdViaje
PRINT(RPT:DetailComisiones)
END
Return Level:Benign !ya imprimí todo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Otra alternativa podría ser utilizando el Template '''ReportChildFiles''' (desde version 6.X ?) ya que puede ser utilizado mas de una vez en un mismo reporte, apuntando cada instancia a un archivo "hijo" diferente.
Es fácil de configurar: Se debe seleccionar la tabla CHILD y la PARENT. En el reporte hay que definir el REPORT DETAIL (para el CHILD) y ponerle algún nombre en el label que luego debe ser configurado en el Template.

Jose Sturniolo

=== Imprimir exactamente lo que estamos viendo en el browse ===
En el browse pones un botón que llame al reporte y en parameters:
(Brw1.view{PROP:Filter}, Brw1.view{PROP:Order})

En las propiedades del reporte o proceso:
Prototype: (STRING, STRING)
Parameters: (FILTRO, ORDEN)

En WindowManager.Init, al final:
ThisReport.SetFilter(FILTRO) ! o ThisProcess....
ThisReport.SetOrder(ORDEN)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar tamaño de hoja en el reporte ===
En el embed WindowManager 'OpenReport', PRIORITY(7500)

IF ~ReturnValue
SETTARGET(REPORT)
CASE PRINTER{PROPPRINT:Paper}
OF PAPER:LETTER
REPORT{PROP:height} = 8500
?Footer{PROP:Ypos} = 9000
OF PAPER:LEGAL
REPORT{PROP:height} = 11000
?Footer{PROP:Ypos} = 11500
etc.
END
SETTARGET()
END

etc. con los tamaños de papel que quieras.
Esto acomoda el contenido del reporte en run-time, haciéndolo ocupar más
o menos hoja según sea el largo de la misma. Chiche, ¿no?.
Ajustá los valores a tus necesidades.
Para tener en cuenta: el usuario tiene que elegir el tamaño del papel
ANTES de generar el reporte. Si ya está en la vista previa, el reporte ya
está generado, por lo tanto si cambia el largo de hoja ahí, no se lo va a
tomar.

Jorge Lavera

=== Cambiar Impresora ===
En Global Properties-->Embeds-->Before Global INCLUDEs
INCLUDE('PRNPROP.CLW')
!para poder acceder a las propiedades de las impresoras

Luego en el Reporte en
ThisReport.Open()
!para guardar la impresora por defecto de Windows
GLO:IMPRESORA = PRINTER{PROPPRINT:Device}
!Seteo la impresora que quiero usar.
!El string debe ser igual al que figura en IMPRESORAS
PRINTER{PROPPRINT:Device} = 'HP Deskjet 840'

y por último en
ThisReport.Kill()
!para devolver la impresora por defecto de windows
PRINTER{PROPPRINT:Device} = CLIP(GLO:IMPRESORA)

Guillermo Ondetti, Pragma Sistemas

=== Detectar Salto de Página de Reporte ===
Este sería el codigo, siempre y cuando no tengas break groups (ahi se complica bastante)
El embebido es TakeRecord en ABC, o Before Print Detail en Legacy.
VarLocal += REPORT$?Detail{PROP:height}
IF VarLocal > REPORT{PROP:height}
VarLocal = REPORT$?Detail{PROP:height}
!En el siguiente PRINT Cambia la página...
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Aplicar Filtro sql en el reporte ===
Se arma el filtro si se quiere en una variable por ejemlo loc:sql
y se aplica en Local Objects --> Abc Objects -- > Process manager --> Apply Filter antes del parent call, asi:

Process:View{Prop:SqlFilter}=Loc:SQL

Ivan Dario Benitez

=== Imprimir mas de una Copia por Reporte ===
Se tiene que poner en el Window Manager --> Open (Prioridad(5000))

PRINTER{PROPPRINT:COPIES}=n !! n = Cantidad de copias

Luego es aconsejable poner en el Window Manager --> Kill

PRINTER{PROPPRINT:COPIES}=1

ASC Sergio D. Caballero

== BROWSES ==
=== Actualizar un campo al hacer click en una columna ===
Por ejemplo, en People.app

En el evento Accepted del Control del browse.
!Si se hizo click en el campo
IF ?BROWSE:1{PropList:MouseDownField}= 4
ACCESS:PEOPLE.Fetch(PEO:KeyId)
PEO:Gender = 'X'
ACCESS:PEOPLE.Update()
BRW1.ResetFromFile()
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtrar con SQL===
A veces es muy útil aplicar un filtro SQL encima de todos los demas filtros que ya tenga el browse, por ejemplo para filtrar por usuario, por sucursal, etc.
Yo normalmente le pongo el filtro SQL en el método windowmanager.Reset,
prioridad 5000
BRW1.View{PROP:SQLFILTER}='+ filtro sql'
Luego se refresca normalmente, o manualmente con ThisWindow.Reset (1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Activar un Browse invisible, o sea que está en otro TAB ===
Esto es especialmente útil cuando necesitamos que se ejecuten totalizadores del browse aunque éste no esté visible en la pantalla.
!ABC Objects ->
Local Objects ->
Windows Manager->
Init Priority[7500]
BRW2.ActiveInvisible = True

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Copiar un Registro ===

!ABC Objects -> Browse on Clientes -> PrimeRecord Priority[4500]
IF Loc:Copiar
SuppressClear = True
CLEAR(Loc:Copiar)
END!IF

!Control Events --> Copiar -> Accepted -> Priority[5000]
Loc:Copiar = True
POST(EVENT:Accepted,?UseDelBotonAgregar)

!Notas: Crear Variable Local Loc:Copiar
! SuppressClear es un Parametro de BrowseClass.PrimeRecord

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar el Popup ===
!ABC Objects -> Local Objects -> Windows Manager-->>Init Priority[9001]
Brw1.Popup.KILL

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Ordenamiento Dinámico ===
En Clarion6 se puede hacer automáticamente con la opcion Sort Headers.
Si se quiere hacer desde código para ordenar por cualquier campo, se puede utilizar:
Brw1.SetOrder('TAB:Campo')
Brw1.ApplyOrder()
ThisWindow.Reset(1)
Por ejemplo si quisiera emular un ordenamiento con el doble click sobre una columna, habría que alertar el doble click en al browse, y el código sería mas o menos asi.
Control Event -> Browse:1 ->Alert Key [4500]
! Código usado para cambiar el Orden del Browse
! cuando se hace doble click en la columna
IF KEYCODE()=MouseLeft2
?Browse:1{PropList:Header,1} ='Codigo'
?Browse:1{PropList:Header,2} ='Nombre'
Loc:Columna = ?Browse:1{PropList:MouseDownField}
CASE Loc:Columna
OF 1
?Browse:1{PropList:Header,1} ='<<<CODIGO>>>'
Brw1.SetOrder('LCA:LOCALIDAD')
OF 2
?Browse:1{PropList:Header,2} ='<<<NOMBRE>>>>'
Brw1.SetOrder('UPPER(LCA:NOMBRE)')
END!CASE
Brw1.ApplyOrder()
ThisWindow.Reset(1)
END!IF

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Locator Múltiple ===
Por ejemplo, para posicionarme en un código de cuenta contable:
Lo que podrías hacer es poner una variable string sobre el browse y poner un
código mas o menos asi en su accepted del entry

!Asumiendo que cada código tiene cuatro dígitos
!Revisar la sección String Slicing en el Help
Cue:Cuenta = Loc:Cuenta[1:4]
Cue:SubCuenta = Loc:Cuenta[5:8]
Cue:SubSubCuenta = Loc:Cuenta[9:12]
SET(Cue:PorCodigo,Cue:PorCodigo)
Access:Cuentas.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

Otro ejempo, en un browse de órdenes, posicionarse según el nombre del cliente

CLI:Nombre = LOC:Cliente
SET(CLI:PorNombre, CLI:PorNombre)
ACCESS:Clientes.Next()

ORD:CodCliente = CLI:CodCliente
SET(ORD:PorCliente, ORD:PorCliente)
ACCESS:Ordenes.Next()

BRW1.ResetFromFile()
ThisWindow.Reset(1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Pintar un browse según un campo ===
Por ejemplo cuando vemos las facturas de un Cliente se repite el nombre, este código pinta diferente cada grupo de nombres.
Primero hay que ponerle el atributo color al campo que necesites pintar, desde list box format.
Luego va el siguiente código, en WindowManager.Reset antes del Parent Call

Aux = ''
LOOP F#= 1 TO RECORDS (BRW1.Q)
GET(BRW1.Q, F#)
IF Aux <> BRW1.Q.CLI:Nombre
Col# = 1- Col#
Aux = BRW1.Q.CLI:Nombre
END
If Col#
BRW1.Q.CLI:Nombre_NormalBG = COLOR:SILVER
Else
BRW1.Q.CLI:Nombre_NormalBG = COLOR:WHITE
End
PUT(BRW1.Q)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Refrescar un browse desde otra ventana ===
Lo mas fácil sería usando NOTIFY.
En la Ventana 1 (la del browse a refrescar)
WindowManager.Init
GLO:THREAD = THREAD() !VARIABLE GLOBAL LONG

Window Events
Notify
BRW1.ResetfromBuffer() ! o ThisWindow.Reset(1)?

En la ventana 2, cuando se necesite refrescar la 1
NOTIFY (999, GLO:THREAD)

Puede ser 999 o cualquier cosa ya que en éste caso no estoy usando ese parámetro.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Iniciar el browse en un Tab determinado ===
En ThisWindow.Init, al final
SELF.FirstField = ?Tab:4 !Use del tab

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Actualizar el resultado de un totaling del browse de detalle, en el Encabezado ===
En el Browse de abajo (el de detalle)
ResetFromView, prioridad 4500 - La prioridad es importante
GET(Encabezado, ENC:Por_Numero)
ENC:Total = loc:total !ÉSTA ES LA VARIABLE DEL TOTALING
PUT (Encabezado)
IF ERRORCODE() THEN MESSAGE(ERROR()).
BRW1.ResetFromFile()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtro Dinámico ===
Poner un control Text donde el usuario pueda escribir cualquier filtro
X# = EVALUATE(Filtro)
IF ERRORCODE()
MESSAGE('ERROR DE SINTAXIS EN EL FILTRO: ' & ERROR(), 'ATENCION')
ELSE
BRW1.SetFilter(Filtro)
ThisWindow.Reset(1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Rangos múltiples y dinámicos ===
Si tenemos una clave con varios componentes, en Actions del browse ponemos un rango por current value, elegimos el componente de la clave hasta el cual queremos hacer el rango.
El siguiente componente de la clave se puede usar como locator.
Por ejemplo si tenemos una clave con Tipo+Provincia+Localidad, hacemos un rango de current value por provincia y nos queda un locator por localidad.

BRW1.ApplyRange PROCEDURE
! [Priority 5000]
RAN:Tipo= loc:tipo
RAN:Provincia=loc:provincia
SELF.Order.Rangelist.AssignLeftToRight()

En algun boton de aplicar rango
BRW1.ApplyRange()
ThisWindow.Reset(1)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, deshabilitar condicionalmente la actualización de registros ===
IF <Condición>
!Deshabilitar Actualización
BRW1.InsertControl=FALSE
BRW1.ChangeControl=FALSE
BRW1.DeleteControl=FALSE
ELSE
BRW1.InsertControl=?INSERT
BRW1.ChangeControl=?CHANGE
BRW1.DeleteControl=?DELETE
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar el cambio de registro seleccionado en un Browse ===
Ejemplo mostrar una foto del cliente al costado del browse
BRW1.TakeNewSelection PROCEDURE
! [Priority 5001]
!EN CLI:FOTO ESTA EL PATH COMPLETO DE LA FOTO
IF CLI:FOTO <> ''
?Foto{PROP:TEXT}= CLI:FOTO
ELSE
?Foto{PROP:TEXT}= ''
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un browse ===
Ejemplo: Mostrar sólo los clientes que tengan alguna orden

BRW1.ValidateRecord PROCEDURE
! [Priority 5001]
!FILTROS COMPLEJOS
!EJ: MOSTRAR SOLO LOS CLIENTES QUE TENGAN ALGUNA ORDEN
CLEAR(ORD:RECORD)
Ord:CodigoCliente=CLI:ID
SET(Ord:FK_Ordenes_CLIENTES,Ord:FK_Ordenes_CLIENTES)
NEXT(ORDENES)
IF ERRORCODE() OR (Ord:CodigoCliente <> CLI:ID) THEN RETURN Record:Filtered.

RETURN Record:OK
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Poner un campo "saldo" en un browse ===
ThisWindow.Reset, antes del Parent Call

S#=0
LOOP F#= 1 TO RECORDS (Queue:Browse:1)
GET(Queue:Browse:1, F#)
S# += Queue:Browse:1.ORD:Total_Impo
Queue:Browse:1.Saldo = S#
PUT(Queue:Browse:1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Resetear/inicializar un Locator ===
El método a ejecutar es
BRW1::Sort1:Locator.Set

Los nombres de las instancias de Locators por cada TAB se llaman:
BRW1::Sort0:Locator.Set
BRW1::Sort1:Locator.Set
BRW1::Sort2:Locator.Set
!etc..

Luego sería bueno volver a poner el foco en el browse para que se pueda seguir usando el locator normalmente
select (?Browse:1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, disparar un procedimiento después de generar un alta, modificación, etc. ===

El proceso a disparar se hace desde el browse, la idea es saber si del Form volvió aceptando o canceló la actualización. El punto embebido es:

Local Objects
BRW1 (o el objeto de tipo browse class que sea)
ResetFromAsk (después del Parent.call)

IF VCRRequest=VCR:None
CASE Request
OF InsertRecord
IF Response = RequestCompleted
!Hacer algún proceso
END
END
END!

=== Inserción continua refrescando el Browse ===
Este otro método es similar al anterior, también sirve para lo mismo.
Agrego un ejemplo para hacer inserción continua en el Form y además se vaya actualizando el browse

ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)
! Cuidado que existen dos ThisWindow.Run, seleccionar el correcto
! [Priority 8500]
IF Request = InsertRecord And ReturnValue = RequestCompleted
POST(EVENT:ACCEPTED, BRW1.InsertControl)
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Posicionar un browse en un registro seleccionado ===

Al abrir un browse a veces necesitamos posicionar el selector en un registro determinado, tal como lo hacen los browses para selección.

Por ejemplo para posicionar el browse en el registro más cercano al proporcionado por el usuario:

ThisWindow.Open PROCEDURE
! Start of "WindowManager Method Data Section"
! [Priority 5000]
! End of "WindowManager Method Data Section"
CODE
! Start of "WindowManager Method Executable Code Section"
! [Priority 500]
CLI:cliente= LOC:Cliente
ACCESS:Clientes.fetch(CLI:Kcodigo)
BRW1.selecting=1
! Parent Call
PARENT.Open()
! [Priority 6300]
BRW1.selecting=0

Otra idea, propuesta por Matías Flores:
Ubicarlo por el valor de los campos de la clave. Por ejemplo, si en un browse de clientes querés posicionarte en un cliente que tiene un código determinado (Loc:Codigo):

Cli:Codigo = Loc:Codigo
SET(Cli:PorCodigo,Cli:PorCodigo)
Access:Clientes.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

un ejemplo parecido al anterior, pero en legacy, sería:
CLI:Codigo = LOC:Codigo
BRW1::LocateMode = LocateOnValue
DO BRW1::LocateRecord

Una opción más es:
En el WindowManager.init, antes de Initialize browse y después de OpenFiles, colocar el siguiente código:

BRWx.StartAtCurrent = True
TAB:Campo = Valor_Buscado
get(Tabla, TAB:Key_que_ordena_por_Campo)

=== En Legacy, activar un filtro sobre un browse abierto. ===

Esto se pone en el punto embebido "Before opening VIEW". Acordarse de BINDEAR todas las variables que se necesiten.

!---ANTES DE ABRIR EL VIEW---
if SoloPendientes then
BRW2::View:Browse{Prop:Filter} = |
'MER:numertra = BRW2::Sort1:Reset:TRA:numertra AND MER:saldunid <> 0'
end

=== Campos Calculados ===
Por ejemplo cuando quieras presentar el nombre completo sin los espacios de un campo a otro. Pones en el browse una variable local.
En el SETQUEUERECORD (4500)

Loc:ApellidoNombre = clip(CON:Apellido) & ' ' & CON:Nombre

!(Tip de Alex B.)

=== Código antes y después de una actualización DESDE UN BROWSE. ===

- Antes de la llamada al Form de actualización
! ABC Objects -> Browse on Archvivo ->Ask Priority[4500]
IF Request = InsertRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR ALTA ','ALTA',ICON:EXCLAMATION)
ELSIF Request = ChangeRecord
BEEP
MESSAGE('ATENCION: SE VA A ACTUALIZAR ','CAMBIO',ICON:EXCLAMATION)
ELSIF Request = DeleteRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR DE BAJA ','BAJA',ICON:EXCLAMATION)
END

- Después de la actualización del registro
!ABC Objects -> Browse on Provincia ->Ask Priority[5500]
IF ReturnValue =1
BEEP
MESSAGE('ATENCIÓN: SE ACTUALIZÓ EL REGISTRO','ACTUALIZÓ OK',ICON:EXCLAMATION)
ELSIF ReturnValue =2
BEEP
MESSAGE('SE CANCELÓ LA ACTUALIZACIÓN DEL REGISTRO','ATENCIÓN',ICON:HAND)
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar/esconder (cambiar a PROP:HIDE) un control si el browse está vacío - pe. un botón-. ===

En el Browse.UpdateWindow(), última prioridad:
?TuBoton{PROP:Disable}=Choose(Self.Records()<>0,0,1)

===Iniciar un browse con un orden "sort header"===

Si queremos que al abrir un browse el mismo se encuentre ordenado como si hubiéramos hecho click en el sortheader, ponemos luego del generated code del evento openwindow lo siguiente:

BRW1::SortHeader.SetSortFromString('TAB:Campo')

donde TAB:Campo es uno de los campos de la tabla que estoy mostrando en el browse.

== EDIT IN PLACE==
=== Edit in Place o Form, según condición ===
En BrowseClass, Ask, antes del Parent Call
If ?browse:1{proplist:mousedownfield} = 5
Self.AskProcedure = 0
else
Self.AskProcedure = 1
end

Puede usarse cualquier condición, en este caso si el usuario hace doble click en la 5a columna se usa edit in place, sino se usa el formulario

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Desactivar Edit in Place de un campo según condición ===
En las propiedades del EIP del campo admitir la edición del mismo.

En el EIP Field Manager del campo, TakeEvent, antes del Parent Call
if Queue:Browse:1.TAB:Campo_de_mi_Tabla > 0
Return EditAction:Cancel
thiswindow.reset(true)
end

En este ejemplo sólo permito que pueda editarse el campo si el valor actual del mismo es <= 0

=== Inicializar campos al insertar registro ===
O sea lo que hace el Prime Fields en las formas
ABC Objects
BROWSE ON TABLA using ?LIST
PrimeRecords
Después del Parent Call
TPS:TuCampo= valor inicial

=== Poner Disable un campo===
Local Objects -->>
Abc Objects -->>
EIP Field Manag...for Field NombreCampo
-->>Init [Priority 5001]
If SELF.FEQ then SELF.FEQ{Prop:Disable} = true.
También se pueden cambiar otras propiedades como por ejemplo UPPER (mayúsculas) o READ ONLY (sólo lectura)
If SELF.FEQ
SELF.FEQ{prop:readonly} = TRUE
SELF.FEQ{prop:upr} = TRUE
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Campos Calculados ===
Por ejemplo Modificar el total cuando cambia la cantidad.
Primero agregar el campo cantidad en Column Specific
EditInPlace::DET:Cantidad.TakeEvent PROCEDURE(UNSIGNED Event)
....
!Despues del Parent Call

CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
BRW1.Q.DET:Total = BRW1.Q.DET:Cantidad * BRW1.Q.DET:Importe
!Etc... siempre haciendo referencia a los campos de la cola BRW1.Q.
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones ===
Por ejemplo una validación básica de un número requerido
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:NroDocumento
-->>Take Event [Priority 5001]
! Validación del nro. de Documento
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
UPDATE(Self.Feq)
IF NOT BRW1.Q.Cli:NroDocumento
BEEP(BEEP:SystemExclamation) ; YIELD()
MESSAGE('No se informó el número de Documento', |
'Atención!', ICON:Exclamation)
ReturnValue = EditAction:NONE
Return ReturnValue
END
END

Validación con un lookup a una tabla
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:Provincia
-->>Take Event [Priority 5001]
!Valida Provincia
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
Pro:Codigo= BRW1.Q.Cli:Provincia
IF Access:Provincia.Fetch(Pro:PorCodigo)
GlobalRequest = SelectRecord
SelectProvincia
IF NOT Pro:Codigo
ReturnValue = EditAction:NONE
Return ReturnValue
ELSE
BRW1.Q.Cli:Provincia = Pro:Codigo
BRW1.Q.Pro:NOMBRE = Pro:NOMBRE
END
END
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== GLOBALES ==

=== Cambiar los mensajes de error del SQL ===
Con cambiar los TRN no alcanza para ese tipo de errores.

Lo que se puede hacer es determinar el mensaje que viene desde el SQLServer
para mostrar un mensaje mas amigable.

El embebido es
Global Embeds:
Global Objets
Abc Objects
Error Manager
TakeNotify
!Antes del Parent Call
IF INSTRING('COLUMN REFERENCE', SELF.SubsString(),1,1)
SELF.Msg('El registro no puede borrarse porque tiene datos de detalle
que dependen de él. |Presione [OK] para una descripción detallada del
error',SELF.GetErrorBufferTitle(),ICON:Exclamation,Button:OK,BUTTON:OK,0)
END

Hay que armar un IF de estos por cada tipo de error...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validación de campos (Edit in place o Form)===

Para validar campos lo ideal es usar los Global Embeds
Global Embeds
Field Level Validation
Tabla
Campo
IF <No cumple Condición>
Message('error...')
RETURN Level:Notify
END

Esto te va a funcionar "para siempre" ya sea que uses Edit in place, un Form
o código embebido para actualizar la tabla.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Aplicaciones de Ejemplo

2015-03-07T22:54:47Z

Jorge Brugger:

Esta sección está destinada a contener aplicaciones (.app) de ejemplo.

== Templates Clarion ==
[http://templatesclarion.com.ar/downloads/ Sección Downloads ]

== Ejemplos de "Crispy Development Labs" ==
http://www.users.on.net/~crispy/

Encriptación, tratamiento de imágenes, compresión, winsock, y otras aplicaciones de ejemplo con código en Clarion 6.

== SICyA Software Ltda. ==

http://www.sicya.com

'''ID Call'''

Ejemplo de como hacer un identificador de llamadas desde Clarion utilizando WinEvent.

[http://templatesclarion.com.ar/downloads/ Descargarlo de aqui...]

Templates gratuitos

2015-03-07T22:52:13Z

Jorge Brugger: /* Evolution Consulting */

Existen diversos templates adicionales para Clarion que extienden notablemente su funcionalidad.

Esta sección debería incluir el nombre, una breve descripción del mismo, las versiones compatibles de Clarion y el sitio desde donde puede descargarse.

== ABCFree ==

Es el conjunto de templates y librerias gratuitas más interesante para Clarion.
Esta disponible en http://www.authord.com/Clarion . Frecuentemente actualizado y cubre todos los niveles de programación con Clarion: bajo y alto nivel. Fundamental

== Botpl ==
Sitio web: http://comsoft7.com/Botpl.htm

Incluye:

AppSpecsControl, BarCodeLabelControl,BrowseSearch,LabelControl,ListHorzRuntime,ListVertRuntime, PerCentGraph,PerCentGraphVert,Bo_resc 32bit only.

== Clarion Australia ==
http://www.comformark.com.au/

Clarion Autralia

== Clarion FreeImage Project ==

http://www.clarionfreeimage.com/

Conjunto de clases y un template que implementa la librería open source FreeImage para procesamiento de imágenes en Clarion 5.5 y 6.x.
Tiene una seccion[http://www.clarionfreeimage.com/related.html] con varias clases y ejemplos: escanear con eztwain, enumerar monitores, barras de progreso e iconos en Barras de estado, botones con alpha blend y smooth scrolling control

== Templates Clarion (Distribuidor oficial de Clarion) ==

[http://www.templatesclarion.com.ar/downloads/ Seccion Downloads]

[http://www.templatesclarion.com.ar/downloads/ MENSAJES DE CLARION EN ESPAÑOL ]

Traducción al español de todos los botones, mensajes, etc... que se utilizan en la generación de los Wizzards. Actualizado siempre a la última version de Clarion. Una herramienta indispensable para nuestra comunidad Latinoamericana.

Para instalar simplemente copie los archivos al directorio Clarion6\LIBSRC.

También agregamos la traducción del Calendario ABUTILUI

[http://www.templatesclarion.com.ar/downloads/ EC_Mail Template]

El producto está compuesto por un Control Template para envío de mail y un Extension Template para enviar los WMF del preview por mail con selector de página. Permite guardar el wmf en un word y generar el attach automáticamente dentro de un mail o bien dejarlo en segundo plano del aplicativo.

[http://www.templatesclarion.com.ar/downloads/ EVOLUTION TOOLS (Clarion 5, 5.5 y 6.1) ]

Incluye el Control Template tan solicitado "página de páginas" en los reportes.

Evita el mensaje 'No hay registros para procesar'

STREAM y FLUSH Automático en los process.

Control template que nos permite pegar un calendario en una windows. La diferencia de este template con otros free es que éste agrega el calendario dentro de la misma ventana como "Control Template", los otros son simplemente procedimientos aparte.

Enter por Tab mejorado.

Imprimir Página Desde - Hasta desde Preview.

Configuración de Impresora en Preview.

Impresión Página Actual en Preview.

Este template se irá actualizando periódicamente, se aceptan sugerencias...

[http://www.templatesclarion.com.ar/downloads/ ARBOL DE PROCEDIMIENTOS ]

Pequeño Utility template que genera el árbol de procedimientos en un archivo NombreAPP.TXT

[http://www.templatesclarion.com.ar/downloads/ CLARION BATCH COMPILER (beta 11) ]

Este excelente producto de Cristian Olsen compila en modo Batch todos los APPs del sistema. Compatible con todas las versiones de Clarion

[http://www.templatesclarion.com.ar/downloads/ INFORMACION DE PROCEDIMIENTOS ]

Template muy útil para volcar información detallada de los procedimientos de un app, con nombre, tipo, prototipo, ultima modificación, si es local o externo, etc (Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.templatesclarion.com.ar/downloads/ GRABAR TAB ELEGIDO ]

Se agrega a los browses con múltiples tabs y graba como se lo utilizó la ultima vez para cuando se reingrese, se pare nuevamente en ese tab(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.templatesclarion.com.ar/downloads/ TRACE PROCEDIMIENTOS ]

Este es mas complejo, es global y se indica un procedimiento que es le que recibirá el procedimiento y app por el que se está pasando, este procedimiento (que el usuario debe crear) es que debe grabar en un archivo deseado, el resultado. En mi caso graba en un txt, el procedimiento, app, fecha y hora, y tengo una variable en un INI para indicar si debe grabarse o no.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.templatesclarion.com.ar/downloads/ CAMPOS OBLIGATORIOS ]

Extensión que hace no se pueda salir de los campos obligatorios. Es global con opciones locales (se puede deshabilitar en cada procedimiento). Importante: Es necesario crear un alert key global para salir del procedimiento para dejar escapar al usuario en caso de necesidad.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.templatesclarion.com.ar/downloads/ VARIOS ]

Tiene 2 funciones, si se presiona CrtlAltP, indica en un message en que procedimiento estamos y en que APP está y una función que si estás parado en un campo con formato de fecha y presionas el + del teclado numérico asigna la fecha del día.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.templatesclarion.com.ar/downloads/ DCT2SQL ]

La última versión de uno de los templates mas populares para la generación de Scripts SQL a partir del DCT (Gracias Roberto Artigas)

[http://www.templatesclarion.com.ar/downloads/ MCI ]

Template que reproduce audio (Wav, Mp3) y video (Avi, Mpg) (Gracias Victor Pierri)

[http://www.templatesclarion.com.ar/downloads/ Calendario + 18 funciones ]

Template del estilo PopUp Calendario y un conjunto de 18 Funciones muy útiles (Ver mas info) Gracias Francisco J. Carabez

[http://www.templatesclarion.com.ar/downloads/ Print Driver ]

Template para impresoras matriciales, traducido y mejorado por Ruben Caporossi . Simplemente se registra en Global Extensions del app y las funciones están disponibles

[http://www.templatesclarion.com.ar/downloads/ Esta página se actualiza constantemente...]

== SICyA Software ==
http://www.sicya.com

''' SICyA Templates '''

AutoCompletar_SICyA - Control entry de autocompletado desde una tabla.

Calendario_SICyA - Calendario con estilo XP con manejo de dominicales y feriados.

LlamaProcedimiento_SICyA - Llama procedimientos con parámetros o en forma thread.

VolumeDiscoDuro_SICyA - Captura Serial, nombre del Volumen y Tipo Archivos de un Disco

Botones_SICyA - Extensión para tener Botones con un estilo propio en aplicaciones no XP.

[http://www.sicya.com/download/SICyA_Templates_Build_051007.exe Descargar el template aqui...]

== Solace ==

http://www.solace-software.demon.co.uk/freetemplates.htm

Enhanced standard HTML help template

Colour all columns in a browse on a condition without having to individually specify each column

Screen Resolution

Make Directory

Read Only Window

Open Close Files in Source Template

Add Wallpaper to every Window

Override Recursive Insert Message

Global extension to change the Font of every screen in your app.

Global Extension to allow users to make all controls flat

== tabajara ==

http://www.tabajara.com/downloads.html

Browser to HTML - Just populate a Button and you can export to HTML

Browser to CSV - Just populate a Button, and Done! This way you can export to Excel.

Files to CSV - Choose files to export data. (export files to CSV selecting from DCT)

Report Green Bar - makes shadowed every other report detail.

== xFunction ==

Colección gratuita de templates de código de la empresa Sealsoft. Incluyen funciones para manejo de fechas, archivos y paths, y algunas otras. Puede descargarse de http://www.seal-soft.com

== Locus Templates ==

http://www.riebens.co.za/index.php?option=com_content&view=article&id=39&Itemid=183

Excelente conjunto de templates que abarcan varias categorias:

'''CONTROL TEMPLATES:'''
* PageTree Seleccionar una hoja de propiedades de un listbox tipo tree
* PopupDate Seleccionar fecha desde un calendario
* PopupDirectory Seleccionar directorio
* RichEdit Completo editor de texto enriquecido (RTF) totalmente escrito en clarion con toolbar y tabulador.

'''PROCEDURES:'''
* QBEDialog Crea Dialogo QBE (Query by Example).

'''CODE TEMPLATES:'''
* CWPrintEngine Imprimir un reporte creado con el CW Report Writer

'''EXTENSION TEMPLATES:'''
* BrowseEdit Edit in place para un browse box con validación de campos y lookup
* BrowseTotal Totalizar campos en un browse box.
* BrowseValue Crea un checkbox editable
* FormSplit Divisores verticales u horizontales
* GetIniFile Obtiene y guarda valores en un archivo ini.
* LimitStarts Evita comenzar 2 MDI threads a la vez
* PopupToolbar Toolbar ocultable
* ReportFilter Seleccionar registros para imprimir y resaltar. Incluye un visor de reporte
* FILE MANAGER Posibilita cambiar el dct, recompilar, y todos los archivos son actualizados automáticamente a la nueva version

Puntos Embebidos

2015-03-07T22:49:40Z

Jorge Brugger: /* Recorrer la cola de las páginas */

Los puntos embebidos son la pesadilla de todo principiante de Clarion. Son extremadamente útiles, pero son muy difíciles de aprender. Para colmo, la abstracción que implementa la clase ABC hace más difícil todavía conocerlos y aprovecharlos. Por eso esta sección es de vital importancia.

== FORMULARIOS ==
=== ¿Qué procedimiento llamó al Form? ===
Al principio del WindowManager.Init del Form (primer prioridad disponible)

GlobalErrors.GetProcedureName()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones complejas ===
Por ejemplo validar un Email:
En el accepted del campo
Puedes hacerlo con MATCH, ejemplo:

X# = MATCH(UPPER(CLIP(locemail)),|
'^[-A-Z0-9._]+@{{[-A-Z0-9._]+.}+[A-Z][A-Z][A-Z]?[A-Z]?$', Match:Regular)

Devuelve 1 o 0 si el mail no es válido.
El MATCH puede usarse con expresiones regulares para validar casi cualquier cosa...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se Abre/inicializa el Form ===
ThisWindow.Init
!Es interesante entrar por el botón source a este embed para entender bien todas sus prioridades
!GlobalRequest (pasada por el browse) se guarda en la propiedad ThisWindow.Request
!Se puede preguntar por SELF.Request para saber para qué se lo llamó al form:
!InsertRecord EQUATE (1)
!ChangeRecord EQUATE (2)
!DeleteRecord EQUATE (3)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar el Form a "Solo lectura" ante una condición===
ThisWindow.Init
! [Priority 4950] La prioridad es importante!
IF FAC:facturado = 1 THEN SELF.Request = ViewRecord.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Truco: Llamar al form para insertar desde el menú ===
Podríamos asumir que si la GlobalRequest está en blanco es que se lo
llamó para insertar, evitaríamos asi el paso por un Browse
!Al principio del Init (antes de Snap-Shot global Request):
!If GlobalRequest = 0 Then GlobalRequest = InsertRecord.

Si la tabla tiene una clave Autonumber, se complica un poco mas, sería asi:
!Al principio del Init (antes de Snap-Shot global Request):
!Por ej prioridad 300
If GlobalRequest = 0
GlobalRequest = InsertRecord
DesdeMenu# = True
End

!Después de Open Files:
!Por ej prioridad 7800
If DesdeMenu# = True
Access:People.PrimeAutoinc()
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Llamar a un form para editar una tabla con un solo registro ===
Típicamente una tabla de parametros, obviamente no queremos pasar por un browse
WindowManager.Init,
!al principio
GlobalRequest = ChangeRecord

!Luego de Open files
Set(Tabla)
access:Tabla.Next()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se confirma un Form ===
ThisWindow.TakeCompleted
! [Priority 2800]
!ANTES DE QUE SE CONFIRME LA GRABACION
! Parent Call
ReturnValue = PARENT.TakeCompleted()
! [Priority 6300]
!YA SE GRABÓ EL REGISTRO.
!VERIFICAR SI SELF.Response=RequestCompleted A VER SI SE GRABÓ OK.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se cierra un Form ===
ThisWindow.Kill
!VERIFICAR LOS valores de SELF.Request y SELF.Response
!Para decidir que acciones tomar
!Este punto ya es "demasiado tarde" para hacer algo antes de que se grabe el registro
!Para eso usar TakeCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se produce el borrado sin abrir el Form ===
Si tenemos un form para actualizar una tabla, y definimos que el borrado sea Confirmando (Standard Warning) o Automático (Automatic Delete), y necesitamos ejecutar un código en el form cuando se efectúe el borrado, usamos:

ThisWindow.PrimeUpdate, después del Parent Call

if self.request = DeleteRecord and self.Response = RequestCompleted
!lo que quiero hacer
end

Hay que tener en cuenta que el borrado de un registro no pasa por el TakeCompleted, excepto cuando se usa la ventana del form (Display Form).

Aporte de Gustavo Olmedo [http://www.evolutionconsulting.com.ar/downloads.html (Templates Clarion)] (Templates Clarion)]

=== Chequear si se modificó cualquier campo del FORM ===

En el TakeCompleted ponemos el siguiente código:

IF NOT SELF.Primary.Me.EqualBuffer(SELF.Saved)
! message('Cambio')
END

Aporte de Pablo Guarnieri y Gustavo Olmendo

=== Chequear si se modificó un campo del FORM ===

IF CLI:Campo <> history::CLI:Record.Campo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Forzar grabación del form ===

Este código sirve para grabar el form inclusive cuando el usuario lo cancele

TakeCloseEvent PROCEDURE(),BYTE,VIRTUAL
IF loc:condicion
SELF.CancelAction = Cancel:Save !immediate save (no confirmation)
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Filtrar un Drop Combo ===

Este código sirve para filtrar un drop combo utilizando pro:sqlfilter, suponemos que en
la variable loc:filtro se arma el filtro ha enviar, algo asi como: 'a.idtercero = <39>90909090<39>'
FDCB14 es el nombre del objeto el cual se puede verificar en propiedades --> clases.

ApplyFilter PROCEDURE,VIRTUAL
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = <39>'&clip(loc:filtro)&'<39>'
IF FILEERRORCODE()
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = ''
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Obtener el número autogenerado por SQL Server en tablas con identity ===
Después del Parent Call, en el TakeCompleted del Form:
IF Self.Response=RequestCompleted AND Self.Request = InsertRecord
Tabla{prop:Sql}= 'SELECT @@IDENTITY' !busco el número que se asignó
IF not Access:Tabla.Next()
!en el primer campo de Tabla viene cargado el número autogenerado
else
message('Error')
end
end

Tomado de una respuesta de Fernando Cerini en el foro.

== REPORTES Y PROCESOS ==
=== Ocultar un campo del detalle según condición ===
!En TakeRecord, antes del Print (Process Manager)
IF <CONDICION>
REPORT$?Control{PROP:HIDE}=True
ELSE
REPORT$?Control{PROP:HIDE}=False !si la condición no se cumple, vuelvo a hacer visible el control
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Saber si un proceso se completó ===
O sea que no se salió por el botón de cancelar
!En el WindowManager.Kill
IF Self.Response = RequestCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Inicializar el número de página ===
!WindowManager.OpenReport, despues del Parent Call
IF ReturnValue = Level:Benign
Report{PROP:NextPageNo} = xxx
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Deshabilitar la impresión ===
!Local Objects, Abc Objects, Previewer, Display, After ParentCall.
!impresión prohibida
ReturnValue = False

Por ejemplo:

If ReturnValue and DemoVersion
ReturnValue = False
Message("Está utilizando una versión del demo, no puede imprimir este documento !")
End
Aporte de Olivier Cretey

Otra opción, en Previewer.TakeAccepted, antes del Parent Call
IF CLIP(ACCEPTED(){PROP:TIP}) = 'Print this report' THEN RETURN LEVEL:BENIGN.

O sea pregunto por el Tool Tip del botón que se ha presionado. Ojo, si lo tienes traducido tienes que cambiar el 'Print this report' por tu Tool Tip.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un Proceso ===
!Windows Manager -->> Validate Records -->> [Priority 5600]
If <Condición de Filtro>
Return Record:Filtered
Else
Return Record:OK
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Habilitar o deshabilitar el Print Preview ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
Self.SkipPreview = Loc:Preview

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Cantidad de Páginas generadas ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
ENDPAGE(SELF.Report)
Loc:Paginas = RECORDS(SELF.PreviewQueue)

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Imprimir un Transporte ===
Necesitas crear 3 details.
DetailDatos
DetailTransporte: aca van las variables locales con los totales
DetailSalto: este detail es vacío y con la propiedad PageAfter

En el embed TakeRecord (antes de los PRINTs) habría que hacer algo asi
LOC:Fila += 1
If LOC:Fila % 28 = 0 !28 líneas por página...
PRINT(RPT:DetailSalto)
PRINT(RPT:DetailTransporte)
LOC:Fila = 1
End
LOC:Total += LIBRO:Total
PRINT (RPT:Detalle)
RETURN LEVEL:Benign

Marcelo Martínez
y [mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Acelerar las actualizaciones ===
Para que los procesos que agreguen registros funcionen mas rápido hay que agregar un Logout o Stream en Init y un Commit o Flush en el kill.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Se imprime o se Cancela? ===
Los embeds son
ABC Objectd
--WindowManager(ReportManager)
--CancelPrintReport
-Se Cancela

--PrintReport
-Se imprime

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Recorrer la cola de las páginas ===
Cada página del reporte genera una imagen .WMF, la cual se guarda en el directorio temporal.
Con este ejemplo se puede recorrer la cola donde se guardan los nombres de estos archivos. Ésto es lo que usa por ejemplo el [http://templatesclarion.com.ar/downloads/ EC_Mail Template] para enviar estas páginas por mail.
Previewer.Open PROCEDURE
....
loop a# = 1 to RECORDS(SELF.ImageQueue)
get(SELF.ImageQueue,a#)
message(SELF.ImageQueue)
end

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir una Queue ===
La mejor forma de hacerlo en Clarion6 es en Report Properties - General -
Datasource: Queue.

Yo generalmente pongo los parametros en la ventana y cargo la queue en el
evento accepted del PauseButton.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir un SQL ===
Lo que yo hago es poner todos los parámetros en la ventana del reporte.
En el accepted del boton de pausa cargo la cola de memoria con:

SQL{PROP:SQL} = !aca armo el string SQL
IF ERRORCODE() THEN STOP( FILEERROR()).
FREE(ColaMemoria)
LOOP
NEXT(SQL) !O ABC, como prefieras...
IF ERRORCODE() THEN BREAK.
ColaMemoria :=: SQL:Record
ADD(ColaMemoria)
END

El reporte lo configuro para trabajar con la cola (data source) y en el
Detail del reporte pongo los campos de la cola de memoria.
Lo ideal es tener una cola de memoria global con el atributo thread y usar
siempre la misma para todo.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar o hacer cortes de control manuales en reportes ===
En TakeRecord, antes del Print.

!Actualizar contadores

IF AUX <> CampoCorte
IF AUX <> 0 !para evitar la primera vez
!Inicializar los contadores
END
AUX=CAMPO
!SE VIENE EL CORTE
END

Este método TakeRecord se usa también para actualizar cualquier variable calculada antes de la impresión de la banda de detalle.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo BLOB ===
Este código va en el método TakeRecord, antes del PRINT

Report$?Image1{PROP:NoWidth} = TRUE
Report$?Image1{PROP:NoHeight} = TRUE
Report$?Image1{PROP:ImageBlob} = STU:Photograph{PROP:Handle}
IF Report$?Image1{PROP:Height} > 1000
AspectRatio$ = Report$?Image1{PROP:Width}/Report$?Image1{PROP:Height}
Report$?Image1{PROP:Height} = 1000
Report$?Image1{PROP:Width} = 1000 * AspectRatio$
END
IF Report$?Image1{PROP:Width} > 1000
AspectRatio$ = Report$?Image1{PROP:Height}/Report$?Image1{PROP:Width}
Report$?Image1{PROP:Width} = 1000
Report$?Image1{PROP:Height} = 1000 * AspectRatio$
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo CSTRING ===
Este caso es similar al anterior, pero en el campo se encuentra el path donde está la imagen
!En el método TakeRecord, antes del PRINT
Report$?Image1{PROP:Text} = PRO:Foto

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Evitar el cartel "No records to process" en un proceso ===
!En el metodo TAKE NO RECORDS poner un RETURN antes del parent call.
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir el reporte en blanco, cuando no hay registros ===
En WindowManager. Next, antes del Parent Call con prioridad 500.

! [Priority 500] antes del Parent Call
If Primera=0 !variable local byte
Primera=1
SELF.Process.RecordsProcessed = 1
Return Level:Benign
End
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Cuando hay filtros y rangos, esta solución suele duplicar el primer registro del detalle.
Para Solucionar esto en ProcessManager NextPROCEDURE(BYTE ProcessRecord) con prioridad 7500 se debe colocar el siguiente código:

IF ReturnValue = 0 AND LOC:Primera = 0 THEN !Si hay un registro
LOC:Primera = 1 !Dejo al reporte seguir su curso normal
END

Mario Wojcik

=== Detectar el último registro en un process o Reporte (fin de archivo) ===
ThisProcess.Next PROCEDURE(BYTE ProcessRecords=True)
! [Priority 5001]
If ReturnValue = 5 !Level:Notify
!Fin del proceso
End

Esto por ejemplo es muy útil para cambiar etiquetas en los totales generales del reporte, en un page footer
ThisReport.Next PROCEDURE(BYTE ProcessRecords)
....
! [Priority 5001] despues del Parent Call
If ReturnValue = 5 !Level:Notify
REPORT$?LabelTotal{prop:text}= 'Total'
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Reporte con múltiples detalles ===
Por Ejemplo:

Viajes
|-->pasajeros
|-->comisiones

Habría que poner solo la tabla viajes en el Table Schematic. Pasajeros y Comisiones en Other Tables

En el reporte crear 3 details, uno para cada tabla.

En ThisReport.TakeRecord, antes de los PRINTs

! [Priority 5500]
PRINT(RPT:DetailViaje)
CLEAR(PAS:RECORD)
PAS:idViaje = VIA:IdViaje
SET(PAS:ClavePorViaje, PAS:ClavePorViaje)
LOOP UNTIL ACCESS:Pasajeros.Next() OR PAS:idViaje <> VIA:IdViaje
PRINT(RPT:DetailPasajeros)
END
!Y lo mismo para las comisiones
CLEAR(COM:RECORD)
COM:idViaje = VIA:IdViaje
SET(COM:ClavePorViaje, COM:ClavePorViaje)
LOOP UNTIL ACCESS:Comisiones.Next() OR COM:idViaje <> VIA:IdViaje
PRINT(RPT:DetailComisiones)
END
Return Level:Benign !ya imprimí todo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Otra alternativa podría ser utilizando el Template '''ReportChildFiles''' (desde version 6.X ?) ya que puede ser utilizado mas de una vez en un mismo reporte, apuntando cada instancia a un archivo "hijo" diferente.
Es fácil de configurar: Se debe seleccionar la tabla CHILD y la PARENT. En el reporte hay que definir el REPORT DETAIL (para el CHILD) y ponerle algún nombre en el label que luego debe ser configurado en el Template.

Jose Sturniolo

=== Imprimir exactamente lo que estamos viendo en el browse ===
En el browse pones un botón que llame al reporte y en parameters:
(Brw1.view{PROP:Filter}, Brw1.view{PROP:Order})

En las propiedades del reporte o proceso:
Prototype: (STRING, STRING)
Parameters: (FILTRO, ORDEN)

En WindowManager.Init, al final:
ThisReport.SetFilter(FILTRO) ! o ThisProcess....
ThisReport.SetOrder(ORDEN)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar tamaño de hoja en el reporte ===
En el embed WindowManager 'OpenReport', PRIORITY(7500)

IF ~ReturnValue
SETTARGET(REPORT)
CASE PRINTER{PROPPRINT:Paper}
OF PAPER:LETTER
REPORT{PROP:height} = 8500
?Footer{PROP:Ypos} = 9000
OF PAPER:LEGAL
REPORT{PROP:height} = 11000
?Footer{PROP:Ypos} = 11500
etc.
END
SETTARGET()
END

etc. con los tamaños de papel que quieras.
Esto acomoda el contenido del reporte en run-time, haciéndolo ocupar más
o menos hoja según sea el largo de la misma. Chiche, ¿no?.
Ajustá los valores a tus necesidades.
Para tener en cuenta: el usuario tiene que elegir el tamaño del papel
ANTES de generar el reporte. Si ya está en la vista previa, el reporte ya
está generado, por lo tanto si cambia el largo de hoja ahí, no se lo va a
tomar.

Jorge Lavera

=== Cambiar Impresora ===
En Global Properties-->Embeds-->Before Global INCLUDEs
INCLUDE('PRNPROP.CLW')
!para poder acceder a las propiedades de las impresoras

Luego en el Reporte en
ThisReport.Open()
!para guardar la impresora por defecto de Windows
GLO:IMPRESORA = PRINTER{PROPPRINT:Device}
!Seteo la impresora que quiero usar.
!El string debe ser igual al que figura en IMPRESORAS
PRINTER{PROPPRINT:Device} = 'HP Deskjet 840'

y por último en
ThisReport.Kill()
!para devolver la impresora por defecto de windows
PRINTER{PROPPRINT:Device} = CLIP(GLO:IMPRESORA)

Guillermo Ondetti, Pragma Sistemas

=== Detectar Salto de Página de Reporte ===
Este sería el codigo, siempre y cuando no tengas break groups (ahi se complica bastante)
El embebido es TakeRecord en ABC, o Before Print Detail en Legacy.
VarLocal += REPORT$?Detail{PROP:height}
IF VarLocal > REPORT{PROP:height}
VarLocal = REPORT$?Detail{PROP:height}
!En el siguiente PRINT Cambia la página...
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Aplicar Filtro sql en el reporte ===
Se arma el filtro si se quiere en una variable por ejemlo loc:sql
y se aplica en Local Objects --> Abc Objects -- > Process manager --> Apply Filter antes del parent call, asi:

Process:View{Prop:SqlFilter}=Loc:SQL

Ivan Dario Benitez

=== Imprimir mas de una Copia por Reporte ===
Se tiene que poner en el Window Manager --> Open (Prioridad(5000))

PRINTER{PROPPRINT:COPIES}=n !! n = Cantidad de copias

Luego es aconsejable poner en el Window Manager --> Kill

PRINTER{PROPPRINT:COPIES}=1

ASC Sergio D. Caballero

== BROWSES ==
=== Actualizar un campo al hacer click en una columna ===
Por ejemplo, en People.app

En el evento Accepted del Control del browse.
!Si se hizo click en el campo
IF ?BROWSE:1{PropList:MouseDownField}= 4
ACCESS:PEOPLE.Fetch(PEO:KeyId)
PEO:Gender = 'X'
ACCESS:PEOPLE.Update()
BRW1.ResetFromFile()
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtrar con SQL===
A veces es muy útil aplicar un filtro SQL encima de todos los demas filtros que ya tenga el browse, por ejemplo para filtrar por usuario, por sucursal, etc.
Yo normalmente le pongo el filtro SQL en el método windowmanager.Reset,
prioridad 5000
BRW1.View{PROP:SQLFILTER}='+ filtro sql'
Luego se refresca normalmente, o manualmente con ThisWindow.Reset (1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Activar un Browse invisible, o sea que está en otro TAB ===
Esto es especialmente útil cuando necesitamos que se ejecuten totalizadores del browse aunque éste no esté visible en la pantalla.
!ABC Objects ->
Local Objects ->
Windows Manager->
Init Priority[7500]
BRW2.ActiveInvisible = True

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Copiar un Registro ===

!ABC Objects -> Browse on Clientes -> PrimeRecord Priority[4500]
IF Loc:Copiar
SuppressClear = True
CLEAR(Loc:Copiar)
END!IF

!Control Events --> Copiar -> Accepted -> Priority[5000]
Loc:Copiar = True
POST(EVENT:Accepted,?UseDelBotonAgregar)

!Notas: Crear Variable Local Loc:Copiar
! SuppressClear es un Parametro de BrowseClass.PrimeRecord

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar el Popup ===
!ABC Objects -> Local Objects -> Windows Manager-->>Init Priority[9001]
Brw1.Popup.KILL

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Ordenamiento Dinámico ===
En Clarion6 se puede hacer automáticamente con la opcion Sort Headers.
Si se quiere hacer desde código para ordenar por cualquier campo, se puede utilizar:
Brw1.SetOrder('TAB:Campo')
Brw1.ApplyOrder()
ThisWindow.Reset(1)
Por ejemplo si quisiera emular un ordenamiento con el doble click sobre una columna, habría que alertar el doble click en al browse, y el código sería mas o menos asi.
Control Event -> Browse:1 ->Alert Key [4500]
! Código usado para cambiar el Orden del Browse
! cuando se hace doble click en la columna
IF KEYCODE()=MouseLeft2
?Browse:1{PropList:Header,1} ='Codigo'
?Browse:1{PropList:Header,2} ='Nombre'
Loc:Columna = ?Browse:1{PropList:MouseDownField}
CASE Loc:Columna
OF 1
?Browse:1{PropList:Header,1} ='<<<CODIGO>>>'
Brw1.SetOrder('LCA:LOCALIDAD')
OF 2
?Browse:1{PropList:Header,2} ='<<<NOMBRE>>>>'
Brw1.SetOrder('UPPER(LCA:NOMBRE)')
END!CASE
Brw1.ApplyOrder()
ThisWindow.Reset(1)
END!IF

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Locator Múltiple ===
Por ejemplo, para posicionarme en un código de cuenta contable:
Lo que podrías hacer es poner una variable string sobre el browse y poner un
código mas o menos asi en su accepted del entry

!Asumiendo que cada código tiene cuatro dígitos
!Revisar la sección String Slicing en el Help
Cue:Cuenta = Loc:Cuenta[1:4]
Cue:SubCuenta = Loc:Cuenta[5:8]
Cue:SubSubCuenta = Loc:Cuenta[9:12]
SET(Cue:PorCodigo,Cue:PorCodigo)
Access:Cuentas.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

Otro ejempo, en un browse de órdenes, posicionarse según el nombre del cliente

CLI:Nombre = LOC:Cliente
SET(CLI:PorNombre, CLI:PorNombre)
ACCESS:Clientes.Next()

ORD:CodCliente = CLI:CodCliente
SET(ORD:PorCliente, ORD:PorCliente)
ACCESS:Ordenes.Next()

BRW1.ResetFromFile()
ThisWindow.Reset(1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Pintar un browse según un campo ===
Por ejemplo cuando vemos las facturas de un Cliente se repite el nombre, este código pinta diferente cada grupo de nombres.
Primero hay que ponerle el atributo color al campo que necesites pintar, desde list box format.
Luego va el siguiente código, en WindowManager.Reset antes del Parent Call

Aux = ''
LOOP F#= 1 TO RECORDS (BRW1.Q)
GET(BRW1.Q, F#)
IF Aux <> BRW1.Q.CLI:Nombre
Col# = 1- Col#
Aux = BRW1.Q.CLI:Nombre
END
If Col#
BRW1.Q.CLI:Nombre_NormalBG = COLOR:SILVER
Else
BRW1.Q.CLI:Nombre_NormalBG = COLOR:WHITE
End
PUT(BRW1.Q)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Refrescar un browse desde otra ventana ===
Lo mas fácil sería usando NOTIFY.
En la Ventana 1 (la del browse a refrescar)
WindowManager.Init
GLO:THREAD = THREAD() !VARIABLE GLOBAL LONG

Window Events
Notify
BRW1.ResetfromBuffer() ! o ThisWindow.Reset(1)?

En la ventana 2, cuando se necesite refrescar la 1
NOTIFY (999, GLO:THREAD)

Puede ser 999 o cualquier cosa ya que en éste caso no estoy usando ese parámetro.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Iniciar el browse en un Tab determinado ===
En ThisWindow.Init, al final
SELF.FirstField = ?Tab:4 !Use del tab

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Actualizar el resultado de un totaling del browse de detalle, en el Encabezado ===
En el Browse de abajo (el de detalle)
ResetFromView, prioridad 4500 - La prioridad es importante
GET(Encabezado, ENC:Por_Numero)
ENC:Total = loc:total !ÉSTA ES LA VARIABLE DEL TOTALING
PUT (Encabezado)
IF ERRORCODE() THEN MESSAGE(ERROR()).
BRW1.ResetFromFile()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtro Dinámico ===
Poner un control Text donde el usuario pueda escribir cualquier filtro
X# = EVALUATE(Filtro)
IF ERRORCODE()
MESSAGE('ERROR DE SINTAXIS EN EL FILTRO: ' & ERROR(), 'ATENCION')
ELSE
BRW1.SetFilter(Filtro)
ThisWindow.Reset(1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Rangos múltiples y dinámicos ===
Si tenemos una clave con varios componentes, en Actions del browse ponemos un rango por current value, elegimos el componente de la clave hasta el cual queremos hacer el rango.
El siguiente componente de la clave se puede usar como locator.
Por ejemplo si tenemos una clave con Tipo+Provincia+Localidad, hacemos un rango de current value por provincia y nos queda un locator por localidad.

BRW1.ApplyRange PROCEDURE
! [Priority 5000]
RAN:Tipo= loc:tipo
RAN:Provincia=loc:provincia
SELF.Order.Rangelist.AssignLeftToRight()

En algun boton de aplicar rango
BRW1.ApplyRange()
ThisWindow.Reset(1)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, deshabilitar condicionalmente la actualización de registros ===
IF <Condición>
!Deshabilitar Actualización
BRW1.InsertControl=FALSE
BRW1.ChangeControl=FALSE
BRW1.DeleteControl=FALSE
ELSE
BRW1.InsertControl=?INSERT
BRW1.ChangeControl=?CHANGE
BRW1.DeleteControl=?DELETE
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar el cambio de registro seleccionado en un Browse ===
Ejemplo mostrar una foto del cliente al costado del browse
BRW1.TakeNewSelection PROCEDURE
! [Priority 5001]
!EN CLI:FOTO ESTA EL PATH COMPLETO DE LA FOTO
IF CLI:FOTO <> ''
?Foto{PROP:TEXT}= CLI:FOTO
ELSE
?Foto{PROP:TEXT}= ''
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un browse ===
Ejemplo: Mostrar sólo los clientes que tengan alguna orden

BRW1.ValidateRecord PROCEDURE
! [Priority 5001]
!FILTROS COMPLEJOS
!EJ: MOSTRAR SOLO LOS CLIENTES QUE TENGAN ALGUNA ORDEN
CLEAR(ORD:RECORD)
Ord:CodigoCliente=CLI:ID
SET(Ord:FK_Ordenes_CLIENTES,Ord:FK_Ordenes_CLIENTES)
NEXT(ORDENES)
IF ERRORCODE() OR (Ord:CodigoCliente <> CLI:ID) THEN RETURN Record:Filtered.

RETURN Record:OK
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Poner un campo "saldo" en un browse ===
ThisWindow.Reset, antes del Parent Call

S#=0
LOOP F#= 1 TO RECORDS (Queue:Browse:1)
GET(Queue:Browse:1, F#)
S# += Queue:Browse:1.ORD:Total_Impo
Queue:Browse:1.Saldo = S#
PUT(Queue:Browse:1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Resetear/inicializar un Locator ===
El método a ejecutar es
BRW1::Sort1:Locator.Set

Los nombres de las instancias de Locators por cada TAB se llaman:
BRW1::Sort0:Locator.Set
BRW1::Sort1:Locator.Set
BRW1::Sort2:Locator.Set
!etc..

Luego sería bueno volver a poner el foco en el browse para que se pueda seguir usando el locator normalmente
select (?Browse:1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, disparar un procedimiento después de generar un alta, modificación, etc. ===

El proceso a disparar se hace desde el browse, la idea es saber si del Form volvió aceptando o canceló la actualización. El punto embebido es:

Local Objects
BRW1 (o el objeto de tipo browse class que sea)
ResetFromAsk (después del Parent.call)

IF VCRRequest=VCR:None
CASE Request
OF InsertRecord
IF Response = RequestCompleted
!Hacer algún proceso
END
END
END!

=== Inserción continua refrescando el Browse ===
Este otro método es similar al anterior, también sirve para lo mismo.
Agrego un ejemplo para hacer inserción continua en el Form y además se vaya actualizando el browse

ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)
! Cuidado que existen dos ThisWindow.Run, seleccionar el correcto
! [Priority 8500]
IF Request = InsertRecord And ReturnValue = RequestCompleted
POST(EVENT:ACCEPTED, BRW1.InsertControl)
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Posicionar un browse en un registro seleccionado ===

Al abrir un browse a veces necesitamos posicionar el selector en un registro determinado, tal como lo hacen los browses para selección.

Por ejemplo para posicionar el browse en el registro más cercano al proporcionado por el usuario:

ThisWindow.Open PROCEDURE
! Start of "WindowManager Method Data Section"
! [Priority 5000]
! End of "WindowManager Method Data Section"
CODE
! Start of "WindowManager Method Executable Code Section"
! [Priority 500]
CLI:cliente= LOC:Cliente
ACCESS:Clientes.fetch(CLI:Kcodigo)
BRW1.selecting=1
! Parent Call
PARENT.Open()
! [Priority 6300]
BRW1.selecting=0

Otra idea, propuesta por Matías Flores:
Ubicarlo por el valor de los campos de la clave. Por ejemplo, si en un browse de clientes querés posicionarte en un cliente que tiene un código determinado (Loc:Codigo):

Cli:Codigo = Loc:Codigo
SET(Cli:PorCodigo,Cli:PorCodigo)
Access:Clientes.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

un ejemplo parecido al anterior, pero en legacy, sería:
CLI:Codigo = LOC:Codigo
BRW1::LocateMode = LocateOnValue
DO BRW1::LocateRecord

Una opción más es:
En el WindowManager.init, antes de Initialize browse y después de OpenFiles, colocar el siguiente código:

BRWx.StartAtCurrent = True
TAB:Campo = Valor_Buscado
get(Tabla, TAB:Key_que_ordena_por_Campo)

=== En Legacy, activar un filtro sobre un browse abierto. ===

Esto se pone en el punto embebido "Before opening VIEW". Acordarse de BINDEAR todas las variables que se necesiten.

!---ANTES DE ABRIR EL VIEW---
if SoloPendientes then
BRW2::View:Browse{Prop:Filter} = |
'MER:numertra = BRW2::Sort1:Reset:TRA:numertra AND MER:saldunid <> 0'
end

=== Campos Calculados ===
Por ejemplo cuando quieras presentar el nombre completo sin los espacios de un campo a otro. Pones en el browse una variable local.
En el SETQUEUERECORD (4500)

Loc:ApellidoNombre = clip(CON:Apellido) & ' ' & CON:Nombre

!(Tip de Alex B.)

=== Código antes y después de una actualización DESDE UN BROWSE. ===

- Antes de la llamada al Form de actualización
! ABC Objects -> Browse on Archvivo ->Ask Priority[4500]
IF Request = InsertRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR ALTA ','ALTA',ICON:EXCLAMATION)
ELSIF Request = ChangeRecord
BEEP
MESSAGE('ATENCION: SE VA A ACTUALIZAR ','CAMBIO',ICON:EXCLAMATION)
ELSIF Request = DeleteRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR DE BAJA ','BAJA',ICON:EXCLAMATION)
END

- Después de la actualización del registro
!ABC Objects -> Browse on Provincia ->Ask Priority[5500]
IF ReturnValue =1
BEEP
MESSAGE('ATENCIÓN: SE ACTUALIZÓ EL REGISTRO','ACTUALIZÓ OK',ICON:EXCLAMATION)
ELSIF ReturnValue =2
BEEP
MESSAGE('SE CANCELÓ LA ACTUALIZACIÓN DEL REGISTRO','ATENCIÓN',ICON:HAND)
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar/esconder (cambiar a PROP:HIDE) un control si el browse está vacío - pe. un botón-. ===

En el Browse.UpdateWindow(), última prioridad:
?TuBoton{PROP:Disable}=Choose(Self.Records()<>0,0,1)

===Iniciar un browse con un orden "sort header"===

Si queremos que al abrir un browse el mismo se encuentre ordenado como si hubiéramos hecho click en el sortheader, ponemos luego del generated code del evento openwindow lo siguiente:

BRW1::SortHeader.SetSortFromString('TAB:Campo')

donde TAB:Campo es uno de los campos de la tabla que estoy mostrando en el browse.

== EDIT IN PLACE==
=== Edit in Place o Form, según condición ===
En BrowseClass, Ask, antes del Parent Call
If ?browse:1{proplist:mousedownfield} = 5
Self.AskProcedure = 0
else
Self.AskProcedure = 1
end

Puede usarse cualquier condición, en este caso si el usuario hace doble click en la 5a columna se usa edit in place, sino se usa el formulario

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Desactivar Edit in Place de un campo según condición ===
En las propiedades del EIP del campo admitir la edición del mismo.

En el EIP Field Manager del campo, TakeEvent, antes del Parent Call
if Queue:Browse:1.TAB:Campo_de_mi_Tabla > 0
Return EditAction:Cancel
thiswindow.reset(true)
end

En este ejemplo sólo permito que pueda editarse el campo si el valor actual del mismo es <= 0

=== Inicializar campos al insertar registro ===
O sea lo que hace el Prime Fields en las formas
ABC Objects
BROWSE ON TABLA using ?LIST
PrimeRecords
Después del Parent Call
TPS:TuCampo= valor inicial

=== Poner Disable un campo===
Local Objects -->>
Abc Objects -->>
EIP Field Manag...for Field NombreCampo
-->>Init [Priority 5001]
If SELF.FEQ then SELF.FEQ{Prop:Disable} = true.
También se pueden cambiar otras propiedades como por ejemplo UPPER (mayúsculas) o READ ONLY (sólo lectura)
If SELF.FEQ
SELF.FEQ{prop:readonly} = TRUE
SELF.FEQ{prop:upr} = TRUE
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Campos Calculados ===
Por ejemplo Modificar el total cuando cambia la cantidad.
Primero agregar el campo cantidad en Column Specific
EditInPlace::DET:Cantidad.TakeEvent PROCEDURE(UNSIGNED Event)
....
!Despues del Parent Call

CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
BRW1.Q.DET:Total = BRW1.Q.DET:Cantidad * BRW1.Q.DET:Importe
!Etc... siempre haciendo referencia a los campos de la cola BRW1.Q.
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones ===
Por ejemplo una validación básica de un número requerido
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:NroDocumento
-->>Take Event [Priority 5001]
! Validación del nro. de Documento
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
UPDATE(Self.Feq)
IF NOT BRW1.Q.Cli:NroDocumento
BEEP(BEEP:SystemExclamation) ; YIELD()
MESSAGE('No se informó el número de Documento', |
'Atención!', ICON:Exclamation)
ReturnValue = EditAction:NONE
Return ReturnValue
END
END

Validación con un lookup a una tabla
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:Provincia
-->>Take Event [Priority 5001]
!Valida Provincia
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
Pro:Codigo= BRW1.Q.Cli:Provincia
IF Access:Provincia.Fetch(Pro:PorCodigo)
GlobalRequest = SelectRecord
SelectProvincia
IF NOT Pro:Codigo
ReturnValue = EditAction:NONE
Return ReturnValue
ELSE
BRW1.Q.Cli:Provincia = Pro:Codigo
BRW1.Q.Pro:NOMBRE = Pro:NOMBRE
END
END
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== GLOBALES ==

=== Cambiar los mensajes de error del SQL ===
Con cambiar los TRN no alcanza para ese tipo de errores.

Lo que se puede hacer es determinar el mensaje que viene desde el SQLServer
para mostrar un mensaje mas amigable.

El embebido es
Global Embeds:
Global Objets
Abc Objects
Error Manager
TakeNotify
!Antes del Parent Call
IF INSTRING('COLUMN REFERENCE', SELF.SubsString(),1,1)
SELF.Msg('El registro no puede borrarse porque tiene datos de detalle
que dependen de él. |Presione [OK] para una descripción detallada del
error',SELF.GetErrorBufferTitle(),ICON:Exclamation,Button:OK,BUTTON:OK,0)
END

Hay que armar un IF de estos por cada tipo de error...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validación de campos (Edit in place o Form)===

Para validar campos lo ideal es usar los Global Embeds
Global Embeds
Field Level Validation
Tabla
Campo
IF <No cumple Condición>
Message('error...')
RETURN Level:Notify
END

Esto te va a funcionar "para siempre" ya sea que uses Edit in place, un Form
o código embebido para actualizar la tabla.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Puntos Embebidos

2015-03-07T22:49:04Z

Jorge Brugger: /* Recorrer la cola de las páginas */

Los puntos embebidos son la pesadilla de todo principiante de Clarion. Son extremadamente útiles, pero son muy difíciles de aprender. Para colmo, la abstracción que implementa la clase ABC hace más difícil todavía conocerlos y aprovecharlos. Por eso esta sección es de vital importancia.

== FORMULARIOS ==
=== ¿Qué procedimiento llamó al Form? ===
Al principio del WindowManager.Init del Form (primer prioridad disponible)

GlobalErrors.GetProcedureName()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones complejas ===
Por ejemplo validar un Email:
En el accepted del campo
Puedes hacerlo con MATCH, ejemplo:

X# = MATCH(UPPER(CLIP(locemail)),|
'^[-A-Z0-9._]+@{{[-A-Z0-9._]+.}+[A-Z][A-Z][A-Z]?[A-Z]?$', Match:Regular)

Devuelve 1 o 0 si el mail no es válido.
El MATCH puede usarse con expresiones regulares para validar casi cualquier cosa...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se Abre/inicializa el Form ===
ThisWindow.Init
!Es interesante entrar por el botón source a este embed para entender bien todas sus prioridades
!GlobalRequest (pasada por el browse) se guarda en la propiedad ThisWindow.Request
!Se puede preguntar por SELF.Request para saber para qué se lo llamó al form:
!InsertRecord EQUATE (1)
!ChangeRecord EQUATE (2)
!DeleteRecord EQUATE (3)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar el Form a "Solo lectura" ante una condición===
ThisWindow.Init
! [Priority 4950] La prioridad es importante!
IF FAC:facturado = 1 THEN SELF.Request = ViewRecord.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Truco: Llamar al form para insertar desde el menú ===
Podríamos asumir que si la GlobalRequest está en blanco es que se lo
llamó para insertar, evitaríamos asi el paso por un Browse
!Al principio del Init (antes de Snap-Shot global Request):
!If GlobalRequest = 0 Then GlobalRequest = InsertRecord.

Si la tabla tiene una clave Autonumber, se complica un poco mas, sería asi:
!Al principio del Init (antes de Snap-Shot global Request):
!Por ej prioridad 300
If GlobalRequest = 0
GlobalRequest = InsertRecord
DesdeMenu# = True
End

!Después de Open Files:
!Por ej prioridad 7800
If DesdeMenu# = True
Access:People.PrimeAutoinc()
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Llamar a un form para editar una tabla con un solo registro ===
Típicamente una tabla de parametros, obviamente no queremos pasar por un browse
WindowManager.Init,
!al principio
GlobalRequest = ChangeRecord

!Luego de Open files
Set(Tabla)
access:Tabla.Next()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se confirma un Form ===
ThisWindow.TakeCompleted
! [Priority 2800]
!ANTES DE QUE SE CONFIRME LA GRABACION
! Parent Call
ReturnValue = PARENT.TakeCompleted()
! [Priority 6300]
!YA SE GRABÓ EL REGISTRO.
!VERIFICAR SI SELF.Response=RequestCompleted A VER SI SE GRABÓ OK.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se cierra un Form ===
ThisWindow.Kill
!VERIFICAR LOS valores de SELF.Request y SELF.Response
!Para decidir que acciones tomar
!Este punto ya es "demasiado tarde" para hacer algo antes de que se grabe el registro
!Para eso usar TakeCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se produce el borrado sin abrir el Form ===
Si tenemos un form para actualizar una tabla, y definimos que el borrado sea Confirmando (Standard Warning) o Automático (Automatic Delete), y necesitamos ejecutar un código en el form cuando se efectúe el borrado, usamos:

ThisWindow.PrimeUpdate, después del Parent Call

if self.request = DeleteRecord and self.Response = RequestCompleted
!lo que quiero hacer
end

Hay que tener en cuenta que el borrado de un registro no pasa por el TakeCompleted, excepto cuando se usa la ventana del form (Display Form).

Aporte de Gustavo Olmedo [http://www.evolutionconsulting.com.ar/downloads.html (Templates Clarion)] (Templates Clarion)]

=== Chequear si se modificó cualquier campo del FORM ===

En el TakeCompleted ponemos el siguiente código:

IF NOT SELF.Primary.Me.EqualBuffer(SELF.Saved)
! message('Cambio')
END

Aporte de Pablo Guarnieri y Gustavo Olmendo

=== Chequear si se modificó un campo del FORM ===

IF CLI:Campo <> history::CLI:Record.Campo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Forzar grabación del form ===

Este código sirve para grabar el form inclusive cuando el usuario lo cancele

TakeCloseEvent PROCEDURE(),BYTE,VIRTUAL
IF loc:condicion
SELF.CancelAction = Cancel:Save !immediate save (no confirmation)
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Filtrar un Drop Combo ===

Este código sirve para filtrar un drop combo utilizando pro:sqlfilter, suponemos que en
la variable loc:filtro se arma el filtro ha enviar, algo asi como: 'a.idtercero = <39>90909090<39>'
FDCB14 es el nombre del objeto el cual se puede verificar en propiedades --> clases.

ApplyFilter PROCEDURE,VIRTUAL
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = <39>'&clip(loc:filtro)&'<39>'
IF FILEERRORCODE()
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = ''
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Obtener el número autogenerado por SQL Server en tablas con identity ===
Después del Parent Call, en el TakeCompleted del Form:
IF Self.Response=RequestCompleted AND Self.Request = InsertRecord
Tabla{prop:Sql}= 'SELECT @@IDENTITY' !busco el número que se asignó
IF not Access:Tabla.Next()
!en el primer campo de Tabla viene cargado el número autogenerado
else
message('Error')
end
end

Tomado de una respuesta de Fernando Cerini en el foro.

== REPORTES Y PROCESOS ==
=== Ocultar un campo del detalle según condición ===
!En TakeRecord, antes del Print (Process Manager)
IF <CONDICION>
REPORT$?Control{PROP:HIDE}=True
ELSE
REPORT$?Control{PROP:HIDE}=False !si la condición no se cumple, vuelvo a hacer visible el control
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Saber si un proceso se completó ===
O sea que no se salió por el botón de cancelar
!En el WindowManager.Kill
IF Self.Response = RequestCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Inicializar el número de página ===
!WindowManager.OpenReport, despues del Parent Call
IF ReturnValue = Level:Benign
Report{PROP:NextPageNo} = xxx
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Deshabilitar la impresión ===
!Local Objects, Abc Objects, Previewer, Display, After ParentCall.
!impresión prohibida
ReturnValue = False

Por ejemplo:

If ReturnValue and DemoVersion
ReturnValue = False
Message("Está utilizando una versión del demo, no puede imprimir este documento !")
End
Aporte de Olivier Cretey

Otra opción, en Previewer.TakeAccepted, antes del Parent Call
IF CLIP(ACCEPTED(){PROP:TIP}) = 'Print this report' THEN RETURN LEVEL:BENIGN.

O sea pregunto por el Tool Tip del botón que se ha presionado. Ojo, si lo tienes traducido tienes que cambiar el 'Print this report' por tu Tool Tip.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un Proceso ===
!Windows Manager -->> Validate Records -->> [Priority 5600]
If <Condición de Filtro>
Return Record:Filtered
Else
Return Record:OK
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Habilitar o deshabilitar el Print Preview ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
Self.SkipPreview = Loc:Preview

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Cantidad de Páginas generadas ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
ENDPAGE(SELF.Report)
Loc:Paginas = RECORDS(SELF.PreviewQueue)

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Imprimir un Transporte ===
Necesitas crear 3 details.
DetailDatos
DetailTransporte: aca van las variables locales con los totales
DetailSalto: este detail es vacío y con la propiedad PageAfter

En el embed TakeRecord (antes de los PRINTs) habría que hacer algo asi
LOC:Fila += 1
If LOC:Fila % 28 = 0 !28 líneas por página...
PRINT(RPT:DetailSalto)
PRINT(RPT:DetailTransporte)
LOC:Fila = 1
End
LOC:Total += LIBRO:Total
PRINT (RPT:Detalle)
RETURN LEVEL:Benign

Marcelo Martínez
y [mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Acelerar las actualizaciones ===
Para que los procesos que agreguen registros funcionen mas rápido hay que agregar un Logout o Stream en Init y un Commit o Flush en el kill.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Se imprime o se Cancela? ===
Los embeds son
ABC Objectd
--WindowManager(ReportManager)
--CancelPrintReport
-Se Cancela

--PrintReport
-Se imprime

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Recorrer la cola de las páginas ===
Cada página del reporte genera una imagen .WMF, la cual se guarda en el directorio temporal.
Con este ejemplo se puede recorrer la cola donde se guardan los nombres de estos archivos. Ésto es lo que usa por ejemplo el [http://www.http://templatesclarion.com.ar/downloads/ EC_Mail Template] para enviar estas páginas por mail.
Previewer.Open PROCEDURE
....
loop a# = 1 to RECORDS(SELF.ImageQueue)
get(SELF.ImageQueue,a#)
message(SELF.ImageQueue)
end

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir una Queue ===
La mejor forma de hacerlo en Clarion6 es en Report Properties - General -
Datasource: Queue.

Yo generalmente pongo los parametros en la ventana y cargo la queue en el
evento accepted del PauseButton.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir un SQL ===
Lo que yo hago es poner todos los parámetros en la ventana del reporte.
En el accepted del boton de pausa cargo la cola de memoria con:

SQL{PROP:SQL} = !aca armo el string SQL
IF ERRORCODE() THEN STOP( FILEERROR()).
FREE(ColaMemoria)
LOOP
NEXT(SQL) !O ABC, como prefieras...
IF ERRORCODE() THEN BREAK.
ColaMemoria :=: SQL:Record
ADD(ColaMemoria)
END

El reporte lo configuro para trabajar con la cola (data source) y en el
Detail del reporte pongo los campos de la cola de memoria.
Lo ideal es tener una cola de memoria global con el atributo thread y usar
siempre la misma para todo.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar o hacer cortes de control manuales en reportes ===
En TakeRecord, antes del Print.

!Actualizar contadores

IF AUX <> CampoCorte
IF AUX <> 0 !para evitar la primera vez
!Inicializar los contadores
END
AUX=CAMPO
!SE VIENE EL CORTE
END

Este método TakeRecord se usa también para actualizar cualquier variable calculada antes de la impresión de la banda de detalle.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo BLOB ===
Este código va en el método TakeRecord, antes del PRINT

Report$?Image1{PROP:NoWidth} = TRUE
Report$?Image1{PROP:NoHeight} = TRUE
Report$?Image1{PROP:ImageBlob} = STU:Photograph{PROP:Handle}
IF Report$?Image1{PROP:Height} > 1000
AspectRatio$ = Report$?Image1{PROP:Width}/Report$?Image1{PROP:Height}
Report$?Image1{PROP:Height} = 1000
Report$?Image1{PROP:Width} = 1000 * AspectRatio$
END
IF Report$?Image1{PROP:Width} > 1000
AspectRatio$ = Report$?Image1{PROP:Height}/Report$?Image1{PROP:Width}
Report$?Image1{PROP:Width} = 1000
Report$?Image1{PROP:Height} = 1000 * AspectRatio$
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo CSTRING ===
Este caso es similar al anterior, pero en el campo se encuentra el path donde está la imagen
!En el método TakeRecord, antes del PRINT
Report$?Image1{PROP:Text} = PRO:Foto

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Evitar el cartel "No records to process" en un proceso ===
!En el metodo TAKE NO RECORDS poner un RETURN antes del parent call.
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir el reporte en blanco, cuando no hay registros ===
En WindowManager. Next, antes del Parent Call con prioridad 500.

! [Priority 500] antes del Parent Call
If Primera=0 !variable local byte
Primera=1
SELF.Process.RecordsProcessed = 1
Return Level:Benign
End
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Cuando hay filtros y rangos, esta solución suele duplicar el primer registro del detalle.
Para Solucionar esto en ProcessManager NextPROCEDURE(BYTE ProcessRecord) con prioridad 7500 se debe colocar el siguiente código:

IF ReturnValue = 0 AND LOC:Primera = 0 THEN !Si hay un registro
LOC:Primera = 1 !Dejo al reporte seguir su curso normal
END

Mario Wojcik

=== Detectar el último registro en un process o Reporte (fin de archivo) ===
ThisProcess.Next PROCEDURE(BYTE ProcessRecords=True)
! [Priority 5001]
If ReturnValue = 5 !Level:Notify
!Fin del proceso
End

Esto por ejemplo es muy útil para cambiar etiquetas en los totales generales del reporte, en un page footer
ThisReport.Next PROCEDURE(BYTE ProcessRecords)
....
! [Priority 5001] despues del Parent Call
If ReturnValue = 5 !Level:Notify
REPORT$?LabelTotal{prop:text}= 'Total'
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Reporte con múltiples detalles ===
Por Ejemplo:

Viajes
|-->pasajeros
|-->comisiones

Habría que poner solo la tabla viajes en el Table Schematic. Pasajeros y Comisiones en Other Tables

En el reporte crear 3 details, uno para cada tabla.

En ThisReport.TakeRecord, antes de los PRINTs

! [Priority 5500]
PRINT(RPT:DetailViaje)
CLEAR(PAS:RECORD)
PAS:idViaje = VIA:IdViaje
SET(PAS:ClavePorViaje, PAS:ClavePorViaje)
LOOP UNTIL ACCESS:Pasajeros.Next() OR PAS:idViaje <> VIA:IdViaje
PRINT(RPT:DetailPasajeros)
END
!Y lo mismo para las comisiones
CLEAR(COM:RECORD)
COM:idViaje = VIA:IdViaje
SET(COM:ClavePorViaje, COM:ClavePorViaje)
LOOP UNTIL ACCESS:Comisiones.Next() OR COM:idViaje <> VIA:IdViaje
PRINT(RPT:DetailComisiones)
END
Return Level:Benign !ya imprimí todo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Otra alternativa podría ser utilizando el Template '''ReportChildFiles''' (desde version 6.X ?) ya que puede ser utilizado mas de una vez en un mismo reporte, apuntando cada instancia a un archivo "hijo" diferente.
Es fácil de configurar: Se debe seleccionar la tabla CHILD y la PARENT. En el reporte hay que definir el REPORT DETAIL (para el CHILD) y ponerle algún nombre en el label que luego debe ser configurado en el Template.

Jose Sturniolo

=== Imprimir exactamente lo que estamos viendo en el browse ===
En el browse pones un botón que llame al reporte y en parameters:
(Brw1.view{PROP:Filter}, Brw1.view{PROP:Order})

En las propiedades del reporte o proceso:
Prototype: (STRING, STRING)
Parameters: (FILTRO, ORDEN)

En WindowManager.Init, al final:
ThisReport.SetFilter(FILTRO) ! o ThisProcess....
ThisReport.SetOrder(ORDEN)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar tamaño de hoja en el reporte ===
En el embed WindowManager 'OpenReport', PRIORITY(7500)

IF ~ReturnValue
SETTARGET(REPORT)
CASE PRINTER{PROPPRINT:Paper}
OF PAPER:LETTER
REPORT{PROP:height} = 8500
?Footer{PROP:Ypos} = 9000
OF PAPER:LEGAL
REPORT{PROP:height} = 11000
?Footer{PROP:Ypos} = 11500
etc.
END
SETTARGET()
END

etc. con los tamaños de papel que quieras.
Esto acomoda el contenido del reporte en run-time, haciéndolo ocupar más
o menos hoja según sea el largo de la misma. Chiche, ¿no?.
Ajustá los valores a tus necesidades.
Para tener en cuenta: el usuario tiene que elegir el tamaño del papel
ANTES de generar el reporte. Si ya está en la vista previa, el reporte ya
está generado, por lo tanto si cambia el largo de hoja ahí, no se lo va a
tomar.

Jorge Lavera

=== Cambiar Impresora ===
En Global Properties-->Embeds-->Before Global INCLUDEs
INCLUDE('PRNPROP.CLW')
!para poder acceder a las propiedades de las impresoras

Luego en el Reporte en
ThisReport.Open()
!para guardar la impresora por defecto de Windows
GLO:IMPRESORA = PRINTER{PROPPRINT:Device}
!Seteo la impresora que quiero usar.
!El string debe ser igual al que figura en IMPRESORAS
PRINTER{PROPPRINT:Device} = 'HP Deskjet 840'

y por último en
ThisReport.Kill()
!para devolver la impresora por defecto de windows
PRINTER{PROPPRINT:Device} = CLIP(GLO:IMPRESORA)

Guillermo Ondetti, Pragma Sistemas

=== Detectar Salto de Página de Reporte ===
Este sería el codigo, siempre y cuando no tengas break groups (ahi se complica bastante)
El embebido es TakeRecord en ABC, o Before Print Detail en Legacy.
VarLocal += REPORT$?Detail{PROP:height}
IF VarLocal > REPORT{PROP:height}
VarLocal = REPORT$?Detail{PROP:height}
!En el siguiente PRINT Cambia la página...
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Aplicar Filtro sql en el reporte ===
Se arma el filtro si se quiere en una variable por ejemlo loc:sql
y se aplica en Local Objects --> Abc Objects -- > Process manager --> Apply Filter antes del parent call, asi:

Process:View{Prop:SqlFilter}=Loc:SQL

Ivan Dario Benitez

=== Imprimir mas de una Copia por Reporte ===
Se tiene que poner en el Window Manager --> Open (Prioridad(5000))

PRINTER{PROPPRINT:COPIES}=n !! n = Cantidad de copias

Luego es aconsejable poner en el Window Manager --> Kill

PRINTER{PROPPRINT:COPIES}=1

ASC Sergio D. Caballero

== BROWSES ==
=== Actualizar un campo al hacer click en una columna ===
Por ejemplo, en People.app

En el evento Accepted del Control del browse.
!Si se hizo click en el campo
IF ?BROWSE:1{PropList:MouseDownField}= 4
ACCESS:PEOPLE.Fetch(PEO:KeyId)
PEO:Gender = 'X'
ACCESS:PEOPLE.Update()
BRW1.ResetFromFile()
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtrar con SQL===
A veces es muy útil aplicar un filtro SQL encima de todos los demas filtros que ya tenga el browse, por ejemplo para filtrar por usuario, por sucursal, etc.
Yo normalmente le pongo el filtro SQL en el método windowmanager.Reset,
prioridad 5000
BRW1.View{PROP:SQLFILTER}='+ filtro sql'
Luego se refresca normalmente, o manualmente con ThisWindow.Reset (1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Activar un Browse invisible, o sea que está en otro TAB ===
Esto es especialmente útil cuando necesitamos que se ejecuten totalizadores del browse aunque éste no esté visible en la pantalla.
!ABC Objects ->
Local Objects ->
Windows Manager->
Init Priority[7500]
BRW2.ActiveInvisible = True

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Copiar un Registro ===

!ABC Objects -> Browse on Clientes -> PrimeRecord Priority[4500]
IF Loc:Copiar
SuppressClear = True
CLEAR(Loc:Copiar)
END!IF

!Control Events --> Copiar -> Accepted -> Priority[5000]
Loc:Copiar = True
POST(EVENT:Accepted,?UseDelBotonAgregar)

!Notas: Crear Variable Local Loc:Copiar
! SuppressClear es un Parametro de BrowseClass.PrimeRecord

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar el Popup ===
!ABC Objects -> Local Objects -> Windows Manager-->>Init Priority[9001]
Brw1.Popup.KILL

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Ordenamiento Dinámico ===
En Clarion6 se puede hacer automáticamente con la opcion Sort Headers.
Si se quiere hacer desde código para ordenar por cualquier campo, se puede utilizar:
Brw1.SetOrder('TAB:Campo')
Brw1.ApplyOrder()
ThisWindow.Reset(1)
Por ejemplo si quisiera emular un ordenamiento con el doble click sobre una columna, habría que alertar el doble click en al browse, y el código sería mas o menos asi.
Control Event -> Browse:1 ->Alert Key [4500]
! Código usado para cambiar el Orden del Browse
! cuando se hace doble click en la columna
IF KEYCODE()=MouseLeft2
?Browse:1{PropList:Header,1} ='Codigo'
?Browse:1{PropList:Header,2} ='Nombre'
Loc:Columna = ?Browse:1{PropList:MouseDownField}
CASE Loc:Columna
OF 1
?Browse:1{PropList:Header,1} ='<<<CODIGO>>>'
Brw1.SetOrder('LCA:LOCALIDAD')
OF 2
?Browse:1{PropList:Header,2} ='<<<NOMBRE>>>>'
Brw1.SetOrder('UPPER(LCA:NOMBRE)')
END!CASE
Brw1.ApplyOrder()
ThisWindow.Reset(1)
END!IF

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Locator Múltiple ===
Por ejemplo, para posicionarme en un código de cuenta contable:
Lo que podrías hacer es poner una variable string sobre el browse y poner un
código mas o menos asi en su accepted del entry

!Asumiendo que cada código tiene cuatro dígitos
!Revisar la sección String Slicing en el Help
Cue:Cuenta = Loc:Cuenta[1:4]
Cue:SubCuenta = Loc:Cuenta[5:8]
Cue:SubSubCuenta = Loc:Cuenta[9:12]
SET(Cue:PorCodigo,Cue:PorCodigo)
Access:Cuentas.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

Otro ejempo, en un browse de órdenes, posicionarse según el nombre del cliente

CLI:Nombre = LOC:Cliente
SET(CLI:PorNombre, CLI:PorNombre)
ACCESS:Clientes.Next()

ORD:CodCliente = CLI:CodCliente
SET(ORD:PorCliente, ORD:PorCliente)
ACCESS:Ordenes.Next()

BRW1.ResetFromFile()
ThisWindow.Reset(1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Pintar un browse según un campo ===
Por ejemplo cuando vemos las facturas de un Cliente se repite el nombre, este código pinta diferente cada grupo de nombres.
Primero hay que ponerle el atributo color al campo que necesites pintar, desde list box format.
Luego va el siguiente código, en WindowManager.Reset antes del Parent Call

Aux = ''
LOOP F#= 1 TO RECORDS (BRW1.Q)
GET(BRW1.Q, F#)
IF Aux <> BRW1.Q.CLI:Nombre
Col# = 1- Col#
Aux = BRW1.Q.CLI:Nombre
END
If Col#
BRW1.Q.CLI:Nombre_NormalBG = COLOR:SILVER
Else
BRW1.Q.CLI:Nombre_NormalBG = COLOR:WHITE
End
PUT(BRW1.Q)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Refrescar un browse desde otra ventana ===
Lo mas fácil sería usando NOTIFY.
En la Ventana 1 (la del browse a refrescar)
WindowManager.Init
GLO:THREAD = THREAD() !VARIABLE GLOBAL LONG

Window Events
Notify
BRW1.ResetfromBuffer() ! o ThisWindow.Reset(1)?

En la ventana 2, cuando se necesite refrescar la 1
NOTIFY (999, GLO:THREAD)

Puede ser 999 o cualquier cosa ya que en éste caso no estoy usando ese parámetro.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Iniciar el browse en un Tab determinado ===
En ThisWindow.Init, al final
SELF.FirstField = ?Tab:4 !Use del tab

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Actualizar el resultado de un totaling del browse de detalle, en el Encabezado ===
En el Browse de abajo (el de detalle)
ResetFromView, prioridad 4500 - La prioridad es importante
GET(Encabezado, ENC:Por_Numero)
ENC:Total = loc:total !ÉSTA ES LA VARIABLE DEL TOTALING
PUT (Encabezado)
IF ERRORCODE() THEN MESSAGE(ERROR()).
BRW1.ResetFromFile()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtro Dinámico ===
Poner un control Text donde el usuario pueda escribir cualquier filtro
X# = EVALUATE(Filtro)
IF ERRORCODE()
MESSAGE('ERROR DE SINTAXIS EN EL FILTRO: ' & ERROR(), 'ATENCION')
ELSE
BRW1.SetFilter(Filtro)
ThisWindow.Reset(1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Rangos múltiples y dinámicos ===
Si tenemos una clave con varios componentes, en Actions del browse ponemos un rango por current value, elegimos el componente de la clave hasta el cual queremos hacer el rango.
El siguiente componente de la clave se puede usar como locator.
Por ejemplo si tenemos una clave con Tipo+Provincia+Localidad, hacemos un rango de current value por provincia y nos queda un locator por localidad.

BRW1.ApplyRange PROCEDURE
! [Priority 5000]
RAN:Tipo= loc:tipo
RAN:Provincia=loc:provincia
SELF.Order.Rangelist.AssignLeftToRight()

En algun boton de aplicar rango
BRW1.ApplyRange()
ThisWindow.Reset(1)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, deshabilitar condicionalmente la actualización de registros ===
IF <Condición>
!Deshabilitar Actualización
BRW1.InsertControl=FALSE
BRW1.ChangeControl=FALSE
BRW1.DeleteControl=FALSE
ELSE
BRW1.InsertControl=?INSERT
BRW1.ChangeControl=?CHANGE
BRW1.DeleteControl=?DELETE
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar el cambio de registro seleccionado en un Browse ===
Ejemplo mostrar una foto del cliente al costado del browse
BRW1.TakeNewSelection PROCEDURE
! [Priority 5001]
!EN CLI:FOTO ESTA EL PATH COMPLETO DE LA FOTO
IF CLI:FOTO <> ''
?Foto{PROP:TEXT}= CLI:FOTO
ELSE
?Foto{PROP:TEXT}= ''
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un browse ===
Ejemplo: Mostrar sólo los clientes que tengan alguna orden

BRW1.ValidateRecord PROCEDURE
! [Priority 5001]
!FILTROS COMPLEJOS
!EJ: MOSTRAR SOLO LOS CLIENTES QUE TENGAN ALGUNA ORDEN
CLEAR(ORD:RECORD)
Ord:CodigoCliente=CLI:ID
SET(Ord:FK_Ordenes_CLIENTES,Ord:FK_Ordenes_CLIENTES)
NEXT(ORDENES)
IF ERRORCODE() OR (Ord:CodigoCliente <> CLI:ID) THEN RETURN Record:Filtered.

RETURN Record:OK
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Poner un campo "saldo" en un browse ===
ThisWindow.Reset, antes del Parent Call

S#=0
LOOP F#= 1 TO RECORDS (Queue:Browse:1)
GET(Queue:Browse:1, F#)
S# += Queue:Browse:1.ORD:Total_Impo
Queue:Browse:1.Saldo = S#
PUT(Queue:Browse:1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Resetear/inicializar un Locator ===
El método a ejecutar es
BRW1::Sort1:Locator.Set

Los nombres de las instancias de Locators por cada TAB se llaman:
BRW1::Sort0:Locator.Set
BRW1::Sort1:Locator.Set
BRW1::Sort2:Locator.Set
!etc..

Luego sería bueno volver a poner el foco en el browse para que se pueda seguir usando el locator normalmente
select (?Browse:1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, disparar un procedimiento después de generar un alta, modificación, etc. ===

El proceso a disparar se hace desde el browse, la idea es saber si del Form volvió aceptando o canceló la actualización. El punto embebido es:

Local Objects
BRW1 (o el objeto de tipo browse class que sea)
ResetFromAsk (después del Parent.call)

IF VCRRequest=VCR:None
CASE Request
OF InsertRecord
IF Response = RequestCompleted
!Hacer algún proceso
END
END
END!

=== Inserción continua refrescando el Browse ===
Este otro método es similar al anterior, también sirve para lo mismo.
Agrego un ejemplo para hacer inserción continua en el Form y además se vaya actualizando el browse

ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)
! Cuidado que existen dos ThisWindow.Run, seleccionar el correcto
! [Priority 8500]
IF Request = InsertRecord And ReturnValue = RequestCompleted
POST(EVENT:ACCEPTED, BRW1.InsertControl)
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Posicionar un browse en un registro seleccionado ===

Al abrir un browse a veces necesitamos posicionar el selector en un registro determinado, tal como lo hacen los browses para selección.

Por ejemplo para posicionar el browse en el registro más cercano al proporcionado por el usuario:

ThisWindow.Open PROCEDURE
! Start of "WindowManager Method Data Section"
! [Priority 5000]
! End of "WindowManager Method Data Section"
CODE
! Start of "WindowManager Method Executable Code Section"
! [Priority 500]
CLI:cliente= LOC:Cliente
ACCESS:Clientes.fetch(CLI:Kcodigo)
BRW1.selecting=1
! Parent Call
PARENT.Open()
! [Priority 6300]
BRW1.selecting=0

Otra idea, propuesta por Matías Flores:
Ubicarlo por el valor de los campos de la clave. Por ejemplo, si en un browse de clientes querés posicionarte en un cliente que tiene un código determinado (Loc:Codigo):

Cli:Codigo = Loc:Codigo
SET(Cli:PorCodigo,Cli:PorCodigo)
Access:Clientes.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

un ejemplo parecido al anterior, pero en legacy, sería:
CLI:Codigo = LOC:Codigo
BRW1::LocateMode = LocateOnValue
DO BRW1::LocateRecord

Una opción más es:
En el WindowManager.init, antes de Initialize browse y después de OpenFiles, colocar el siguiente código:

BRWx.StartAtCurrent = True
TAB:Campo = Valor_Buscado
get(Tabla, TAB:Key_que_ordena_por_Campo)

=== En Legacy, activar un filtro sobre un browse abierto. ===

Esto se pone en el punto embebido "Before opening VIEW". Acordarse de BINDEAR todas las variables que se necesiten.

!---ANTES DE ABRIR EL VIEW---
if SoloPendientes then
BRW2::View:Browse{Prop:Filter} = |
'MER:numertra = BRW2::Sort1:Reset:TRA:numertra AND MER:saldunid <> 0'
end

=== Campos Calculados ===
Por ejemplo cuando quieras presentar el nombre completo sin los espacios de un campo a otro. Pones en el browse una variable local.
En el SETQUEUERECORD (4500)

Loc:ApellidoNombre = clip(CON:Apellido) & ' ' & CON:Nombre

!(Tip de Alex B.)

=== Código antes y después de una actualización DESDE UN BROWSE. ===

- Antes de la llamada al Form de actualización
! ABC Objects -> Browse on Archvivo ->Ask Priority[4500]
IF Request = InsertRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR ALTA ','ALTA',ICON:EXCLAMATION)
ELSIF Request = ChangeRecord
BEEP
MESSAGE('ATENCION: SE VA A ACTUALIZAR ','CAMBIO',ICON:EXCLAMATION)
ELSIF Request = DeleteRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR DE BAJA ','BAJA',ICON:EXCLAMATION)
END

- Después de la actualización del registro
!ABC Objects -> Browse on Provincia ->Ask Priority[5500]
IF ReturnValue =1
BEEP
MESSAGE('ATENCIÓN: SE ACTUALIZÓ EL REGISTRO','ACTUALIZÓ OK',ICON:EXCLAMATION)
ELSIF ReturnValue =2
BEEP
MESSAGE('SE CANCELÓ LA ACTUALIZACIÓN DEL REGISTRO','ATENCIÓN',ICON:HAND)
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar/esconder (cambiar a PROP:HIDE) un control si el browse está vacío - pe. un botón-. ===

En el Browse.UpdateWindow(), última prioridad:
?TuBoton{PROP:Disable}=Choose(Self.Records()<>0,0,1)

===Iniciar un browse con un orden "sort header"===

Si queremos que al abrir un browse el mismo se encuentre ordenado como si hubiéramos hecho click en el sortheader, ponemos luego del generated code del evento openwindow lo siguiente:

BRW1::SortHeader.SetSortFromString('TAB:Campo')

donde TAB:Campo es uno de los campos de la tabla que estoy mostrando en el browse.

== EDIT IN PLACE==
=== Edit in Place o Form, según condición ===
En BrowseClass, Ask, antes del Parent Call
If ?browse:1{proplist:mousedownfield} = 5
Self.AskProcedure = 0
else
Self.AskProcedure = 1
end

Puede usarse cualquier condición, en este caso si el usuario hace doble click en la 5a columna se usa edit in place, sino se usa el formulario

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Desactivar Edit in Place de un campo según condición ===
En las propiedades del EIP del campo admitir la edición del mismo.

En el EIP Field Manager del campo, TakeEvent, antes del Parent Call
if Queue:Browse:1.TAB:Campo_de_mi_Tabla > 0
Return EditAction:Cancel
thiswindow.reset(true)
end

En este ejemplo sólo permito que pueda editarse el campo si el valor actual del mismo es <= 0

=== Inicializar campos al insertar registro ===
O sea lo que hace el Prime Fields en las formas
ABC Objects
BROWSE ON TABLA using ?LIST
PrimeRecords
Después del Parent Call
TPS:TuCampo= valor inicial

=== Poner Disable un campo===
Local Objects -->>
Abc Objects -->>
EIP Field Manag...for Field NombreCampo
-->>Init [Priority 5001]
If SELF.FEQ then SELF.FEQ{Prop:Disable} = true.
También se pueden cambiar otras propiedades como por ejemplo UPPER (mayúsculas) o READ ONLY (sólo lectura)
If SELF.FEQ
SELF.FEQ{prop:readonly} = TRUE
SELF.FEQ{prop:upr} = TRUE
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Campos Calculados ===
Por ejemplo Modificar el total cuando cambia la cantidad.
Primero agregar el campo cantidad en Column Specific
EditInPlace::DET:Cantidad.TakeEvent PROCEDURE(UNSIGNED Event)
....
!Despues del Parent Call

CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
BRW1.Q.DET:Total = BRW1.Q.DET:Cantidad * BRW1.Q.DET:Importe
!Etc... siempre haciendo referencia a los campos de la cola BRW1.Q.
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones ===
Por ejemplo una validación básica de un número requerido
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:NroDocumento
-->>Take Event [Priority 5001]
! Validación del nro. de Documento
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
UPDATE(Self.Feq)
IF NOT BRW1.Q.Cli:NroDocumento
BEEP(BEEP:SystemExclamation) ; YIELD()
MESSAGE('No se informó el número de Documento', |
'Atención!', ICON:Exclamation)
ReturnValue = EditAction:NONE
Return ReturnValue
END
END

Validación con un lookup a una tabla
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:Provincia
-->>Take Event [Priority 5001]
!Valida Provincia
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
Pro:Codigo= BRW1.Q.Cli:Provincia
IF Access:Provincia.Fetch(Pro:PorCodigo)
GlobalRequest = SelectRecord
SelectProvincia
IF NOT Pro:Codigo
ReturnValue = EditAction:NONE
Return ReturnValue
ELSE
BRW1.Q.Cli:Provincia = Pro:Codigo
BRW1.Q.Pro:NOMBRE = Pro:NOMBRE
END
END
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== GLOBALES ==

=== Cambiar los mensajes de error del SQL ===
Con cambiar los TRN no alcanza para ese tipo de errores.

Lo que se puede hacer es determinar el mensaje que viene desde el SQLServer
para mostrar un mensaje mas amigable.

El embebido es
Global Embeds:
Global Objets
Abc Objects
Error Manager
TakeNotify
!Antes del Parent Call
IF INSTRING('COLUMN REFERENCE', SELF.SubsString(),1,1)
SELF.Msg('El registro no puede borrarse porque tiene datos de detalle
que dependen de él. |Presione [OK] para una descripción detallada del
error',SELF.GetErrorBufferTitle(),ICON:Exclamation,Button:OK,BUTTON:OK,0)
END

Hay que armar un IF de estos por cada tipo de error...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validación de campos (Edit in place o Form)===

Para validar campos lo ideal es usar los Global Embeds
Global Embeds
Field Level Validation
Tabla
Campo
IF <No cumple Condición>
Message('error...')
RETURN Level:Notify
END

Esto te va a funcionar "para siempre" ya sea que uses Edit in place, un Form
o código embebido para actualizar la tabla.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Puntos Embebidos

2015-03-07T22:46:43Z

Jorge Brugger: /* Acelerar las actualizaciones */

Los puntos embebidos son la pesadilla de todo principiante de Clarion. Son extremadamente útiles, pero son muy difíciles de aprender. Para colmo, la abstracción que implementa la clase ABC hace más difícil todavía conocerlos y aprovecharlos. Por eso esta sección es de vital importancia.

== FORMULARIOS ==
=== ¿Qué procedimiento llamó al Form? ===
Al principio del WindowManager.Init del Form (primer prioridad disponible)

GlobalErrors.GetProcedureName()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones complejas ===
Por ejemplo validar un Email:
En el accepted del campo
Puedes hacerlo con MATCH, ejemplo:

X# = MATCH(UPPER(CLIP(locemail)),|
'^[-A-Z0-9._]+@{{[-A-Z0-9._]+.}+[A-Z][A-Z][A-Z]?[A-Z]?$', Match:Regular)

Devuelve 1 o 0 si el mail no es válido.
El MATCH puede usarse con expresiones regulares para validar casi cualquier cosa...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se Abre/inicializa el Form ===
ThisWindow.Init
!Es interesante entrar por el botón source a este embed para entender bien todas sus prioridades
!GlobalRequest (pasada por el browse) se guarda en la propiedad ThisWindow.Request
!Se puede preguntar por SELF.Request para saber para qué se lo llamó al form:
!InsertRecord EQUATE (1)
!ChangeRecord EQUATE (2)
!DeleteRecord EQUATE (3)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar el Form a "Solo lectura" ante una condición===
ThisWindow.Init
! [Priority 4950] La prioridad es importante!
IF FAC:facturado = 1 THEN SELF.Request = ViewRecord.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Truco: Llamar al form para insertar desde el menú ===
Podríamos asumir que si la GlobalRequest está en blanco es que se lo
llamó para insertar, evitaríamos asi el paso por un Browse
!Al principio del Init (antes de Snap-Shot global Request):
!If GlobalRequest = 0 Then GlobalRequest = InsertRecord.

Si la tabla tiene una clave Autonumber, se complica un poco mas, sería asi:
!Al principio del Init (antes de Snap-Shot global Request):
!Por ej prioridad 300
If GlobalRequest = 0
GlobalRequest = InsertRecord
DesdeMenu# = True
End

!Después de Open Files:
!Por ej prioridad 7800
If DesdeMenu# = True
Access:People.PrimeAutoinc()
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Llamar a un form para editar una tabla con un solo registro ===
Típicamente una tabla de parametros, obviamente no queremos pasar por un browse
WindowManager.Init,
!al principio
GlobalRequest = ChangeRecord

!Luego de Open files
Set(Tabla)
access:Tabla.Next()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se confirma un Form ===
ThisWindow.TakeCompleted
! [Priority 2800]
!ANTES DE QUE SE CONFIRME LA GRABACION
! Parent Call
ReturnValue = PARENT.TakeCompleted()
! [Priority 6300]
!YA SE GRABÓ EL REGISTRO.
!VERIFICAR SI SELF.Response=RequestCompleted A VER SI SE GRABÓ OK.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se cierra un Form ===
ThisWindow.Kill
!VERIFICAR LOS valores de SELF.Request y SELF.Response
!Para decidir que acciones tomar
!Este punto ya es "demasiado tarde" para hacer algo antes de que se grabe el registro
!Para eso usar TakeCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se produce el borrado sin abrir el Form ===
Si tenemos un form para actualizar una tabla, y definimos que el borrado sea Confirmando (Standard Warning) o Automático (Automatic Delete), y necesitamos ejecutar un código en el form cuando se efectúe el borrado, usamos:

ThisWindow.PrimeUpdate, después del Parent Call

if self.request = DeleteRecord and self.Response = RequestCompleted
!lo que quiero hacer
end

Hay que tener en cuenta que el borrado de un registro no pasa por el TakeCompleted, excepto cuando se usa la ventana del form (Display Form).

Aporte de Gustavo Olmedo [http://www.evolutionconsulting.com.ar/downloads.html (Templates Clarion)] (Templates Clarion)]

=== Chequear si se modificó cualquier campo del FORM ===

En el TakeCompleted ponemos el siguiente código:

IF NOT SELF.Primary.Me.EqualBuffer(SELF.Saved)
! message('Cambio')
END

Aporte de Pablo Guarnieri y Gustavo Olmendo

=== Chequear si se modificó un campo del FORM ===

IF CLI:Campo <> history::CLI:Record.Campo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Forzar grabación del form ===

Este código sirve para grabar el form inclusive cuando el usuario lo cancele

TakeCloseEvent PROCEDURE(),BYTE,VIRTUAL
IF loc:condicion
SELF.CancelAction = Cancel:Save !immediate save (no confirmation)
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Filtrar un Drop Combo ===

Este código sirve para filtrar un drop combo utilizando pro:sqlfilter, suponemos que en
la variable loc:filtro se arma el filtro ha enviar, algo asi como: 'a.idtercero = <39>90909090<39>'
FDCB14 es el nombre del objeto el cual se puede verificar en propiedades --> clases.

ApplyFilter PROCEDURE,VIRTUAL
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = <39>'&clip(loc:filtro)&'<39>'
IF FILEERRORCODE()
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = ''
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Obtener el número autogenerado por SQL Server en tablas con identity ===
Después del Parent Call, en el TakeCompleted del Form:
IF Self.Response=RequestCompleted AND Self.Request = InsertRecord
Tabla{prop:Sql}= 'SELECT @@IDENTITY' !busco el número que se asignó
IF not Access:Tabla.Next()
!en el primer campo de Tabla viene cargado el número autogenerado
else
message('Error')
end
end

Tomado de una respuesta de Fernando Cerini en el foro.

== REPORTES Y PROCESOS ==
=== Ocultar un campo del detalle según condición ===
!En TakeRecord, antes del Print (Process Manager)
IF <CONDICION>
REPORT$?Control{PROP:HIDE}=True
ELSE
REPORT$?Control{PROP:HIDE}=False !si la condición no se cumple, vuelvo a hacer visible el control
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Saber si un proceso se completó ===
O sea que no se salió por el botón de cancelar
!En el WindowManager.Kill
IF Self.Response = RequestCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Inicializar el número de página ===
!WindowManager.OpenReport, despues del Parent Call
IF ReturnValue = Level:Benign
Report{PROP:NextPageNo} = xxx
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Deshabilitar la impresión ===
!Local Objects, Abc Objects, Previewer, Display, After ParentCall.
!impresión prohibida
ReturnValue = False

Por ejemplo:

If ReturnValue and DemoVersion
ReturnValue = False
Message("Está utilizando una versión del demo, no puede imprimir este documento !")
End
Aporte de Olivier Cretey

Otra opción, en Previewer.TakeAccepted, antes del Parent Call
IF CLIP(ACCEPTED(){PROP:TIP}) = 'Print this report' THEN RETURN LEVEL:BENIGN.

O sea pregunto por el Tool Tip del botón que se ha presionado. Ojo, si lo tienes traducido tienes que cambiar el 'Print this report' por tu Tool Tip.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un Proceso ===
!Windows Manager -->> Validate Records -->> [Priority 5600]
If <Condición de Filtro>
Return Record:Filtered
Else
Return Record:OK
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Habilitar o deshabilitar el Print Preview ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
Self.SkipPreview = Loc:Preview

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Cantidad de Páginas generadas ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
ENDPAGE(SELF.Report)
Loc:Paginas = RECORDS(SELF.PreviewQueue)

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Imprimir un Transporte ===
Necesitas crear 3 details.
DetailDatos
DetailTransporte: aca van las variables locales con los totales
DetailSalto: este detail es vacío y con la propiedad PageAfter

En el embed TakeRecord (antes de los PRINTs) habría que hacer algo asi
LOC:Fila += 1
If LOC:Fila % 28 = 0 !28 líneas por página...
PRINT(RPT:DetailSalto)
PRINT(RPT:DetailTransporte)
LOC:Fila = 1
End
LOC:Total += LIBRO:Total
PRINT (RPT:Detalle)
RETURN LEVEL:Benign

Marcelo Martínez
y [mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Acelerar las actualizaciones ===
Para que los procesos que agreguen registros funcionen mas rápido hay que agregar un Logout o Stream en Init y un Commit o Flush en el kill.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Se imprime o se Cancela? ===
Los embeds son
ABC Objectd
--WindowManager(ReportManager)
--CancelPrintReport
-Se Cancela

--PrintReport
-Se imprime

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Recorrer la cola de las páginas ===
Cada página del reporte genera una imagen .WMF, la cual se guarda en el directorio temporal.
Con este ejemplo se puede recorrer la cola donde se guardan los nombres de estos archivos. Ésto es lo que usa por ejemplo el Evolution Mail Template para enviar estas páginas por mail.
Previewer.Open PROCEDURE
....
loop a# = 1 to RECORDS(SELF.ImageQueue)
get(SELF.ImageQueue,a#)
message(SELF.ImageQueue)
end

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir una Queue ===
La mejor forma de hacerlo en Clarion6 es en Report Properties - General -
Datasource: Queue.

Yo generalmente pongo los parametros en la ventana y cargo la queue en el
evento accepted del PauseButton.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir un SQL ===
Lo que yo hago es poner todos los parámetros en la ventana del reporte.
En el accepted del boton de pausa cargo la cola de memoria con:

SQL{PROP:SQL} = !aca armo el string SQL
IF ERRORCODE() THEN STOP( FILEERROR()).
FREE(ColaMemoria)
LOOP
NEXT(SQL) !O ABC, como prefieras...
IF ERRORCODE() THEN BREAK.
ColaMemoria :=: SQL:Record
ADD(ColaMemoria)
END

El reporte lo configuro para trabajar con la cola (data source) y en el
Detail del reporte pongo los campos de la cola de memoria.
Lo ideal es tener una cola de memoria global con el atributo thread y usar
siempre la misma para todo.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar o hacer cortes de control manuales en reportes ===
En TakeRecord, antes del Print.

!Actualizar contadores

IF AUX <> CampoCorte
IF AUX <> 0 !para evitar la primera vez
!Inicializar los contadores
END
AUX=CAMPO
!SE VIENE EL CORTE
END

Este método TakeRecord se usa también para actualizar cualquier variable calculada antes de la impresión de la banda de detalle.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo BLOB ===
Este código va en el método TakeRecord, antes del PRINT

Report$?Image1{PROP:NoWidth} = TRUE
Report$?Image1{PROP:NoHeight} = TRUE
Report$?Image1{PROP:ImageBlob} = STU:Photograph{PROP:Handle}
IF Report$?Image1{PROP:Height} > 1000
AspectRatio$ = Report$?Image1{PROP:Width}/Report$?Image1{PROP:Height}
Report$?Image1{PROP:Height} = 1000
Report$?Image1{PROP:Width} = 1000 * AspectRatio$
END
IF Report$?Image1{PROP:Width} > 1000
AspectRatio$ = Report$?Image1{PROP:Height}/Report$?Image1{PROP:Width}
Report$?Image1{PROP:Width} = 1000
Report$?Image1{PROP:Height} = 1000 * AspectRatio$
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo CSTRING ===
Este caso es similar al anterior, pero en el campo se encuentra el path donde está la imagen
!En el método TakeRecord, antes del PRINT
Report$?Image1{PROP:Text} = PRO:Foto

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Evitar el cartel "No records to process" en un proceso ===
!En el metodo TAKE NO RECORDS poner un RETURN antes del parent call.
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir el reporte en blanco, cuando no hay registros ===
En WindowManager. Next, antes del Parent Call con prioridad 500.

! [Priority 500] antes del Parent Call
If Primera=0 !variable local byte
Primera=1
SELF.Process.RecordsProcessed = 1
Return Level:Benign
End
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Cuando hay filtros y rangos, esta solución suele duplicar el primer registro del detalle.
Para Solucionar esto en ProcessManager NextPROCEDURE(BYTE ProcessRecord) con prioridad 7500 se debe colocar el siguiente código:

IF ReturnValue = 0 AND LOC:Primera = 0 THEN !Si hay un registro
LOC:Primera = 1 !Dejo al reporte seguir su curso normal
END

Mario Wojcik

=== Detectar el último registro en un process o Reporte (fin de archivo) ===
ThisProcess.Next PROCEDURE(BYTE ProcessRecords=True)
! [Priority 5001]
If ReturnValue = 5 !Level:Notify
!Fin del proceso
End

Esto por ejemplo es muy útil para cambiar etiquetas en los totales generales del reporte, en un page footer
ThisReport.Next PROCEDURE(BYTE ProcessRecords)
....
! [Priority 5001] despues del Parent Call
If ReturnValue = 5 !Level:Notify
REPORT$?LabelTotal{prop:text}= 'Total'
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Reporte con múltiples detalles ===
Por Ejemplo:

Viajes
|-->pasajeros
|-->comisiones

Habría que poner solo la tabla viajes en el Table Schematic. Pasajeros y Comisiones en Other Tables

En el reporte crear 3 details, uno para cada tabla.

En ThisReport.TakeRecord, antes de los PRINTs

! [Priority 5500]
PRINT(RPT:DetailViaje)
CLEAR(PAS:RECORD)
PAS:idViaje = VIA:IdViaje
SET(PAS:ClavePorViaje, PAS:ClavePorViaje)
LOOP UNTIL ACCESS:Pasajeros.Next() OR PAS:idViaje <> VIA:IdViaje
PRINT(RPT:DetailPasajeros)
END
!Y lo mismo para las comisiones
CLEAR(COM:RECORD)
COM:idViaje = VIA:IdViaje
SET(COM:ClavePorViaje, COM:ClavePorViaje)
LOOP UNTIL ACCESS:Comisiones.Next() OR COM:idViaje <> VIA:IdViaje
PRINT(RPT:DetailComisiones)
END
Return Level:Benign !ya imprimí todo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Otra alternativa podría ser utilizando el Template '''ReportChildFiles''' (desde version 6.X ?) ya que puede ser utilizado mas de una vez en un mismo reporte, apuntando cada instancia a un archivo "hijo" diferente.
Es fácil de configurar: Se debe seleccionar la tabla CHILD y la PARENT. En el reporte hay que definir el REPORT DETAIL (para el CHILD) y ponerle algún nombre en el label que luego debe ser configurado en el Template.

Jose Sturniolo

=== Imprimir exactamente lo que estamos viendo en el browse ===
En el browse pones un botón que llame al reporte y en parameters:
(Brw1.view{PROP:Filter}, Brw1.view{PROP:Order})

En las propiedades del reporte o proceso:
Prototype: (STRING, STRING)
Parameters: (FILTRO, ORDEN)

En WindowManager.Init, al final:
ThisReport.SetFilter(FILTRO) ! o ThisProcess....
ThisReport.SetOrder(ORDEN)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar tamaño de hoja en el reporte ===
En el embed WindowManager 'OpenReport', PRIORITY(7500)

IF ~ReturnValue
SETTARGET(REPORT)
CASE PRINTER{PROPPRINT:Paper}
OF PAPER:LETTER
REPORT{PROP:height} = 8500
?Footer{PROP:Ypos} = 9000
OF PAPER:LEGAL
REPORT{PROP:height} = 11000
?Footer{PROP:Ypos} = 11500
etc.
END
SETTARGET()
END

etc. con los tamaños de papel que quieras.
Esto acomoda el contenido del reporte en run-time, haciéndolo ocupar más
o menos hoja según sea el largo de la misma. Chiche, ¿no?.
Ajustá los valores a tus necesidades.
Para tener en cuenta: el usuario tiene que elegir el tamaño del papel
ANTES de generar el reporte. Si ya está en la vista previa, el reporte ya
está generado, por lo tanto si cambia el largo de hoja ahí, no se lo va a
tomar.

Jorge Lavera

=== Cambiar Impresora ===
En Global Properties-->Embeds-->Before Global INCLUDEs
INCLUDE('PRNPROP.CLW')
!para poder acceder a las propiedades de las impresoras

Luego en el Reporte en
ThisReport.Open()
!para guardar la impresora por defecto de Windows
GLO:IMPRESORA = PRINTER{PROPPRINT:Device}
!Seteo la impresora que quiero usar.
!El string debe ser igual al que figura en IMPRESORAS
PRINTER{PROPPRINT:Device} = 'HP Deskjet 840'

y por último en
ThisReport.Kill()
!para devolver la impresora por defecto de windows
PRINTER{PROPPRINT:Device} = CLIP(GLO:IMPRESORA)

Guillermo Ondetti, Pragma Sistemas

=== Detectar Salto de Página de Reporte ===
Este sería el codigo, siempre y cuando no tengas break groups (ahi se complica bastante)
El embebido es TakeRecord en ABC, o Before Print Detail en Legacy.
VarLocal += REPORT$?Detail{PROP:height}
IF VarLocal > REPORT{PROP:height}
VarLocal = REPORT$?Detail{PROP:height}
!En el siguiente PRINT Cambia la página...
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Aplicar Filtro sql en el reporte ===
Se arma el filtro si se quiere en una variable por ejemlo loc:sql
y se aplica en Local Objects --> Abc Objects -- > Process manager --> Apply Filter antes del parent call, asi:

Process:View{Prop:SqlFilter}=Loc:SQL

Ivan Dario Benitez

=== Imprimir mas de una Copia por Reporte ===
Se tiene que poner en el Window Manager --> Open (Prioridad(5000))

PRINTER{PROPPRINT:COPIES}=n !! n = Cantidad de copias

Luego es aconsejable poner en el Window Manager --> Kill

PRINTER{PROPPRINT:COPIES}=1

ASC Sergio D. Caballero

== BROWSES ==
=== Actualizar un campo al hacer click en una columna ===
Por ejemplo, en People.app

En el evento Accepted del Control del browse.
!Si se hizo click en el campo
IF ?BROWSE:1{PropList:MouseDownField}= 4
ACCESS:PEOPLE.Fetch(PEO:KeyId)
PEO:Gender = 'X'
ACCESS:PEOPLE.Update()
BRW1.ResetFromFile()
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtrar con SQL===
A veces es muy útil aplicar un filtro SQL encima de todos los demas filtros que ya tenga el browse, por ejemplo para filtrar por usuario, por sucursal, etc.
Yo normalmente le pongo el filtro SQL en el método windowmanager.Reset,
prioridad 5000
BRW1.View{PROP:SQLFILTER}='+ filtro sql'
Luego se refresca normalmente, o manualmente con ThisWindow.Reset (1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Activar un Browse invisible, o sea que está en otro TAB ===
Esto es especialmente útil cuando necesitamos que se ejecuten totalizadores del browse aunque éste no esté visible en la pantalla.
!ABC Objects ->
Local Objects ->
Windows Manager->
Init Priority[7500]
BRW2.ActiveInvisible = True

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Copiar un Registro ===

!ABC Objects -> Browse on Clientes -> PrimeRecord Priority[4500]
IF Loc:Copiar
SuppressClear = True
CLEAR(Loc:Copiar)
END!IF

!Control Events --> Copiar -> Accepted -> Priority[5000]
Loc:Copiar = True
POST(EVENT:Accepted,?UseDelBotonAgregar)

!Notas: Crear Variable Local Loc:Copiar
! SuppressClear es un Parametro de BrowseClass.PrimeRecord

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar el Popup ===
!ABC Objects -> Local Objects -> Windows Manager-->>Init Priority[9001]
Brw1.Popup.KILL

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Ordenamiento Dinámico ===
En Clarion6 se puede hacer automáticamente con la opcion Sort Headers.
Si se quiere hacer desde código para ordenar por cualquier campo, se puede utilizar:
Brw1.SetOrder('TAB:Campo')
Brw1.ApplyOrder()
ThisWindow.Reset(1)
Por ejemplo si quisiera emular un ordenamiento con el doble click sobre una columna, habría que alertar el doble click en al browse, y el código sería mas o menos asi.
Control Event -> Browse:1 ->Alert Key [4500]
! Código usado para cambiar el Orden del Browse
! cuando se hace doble click en la columna
IF KEYCODE()=MouseLeft2
?Browse:1{PropList:Header,1} ='Codigo'
?Browse:1{PropList:Header,2} ='Nombre'
Loc:Columna = ?Browse:1{PropList:MouseDownField}
CASE Loc:Columna
OF 1
?Browse:1{PropList:Header,1} ='<<<CODIGO>>>'
Brw1.SetOrder('LCA:LOCALIDAD')
OF 2
?Browse:1{PropList:Header,2} ='<<<NOMBRE>>>>'
Brw1.SetOrder('UPPER(LCA:NOMBRE)')
END!CASE
Brw1.ApplyOrder()
ThisWindow.Reset(1)
END!IF

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Locator Múltiple ===
Por ejemplo, para posicionarme en un código de cuenta contable:
Lo que podrías hacer es poner una variable string sobre el browse y poner un
código mas o menos asi en su accepted del entry

!Asumiendo que cada código tiene cuatro dígitos
!Revisar la sección String Slicing en el Help
Cue:Cuenta = Loc:Cuenta[1:4]
Cue:SubCuenta = Loc:Cuenta[5:8]
Cue:SubSubCuenta = Loc:Cuenta[9:12]
SET(Cue:PorCodigo,Cue:PorCodigo)
Access:Cuentas.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

Otro ejempo, en un browse de órdenes, posicionarse según el nombre del cliente

CLI:Nombre = LOC:Cliente
SET(CLI:PorNombre, CLI:PorNombre)
ACCESS:Clientes.Next()

ORD:CodCliente = CLI:CodCliente
SET(ORD:PorCliente, ORD:PorCliente)
ACCESS:Ordenes.Next()

BRW1.ResetFromFile()
ThisWindow.Reset(1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Pintar un browse según un campo ===
Por ejemplo cuando vemos las facturas de un Cliente se repite el nombre, este código pinta diferente cada grupo de nombres.
Primero hay que ponerle el atributo color al campo que necesites pintar, desde list box format.
Luego va el siguiente código, en WindowManager.Reset antes del Parent Call

Aux = ''
LOOP F#= 1 TO RECORDS (BRW1.Q)
GET(BRW1.Q, F#)
IF Aux <> BRW1.Q.CLI:Nombre
Col# = 1- Col#
Aux = BRW1.Q.CLI:Nombre
END
If Col#
BRW1.Q.CLI:Nombre_NormalBG = COLOR:SILVER
Else
BRW1.Q.CLI:Nombre_NormalBG = COLOR:WHITE
End
PUT(BRW1.Q)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Refrescar un browse desde otra ventana ===
Lo mas fácil sería usando NOTIFY.
En la Ventana 1 (la del browse a refrescar)
WindowManager.Init
GLO:THREAD = THREAD() !VARIABLE GLOBAL LONG

Window Events
Notify
BRW1.ResetfromBuffer() ! o ThisWindow.Reset(1)?

En la ventana 2, cuando se necesite refrescar la 1
NOTIFY (999, GLO:THREAD)

Puede ser 999 o cualquier cosa ya que en éste caso no estoy usando ese parámetro.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Iniciar el browse en un Tab determinado ===
En ThisWindow.Init, al final
SELF.FirstField = ?Tab:4 !Use del tab

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Actualizar el resultado de un totaling del browse de detalle, en el Encabezado ===
En el Browse de abajo (el de detalle)
ResetFromView, prioridad 4500 - La prioridad es importante
GET(Encabezado, ENC:Por_Numero)
ENC:Total = loc:total !ÉSTA ES LA VARIABLE DEL TOTALING
PUT (Encabezado)
IF ERRORCODE() THEN MESSAGE(ERROR()).
BRW1.ResetFromFile()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtro Dinámico ===
Poner un control Text donde el usuario pueda escribir cualquier filtro
X# = EVALUATE(Filtro)
IF ERRORCODE()
MESSAGE('ERROR DE SINTAXIS EN EL FILTRO: ' & ERROR(), 'ATENCION')
ELSE
BRW1.SetFilter(Filtro)
ThisWindow.Reset(1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Rangos múltiples y dinámicos ===
Si tenemos una clave con varios componentes, en Actions del browse ponemos un rango por current value, elegimos el componente de la clave hasta el cual queremos hacer el rango.
El siguiente componente de la clave se puede usar como locator.
Por ejemplo si tenemos una clave con Tipo+Provincia+Localidad, hacemos un rango de current value por provincia y nos queda un locator por localidad.

BRW1.ApplyRange PROCEDURE
! [Priority 5000]
RAN:Tipo= loc:tipo
RAN:Provincia=loc:provincia
SELF.Order.Rangelist.AssignLeftToRight()

En algun boton de aplicar rango
BRW1.ApplyRange()
ThisWindow.Reset(1)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, deshabilitar condicionalmente la actualización de registros ===
IF <Condición>
!Deshabilitar Actualización
BRW1.InsertControl=FALSE
BRW1.ChangeControl=FALSE
BRW1.DeleteControl=FALSE
ELSE
BRW1.InsertControl=?INSERT
BRW1.ChangeControl=?CHANGE
BRW1.DeleteControl=?DELETE
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar el cambio de registro seleccionado en un Browse ===
Ejemplo mostrar una foto del cliente al costado del browse
BRW1.TakeNewSelection PROCEDURE
! [Priority 5001]
!EN CLI:FOTO ESTA EL PATH COMPLETO DE LA FOTO
IF CLI:FOTO <> ''
?Foto{PROP:TEXT}= CLI:FOTO
ELSE
?Foto{PROP:TEXT}= ''
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un browse ===
Ejemplo: Mostrar sólo los clientes que tengan alguna orden

BRW1.ValidateRecord PROCEDURE
! [Priority 5001]
!FILTROS COMPLEJOS
!EJ: MOSTRAR SOLO LOS CLIENTES QUE TENGAN ALGUNA ORDEN
CLEAR(ORD:RECORD)
Ord:CodigoCliente=CLI:ID
SET(Ord:FK_Ordenes_CLIENTES,Ord:FK_Ordenes_CLIENTES)
NEXT(ORDENES)
IF ERRORCODE() OR (Ord:CodigoCliente <> CLI:ID) THEN RETURN Record:Filtered.

RETURN Record:OK
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Poner un campo "saldo" en un browse ===
ThisWindow.Reset, antes del Parent Call

S#=0
LOOP F#= 1 TO RECORDS (Queue:Browse:1)
GET(Queue:Browse:1, F#)
S# += Queue:Browse:1.ORD:Total_Impo
Queue:Browse:1.Saldo = S#
PUT(Queue:Browse:1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Resetear/inicializar un Locator ===
El método a ejecutar es
BRW1::Sort1:Locator.Set

Los nombres de las instancias de Locators por cada TAB se llaman:
BRW1::Sort0:Locator.Set
BRW1::Sort1:Locator.Set
BRW1::Sort2:Locator.Set
!etc..

Luego sería bueno volver a poner el foco en el browse para que se pueda seguir usando el locator normalmente
select (?Browse:1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, disparar un procedimiento después de generar un alta, modificación, etc. ===

El proceso a disparar se hace desde el browse, la idea es saber si del Form volvió aceptando o canceló la actualización. El punto embebido es:

Local Objects
BRW1 (o el objeto de tipo browse class que sea)
ResetFromAsk (después del Parent.call)

IF VCRRequest=VCR:None
CASE Request
OF InsertRecord
IF Response = RequestCompleted
!Hacer algún proceso
END
END
END!

=== Inserción continua refrescando el Browse ===
Este otro método es similar al anterior, también sirve para lo mismo.
Agrego un ejemplo para hacer inserción continua en el Form y además se vaya actualizando el browse

ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)
! Cuidado que existen dos ThisWindow.Run, seleccionar el correcto
! [Priority 8500]
IF Request = InsertRecord And ReturnValue = RequestCompleted
POST(EVENT:ACCEPTED, BRW1.InsertControl)
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Posicionar un browse en un registro seleccionado ===

Al abrir un browse a veces necesitamos posicionar el selector en un registro determinado, tal como lo hacen los browses para selección.

Por ejemplo para posicionar el browse en el registro más cercano al proporcionado por el usuario:

ThisWindow.Open PROCEDURE
! Start of "WindowManager Method Data Section"
! [Priority 5000]
! End of "WindowManager Method Data Section"
CODE
! Start of "WindowManager Method Executable Code Section"
! [Priority 500]
CLI:cliente= LOC:Cliente
ACCESS:Clientes.fetch(CLI:Kcodigo)
BRW1.selecting=1
! Parent Call
PARENT.Open()
! [Priority 6300]
BRW1.selecting=0

Otra idea, propuesta por Matías Flores:
Ubicarlo por el valor de los campos de la clave. Por ejemplo, si en un browse de clientes querés posicionarte en un cliente que tiene un código determinado (Loc:Codigo):

Cli:Codigo = Loc:Codigo
SET(Cli:PorCodigo,Cli:PorCodigo)
Access:Clientes.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

un ejemplo parecido al anterior, pero en legacy, sería:
CLI:Codigo = LOC:Codigo
BRW1::LocateMode = LocateOnValue
DO BRW1::LocateRecord

Una opción más es:
En el WindowManager.init, antes de Initialize browse y después de OpenFiles, colocar el siguiente código:

BRWx.StartAtCurrent = True
TAB:Campo = Valor_Buscado
get(Tabla, TAB:Key_que_ordena_por_Campo)

=== En Legacy, activar un filtro sobre un browse abierto. ===

Esto se pone en el punto embebido "Before opening VIEW". Acordarse de BINDEAR todas las variables que se necesiten.

!---ANTES DE ABRIR EL VIEW---
if SoloPendientes then
BRW2::View:Browse{Prop:Filter} = |
'MER:numertra = BRW2::Sort1:Reset:TRA:numertra AND MER:saldunid <> 0'
end

=== Campos Calculados ===
Por ejemplo cuando quieras presentar el nombre completo sin los espacios de un campo a otro. Pones en el browse una variable local.
En el SETQUEUERECORD (4500)

Loc:ApellidoNombre = clip(CON:Apellido) & ' ' & CON:Nombre

!(Tip de Alex B.)

=== Código antes y después de una actualización DESDE UN BROWSE. ===

- Antes de la llamada al Form de actualización
! ABC Objects -> Browse on Archvivo ->Ask Priority[4500]
IF Request = InsertRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR ALTA ','ALTA',ICON:EXCLAMATION)
ELSIF Request = ChangeRecord
BEEP
MESSAGE('ATENCION: SE VA A ACTUALIZAR ','CAMBIO',ICON:EXCLAMATION)
ELSIF Request = DeleteRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR DE BAJA ','BAJA',ICON:EXCLAMATION)
END

- Después de la actualización del registro
!ABC Objects -> Browse on Provincia ->Ask Priority[5500]
IF ReturnValue =1
BEEP
MESSAGE('ATENCIÓN: SE ACTUALIZÓ EL REGISTRO','ACTUALIZÓ OK',ICON:EXCLAMATION)
ELSIF ReturnValue =2
BEEP
MESSAGE('SE CANCELÓ LA ACTUALIZACIÓN DEL REGISTRO','ATENCIÓN',ICON:HAND)
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar/esconder (cambiar a PROP:HIDE) un control si el browse está vacío - pe. un botón-. ===

En el Browse.UpdateWindow(), última prioridad:
?TuBoton{PROP:Disable}=Choose(Self.Records()<>0,0,1)

===Iniciar un browse con un orden "sort header"===

Si queremos que al abrir un browse el mismo se encuentre ordenado como si hubiéramos hecho click en el sortheader, ponemos luego del generated code del evento openwindow lo siguiente:

BRW1::SortHeader.SetSortFromString('TAB:Campo')

donde TAB:Campo es uno de los campos de la tabla que estoy mostrando en el browse.

== EDIT IN PLACE==
=== Edit in Place o Form, según condición ===
En BrowseClass, Ask, antes del Parent Call
If ?browse:1{proplist:mousedownfield} = 5
Self.AskProcedure = 0
else
Self.AskProcedure = 1
end

Puede usarse cualquier condición, en este caso si el usuario hace doble click en la 5a columna se usa edit in place, sino se usa el formulario

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Desactivar Edit in Place de un campo según condición ===
En las propiedades del EIP del campo admitir la edición del mismo.

En el EIP Field Manager del campo, TakeEvent, antes del Parent Call
if Queue:Browse:1.TAB:Campo_de_mi_Tabla > 0
Return EditAction:Cancel
thiswindow.reset(true)
end

En este ejemplo sólo permito que pueda editarse el campo si el valor actual del mismo es <= 0

=== Inicializar campos al insertar registro ===
O sea lo que hace el Prime Fields en las formas
ABC Objects
BROWSE ON TABLA using ?LIST
PrimeRecords
Después del Parent Call
TPS:TuCampo= valor inicial

=== Poner Disable un campo===
Local Objects -->>
Abc Objects -->>
EIP Field Manag...for Field NombreCampo
-->>Init [Priority 5001]
If SELF.FEQ then SELF.FEQ{Prop:Disable} = true.
También se pueden cambiar otras propiedades como por ejemplo UPPER (mayúsculas) o READ ONLY (sólo lectura)
If SELF.FEQ
SELF.FEQ{prop:readonly} = TRUE
SELF.FEQ{prop:upr} = TRUE
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Campos Calculados ===
Por ejemplo Modificar el total cuando cambia la cantidad.
Primero agregar el campo cantidad en Column Specific
EditInPlace::DET:Cantidad.TakeEvent PROCEDURE(UNSIGNED Event)
....
!Despues del Parent Call

CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
BRW1.Q.DET:Total = BRW1.Q.DET:Cantidad * BRW1.Q.DET:Importe
!Etc... siempre haciendo referencia a los campos de la cola BRW1.Q.
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones ===
Por ejemplo una validación básica de un número requerido
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:NroDocumento
-->>Take Event [Priority 5001]
! Validación del nro. de Documento
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
UPDATE(Self.Feq)
IF NOT BRW1.Q.Cli:NroDocumento
BEEP(BEEP:SystemExclamation) ; YIELD()
MESSAGE('No se informó el número de Documento', |
'Atención!', ICON:Exclamation)
ReturnValue = EditAction:NONE
Return ReturnValue
END
END

Validación con un lookup a una tabla
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:Provincia
-->>Take Event [Priority 5001]
!Valida Provincia
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
Pro:Codigo= BRW1.Q.Cli:Provincia
IF Access:Provincia.Fetch(Pro:PorCodigo)
GlobalRequest = SelectRecord
SelectProvincia
IF NOT Pro:Codigo
ReturnValue = EditAction:NONE
Return ReturnValue
ELSE
BRW1.Q.Cli:Provincia = Pro:Codigo
BRW1.Q.Pro:NOMBRE = Pro:NOMBRE
END
END
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== GLOBALES ==

=== Cambiar los mensajes de error del SQL ===
Con cambiar los TRN no alcanza para ese tipo de errores.

Lo que se puede hacer es determinar el mensaje que viene desde el SQLServer
para mostrar un mensaje mas amigable.

El embebido es
Global Embeds:
Global Objets
Abc Objects
Error Manager
TakeNotify
!Antes del Parent Call
IF INSTRING('COLUMN REFERENCE', SELF.SubsString(),1,1)
SELF.Msg('El registro no puede borrarse porque tiene datos de detalle
que dependen de él. |Presione [OK] para una descripción detallada del
error',SELF.GetErrorBufferTitle(),ICON:Exclamation,Button:OK,BUTTON:OK,0)
END

Hay que armar un IF de estos por cada tipo de error...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validación de campos (Edit in place o Form)===

Para validar campos lo ideal es usar los Global Embeds
Global Embeds
Field Level Validation
Tabla
Campo
IF <No cumple Condición>
Message('error...')
RETURN Level:Notify
END

Esto te va a funcionar "para siempre" ya sea que uses Edit in place, un Form
o código embebido para actualizar la tabla.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Comunidad Clarion

2015-03-07T22:42:55Z

Jorge Brugger: /* Repositorios de archivos */

== Soporte ==

=== Grupos de noticias ===

[news://news.softvelocity.com/softvelocity.clarion.intl.spanish Grupo de soporte oficial en Español]

Server: news.softvelocity.com

Grupo: softvelocity.clarion.intl.spanish

=== Foro Clarioneros ===

[http://www.clarioneros.com www.clarioneros.com]

=== Clarionhub (en inglés) ===

[http://www.clarionhub.com www.clarionhub.com]

== Bases de conocimiento gratuitas ==

[http://www.par2.com/CWS/C5LAUNCH.DLL/FAQS/THEFAQS.EXE.0 Par2.com Just the FAQs]

[http://www.icetips.com/articleindex.php Icetips Articles]

[http://www.clariondeveloper.net/modules/smartfaq/ ClarionDeveloper FAQs]

[http://faq.clarionmag.com ClarionFAQ en Clarion Magazine]

[http://www.nettalkcentral.com/ Página de ayuda con Templates de Capesoft]

[http://www.ClarionLive.com/ Página que contiene Webinars y tutoriales. Muy útil.]

== Repositorios de archivos ==

[http://www.clariondeveloper.net/modules/wfdownloads/ ClarionDeveloper downloads]

[http://www.icetips.com/ftp/ Icetips FTP]

[http://www.par2.com/CWS/C5LAUNCH.DLL/D7.EXE.0 Par2.com Download Center]

[http://http://templatesclarion.com.ar/downloads/ Templates Clarion - Downloads]

[http://www.dasu.com.ar/clarion DASU]

Puntos Embebidos

2015-03-07T22:41:45Z

Jorge Brugger: Texto reemplazado: «(Evolution)» por «(Templates Clarion)»

Los puntos embebidos son la pesadilla de todo principiante de Clarion. Son extremadamente útiles, pero son muy difíciles de aprender. Para colmo, la abstracción que implementa la clase ABC hace más difícil todavía conocerlos y aprovecharlos. Por eso esta sección es de vital importancia.

== FORMULARIOS ==
=== ¿Qué procedimiento llamó al Form? ===
Al principio del WindowManager.Init del Form (primer prioridad disponible)

GlobalErrors.GetProcedureName()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones complejas ===
Por ejemplo validar un Email:
En el accepted del campo
Puedes hacerlo con MATCH, ejemplo:

X# = MATCH(UPPER(CLIP(locemail)),|
'^[-A-Z0-9._]+@{{[-A-Z0-9._]+.}+[A-Z][A-Z][A-Z]?[A-Z]?$', Match:Regular)

Devuelve 1 o 0 si el mail no es válido.
El MATCH puede usarse con expresiones regulares para validar casi cualquier cosa...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se Abre/inicializa el Form ===
ThisWindow.Init
!Es interesante entrar por el botón source a este embed para entender bien todas sus prioridades
!GlobalRequest (pasada por el browse) se guarda en la propiedad ThisWindow.Request
!Se puede preguntar por SELF.Request para saber para qué se lo llamó al form:
!InsertRecord EQUATE (1)
!ChangeRecord EQUATE (2)
!DeleteRecord EQUATE (3)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar el Form a "Solo lectura" ante una condición===
ThisWindow.Init
! [Priority 4950] La prioridad es importante!
IF FAC:facturado = 1 THEN SELF.Request = ViewRecord.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Truco: Llamar al form para insertar desde el menú ===
Podríamos asumir que si la GlobalRequest está en blanco es que se lo
llamó para insertar, evitaríamos asi el paso por un Browse
!Al principio del Init (antes de Snap-Shot global Request):
!If GlobalRequest = 0 Then GlobalRequest = InsertRecord.

Si la tabla tiene una clave Autonumber, se complica un poco mas, sería asi:
!Al principio del Init (antes de Snap-Shot global Request):
!Por ej prioridad 300
If GlobalRequest = 0
GlobalRequest = InsertRecord
DesdeMenu# = True
End

!Después de Open Files:
!Por ej prioridad 7800
If DesdeMenu# = True
Access:People.PrimeAutoinc()
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Llamar a un form para editar una tabla con un solo registro ===
Típicamente una tabla de parametros, obviamente no queremos pasar por un browse
WindowManager.Init,
!al principio
GlobalRequest = ChangeRecord

!Luego de Open files
Set(Tabla)
access:Tabla.Next()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se confirma un Form ===
ThisWindow.TakeCompleted
! [Priority 2800]
!ANTES DE QUE SE CONFIRME LA GRABACION
! Parent Call
ReturnValue = PARENT.TakeCompleted()
! [Priority 6300]
!YA SE GRABÓ EL REGISTRO.
!VERIFICAR SI SELF.Response=RequestCompleted A VER SI SE GRABÓ OK.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se cierra un Form ===
ThisWindow.Kill
!VERIFICAR LOS valores de SELF.Request y SELF.Response
!Para decidir que acciones tomar
!Este punto ya es "demasiado tarde" para hacer algo antes de que se grabe el registro
!Para eso usar TakeCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se produce el borrado sin abrir el Form ===
Si tenemos un form para actualizar una tabla, y definimos que el borrado sea Confirmando (Standard Warning) o Automático (Automatic Delete), y necesitamos ejecutar un código en el form cuando se efectúe el borrado, usamos:

ThisWindow.PrimeUpdate, después del Parent Call

if self.request = DeleteRecord and self.Response = RequestCompleted
!lo que quiero hacer
end

Hay que tener en cuenta que el borrado de un registro no pasa por el TakeCompleted, excepto cuando se usa la ventana del form (Display Form).

Aporte de Gustavo Olmedo [http://www.evolutionconsulting.com.ar/downloads.html (Templates Clarion)] (Templates Clarion)]

=== Chequear si se modificó cualquier campo del FORM ===

En el TakeCompleted ponemos el siguiente código:

IF NOT SELF.Primary.Me.EqualBuffer(SELF.Saved)
! message('Cambio')
END

Aporte de Pablo Guarnieri y Gustavo Olmendo

=== Chequear si se modificó un campo del FORM ===

IF CLI:Campo <> history::CLI:Record.Campo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Forzar grabación del form ===

Este código sirve para grabar el form inclusive cuando el usuario lo cancele

TakeCloseEvent PROCEDURE(),BYTE,VIRTUAL
IF loc:condicion
SELF.CancelAction = Cancel:Save !immediate save (no confirmation)
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Filtrar un Drop Combo ===

Este código sirve para filtrar un drop combo utilizando pro:sqlfilter, suponemos que en
la variable loc:filtro se arma el filtro ha enviar, algo asi como: 'a.idtercero = <39>90909090<39>'
FDCB14 es el nombre del objeto el cual se puede verificar en propiedades --> clases.

ApplyFilter PROCEDURE,VIRTUAL
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = <39>'&clip(loc:filtro)&'<39>'
IF FILEERRORCODE()
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = ''
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Obtener el número autogenerado por SQL Server en tablas con identity ===
Después del Parent Call, en el TakeCompleted del Form:
IF Self.Response=RequestCompleted AND Self.Request = InsertRecord
Tabla{prop:Sql}= 'SELECT @@IDENTITY' !busco el número que se asignó
IF not Access:Tabla.Next()
!en el primer campo de Tabla viene cargado el número autogenerado
else
message('Error')
end
end

Tomado de una respuesta de Fernando Cerini en el foro.

== REPORTES Y PROCESOS ==
=== Ocultar un campo del detalle según condición ===
!En TakeRecord, antes del Print (Process Manager)
IF <CONDICION>
REPORT$?Control{PROP:HIDE}=True
ELSE
REPORT$?Control{PROP:HIDE}=False !si la condición no se cumple, vuelvo a hacer visible el control
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Saber si un proceso se completó ===
O sea que no se salió por el botón de cancelar
!En el WindowManager.Kill
IF Self.Response = RequestCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Inicializar el número de página ===
!WindowManager.OpenReport, despues del Parent Call
IF ReturnValue = Level:Benign
Report{PROP:NextPageNo} = xxx
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Deshabilitar la impresión ===
!Local Objects, Abc Objects, Previewer, Display, After ParentCall.
!impresión prohibida
ReturnValue = False

Por ejemplo:

If ReturnValue and DemoVersion
ReturnValue = False
Message("Está utilizando una versión del demo, no puede imprimir este documento !")
End
Aporte de Olivier Cretey

Otra opción, en Previewer.TakeAccepted, antes del Parent Call
IF CLIP(ACCEPTED(){PROP:TIP}) = 'Print this report' THEN RETURN LEVEL:BENIGN.

O sea pregunto por el Tool Tip del botón que se ha presionado. Ojo, si lo tienes traducido tienes que cambiar el 'Print this report' por tu Tool Tip.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un Proceso ===
!Windows Manager -->> Validate Records -->> [Priority 5600]
If <Condición de Filtro>
Return Record:Filtered
Else
Return Record:OK
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Habilitar o deshabilitar el Print Preview ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
Self.SkipPreview = Loc:Preview

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Cantidad de Páginas generadas ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
ENDPAGE(SELF.Report)
Loc:Paginas = RECORDS(SELF.PreviewQueue)

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Imprimir un Transporte ===
Necesitas crear 3 details.
DetailDatos
DetailTransporte: aca van las variables locales con los totales
DetailSalto: este detail es vacío y con la propiedad PageAfter

En el embed TakeRecord (antes de los PRINTs) habría que hacer algo asi
LOC:Fila += 1
If LOC:Fila % 28 = 0 !28 líneas por página...
PRINT(RPT:DetailSalto)
PRINT(RPT:DetailTransporte)
LOC:Fila = 1
End
LOC:Total += LIBRO:Total
PRINT (RPT:Detalle)
RETURN LEVEL:Benign

Marcelo Martínez
y [mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Acelerar las actualizaciones ===
Para que los procesos que agreguen registros funcionen mas rápido hay que agregar un Logout o Stream en Init y un Commit o Flush en el kill
(El Evolution Tools tiene una extension que hace eso mismo.)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Se imprime o se Cancela? ===
Los embeds son
ABC Objectd
--WindowManager(ReportManager)
--CancelPrintReport
-Se Cancela

--PrintReport
-Se imprime

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Recorrer la cola de las páginas ===
Cada página del reporte genera una imagen .WMF, la cual se guarda en el directorio temporal.
Con este ejemplo se puede recorrer la cola donde se guardan los nombres de estos archivos. Ésto es lo que usa por ejemplo el Evolution Mail Template para enviar estas páginas por mail.
Previewer.Open PROCEDURE
....
loop a# = 1 to RECORDS(SELF.ImageQueue)
get(SELF.ImageQueue,a#)
message(SELF.ImageQueue)
end

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir una Queue ===
La mejor forma de hacerlo en Clarion6 es en Report Properties - General -
Datasource: Queue.

Yo generalmente pongo los parametros en la ventana y cargo la queue en el
evento accepted del PauseButton.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir un SQL ===
Lo que yo hago es poner todos los parámetros en la ventana del reporte.
En el accepted del boton de pausa cargo la cola de memoria con:

SQL{PROP:SQL} = !aca armo el string SQL
IF ERRORCODE() THEN STOP( FILEERROR()).
FREE(ColaMemoria)
LOOP
NEXT(SQL) !O ABC, como prefieras...
IF ERRORCODE() THEN BREAK.
ColaMemoria :=: SQL:Record
ADD(ColaMemoria)
END

El reporte lo configuro para trabajar con la cola (data source) y en el
Detail del reporte pongo los campos de la cola de memoria.
Lo ideal es tener una cola de memoria global con el atributo thread y usar
siempre la misma para todo.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar o hacer cortes de control manuales en reportes ===
En TakeRecord, antes del Print.

!Actualizar contadores

IF AUX <> CampoCorte
IF AUX <> 0 !para evitar la primera vez
!Inicializar los contadores
END
AUX=CAMPO
!SE VIENE EL CORTE
END

Este método TakeRecord se usa también para actualizar cualquier variable calculada antes de la impresión de la banda de detalle.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo BLOB ===
Este código va en el método TakeRecord, antes del PRINT

Report$?Image1{PROP:NoWidth} = TRUE
Report$?Image1{PROP:NoHeight} = TRUE
Report$?Image1{PROP:ImageBlob} = STU:Photograph{PROP:Handle}
IF Report$?Image1{PROP:Height} > 1000
AspectRatio$ = Report$?Image1{PROP:Width}/Report$?Image1{PROP:Height}
Report$?Image1{PROP:Height} = 1000
Report$?Image1{PROP:Width} = 1000 * AspectRatio$
END
IF Report$?Image1{PROP:Width} > 1000
AspectRatio$ = Report$?Image1{PROP:Height}/Report$?Image1{PROP:Width}
Report$?Image1{PROP:Width} = 1000
Report$?Image1{PROP:Height} = 1000 * AspectRatio$
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo CSTRING ===
Este caso es similar al anterior, pero en el campo se encuentra el path donde está la imagen
!En el método TakeRecord, antes del PRINT
Report$?Image1{PROP:Text} = PRO:Foto

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Evitar el cartel "No records to process" en un proceso ===
!En el metodo TAKE NO RECORDS poner un RETURN antes del parent call.
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir el reporte en blanco, cuando no hay registros ===
En WindowManager. Next, antes del Parent Call con prioridad 500.

! [Priority 500] antes del Parent Call
If Primera=0 !variable local byte
Primera=1
SELF.Process.RecordsProcessed = 1
Return Level:Benign
End
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Cuando hay filtros y rangos, esta solución suele duplicar el primer registro del detalle.
Para Solucionar esto en ProcessManager NextPROCEDURE(BYTE ProcessRecord) con prioridad 7500 se debe colocar el siguiente código:

IF ReturnValue = 0 AND LOC:Primera = 0 THEN !Si hay un registro
LOC:Primera = 1 !Dejo al reporte seguir su curso normal
END

Mario Wojcik

=== Detectar el último registro en un process o Reporte (fin de archivo) ===
ThisProcess.Next PROCEDURE(BYTE ProcessRecords=True)
! [Priority 5001]
If ReturnValue = 5 !Level:Notify
!Fin del proceso
End

Esto por ejemplo es muy útil para cambiar etiquetas en los totales generales del reporte, en un page footer
ThisReport.Next PROCEDURE(BYTE ProcessRecords)
....
! [Priority 5001] despues del Parent Call
If ReturnValue = 5 !Level:Notify
REPORT$?LabelTotal{prop:text}= 'Total'
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Reporte con múltiples detalles ===
Por Ejemplo:

Viajes
|-->pasajeros
|-->comisiones

Habría que poner solo la tabla viajes en el Table Schematic. Pasajeros y Comisiones en Other Tables

En el reporte crear 3 details, uno para cada tabla.

En ThisReport.TakeRecord, antes de los PRINTs

! [Priority 5500]
PRINT(RPT:DetailViaje)
CLEAR(PAS:RECORD)
PAS:idViaje = VIA:IdViaje
SET(PAS:ClavePorViaje, PAS:ClavePorViaje)
LOOP UNTIL ACCESS:Pasajeros.Next() OR PAS:idViaje <> VIA:IdViaje
PRINT(RPT:DetailPasajeros)
END
!Y lo mismo para las comisiones
CLEAR(COM:RECORD)
COM:idViaje = VIA:IdViaje
SET(COM:ClavePorViaje, COM:ClavePorViaje)
LOOP UNTIL ACCESS:Comisiones.Next() OR COM:idViaje <> VIA:IdViaje
PRINT(RPT:DetailComisiones)
END
Return Level:Benign !ya imprimí todo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Otra alternativa podría ser utilizando el Template '''ReportChildFiles''' (desde version 6.X ?) ya que puede ser utilizado mas de una vez en un mismo reporte, apuntando cada instancia a un archivo "hijo" diferente.
Es fácil de configurar: Se debe seleccionar la tabla CHILD y la PARENT. En el reporte hay que definir el REPORT DETAIL (para el CHILD) y ponerle algún nombre en el label que luego debe ser configurado en el Template.

Jose Sturniolo

=== Imprimir exactamente lo que estamos viendo en el browse ===
En el browse pones un botón que llame al reporte y en parameters:
(Brw1.view{PROP:Filter}, Brw1.view{PROP:Order})

En las propiedades del reporte o proceso:
Prototype: (STRING, STRING)
Parameters: (FILTRO, ORDEN)

En WindowManager.Init, al final:
ThisReport.SetFilter(FILTRO) ! o ThisProcess....
ThisReport.SetOrder(ORDEN)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar tamaño de hoja en el reporte ===
En el embed WindowManager 'OpenReport', PRIORITY(7500)

IF ~ReturnValue
SETTARGET(REPORT)
CASE PRINTER{PROPPRINT:Paper}
OF PAPER:LETTER
REPORT{PROP:height} = 8500
?Footer{PROP:Ypos} = 9000
OF PAPER:LEGAL
REPORT{PROP:height} = 11000
?Footer{PROP:Ypos} = 11500
etc.
END
SETTARGET()
END

etc. con los tamaños de papel que quieras.
Esto acomoda el contenido del reporte en run-time, haciéndolo ocupar más
o menos hoja según sea el largo de la misma. Chiche, ¿no?.
Ajustá los valores a tus necesidades.
Para tener en cuenta: el usuario tiene que elegir el tamaño del papel
ANTES de generar el reporte. Si ya está en la vista previa, el reporte ya
está generado, por lo tanto si cambia el largo de hoja ahí, no se lo va a
tomar.

Jorge Lavera

=== Cambiar Impresora ===
En Global Properties-->Embeds-->Before Global INCLUDEs
INCLUDE('PRNPROP.CLW')
!para poder acceder a las propiedades de las impresoras

Luego en el Reporte en
ThisReport.Open()
!para guardar la impresora por defecto de Windows
GLO:IMPRESORA = PRINTER{PROPPRINT:Device}
!Seteo la impresora que quiero usar.
!El string debe ser igual al que figura en IMPRESORAS
PRINTER{PROPPRINT:Device} = 'HP Deskjet 840'

y por último en
ThisReport.Kill()
!para devolver la impresora por defecto de windows
PRINTER{PROPPRINT:Device} = CLIP(GLO:IMPRESORA)

Guillermo Ondetti, Pragma Sistemas

=== Detectar Salto de Página de Reporte ===
Este sería el codigo, siempre y cuando no tengas break groups (ahi se complica bastante)
El embebido es TakeRecord en ABC, o Before Print Detail en Legacy.
VarLocal += REPORT$?Detail{PROP:height}
IF VarLocal > REPORT{PROP:height}
VarLocal = REPORT$?Detail{PROP:height}
!En el siguiente PRINT Cambia la página...
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Aplicar Filtro sql en el reporte ===
Se arma el filtro si se quiere en una variable por ejemlo loc:sql
y se aplica en Local Objects --> Abc Objects -- > Process manager --> Apply Filter antes del parent call, asi:

Process:View{Prop:SqlFilter}=Loc:SQL

Ivan Dario Benitez

=== Imprimir mas de una Copia por Reporte ===
Se tiene que poner en el Window Manager --> Open (Prioridad(5000))

PRINTER{PROPPRINT:COPIES}=n !! n = Cantidad de copias

Luego es aconsejable poner en el Window Manager --> Kill

PRINTER{PROPPRINT:COPIES}=1

ASC Sergio D. Caballero

== BROWSES ==
=== Actualizar un campo al hacer click en una columna ===
Por ejemplo, en People.app

En el evento Accepted del Control del browse.
!Si se hizo click en el campo
IF ?BROWSE:1{PropList:MouseDownField}= 4
ACCESS:PEOPLE.Fetch(PEO:KeyId)
PEO:Gender = 'X'
ACCESS:PEOPLE.Update()
BRW1.ResetFromFile()
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtrar con SQL===
A veces es muy útil aplicar un filtro SQL encima de todos los demas filtros que ya tenga el browse, por ejemplo para filtrar por usuario, por sucursal, etc.
Yo normalmente le pongo el filtro SQL en el método windowmanager.Reset,
prioridad 5000
BRW1.View{PROP:SQLFILTER}='+ filtro sql'
Luego se refresca normalmente, o manualmente con ThisWindow.Reset (1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Activar un Browse invisible, o sea que está en otro TAB ===
Esto es especialmente útil cuando necesitamos que se ejecuten totalizadores del browse aunque éste no esté visible en la pantalla.
!ABC Objects ->
Local Objects ->
Windows Manager->
Init Priority[7500]
BRW2.ActiveInvisible = True

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Copiar un Registro ===

!ABC Objects -> Browse on Clientes -> PrimeRecord Priority[4500]
IF Loc:Copiar
SuppressClear = True
CLEAR(Loc:Copiar)
END!IF

!Control Events --> Copiar -> Accepted -> Priority[5000]
Loc:Copiar = True
POST(EVENT:Accepted,?UseDelBotonAgregar)

!Notas: Crear Variable Local Loc:Copiar
! SuppressClear es un Parametro de BrowseClass.PrimeRecord

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar el Popup ===
!ABC Objects -> Local Objects -> Windows Manager-->>Init Priority[9001]
Brw1.Popup.KILL

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Ordenamiento Dinámico ===
En Clarion6 se puede hacer automáticamente con la opcion Sort Headers.
Si se quiere hacer desde código para ordenar por cualquier campo, se puede utilizar:
Brw1.SetOrder('TAB:Campo')
Brw1.ApplyOrder()
ThisWindow.Reset(1)
Por ejemplo si quisiera emular un ordenamiento con el doble click sobre una columna, habría que alertar el doble click en al browse, y el código sería mas o menos asi.
Control Event -> Browse:1 ->Alert Key [4500]
! Código usado para cambiar el Orden del Browse
! cuando se hace doble click en la columna
IF KEYCODE()=MouseLeft2
?Browse:1{PropList:Header,1} ='Codigo'
?Browse:1{PropList:Header,2} ='Nombre'
Loc:Columna = ?Browse:1{PropList:MouseDownField}
CASE Loc:Columna
OF 1
?Browse:1{PropList:Header,1} ='<<<CODIGO>>>'
Brw1.SetOrder('LCA:LOCALIDAD')
OF 2
?Browse:1{PropList:Header,2} ='<<<NOMBRE>>>>'
Brw1.SetOrder('UPPER(LCA:NOMBRE)')
END!CASE
Brw1.ApplyOrder()
ThisWindow.Reset(1)
END!IF

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Locator Múltiple ===
Por ejemplo, para posicionarme en un código de cuenta contable:
Lo que podrías hacer es poner una variable string sobre el browse y poner un
código mas o menos asi en su accepted del entry

!Asumiendo que cada código tiene cuatro dígitos
!Revisar la sección String Slicing en el Help
Cue:Cuenta = Loc:Cuenta[1:4]
Cue:SubCuenta = Loc:Cuenta[5:8]
Cue:SubSubCuenta = Loc:Cuenta[9:12]
SET(Cue:PorCodigo,Cue:PorCodigo)
Access:Cuentas.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

Otro ejempo, en un browse de órdenes, posicionarse según el nombre del cliente

CLI:Nombre = LOC:Cliente
SET(CLI:PorNombre, CLI:PorNombre)
ACCESS:Clientes.Next()

ORD:CodCliente = CLI:CodCliente
SET(ORD:PorCliente, ORD:PorCliente)
ACCESS:Ordenes.Next()

BRW1.ResetFromFile()
ThisWindow.Reset(1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Pintar un browse según un campo ===
Por ejemplo cuando vemos las facturas de un Cliente se repite el nombre, este código pinta diferente cada grupo de nombres.
Primero hay que ponerle el atributo color al campo que necesites pintar, desde list box format.
Luego va el siguiente código, en WindowManager.Reset antes del Parent Call

Aux = ''
LOOP F#= 1 TO RECORDS (BRW1.Q)
GET(BRW1.Q, F#)
IF Aux <> BRW1.Q.CLI:Nombre
Col# = 1- Col#
Aux = BRW1.Q.CLI:Nombre
END
If Col#
BRW1.Q.CLI:Nombre_NormalBG = COLOR:SILVER
Else
BRW1.Q.CLI:Nombre_NormalBG = COLOR:WHITE
End
PUT(BRW1.Q)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Refrescar un browse desde otra ventana ===
Lo mas fácil sería usando NOTIFY.
En la Ventana 1 (la del browse a refrescar)
WindowManager.Init
GLO:THREAD = THREAD() !VARIABLE GLOBAL LONG

Window Events
Notify
BRW1.ResetfromBuffer() ! o ThisWindow.Reset(1)?

En la ventana 2, cuando se necesite refrescar la 1
NOTIFY (999, GLO:THREAD)

Puede ser 999 o cualquier cosa ya que en éste caso no estoy usando ese parámetro.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Iniciar el browse en un Tab determinado ===
En ThisWindow.Init, al final
SELF.FirstField = ?Tab:4 !Use del tab

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Actualizar el resultado de un totaling del browse de detalle, en el Encabezado ===
En el Browse de abajo (el de detalle)
ResetFromView, prioridad 4500 - La prioridad es importante
GET(Encabezado, ENC:Por_Numero)
ENC:Total = loc:total !ÉSTA ES LA VARIABLE DEL TOTALING
PUT (Encabezado)
IF ERRORCODE() THEN MESSAGE(ERROR()).
BRW1.ResetFromFile()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtro Dinámico ===
Poner un control Text donde el usuario pueda escribir cualquier filtro
X# = EVALUATE(Filtro)
IF ERRORCODE()
MESSAGE('ERROR DE SINTAXIS EN EL FILTRO: ' & ERROR(), 'ATENCION')
ELSE
BRW1.SetFilter(Filtro)
ThisWindow.Reset(1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Rangos múltiples y dinámicos ===
Si tenemos una clave con varios componentes, en Actions del browse ponemos un rango por current value, elegimos el componente de la clave hasta el cual queremos hacer el rango.
El siguiente componente de la clave se puede usar como locator.
Por ejemplo si tenemos una clave con Tipo+Provincia+Localidad, hacemos un rango de current value por provincia y nos queda un locator por localidad.

BRW1.ApplyRange PROCEDURE
! [Priority 5000]
RAN:Tipo= loc:tipo
RAN:Provincia=loc:provincia
SELF.Order.Rangelist.AssignLeftToRight()

En algun boton de aplicar rango
BRW1.ApplyRange()
ThisWindow.Reset(1)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, deshabilitar condicionalmente la actualización de registros ===
IF <Condición>
!Deshabilitar Actualización
BRW1.InsertControl=FALSE
BRW1.ChangeControl=FALSE
BRW1.DeleteControl=FALSE
ELSE
BRW1.InsertControl=?INSERT
BRW1.ChangeControl=?CHANGE
BRW1.DeleteControl=?DELETE
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar el cambio de registro seleccionado en un Browse ===
Ejemplo mostrar una foto del cliente al costado del browse
BRW1.TakeNewSelection PROCEDURE
! [Priority 5001]
!EN CLI:FOTO ESTA EL PATH COMPLETO DE LA FOTO
IF CLI:FOTO <> ''
?Foto{PROP:TEXT}= CLI:FOTO
ELSE
?Foto{PROP:TEXT}= ''
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un browse ===
Ejemplo: Mostrar sólo los clientes que tengan alguna orden

BRW1.ValidateRecord PROCEDURE
! [Priority 5001]
!FILTROS COMPLEJOS
!EJ: MOSTRAR SOLO LOS CLIENTES QUE TENGAN ALGUNA ORDEN
CLEAR(ORD:RECORD)
Ord:CodigoCliente=CLI:ID
SET(Ord:FK_Ordenes_CLIENTES,Ord:FK_Ordenes_CLIENTES)
NEXT(ORDENES)
IF ERRORCODE() OR (Ord:CodigoCliente <> CLI:ID) THEN RETURN Record:Filtered.

RETURN Record:OK
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Poner un campo "saldo" en un browse ===
ThisWindow.Reset, antes del Parent Call

S#=0
LOOP F#= 1 TO RECORDS (Queue:Browse:1)
GET(Queue:Browse:1, F#)
S# += Queue:Browse:1.ORD:Total_Impo
Queue:Browse:1.Saldo = S#
PUT(Queue:Browse:1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Resetear/inicializar un Locator ===
El método a ejecutar es
BRW1::Sort1:Locator.Set

Los nombres de las instancias de Locators por cada TAB se llaman:
BRW1::Sort0:Locator.Set
BRW1::Sort1:Locator.Set
BRW1::Sort2:Locator.Set
!etc..

Luego sería bueno volver a poner el foco en el browse para que se pueda seguir usando el locator normalmente
select (?Browse:1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, disparar un procedimiento después de generar un alta, modificación, etc. ===

El proceso a disparar se hace desde el browse, la idea es saber si del Form volvió aceptando o canceló la actualización. El punto embebido es:

Local Objects
BRW1 (o el objeto de tipo browse class que sea)
ResetFromAsk (después del Parent.call)

IF VCRRequest=VCR:None
CASE Request
OF InsertRecord
IF Response = RequestCompleted
!Hacer algún proceso
END
END
END!

=== Inserción continua refrescando el Browse ===
Este otro método es similar al anterior, también sirve para lo mismo.
Agrego un ejemplo para hacer inserción continua en el Form y además se vaya actualizando el browse

ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)
! Cuidado que existen dos ThisWindow.Run, seleccionar el correcto
! [Priority 8500]
IF Request = InsertRecord And ReturnValue = RequestCompleted
POST(EVENT:ACCEPTED, BRW1.InsertControl)
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Posicionar un browse en un registro seleccionado ===

Al abrir un browse a veces necesitamos posicionar el selector en un registro determinado, tal como lo hacen los browses para selección.

Por ejemplo para posicionar el browse en el registro más cercano al proporcionado por el usuario:

ThisWindow.Open PROCEDURE
! Start of "WindowManager Method Data Section"
! [Priority 5000]
! End of "WindowManager Method Data Section"
CODE
! Start of "WindowManager Method Executable Code Section"
! [Priority 500]
CLI:cliente= LOC:Cliente
ACCESS:Clientes.fetch(CLI:Kcodigo)
BRW1.selecting=1
! Parent Call
PARENT.Open()
! [Priority 6300]
BRW1.selecting=0

Otra idea, propuesta por Matías Flores:
Ubicarlo por el valor de los campos de la clave. Por ejemplo, si en un browse de clientes querés posicionarte en un cliente que tiene un código determinado (Loc:Codigo):

Cli:Codigo = Loc:Codigo
SET(Cli:PorCodigo,Cli:PorCodigo)
Access:Clientes.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

un ejemplo parecido al anterior, pero en legacy, sería:
CLI:Codigo = LOC:Codigo
BRW1::LocateMode = LocateOnValue
DO BRW1::LocateRecord

Una opción más es:
En el WindowManager.init, antes de Initialize browse y después de OpenFiles, colocar el siguiente código:

BRWx.StartAtCurrent = True
TAB:Campo = Valor_Buscado
get(Tabla, TAB:Key_que_ordena_por_Campo)

=== En Legacy, activar un filtro sobre un browse abierto. ===

Esto se pone en el punto embebido "Before opening VIEW". Acordarse de BINDEAR todas las variables que se necesiten.

!---ANTES DE ABRIR EL VIEW---
if SoloPendientes then
BRW2::View:Browse{Prop:Filter} = |
'MER:numertra = BRW2::Sort1:Reset:TRA:numertra AND MER:saldunid <> 0'
end

=== Campos Calculados ===
Por ejemplo cuando quieras presentar el nombre completo sin los espacios de un campo a otro. Pones en el browse una variable local.
En el SETQUEUERECORD (4500)

Loc:ApellidoNombre = clip(CON:Apellido) & ' ' & CON:Nombre

!(Tip de Alex B.)

=== Código antes y después de una actualización DESDE UN BROWSE. ===

- Antes de la llamada al Form de actualización
! ABC Objects -> Browse on Archvivo ->Ask Priority[4500]
IF Request = InsertRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR ALTA ','ALTA',ICON:EXCLAMATION)
ELSIF Request = ChangeRecord
BEEP
MESSAGE('ATENCION: SE VA A ACTUALIZAR ','CAMBIO',ICON:EXCLAMATION)
ELSIF Request = DeleteRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR DE BAJA ','BAJA',ICON:EXCLAMATION)
END

- Después de la actualización del registro
!ABC Objects -> Browse on Provincia ->Ask Priority[5500]
IF ReturnValue =1
BEEP
MESSAGE('ATENCIÓN: SE ACTUALIZÓ EL REGISTRO','ACTUALIZÓ OK',ICON:EXCLAMATION)
ELSIF ReturnValue =2
BEEP
MESSAGE('SE CANCELÓ LA ACTUALIZACIÓN DEL REGISTRO','ATENCIÓN',ICON:HAND)
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

=== Deshabilitar/esconder (cambiar a PROP:HIDE) un control si el browse está vacío - pe. un botón-. ===

En el Browse.UpdateWindow(), última prioridad:
?TuBoton{PROP:Disable}=Choose(Self.Records()<>0,0,1)

===Iniciar un browse con un orden "sort header"===

Si queremos que al abrir un browse el mismo se encuentre ordenado como si hubiéramos hecho click en el sortheader, ponemos luego del generated code del evento openwindow lo siguiente:

BRW1::SortHeader.SetSortFromString('TAB:Campo')

donde TAB:Campo es uno de los campos de la tabla que estoy mostrando en el browse.

== EDIT IN PLACE==
=== Edit in Place o Form, según condición ===
En BrowseClass, Ask, antes del Parent Call
If ?browse:1{proplist:mousedownfield} = 5
Self.AskProcedure = 0
else
Self.AskProcedure = 1
end

Puede usarse cualquier condición, en este caso si el usuario hace doble click en la 5a columna se usa edit in place, sino se usa el formulario

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Desactivar Edit in Place de un campo según condición ===
En las propiedades del EIP del campo admitir la edición del mismo.

En el EIP Field Manager del campo, TakeEvent, antes del Parent Call
if Queue:Browse:1.TAB:Campo_de_mi_Tabla > 0
Return EditAction:Cancel
thiswindow.reset(true)
end

En este ejemplo sólo permito que pueda editarse el campo si el valor actual del mismo es <= 0

=== Inicializar campos al insertar registro ===
O sea lo que hace el Prime Fields en las formas
ABC Objects
BROWSE ON TABLA using ?LIST
PrimeRecords
Después del Parent Call
TPS:TuCampo= valor inicial

=== Poner Disable un campo===
Local Objects -->>
Abc Objects -->>
EIP Field Manag...for Field NombreCampo
-->>Init [Priority 5001]
If SELF.FEQ then SELF.FEQ{Prop:Disable} = true.
También se pueden cambiar otras propiedades como por ejemplo UPPER (mayúsculas) o READ ONLY (sólo lectura)
If SELF.FEQ
SELF.FEQ{prop:readonly} = TRUE
SELF.FEQ{prop:upr} = TRUE
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Campos Calculados ===
Por ejemplo Modificar el total cuando cambia la cantidad.
Primero agregar el campo cantidad en Column Specific
EditInPlace::DET:Cantidad.TakeEvent PROCEDURE(UNSIGNED Event)
....
!Despues del Parent Call

CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
BRW1.Q.DET:Total = BRW1.Q.DET:Cantidad * BRW1.Q.DET:Importe
!Etc... siempre haciendo referencia a los campos de la cola BRW1.Q.
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones ===
Por ejemplo una validación básica de un número requerido
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:NroDocumento
-->>Take Event [Priority 5001]
! Validación del nro. de Documento
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
UPDATE(Self.Feq)
IF NOT BRW1.Q.Cli:NroDocumento
BEEP(BEEP:SystemExclamation) ; YIELD()
MESSAGE('No se informó el número de Documento', |
'Atención!', ICON:Exclamation)
ReturnValue = EditAction:NONE
Return ReturnValue
END
END

Validación con un lookup a una tabla
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:Provincia
-->>Take Event [Priority 5001]
!Valida Provincia
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
Pro:Codigo= BRW1.Q.Cli:Provincia
IF Access:Provincia.Fetch(Pro:PorCodigo)
GlobalRequest = SelectRecord
SelectProvincia
IF NOT Pro:Codigo
ReturnValue = EditAction:NONE
Return ReturnValue
ELSE
BRW1.Q.Cli:Provincia = Pro:Codigo
BRW1.Q.Pro:NOMBRE = Pro:NOMBRE
END
END
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== GLOBALES ==

=== Cambiar los mensajes de error del SQL ===
Con cambiar los TRN no alcanza para ese tipo de errores.

Lo que se puede hacer es determinar el mensaje que viene desde el SQLServer
para mostrar un mensaje mas amigable.

El embebido es
Global Embeds:
Global Objets
Abc Objects
Error Manager
TakeNotify
!Antes del Parent Call
IF INSTRING('COLUMN REFERENCE', SELF.SubsString(),1,1)
SELF.Msg('El registro no puede borrarse porque tiene datos de detalle
que dependen de él. |Presione [OK] para una descripción detallada del
error',SELF.GetErrorBufferTitle(),ICON:Exclamation,Button:OK,BUTTON:OK,0)
END

Hay que armar un IF de estos por cada tipo de error...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validación de campos (Edit in place o Form)===

Para validar campos lo ideal es usar los Global Embeds
Global Embeds
Field Level Validation
Tabla
Campo
IF <No cumple Condición>
Message('error...')
RETURN Level:Notify
END

Esto te va a funcionar "para siempre" ya sea que uses Edit in place, un Form
o código embebido para actualizar la tabla.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Puntos Embebidos

2015-03-07T22:41:22Z

Jorge Brugger: Texto reemplazado: «(Evolution Consulting)» por «(Templates Clarion)»

Los puntos embebidos son la pesadilla de todo principiante de Clarion. Son extremadamente útiles, pero son muy difíciles de aprender. Para colmo, la abstracción que implementa la clase ABC hace más difícil todavía conocerlos y aprovecharlos. Por eso esta sección es de vital importancia.

== FORMULARIOS ==
=== ¿Qué procedimiento llamó al Form? ===
Al principio del WindowManager.Init del Form (primer prioridad disponible)

GlobalErrors.GetProcedureName()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones complejas ===
Por ejemplo validar un Email:
En el accepted del campo
Puedes hacerlo con MATCH, ejemplo:

X# = MATCH(UPPER(CLIP(locemail)),|
'^[-A-Z0-9._]+@{{[-A-Z0-9._]+.}+[A-Z][A-Z][A-Z]?[A-Z]?$', Match:Regular)

Devuelve 1 o 0 si el mail no es válido.
El MATCH puede usarse con expresiones regulares para validar casi cualquier cosa...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se Abre/inicializa el Form ===
ThisWindow.Init
!Es interesante entrar por el botón source a este embed para entender bien todas sus prioridades
!GlobalRequest (pasada por el browse) se guarda en la propiedad ThisWindow.Request
!Se puede preguntar por SELF.Request para saber para qué se lo llamó al form:
!InsertRecord EQUATE (1)
!ChangeRecord EQUATE (2)
!DeleteRecord EQUATE (3)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar el Form a "Solo lectura" ante una condición===
ThisWindow.Init
! [Priority 4950] La prioridad es importante!
IF FAC:facturado = 1 THEN SELF.Request = ViewRecord.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Truco: Llamar al form para insertar desde el menú ===
Podríamos asumir que si la GlobalRequest está en blanco es que se lo
llamó para insertar, evitaríamos asi el paso por un Browse
!Al principio del Init (antes de Snap-Shot global Request):
!If GlobalRequest = 0 Then GlobalRequest = InsertRecord.

Si la tabla tiene una clave Autonumber, se complica un poco mas, sería asi:
!Al principio del Init (antes de Snap-Shot global Request):
!Por ej prioridad 300
If GlobalRequest = 0
GlobalRequest = InsertRecord
DesdeMenu# = True
End

!Después de Open Files:
!Por ej prioridad 7800
If DesdeMenu# = True
Access:People.PrimeAutoinc()
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Llamar a un form para editar una tabla con un solo registro ===
Típicamente una tabla de parametros, obviamente no queremos pasar por un browse
WindowManager.Init,
!al principio
GlobalRequest = ChangeRecord

!Luego de Open files
Set(Tabla)
access:Tabla.Next()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se confirma un Form ===
ThisWindow.TakeCompleted
! [Priority 2800]
!ANTES DE QUE SE CONFIRME LA GRABACION
! Parent Call
ReturnValue = PARENT.TakeCompleted()
! [Priority 6300]
!YA SE GRABÓ EL REGISTRO.
!VERIFICAR SI SELF.Response=RequestCompleted A VER SI SE GRABÓ OK.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se cierra un Form ===
ThisWindow.Kill
!VERIFICAR LOS valores de SELF.Request y SELF.Response
!Para decidir que acciones tomar
!Este punto ya es "demasiado tarde" para hacer algo antes de que se grabe el registro
!Para eso usar TakeCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se produce el borrado sin abrir el Form ===
Si tenemos un form para actualizar una tabla, y definimos que el borrado sea Confirmando (Standard Warning) o Automático (Automatic Delete), y necesitamos ejecutar un código en el form cuando se efectúe el borrado, usamos:

ThisWindow.PrimeUpdate, después del Parent Call

if self.request = DeleteRecord and self.Response = RequestCompleted
!lo que quiero hacer
end

Hay que tener en cuenta que el borrado de un registro no pasa por el TakeCompleted, excepto cuando se usa la ventana del form (Display Form).

Aporte de Gustavo Olmedo [http://www.evolutionconsulting.com.ar/downloads.html (Evolution)] (Templates Clarion)]

=== Chequear si se modificó cualquier campo del FORM ===

En el TakeCompleted ponemos el siguiente código:

IF NOT SELF.Primary.Me.EqualBuffer(SELF.Saved)
! message('Cambio')
END

Aporte de Pablo Guarnieri y Gustavo Olmendo

=== Chequear si se modificó un campo del FORM ===

IF CLI:Campo <> history::CLI:Record.Campo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Forzar grabación del form ===

Este código sirve para grabar el form inclusive cuando el usuario lo cancele

TakeCloseEvent PROCEDURE(),BYTE,VIRTUAL
IF loc:condicion
SELF.CancelAction = Cancel:Save !immediate save (no confirmation)
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Filtrar un Drop Combo ===

Este código sirve para filtrar un drop combo utilizando pro:sqlfilter, suponemos que en
la variable loc:filtro se arma el filtro ha enviar, algo asi como: 'a.idtercero = <39>90909090<39>'
FDCB14 es el nombre del objeto el cual se puede verificar en propiedades --> clases.

ApplyFilter PROCEDURE,VIRTUAL
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = <39>'&clip(loc:filtro)&'<39>'
IF FILEERRORCODE()
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = ''
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Obtener el número autogenerado por SQL Server en tablas con identity ===
Después del Parent Call, en el TakeCompleted del Form:
IF Self.Response=RequestCompleted AND Self.Request = InsertRecord
Tabla{prop:Sql}= 'SELECT @@IDENTITY' !busco el número que se asignó
IF not Access:Tabla.Next()
!en el primer campo de Tabla viene cargado el número autogenerado
else
message('Error')
end
end

Tomado de una respuesta de Fernando Cerini en el foro.

== REPORTES Y PROCESOS ==
=== Ocultar un campo del detalle según condición ===
!En TakeRecord, antes del Print (Process Manager)
IF <CONDICION>
REPORT$?Control{PROP:HIDE}=True
ELSE
REPORT$?Control{PROP:HIDE}=False !si la condición no se cumple, vuelvo a hacer visible el control
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Saber si un proceso se completó ===
O sea que no se salió por el botón de cancelar
!En el WindowManager.Kill
IF Self.Response = RequestCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Inicializar el número de página ===
!WindowManager.OpenReport, despues del Parent Call
IF ReturnValue = Level:Benign
Report{PROP:NextPageNo} = xxx
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Deshabilitar la impresión ===
!Local Objects, Abc Objects, Previewer, Display, After ParentCall.
!impresión prohibida
ReturnValue = False

Por ejemplo:

If ReturnValue and DemoVersion
ReturnValue = False
Message("Está utilizando una versión del demo, no puede imprimir este documento !")
End
Aporte de Olivier Cretey

Otra opción, en Previewer.TakeAccepted, antes del Parent Call
IF CLIP(ACCEPTED(){PROP:TIP}) = 'Print this report' THEN RETURN LEVEL:BENIGN.

O sea pregunto por el Tool Tip del botón que se ha presionado. Ojo, si lo tienes traducido tienes que cambiar el 'Print this report' por tu Tool Tip.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un Proceso ===
!Windows Manager -->> Validate Records -->> [Priority 5600]
If <Condición de Filtro>
Return Record:Filtered
Else
Return Record:OK
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Habilitar o deshabilitar el Print Preview ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
Self.SkipPreview = Loc:Preview

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Cantidad de Páginas generadas ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
ENDPAGE(SELF.Report)
Loc:Paginas = RECORDS(SELF.PreviewQueue)

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Imprimir un Transporte ===
Necesitas crear 3 details.
DetailDatos
DetailTransporte: aca van las variables locales con los totales
DetailSalto: este detail es vacío y con la propiedad PageAfter

En el embed TakeRecord (antes de los PRINTs) habría que hacer algo asi
LOC:Fila += 1
If LOC:Fila % 28 = 0 !28 líneas por página...
PRINT(RPT:DetailSalto)
PRINT(RPT:DetailTransporte)
LOC:Fila = 1
End
LOC:Total += LIBRO:Total
PRINT (RPT:Detalle)
RETURN LEVEL:Benign

Marcelo Martínez
y [mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Acelerar las actualizaciones ===
Para que los procesos que agreguen registros funcionen mas rápido hay que agregar un Logout o Stream en Init y un Commit o Flush en el kill
(El Evolution Tools tiene una extension que hace eso mismo.)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Se imprime o se Cancela? ===
Los embeds son
ABC Objectd
--WindowManager(ReportManager)
--CancelPrintReport
-Se Cancela

--PrintReport
-Se imprime

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Recorrer la cola de las páginas ===
Cada página del reporte genera una imagen .WMF, la cual se guarda en el directorio temporal.
Con este ejemplo se puede recorrer la cola donde se guardan los nombres de estos archivos. Ésto es lo que usa por ejemplo el Evolution Mail Template para enviar estas páginas por mail.
Previewer.Open PROCEDURE
....
loop a# = 1 to RECORDS(SELF.ImageQueue)
get(SELF.ImageQueue,a#)
message(SELF.ImageQueue)
end

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir una Queue ===
La mejor forma de hacerlo en Clarion6 es en Report Properties - General -
Datasource: Queue.

Yo generalmente pongo los parametros en la ventana y cargo la queue en el
evento accepted del PauseButton.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir un SQL ===
Lo que yo hago es poner todos los parámetros en la ventana del reporte.
En el accepted del boton de pausa cargo la cola de memoria con:

SQL{PROP:SQL} = !aca armo el string SQL
IF ERRORCODE() THEN STOP( FILEERROR()).
FREE(ColaMemoria)
LOOP
NEXT(SQL) !O ABC, como prefieras...
IF ERRORCODE() THEN BREAK.
ColaMemoria :=: SQL:Record
ADD(ColaMemoria)
END

El reporte lo configuro para trabajar con la cola (data source) y en el
Detail del reporte pongo los campos de la cola de memoria.
Lo ideal es tener una cola de memoria global con el atributo thread y usar
siempre la misma para todo.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar o hacer cortes de control manuales en reportes ===
En TakeRecord, antes del Print.

!Actualizar contadores

IF AUX <> CampoCorte
IF AUX <> 0 !para evitar la primera vez
!Inicializar los contadores
END
AUX=CAMPO
!SE VIENE EL CORTE
END

Este método TakeRecord se usa también para actualizar cualquier variable calculada antes de la impresión de la banda de detalle.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo BLOB ===
Este código va en el método TakeRecord, antes del PRINT

Report$?Image1{PROP:NoWidth} = TRUE
Report$?Image1{PROP:NoHeight} = TRUE
Report$?Image1{PROP:ImageBlob} = STU:Photograph{PROP:Handle}
IF Report$?Image1{PROP:Height} > 1000
AspectRatio$ = Report$?Image1{PROP:Width}/Report$?Image1{PROP:Height}
Report$?Image1{PROP:Height} = 1000
Report$?Image1{PROP:Width} = 1000 * AspectRatio$
END
IF Report$?Image1{PROP:Width} > 1000
AspectRatio$ = Report$?Image1{PROP:Height}/Report$?Image1{PROP:Width}
Report$?Image1{PROP:Width} = 1000
Report$?Image1{PROP:Height} = 1000 * AspectRatio$
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo CSTRING ===
Este caso es similar al anterior, pero en el campo se encuentra el path donde está la imagen
!En el método TakeRecord, antes del PRINT
Report$?Image1{PROP:Text} = PRO:Foto

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Evitar el cartel "No records to process" en un proceso ===
!En el metodo TAKE NO RECORDS poner un RETURN antes del parent call.
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir el reporte en blanco, cuando no hay registros ===
En WindowManager. Next, antes del Parent Call con prioridad 500.

! [Priority 500] antes del Parent Call
If Primera=0 !variable local byte
Primera=1
SELF.Process.RecordsProcessed = 1
Return Level:Benign
End
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Cuando hay filtros y rangos, esta solución suele duplicar el primer registro del detalle.
Para Solucionar esto en ProcessManager NextPROCEDURE(BYTE ProcessRecord) con prioridad 7500 se debe colocar el siguiente código:

IF ReturnValue = 0 AND LOC:Primera = 0 THEN !Si hay un registro
LOC:Primera = 1 !Dejo al reporte seguir su curso normal
END

Mario Wojcik

=== Detectar el último registro en un process o Reporte (fin de archivo) ===
ThisProcess.Next PROCEDURE(BYTE ProcessRecords=True)
! [Priority 5001]
If ReturnValue = 5 !Level:Notify
!Fin del proceso
End

Esto por ejemplo es muy útil para cambiar etiquetas en los totales generales del reporte, en un page footer
ThisReport.Next PROCEDURE(BYTE ProcessRecords)
....
! [Priority 5001] despues del Parent Call
If ReturnValue = 5 !Level:Notify
REPORT$?LabelTotal{prop:text}= 'Total'
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Reporte con múltiples detalles ===
Por Ejemplo:

Viajes
|-->pasajeros
|-->comisiones

Habría que poner solo la tabla viajes en el Table Schematic. Pasajeros y Comisiones en Other Tables

En el reporte crear 3 details, uno para cada tabla.

En ThisReport.TakeRecord, antes de los PRINTs

! [Priority 5500]
PRINT(RPT:DetailViaje)
CLEAR(PAS:RECORD)
PAS:idViaje = VIA:IdViaje
SET(PAS:ClavePorViaje, PAS:ClavePorViaje)
LOOP UNTIL ACCESS:Pasajeros.Next() OR PAS:idViaje <> VIA:IdViaje
PRINT(RPT:DetailPasajeros)
END
!Y lo mismo para las comisiones
CLEAR(COM:RECORD)
COM:idViaje = VIA:IdViaje
SET(COM:ClavePorViaje, COM:ClavePorViaje)
LOOP UNTIL ACCESS:Comisiones.Next() OR COM:idViaje <> VIA:IdViaje
PRINT(RPT:DetailComisiones)
END
Return Level:Benign !ya imprimí todo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Otra alternativa podría ser utilizando el Template '''ReportChildFiles''' (desde version 6.X ?) ya que puede ser utilizado mas de una vez en un mismo reporte, apuntando cada instancia a un archivo "hijo" diferente.
Es fácil de configurar: Se debe seleccionar la tabla CHILD y la PARENT. En el reporte hay que definir el REPORT DETAIL (para el CHILD) y ponerle algún nombre en el label que luego debe ser configurado en el Template.

Jose Sturniolo

=== Imprimir exactamente lo que estamos viendo en el browse ===
En el browse pones un botón que llame al reporte y en parameters:
(Brw1.view{PROP:Filter}, Brw1.view{PROP:Order})

En las propiedades del reporte o proceso:
Prototype: (STRING, STRING)
Parameters: (FILTRO, ORDEN)

En WindowManager.Init, al final:
ThisReport.SetFilter(FILTRO) ! o ThisProcess....
ThisReport.SetOrder(ORDEN)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar tamaño de hoja en el reporte ===
En el embed WindowManager 'OpenReport', PRIORITY(7500)

IF ~ReturnValue
SETTARGET(REPORT)
CASE PRINTER{PROPPRINT:Paper}
OF PAPER:LETTER
REPORT{PROP:height} = 8500
?Footer{PROP:Ypos} = 9000
OF PAPER:LEGAL
REPORT{PROP:height} = 11000
?Footer{PROP:Ypos} = 11500
etc.
END
SETTARGET()
END

etc. con los tamaños de papel que quieras.
Esto acomoda el contenido del reporte en run-time, haciéndolo ocupar más
o menos hoja según sea el largo de la misma. Chiche, ¿no?.
Ajustá los valores a tus necesidades.
Para tener en cuenta: el usuario tiene que elegir el tamaño del papel
ANTES de generar el reporte. Si ya está en la vista previa, el reporte ya
está generado, por lo tanto si cambia el largo de hoja ahí, no se lo va a
tomar.

Jorge Lavera

=== Cambiar Impresora ===
En Global Properties-->Embeds-->Before Global INCLUDEs
INCLUDE('PRNPROP.CLW')
!para poder acceder a las propiedades de las impresoras

Luego en el Reporte en
ThisReport.Open()
!para guardar la impresora por defecto de Windows
GLO:IMPRESORA = PRINTER{PROPPRINT:Device}
!Seteo la impresora que quiero usar.
!El string debe ser igual al que figura en IMPRESORAS
PRINTER{PROPPRINT:Device} = 'HP Deskjet 840'

y por último en
ThisReport.Kill()
!para devolver la impresora por defecto de windows
PRINTER{PROPPRINT:Device} = CLIP(GLO:IMPRESORA)

Guillermo Ondetti, Pragma Sistemas

=== Detectar Salto de Página de Reporte ===
Este sería el codigo, siempre y cuando no tengas break groups (ahi se complica bastante)
El embebido es TakeRecord en ABC, o Before Print Detail en Legacy.
VarLocal += REPORT$?Detail{PROP:height}
IF VarLocal > REPORT{PROP:height}
VarLocal = REPORT$?Detail{PROP:height}
!En el siguiente PRINT Cambia la página...
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Aplicar Filtro sql en el reporte ===
Se arma el filtro si se quiere en una variable por ejemlo loc:sql
y se aplica en Local Objects --> Abc Objects -- > Process manager --> Apply Filter antes del parent call, asi:

Process:View{Prop:SqlFilter}=Loc:SQL

Ivan Dario Benitez

=== Imprimir mas de una Copia por Reporte ===
Se tiene que poner en el Window Manager --> Open (Prioridad(5000))

PRINTER{PROPPRINT:COPIES}=n !! n = Cantidad de copias

Luego es aconsejable poner en el Window Manager --> Kill

PRINTER{PROPPRINT:COPIES}=1

ASC Sergio D. Caballero

== BROWSES ==
=== Actualizar un campo al hacer click en una columna ===
Por ejemplo, en People.app

En el evento Accepted del Control del browse.
!Si se hizo click en el campo
IF ?BROWSE:1{PropList:MouseDownField}= 4
ACCESS:PEOPLE.Fetch(PEO:KeyId)
PEO:Gender = 'X'
ACCESS:PEOPLE.Update()
BRW1.ResetFromFile()
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtrar con SQL===
A veces es muy útil aplicar un filtro SQL encima de todos los demas filtros que ya tenga el browse, por ejemplo para filtrar por usuario, por sucursal, etc.
Yo normalmente le pongo el filtro SQL en el método windowmanager.Reset,
prioridad 5000
BRW1.View{PROP:SQLFILTER}='+ filtro sql'
Luego se refresca normalmente, o manualmente con ThisWindow.Reset (1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Activar un Browse invisible, o sea que está en otro TAB ===
Esto es especialmente útil cuando necesitamos que se ejecuten totalizadores del browse aunque éste no esté visible en la pantalla.
!ABC Objects ->
Local Objects ->
Windows Manager->
Init Priority[7500]
BRW2.ActiveInvisible = True

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Copiar un Registro ===

!ABC Objects -> Browse on Clientes -> PrimeRecord Priority[4500]
IF Loc:Copiar
SuppressClear = True
CLEAR(Loc:Copiar)
END!IF

!Control Events --> Copiar -> Accepted -> Priority[5000]
Loc:Copiar = True
POST(EVENT:Accepted,?UseDelBotonAgregar)

!Notas: Crear Variable Local Loc:Copiar
! SuppressClear es un Parametro de BrowseClass.PrimeRecord

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Deshabilitar el Popup ===
!ABC Objects -> Local Objects -> Windows Manager-->>Init Priority[9001]
Brw1.Popup.KILL

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Ordenamiento Dinámico ===
En Clarion6 se puede hacer automáticamente con la opcion Sort Headers.
Si se quiere hacer desde código para ordenar por cualquier campo, se puede utilizar:
Brw1.SetOrder('TAB:Campo')
Brw1.ApplyOrder()
ThisWindow.Reset(1)
Por ejemplo si quisiera emular un ordenamiento con el doble click sobre una columna, habría que alertar el doble click en al browse, y el código sería mas o menos asi.
Control Event -> Browse:1 ->Alert Key [4500]
! Código usado para cambiar el Orden del Browse
! cuando se hace doble click en la columna
IF KEYCODE()=MouseLeft2
?Browse:1{PropList:Header,1} ='Codigo'
?Browse:1{PropList:Header,2} ='Nombre'
Loc:Columna = ?Browse:1{PropList:MouseDownField}
CASE Loc:Columna
OF 1
?Browse:1{PropList:Header,1} ='<<<CODIGO>>>'
Brw1.SetOrder('LCA:LOCALIDAD')
OF 2
?Browse:1{PropList:Header,2} ='<<<NOMBRE>>>>'
Brw1.SetOrder('UPPER(LCA:NOMBRE)')
END!CASE
Brw1.ApplyOrder()
ThisWindow.Reset(1)
END!IF

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Locator Múltiple ===
Por ejemplo, para posicionarme en un código de cuenta contable:
Lo que podrías hacer es poner una variable string sobre el browse y poner un
código mas o menos asi en su accepted del entry

!Asumiendo que cada código tiene cuatro dígitos
!Revisar la sección String Slicing en el Help
Cue:Cuenta = Loc:Cuenta[1:4]
Cue:SubCuenta = Loc:Cuenta[5:8]
Cue:SubSubCuenta = Loc:Cuenta[9:12]
SET(Cue:PorCodigo,Cue:PorCodigo)
Access:Cuentas.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

Otro ejempo, en un browse de órdenes, posicionarse según el nombre del cliente

CLI:Nombre = LOC:Cliente
SET(CLI:PorNombre, CLI:PorNombre)
ACCESS:Clientes.Next()

ORD:CodCliente = CLI:CodCliente
SET(ORD:PorCliente, ORD:PorCliente)
ACCESS:Ordenes.Next()

BRW1.ResetFromFile()
ThisWindow.Reset(1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Pintar un browse según un campo ===
Por ejemplo cuando vemos las facturas de un Cliente se repite el nombre, este código pinta diferente cada grupo de nombres.
Primero hay que ponerle el atributo color al campo que necesites pintar, desde list box format.
Luego va el siguiente código, en WindowManager.Reset antes del Parent Call

Aux = ''
LOOP F#= 1 TO RECORDS (BRW1.Q)
GET(BRW1.Q, F#)
IF Aux <> BRW1.Q.CLI:Nombre
Col# = 1- Col#
Aux = BRW1.Q.CLI:Nombre
END
If Col#
BRW1.Q.CLI:Nombre_NormalBG = COLOR:SILVER
Else
BRW1.Q.CLI:Nombre_NormalBG = COLOR:WHITE
End
PUT(BRW1.Q)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Refrescar un browse desde otra ventana ===
Lo mas fácil sería usando NOTIFY.
En la Ventana 1 (la del browse a refrescar)
WindowManager.Init
GLO:THREAD = THREAD() !VARIABLE GLOBAL LONG

Window Events
Notify
BRW1.ResetfromBuffer() ! o ThisWindow.Reset(1)?

En la ventana 2, cuando se necesite refrescar la 1
NOTIFY (999, GLO:THREAD)

Puede ser 999 o cualquier cosa ya que en éste caso no estoy usando ese parámetro.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Iniciar el browse en un Tab determinado ===
En ThisWindow.Init, al final
SELF.FirstField = ?Tab:4 !Use del tab

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Actualizar el resultado de un totaling del browse de detalle, en el Encabezado ===
En el Browse de abajo (el de detalle)
ResetFromView, prioridad 4500 - La prioridad es importante
GET(Encabezado, ENC:Por_Numero)
ENC:Total = loc:total !ÉSTA ES LA VARIABLE DEL TOTALING
PUT (Encabezado)
IF ERRORCODE() THEN MESSAGE(ERROR()).
BRW1.ResetFromFile()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtro Dinámico ===
Poner un control Text donde el usuario pueda escribir cualquier filtro
X# = EVALUATE(Filtro)
IF ERRORCODE()
MESSAGE('ERROR DE SINTAXIS EN EL FILTRO: ' & ERROR(), 'ATENCION')
ELSE
BRW1.SetFilter(Filtro)
ThisWindow.Reset(1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Rangos múltiples y dinámicos ===
Si tenemos una clave con varios componentes, en Actions del browse ponemos un rango por current value, elegimos el componente de la clave hasta el cual queremos hacer el rango.
El siguiente componente de la clave se puede usar como locator.
Por ejemplo si tenemos una clave con Tipo+Provincia+Localidad, hacemos un rango de current value por provincia y nos queda un locator por localidad.

BRW1.ApplyRange PROCEDURE
! [Priority 5000]
RAN:Tipo= loc:tipo
RAN:Provincia=loc:provincia
SELF.Order.Rangelist.AssignLeftToRight()

En algun boton de aplicar rango
BRW1.ApplyRange()
ThisWindow.Reset(1)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, deshabilitar condicionalmente la actualización de registros ===
IF <Condición>
!Deshabilitar Actualización
BRW1.InsertControl=FALSE
BRW1.ChangeControl=FALSE
BRW1.DeleteControl=FALSE
ELSE
BRW1.InsertControl=?INSERT
BRW1.ChangeControl=?CHANGE
BRW1.DeleteControl=?DELETE
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar el cambio de registro seleccionado en un Browse ===
Ejemplo mostrar una foto del cliente al costado del browse
BRW1.TakeNewSelection PROCEDURE
! [Priority 5001]
!EN CLI:FOTO ESTA EL PATH COMPLETO DE LA FOTO
IF CLI:FOTO <> ''
?Foto{PROP:TEXT}= CLI:FOTO
ELSE
?Foto{PROP:TEXT}= ''
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un browse ===
Ejemplo: Mostrar sólo los clientes que tengan alguna orden

BRW1.ValidateRecord PROCEDURE
! [Priority 5001]
!FILTROS COMPLEJOS
!EJ: MOSTRAR SOLO LOS CLIENTES QUE TENGAN ALGUNA ORDEN
CLEAR(ORD:RECORD)
Ord:CodigoCliente=CLI:ID
SET(Ord:FK_Ordenes_CLIENTES,Ord:FK_Ordenes_CLIENTES)
NEXT(ORDENES)
IF ERRORCODE() OR (Ord:CodigoCliente <> CLI:ID) THEN RETURN Record:Filtered.

RETURN Record:OK
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Poner un campo "saldo" en un browse ===
ThisWindow.Reset, antes del Parent Call

S#=0
LOOP F#= 1 TO RECORDS (Queue:Browse:1)
GET(Queue:Browse:1, F#)
S# += Queue:Browse:1.ORD:Total_Impo
Queue:Browse:1.Saldo = S#
PUT(Queue:Browse:1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Resetear/inicializar un Locator ===
El método a ejecutar es
BRW1::Sort1:Locator.Set

Los nombres de las instancias de Locators por cada TAB se llaman:
BRW1::Sort0:Locator.Set
BRW1::Sort1:Locator.Set
BRW1::Sort2:Locator.Set
!etc..

Luego sería bueno volver a poner el foco en el browse para que se pueda seguir usando el locator normalmente
select (?Browse:1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, disparar un procedimiento después de generar un alta, modificación, etc. ===

El proceso a disparar se hace desde el browse, la idea es saber si del Form volvió aceptando o canceló la actualización. El punto embebido es:

Local Objects
BRW1 (o el objeto de tipo browse class que sea)
ResetFromAsk (después del Parent.call)

IF VCRRequest=VCR:None
CASE Request
OF InsertRecord
IF Response = RequestCompleted
!Hacer algún proceso
END
END
END!

=== Inserción continua refrescando el Browse ===
Este otro método es similar al anterior, también sirve para lo mismo.
Agrego un ejemplo para hacer inserción continua en el Form y además se vaya actualizando el browse

ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)
! Cuidado que existen dos ThisWindow.Run, seleccionar el correcto
! [Priority 8500]
IF Request = InsertRecord And ReturnValue = RequestCompleted
POST(EVENT:ACCEPTED, BRW1.InsertControl)
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Posicionar un browse en un registro seleccionado ===

Al abrir un browse a veces necesitamos posicionar el selector en un registro determinado, tal como lo hacen los browses para selección.

Por ejemplo para posicionar el browse en el registro más cercano al proporcionado por el usuario:

ThisWindow.Open PROCEDURE
! Start of "WindowManager Method Data Section"
! [Priority 5000]
! End of "WindowManager Method Data Section"
CODE
! Start of "WindowManager Method Executable Code Section"
! [Priority 500]
CLI:cliente= LOC:Cliente
ACCESS:Clientes.fetch(CLI:Kcodigo)
BRW1.selecting=1
! Parent Call
PARENT.Open()
! [Priority 6300]
BRW1.selecting=0

Otra idea, propuesta por Matías Flores:
Ubicarlo por el valor de los campos de la clave. Por ejemplo, si en un browse de clientes querés posicionarte en un cliente que tiene un código determinado (Loc:Codigo):

Cli:Codigo = Loc:Codigo
SET(Cli:PorCodigo,Cli:PorCodigo)
Access:Clientes.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

un ejemplo parecido al anterior, pero en legacy, sería:
CLI:Codigo = LOC:Codigo
BRW1::LocateMode = LocateOnValue
DO BRW1::LocateRecord

Una opción más es:
En el WindowManager.init, antes de Initialize browse y después de OpenFiles, colocar el siguiente código:

BRWx.StartAtCurrent = True
TAB:Campo = Valor_Buscado
get(Tabla, TAB:Key_que_ordena_por_Campo)

=== En Legacy, activar un filtro sobre un browse abierto. ===

Esto se pone en el punto embebido "Before opening VIEW". Acordarse de BINDEAR todas las variables que se necesiten.

!---ANTES DE ABRIR EL VIEW---
if SoloPendientes then
BRW2::View:Browse{Prop:Filter} = |
'MER:numertra = BRW2::Sort1:Reset:TRA:numertra AND MER:saldunid <> 0'
end

=== Campos Calculados ===
Por ejemplo cuando quieras presentar el nombre completo sin los espacios de un campo a otro. Pones en el browse una variable local.
En el SETQUEUERECORD (4500)

Loc:ApellidoNombre = clip(CON:Apellido) & ' ' & CON:Nombre

!(Tip de Alex B.)

=== Código antes y después de una actualización DESDE UN BROWSE. ===

- Antes de la llamada al Form de actualización
! ABC Objects -> Browse on Archvivo ->Ask Priority[4500]
IF Request = InsertRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR ALTA ','ALTA',ICON:EXCLAMATION)
ELSIF Request = ChangeRecord
BEEP
MESSAGE('ATENCION: SE VA A ACTUALIZAR ','CAMBIO',ICON:EXCLAMATION)
ELSIF Request = DeleteRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR DE BAJA ','BAJA',ICON:EXCLAMATION)
END

- Después de la actualización del registro
!ABC Objects -> Browse on Provincia ->Ask Priority[5500]
IF ReturnValue =1
BEEP
MESSAGE('ATENCIÓN: SE ACTUALIZÓ EL REGISTRO','ACTUALIZÓ OK',ICON:EXCLAMATION)
ELSIF ReturnValue =2
BEEP
MESSAGE('SE CANCELÓ LA ACTUALIZACIÓN DEL REGISTRO','ATENCIÓN',ICON:HAND)
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Deshabilitar/esconder (cambiar a PROP:HIDE) un control si el browse está vacío - pe. un botón-. ===

En el Browse.UpdateWindow(), última prioridad:
?TuBoton{PROP:Disable}=Choose(Self.Records()<>0,0,1)

===Iniciar un browse con un orden "sort header"===

Si queremos que al abrir un browse el mismo se encuentre ordenado como si hubiéramos hecho click en el sortheader, ponemos luego del generated code del evento openwindow lo siguiente:

BRW1::SortHeader.SetSortFromString('TAB:Campo')

donde TAB:Campo es uno de los campos de la tabla que estoy mostrando en el browse.

== EDIT IN PLACE==
=== Edit in Place o Form, según condición ===
En BrowseClass, Ask, antes del Parent Call
If ?browse:1{proplist:mousedownfield} = 5
Self.AskProcedure = 0
else
Self.AskProcedure = 1
end

Puede usarse cualquier condición, en este caso si el usuario hace doble click en la 5a columna se usa edit in place, sino se usa el formulario

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Desactivar Edit in Place de un campo según condición ===
En las propiedades del EIP del campo admitir la edición del mismo.

En el EIP Field Manager del campo, TakeEvent, antes del Parent Call
if Queue:Browse:1.TAB:Campo_de_mi_Tabla > 0
Return EditAction:Cancel
thiswindow.reset(true)
end

En este ejemplo sólo permito que pueda editarse el campo si el valor actual del mismo es <= 0

=== Inicializar campos al insertar registro ===
O sea lo que hace el Prime Fields en las formas
ABC Objects
BROWSE ON TABLA using ?LIST
PrimeRecords
Después del Parent Call
TPS:TuCampo= valor inicial

=== Poner Disable un campo===
Local Objects -->>
Abc Objects -->>
EIP Field Manag...for Field NombreCampo
-->>Init [Priority 5001]
If SELF.FEQ then SELF.FEQ{Prop:Disable} = true.
También se pueden cambiar otras propiedades como por ejemplo UPPER (mayúsculas) o READ ONLY (sólo lectura)
If SELF.FEQ
SELF.FEQ{prop:readonly} = TRUE
SELF.FEQ{prop:upr} = TRUE
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Campos Calculados ===
Por ejemplo Modificar el total cuando cambia la cantidad.
Primero agregar el campo cantidad en Column Specific
EditInPlace::DET:Cantidad.TakeEvent PROCEDURE(UNSIGNED Event)
....
!Despues del Parent Call

CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
BRW1.Q.DET:Total = BRW1.Q.DET:Cantidad * BRW1.Q.DET:Importe
!Etc... siempre haciendo referencia a los campos de la cola BRW1.Q.
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones ===
Por ejemplo una validación básica de un número requerido
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:NroDocumento
-->>Take Event [Priority 5001]
! Validación del nro. de Documento
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
UPDATE(Self.Feq)
IF NOT BRW1.Q.Cli:NroDocumento
BEEP(BEEP:SystemExclamation) ; YIELD()
MESSAGE('No se informó el número de Documento', |
'Atención!', ICON:Exclamation)
ReturnValue = EditAction:NONE
Return ReturnValue
END
END

Validación con un lookup a una tabla
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:Provincia
-->>Take Event [Priority 5001]
!Valida Provincia
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
Pro:Codigo= BRW1.Q.Cli:Provincia
IF Access:Provincia.Fetch(Pro:PorCodigo)
GlobalRequest = SelectRecord
SelectProvincia
IF NOT Pro:Codigo
ReturnValue = EditAction:NONE
Return ReturnValue
ELSE
BRW1.Q.Cli:Provincia = Pro:Codigo
BRW1.Q.Pro:NOMBRE = Pro:NOMBRE
END
END
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

== GLOBALES ==

=== Cambiar los mensajes de error del SQL ===
Con cambiar los TRN no alcanza para ese tipo de errores.

Lo que se puede hacer es determinar el mensaje que viene desde el SQLServer
para mostrar un mensaje mas amigable.

El embebido es
Global Embeds:
Global Objets
Abc Objects
Error Manager
TakeNotify
!Antes del Parent Call
IF INSTRING('COLUMN REFERENCE', SELF.SubsString(),1,1)
SELF.Msg('El registro no puede borrarse porque tiene datos de detalle
que dependen de él. |Presione [OK] para una descripción detallada del
error',SELF.GetErrorBufferTitle(),ICON:Exclamation,Button:OK,BUTTON:OK,0)
END

Hay que armar un IF de estos por cada tipo de error...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validación de campos (Edit in place o Form)===

Para validar campos lo ideal es usar los Global Embeds
Global Embeds
Field Level Validation
Tabla
Campo
IF <No cumple Condición>
Message('error...')
RETURN Level:Notify
END

Esto te va a funcionar "para siempre" ya sea que uses Edit in place, un Form
o código embebido para actualizar la tabla.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Manuales

2015-03-07T22:41:15Z

Jorge Brugger: Texto reemplazado: «(Evolution Consulting)» por «(Templates Clarion)»

Los programadores Clarion reconocemos que existe una falencia importante en la cantidad de manuales disponibles para Clarion, eso es especialmente notable en nuestra lengua.

Por eso es importante conocer los manuales diponibles y dónde descargarlos o acceder.

== Clarion 5 Primeros pasos ==

Una traducción del Getting Started de Clarion 5 realizado por Unisoft. '''Altamente recomendable.''' Sobre todo para los que principiantes que les cuesta leer en inglés.

[http://www.lawebdelprogramador.com/cursos/enlace.php?idp=1066&id=16&texto=Clarion Manual primeros pasos Clarion 5]

== Anti Manual de SQL ==

De Mauricio Nicastro.

Imposible empezar a incursionar en SQL sin leerlo.

[[Anti Manual de SQL]]

== Los mejores puntos embebidos ==

De Mauricio Nicastro.

Este tema tiene una sección propia en este Wiki, pero el documento tiene consistencia de manual, por eso lo incluyo en forma completa.

[[Los mejores puntos embebidos]]

== Guia de las mejores prácticas de Clarion ==

De Cristian Olsen.

[[Guia de las mejores prácticas de Clarion]]

== SQL Embebido ==
Doc. que explica como usar sql embebido y un ejemplo de como crear un editor de SQL

[http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== Migración TPS a SQL ==
Primeros pasos en la migración de TPS a SQL. Basado en una presentación del creador de los drivers, Scott Ferret. La cual tuve la suerte de presenciar y me tomé el atrevimiento de hacer algunos cambios...

[http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== Funciones ODBC ==
Lista de funciones muy útiles de ODBC.

[http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== Strings de Conexión ==
De diversas bases en formato DSNLess (sin necesidad de crear el DNS).

[http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== Tipos de Datos SQL ==
Compatibilidad de tipos entre SQL y Clarion.

[http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== Multithreading con Clarion6 ==
Uso correcto de variables y queues globales. Ejemplos de Secciones criticas, Mutexs y Semáforos. Incluye documentación de la charla presentada en CONDEV por Fernando Cerini

[http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== Firebird ==
Primeros pasos en la instalación del Firebird. (Gracias Roque Delia)

[http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

Manuales

2015-03-07T22:40:02Z

Jorge Brugger: Texto reemplazado: «www.evolutionconsulting.com.ar/download.html» por «www.templatesclarion.com.ar/downloads/»

Los programadores Clarion reconocemos que existe una falencia importante en la cantidad de manuales disponibles para Clarion, eso es especialmente notable en nuestra lengua.

Por eso es importante conocer los manuales diponibles y dónde descargarlos o acceder.

== Clarion 5 Primeros pasos ==

Una traducción del Getting Started de Clarion 5 realizado por Unisoft. '''Altamente recomendable.''' Sobre todo para los que principiantes que les cuesta leer en inglés.

[http://www.lawebdelprogramador.com/cursos/enlace.php?idp=1066&id=16&texto=Clarion Manual primeros pasos Clarion 5]

== Anti Manual de SQL ==

De Mauricio Nicastro.

Imposible empezar a incursionar en SQL sin leerlo.

[[Anti Manual de SQL]]

== Los mejores puntos embebidos ==

De Mauricio Nicastro.

Este tema tiene una sección propia en este Wiki, pero el documento tiene consistencia de manual, por eso lo incluyo en forma completa.

[[Los mejores puntos embebidos]]

== Guia de las mejores prácticas de Clarion ==

De Cristian Olsen.

[[Guia de las mejores prácticas de Clarion]]

== SQL Embebido ==
Doc. que explica como usar sql embebido y un ejemplo de como crear un editor de SQL

[http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== Migración TPS a SQL ==
Primeros pasos en la migración de TPS a SQL. Basado en una presentación del creador de los drivers, Scott Ferret. La cual tuve la suerte de presenciar y me tomé el atrevimiento de hacer algunos cambios...

[http://www.templatesclarion.com.ar/downloads/ (Evolution Consulting)]

== Funciones ODBC ==
Lista de funciones muy útiles de ODBC.

[http://www.templatesclarion.com.ar/downloads/ (Evolution Consulting)]

== Strings de Conexión ==
De diversas bases en formato DSNLess (sin necesidad de crear el DNS).

[http://www.templatesclarion.com.ar/downloads/ (Evolution Consulting)]

== Tipos de Datos SQL ==
Compatibilidad de tipos entre SQL y Clarion.

[http://www.templatesclarion.com.ar/downloads/ (Evolution Consulting)]

== Multithreading con Clarion6 ==
Uso correcto de variables y queues globales. Ejemplos de Secciones criticas, Mutexs y Semáforos. Incluye documentación de la charla presentada en CONDEV por Fernando Cerini

[http://www.templatesclarion.com.ar/downloads/ (Evolution Consulting)]

== Firebird ==
Primeros pasos en la instalación del Firebird. (Gracias Roque Delia)

[http://www.templatesclarion.com.ar/downloads/ (Evolution Consulting)]

Puntos Embebidos

2015-03-07T22:39:52Z

Jorge Brugger: Texto reemplazado: «www.evolutionconsulting.com.ar/download.html» por «www.templatesclarion.com.ar/downloads/»

Los puntos embebidos son la pesadilla de todo principiante de Clarion. Son extremadamente útiles, pero son muy difíciles de aprender. Para colmo, la abstracción que implementa la clase ABC hace más difícil todavía conocerlos y aprovecharlos. Por eso esta sección es de vital importancia.

== FORMULARIOS ==
=== ¿Qué procedimiento llamó al Form? ===
Al principio del WindowManager.Init del Form (primer prioridad disponible)

GlobalErrors.GetProcedureName()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones complejas ===
Por ejemplo validar un Email:
En el accepted del campo
Puedes hacerlo con MATCH, ejemplo:

X# = MATCH(UPPER(CLIP(locemail)),|
'^[-A-Z0-9._]+@{{[-A-Z0-9._]+.}+[A-Z][A-Z][A-Z]?[A-Z]?$', Match:Regular)

Devuelve 1 o 0 si el mail no es válido.
El MATCH puede usarse con expresiones regulares para validar casi cualquier cosa...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se Abre/inicializa el Form ===
ThisWindow.Init
!Es interesante entrar por el botón source a este embed para entender bien todas sus prioridades
!GlobalRequest (pasada por el browse) se guarda en la propiedad ThisWindow.Request
!Se puede preguntar por SELF.Request para saber para qué se lo llamó al form:
!InsertRecord EQUATE (1)
!ChangeRecord EQUATE (2)
!DeleteRecord EQUATE (3)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar el Form a "Solo lectura" ante una condición===
ThisWindow.Init
! [Priority 4950] La prioridad es importante!
IF FAC:facturado = 1 THEN SELF.Request = ViewRecord.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Truco: Llamar al form para insertar desde el menú ===
Podríamos asumir que si la GlobalRequest está en blanco es que se lo
llamó para insertar, evitaríamos asi el paso por un Browse
!Al principio del Init (antes de Snap-Shot global Request):
!If GlobalRequest = 0 Then GlobalRequest = InsertRecord.

Si la tabla tiene una clave Autonumber, se complica un poco mas, sería asi:
!Al principio del Init (antes de Snap-Shot global Request):
!Por ej prioridad 300
If GlobalRequest = 0
GlobalRequest = InsertRecord
DesdeMenu# = True
End

!Después de Open Files:
!Por ej prioridad 7800
If DesdeMenu# = True
Access:People.PrimeAutoinc()
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Llamar a un form para editar una tabla con un solo registro ===
Típicamente una tabla de parametros, obviamente no queremos pasar por un browse
WindowManager.Init,
!al principio
GlobalRequest = ChangeRecord

!Luego de Open files
Set(Tabla)
access:Tabla.Next()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se confirma un Form ===
ThisWindow.TakeCompleted
! [Priority 2800]
!ANTES DE QUE SE CONFIRME LA GRABACION
! Parent Call
ReturnValue = PARENT.TakeCompleted()
! [Priority 6300]
!YA SE GRABÓ EL REGISTRO.
!VERIFICAR SI SELF.Response=RequestCompleted A VER SI SE GRABÓ OK.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se cierra un Form ===
ThisWindow.Kill
!VERIFICAR LOS valores de SELF.Request y SELF.Response
!Para decidir que acciones tomar
!Este punto ya es "demasiado tarde" para hacer algo antes de que se grabe el registro
!Para eso usar TakeCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cuando se produce el borrado sin abrir el Form ===
Si tenemos un form para actualizar una tabla, y definimos que el borrado sea Confirmando (Standard Warning) o Automático (Automatic Delete), y necesitamos ejecutar un código en el form cuando se efectúe el borrado, usamos:

ThisWindow.PrimeUpdate, después del Parent Call

if self.request = DeleteRecord and self.Response = RequestCompleted
!lo que quiero hacer
end

Hay que tener en cuenta que el borrado de un registro no pasa por el TakeCompleted, excepto cuando se usa la ventana del form (Display Form).

Aporte de Gustavo Olmedo [http://www.evolutionconsulting.com.ar/downloads.html (Evolution)] (Evolution Consulting)]

=== Chequear si se modificó cualquier campo del FORM ===

En el TakeCompleted ponemos el siguiente código:

IF NOT SELF.Primary.Me.EqualBuffer(SELF.Saved)
! message('Cambio')
END

Aporte de Pablo Guarnieri y Gustavo Olmendo

=== Chequear si se modificó un campo del FORM ===

IF CLI:Campo <> history::CLI:Record.Campo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Forzar grabación del form ===

Este código sirve para grabar el form inclusive cuando el usuario lo cancele

TakeCloseEvent PROCEDURE(),BYTE,VIRTUAL
IF loc:condicion
SELF.CancelAction = Cancel:Save !immediate save (no confirmation)
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Filtrar un Drop Combo ===

Este código sirve para filtrar un drop combo utilizando pro:sqlfilter, suponemos que en
la variable loc:filtro se arma el filtro ha enviar, algo asi como: 'a.idtercero = <39>90909090<39>'
FDCB14 es el nombre del objeto el cual se puede verificar en propiedades --> clases.

ApplyFilter PROCEDURE,VIRTUAL
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = <39>'&clip(loc:filtro)&'<39>'
IF FILEERRORCODE()
FDCB14::View:FileDropCombo{PROP:SQLFILTER} = ''
END

Ivan Dario Benitez Delgado [http://www.doxasistemas.com (Doxa Sistemas)]

=== Obtener el número autogenerado por SQL Server en tablas con identity ===
Después del Parent Call, en el TakeCompleted del Form:
IF Self.Response=RequestCompleted AND Self.Request = InsertRecord
Tabla{prop:Sql}= 'SELECT @@IDENTITY' !busco el número que se asignó
IF not Access:Tabla.Next()
!en el primer campo de Tabla viene cargado el número autogenerado
else
message('Error')
end
end

Tomado de una respuesta de Fernando Cerini en el foro.

== REPORTES Y PROCESOS ==
=== Ocultar un campo del detalle según condición ===
!En TakeRecord, antes del Print (Process Manager)
IF <CONDICION>
REPORT$?Control{PROP:HIDE}=True
ELSE
REPORT$?Control{PROP:HIDE}=False !si la condición no se cumple, vuelvo a hacer visible el control
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Saber si un proceso se completó ===
O sea que no se salió por el botón de cancelar
!En el WindowManager.Kill
IF Self.Response = RequestCompleted

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Inicializar el número de página ===
!WindowManager.OpenReport, despues del Parent Call
IF ReturnValue = Level:Benign
Report{PROP:NextPageNo} = xxx
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Deshabilitar la impresión ===
!Local Objects, Abc Objects, Previewer, Display, After ParentCall.
!impresión prohibida
ReturnValue = False

Por ejemplo:

If ReturnValue and DemoVersion
ReturnValue = False
Message("Está utilizando una versión del demo, no puede imprimir este documento !")
End
Aporte de Olivier Cretey

Otra opción, en Previewer.TakeAccepted, antes del Parent Call
IF CLIP(ACCEPTED(){PROP:TIP}) = 'Print this report' THEN RETURN LEVEL:BENIGN.

O sea pregunto por el Tool Tip del botón que se ha presionado. Ojo, si lo tienes traducido tienes que cambiar el 'Print this report' por tu Tool Tip.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un Proceso ===
!Windows Manager -->> Validate Records -->> [Priority 5600]
If <Condición de Filtro>
Return Record:Filtered
Else
Return Record:OK
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Habilitar o deshabilitar el Print Preview ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
Self.SkipPreview = Loc:Preview

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Cantidad de Páginas generadas ===
!Windows Manager -->>Ask preview -->> [Priority 5000]
ENDPAGE(SELF.Report)
Loc:Paginas = RECORDS(SELF.PreviewQueue)

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Imprimir un Transporte ===
Necesitas crear 3 details.
DetailDatos
DetailTransporte: aca van las variables locales con los totales
DetailSalto: este detail es vacío y con la propiedad PageAfter

En el embed TakeRecord (antes de los PRINTs) habría que hacer algo asi
LOC:Fila += 1
If LOC:Fila % 28 = 0 !28 líneas por página...
PRINT(RPT:DetailSalto)
PRINT(RPT:DetailTransporte)
LOC:Fila = 1
End
LOC:Total += LIBRO:Total
PRINT (RPT:Detalle)
RETURN LEVEL:Benign

Marcelo Martínez
y [mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Acelerar las actualizaciones ===
Para que los procesos que agreguen registros funcionen mas rápido hay que agregar un Logout o Stream en Init y un Commit o Flush en el kill
(El Evolution Tools tiene una extension que hace eso mismo.)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Se imprime o se Cancela? ===
Los embeds son
ABC Objectd
--WindowManager(ReportManager)
--CancelPrintReport
-Se Cancela

--PrintReport
-Se imprime

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Recorrer la cola de las páginas ===
Cada página del reporte genera una imagen .WMF, la cual se guarda en el directorio temporal.
Con este ejemplo se puede recorrer la cola donde se guardan los nombres de estos archivos. Ésto es lo que usa por ejemplo el Evolution Mail Template para enviar estas páginas por mail.
Previewer.Open PROCEDURE
....
loop a# = 1 to RECORDS(SELF.ImageQueue)
get(SELF.ImageQueue,a#)
message(SELF.ImageQueue)
end

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir una Queue ===
La mejor forma de hacerlo en Clarion6 es en Report Properties - General -
Datasource: Queue.

Yo generalmente pongo los parametros en la ventana y cargo la queue en el
evento accepted del PauseButton.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir un SQL ===
Lo que yo hago es poner todos los parámetros en la ventana del reporte.
En el accepted del boton de pausa cargo la cola de memoria con:

SQL{PROP:SQL} = !aca armo el string SQL
IF ERRORCODE() THEN STOP( FILEERROR()).
FREE(ColaMemoria)
LOOP
NEXT(SQL) !O ABC, como prefieras...
IF ERRORCODE() THEN BREAK.
ColaMemoria :=: SQL:Record
ADD(ColaMemoria)
END

El reporte lo configuro para trabajar con la cola (data source) y en el
Detail del reporte pongo los campos de la cola de memoria.
Lo ideal es tener una cola de memoria global con el atributo thread y usar
siempre la misma para todo.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar o hacer cortes de control manuales en reportes ===
En TakeRecord, antes del Print.

!Actualizar contadores

IF AUX <> CampoCorte
IF AUX <> 0 !para evitar la primera vez
!Inicializar los contadores
END
AUX=CAMPO
!SE VIENE EL CORTE
END

Este método TakeRecord se usa también para actualizar cualquier variable calculada antes de la impresión de la banda de detalle.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo BLOB ===
Este código va en el método TakeRecord, antes del PRINT

Report$?Image1{PROP:NoWidth} = TRUE
Report$?Image1{PROP:NoHeight} = TRUE
Report$?Image1{PROP:ImageBlob} = STU:Photograph{PROP:Handle}
IF Report$?Image1{PROP:Height} > 1000
AspectRatio$ = Report$?Image1{PROP:Width}/Report$?Image1{PROP:Height}
Report$?Image1{PROP:Height} = 1000
Report$?Image1{PROP:Width} = 1000 * AspectRatio$
END
IF Report$?Image1{PROP:Width} > 1000
AspectRatio$ = Report$?Image1{PROP:Height}/Report$?Image1{PROP:Width}
Report$?Image1{PROP:Width} = 1000
Report$?Image1{PROP:Height} = 1000 * AspectRatio$
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Impresión de imagenes desde Campo CSTRING ===
Este caso es similar al anterior, pero en el campo se encuentra el path donde está la imagen
!En el método TakeRecord, antes del PRINT
Report$?Image1{PROP:Text} = PRO:Foto

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Evitar el cartel "No records to process" en un proceso ===
!En el metodo TAKE NO RECORDS poner un RETURN antes del parent call.
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Imprimir el reporte en blanco, cuando no hay registros ===
En WindowManager. Next, antes del Parent Call con prioridad 500.

! [Priority 500] antes del Parent Call
If Primera=0 !variable local byte
Primera=1
SELF.Process.RecordsProcessed = 1
Return Level:Benign
End
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Cuando hay filtros y rangos, esta solución suele duplicar el primer registro del detalle.
Para Solucionar esto en ProcessManager NextPROCEDURE(BYTE ProcessRecord) con prioridad 7500 se debe colocar el siguiente código:

IF ReturnValue = 0 AND LOC:Primera = 0 THEN !Si hay un registro
LOC:Primera = 1 !Dejo al reporte seguir su curso normal
END

Mario Wojcik

=== Detectar el último registro en un process o Reporte (fin de archivo) ===
ThisProcess.Next PROCEDURE(BYTE ProcessRecords=True)
! [Priority 5001]
If ReturnValue = 5 !Level:Notify
!Fin del proceso
End

Esto por ejemplo es muy útil para cambiar etiquetas en los totales generales del reporte, en un page footer
ThisReport.Next PROCEDURE(BYTE ProcessRecords)
....
! [Priority 5001] despues del Parent Call
If ReturnValue = 5 !Level:Notify
REPORT$?LabelTotal{prop:text}= 'Total'
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Reporte con múltiples detalles ===
Por Ejemplo:

Viajes
|-->pasajeros
|-->comisiones

Habría que poner solo la tabla viajes en el Table Schematic. Pasajeros y Comisiones en Other Tables

En el reporte crear 3 details, uno para cada tabla.

En ThisReport.TakeRecord, antes de los PRINTs

! [Priority 5500]
PRINT(RPT:DetailViaje)
CLEAR(PAS:RECORD)
PAS:idViaje = VIA:IdViaje
SET(PAS:ClavePorViaje, PAS:ClavePorViaje)
LOOP UNTIL ACCESS:Pasajeros.Next() OR PAS:idViaje <> VIA:IdViaje
PRINT(RPT:DetailPasajeros)
END
!Y lo mismo para las comisiones
CLEAR(COM:RECORD)
COM:idViaje = VIA:IdViaje
SET(COM:ClavePorViaje, COM:ClavePorViaje)
LOOP UNTIL ACCESS:Comisiones.Next() OR COM:idViaje <> VIA:IdViaje
PRINT(RPT:DetailComisiones)
END
Return Level:Benign !ya imprimí todo

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Otra alternativa podría ser utilizando el Template '''ReportChildFiles''' (desde version 6.X ?) ya que puede ser utilizado mas de una vez en un mismo reporte, apuntando cada instancia a un archivo "hijo" diferente.
Es fácil de configurar: Se debe seleccionar la tabla CHILD y la PARENT. En el reporte hay que definir el REPORT DETAIL (para el CHILD) y ponerle algún nombre en el label que luego debe ser configurado en el Template.

Jose Sturniolo

=== Imprimir exactamente lo que estamos viendo en el browse ===
En el browse pones un botón que llame al reporte y en parameters:
(Brw1.view{PROP:Filter}, Brw1.view{PROP:Order})

En las propiedades del reporte o proceso:
Prototype: (STRING, STRING)
Parameters: (FILTRO, ORDEN)

En WindowManager.Init, al final:
ThisReport.SetFilter(FILTRO) ! o ThisProcess....
ThisReport.SetOrder(ORDEN)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Cambiar tamaño de hoja en el reporte ===
En el embed WindowManager 'OpenReport', PRIORITY(7500)

IF ~ReturnValue
SETTARGET(REPORT)
CASE PRINTER{PROPPRINT:Paper}
OF PAPER:LETTER
REPORT{PROP:height} = 8500
?Footer{PROP:Ypos} = 9000
OF PAPER:LEGAL
REPORT{PROP:height} = 11000
?Footer{PROP:Ypos} = 11500
etc.
END
SETTARGET()
END

etc. con los tamaños de papel que quieras.
Esto acomoda el contenido del reporte en run-time, haciéndolo ocupar más
o menos hoja según sea el largo de la misma. Chiche, ¿no?.
Ajustá los valores a tus necesidades.
Para tener en cuenta: el usuario tiene que elegir el tamaño del papel
ANTES de generar el reporte. Si ya está en la vista previa, el reporte ya
está generado, por lo tanto si cambia el largo de hoja ahí, no se lo va a
tomar.

Jorge Lavera

=== Cambiar Impresora ===
En Global Properties-->Embeds-->Before Global INCLUDEs
INCLUDE('PRNPROP.CLW')
!para poder acceder a las propiedades de las impresoras

Luego en el Reporte en
ThisReport.Open()
!para guardar la impresora por defecto de Windows
GLO:IMPRESORA = PRINTER{PROPPRINT:Device}
!Seteo la impresora que quiero usar.
!El string debe ser igual al que figura en IMPRESORAS
PRINTER{PROPPRINT:Device} = 'HP Deskjet 840'

y por último en
ThisReport.Kill()
!para devolver la impresora por defecto de windows
PRINTER{PROPPRINT:Device} = CLIP(GLO:IMPRESORA)

Guillermo Ondetti, Pragma Sistemas

=== Detectar Salto de Página de Reporte ===
Este sería el codigo, siempre y cuando no tengas break groups (ahi se complica bastante)
El embebido es TakeRecord en ABC, o Before Print Detail en Legacy.
VarLocal += REPORT$?Detail{PROP:height}
IF VarLocal > REPORT{PROP:height}
VarLocal = REPORT$?Detail{PROP:height}
!En el siguiente PRINT Cambia la página...
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Aplicar Filtro sql en el reporte ===
Se arma el filtro si se quiere en una variable por ejemlo loc:sql
y se aplica en Local Objects --> Abc Objects -- > Process manager --> Apply Filter antes del parent call, asi:

Process:View{Prop:SqlFilter}=Loc:SQL

Ivan Dario Benitez

=== Imprimir mas de una Copia por Reporte ===
Se tiene que poner en el Window Manager --> Open (Prioridad(5000))

PRINTER{PROPPRINT:COPIES}=n !! n = Cantidad de copias

Luego es aconsejable poner en el Window Manager --> Kill

PRINTER{PROPPRINT:COPIES}=1

ASC Sergio D. Caballero

== BROWSES ==
=== Actualizar un campo al hacer click en una columna ===
Por ejemplo, en People.app

En el evento Accepted del Control del browse.
!Si se hizo click en el campo
IF ?BROWSE:1{PropList:MouseDownField}= 4
ACCESS:PEOPLE.Fetch(PEO:KeyId)
PEO:Gender = 'X'
ACCESS:PEOPLE.Update()
BRW1.ResetFromFile()
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtrar con SQL===
A veces es muy útil aplicar un filtro SQL encima de todos los demas filtros que ya tenga el browse, por ejemplo para filtrar por usuario, por sucursal, etc.
Yo normalmente le pongo el filtro SQL en el método windowmanager.Reset,
prioridad 5000
BRW1.View{PROP:SQLFILTER}='+ filtro sql'
Luego se refresca normalmente, o manualmente con ThisWindow.Reset (1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Activar un Browse invisible, o sea que está en otro TAB ===
Esto es especialmente útil cuando necesitamos que se ejecuten totalizadores del browse aunque éste no esté visible en la pantalla.
!ABC Objects ->
Local Objects ->
Windows Manager->
Init Priority[7500]
BRW2.ActiveInvisible = True

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Copiar un Registro ===

!ABC Objects -> Browse on Clientes -> PrimeRecord Priority[4500]
IF Loc:Copiar
SuppressClear = True
CLEAR(Loc:Copiar)
END!IF

!Control Events --> Copiar -> Accepted -> Priority[5000]
Loc:Copiar = True
POST(EVENT:Accepted,?UseDelBotonAgregar)

!Notas: Crear Variable Local Loc:Copiar
! SuppressClear es un Parametro de BrowseClass.PrimeRecord

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Deshabilitar el Popup ===
!ABC Objects -> Local Objects -> Windows Manager-->>Init Priority[9001]
Brw1.Popup.KILL

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Ordenamiento Dinámico ===
En Clarion6 se puede hacer automáticamente con la opcion Sort Headers.
Si se quiere hacer desde código para ordenar por cualquier campo, se puede utilizar:
Brw1.SetOrder('TAB:Campo')
Brw1.ApplyOrder()
ThisWindow.Reset(1)
Por ejemplo si quisiera emular un ordenamiento con el doble click sobre una columna, habría que alertar el doble click en al browse, y el código sería mas o menos asi.
Control Event -> Browse:1 ->Alert Key [4500]
! Código usado para cambiar el Orden del Browse
! cuando se hace doble click en la columna
IF KEYCODE()=MouseLeft2
?Browse:1{PropList:Header,1} ='Codigo'
?Browse:1{PropList:Header,2} ='Nombre'
Loc:Columna = ?Browse:1{PropList:MouseDownField}
CASE Loc:Columna
OF 1
?Browse:1{PropList:Header,1} ='<<<CODIGO>>>'
Brw1.SetOrder('LCA:LOCALIDAD')
OF 2
?Browse:1{PropList:Header,2} ='<<<NOMBRE>>>>'
Brw1.SetOrder('UPPER(LCA:NOMBRE)')
END!CASE
Brw1.ApplyOrder()
ThisWindow.Reset(1)
END!IF

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Locator Múltiple ===
Por ejemplo, para posicionarme en un código de cuenta contable:
Lo que podrías hacer es poner una variable string sobre el browse y poner un
código mas o menos asi en su accepted del entry

!Asumiendo que cada código tiene cuatro dígitos
!Revisar la sección String Slicing en el Help
Cue:Cuenta = Loc:Cuenta[1:4]
Cue:SubCuenta = Loc:Cuenta[5:8]
Cue:SubSubCuenta = Loc:Cuenta[9:12]
SET(Cue:PorCodigo,Cue:PorCodigo)
Access:Cuentas.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

Otro ejempo, en un browse de órdenes, posicionarse según el nombre del cliente

CLI:Nombre = LOC:Cliente
SET(CLI:PorNombre, CLI:PorNombre)
ACCESS:Clientes.Next()

ORD:CodCliente = CLI:CodCliente
SET(ORD:PorCliente, ORD:PorCliente)
ACCESS:Ordenes.Next()

BRW1.ResetFromFile()
ThisWindow.Reset(1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Pintar un browse según un campo ===
Por ejemplo cuando vemos las facturas de un Cliente se repite el nombre, este código pinta diferente cada grupo de nombres.
Primero hay que ponerle el atributo color al campo que necesites pintar, desde list box format.
Luego va el siguiente código, en WindowManager.Reset antes del Parent Call

Aux = ''
LOOP F#= 1 TO RECORDS (BRW1.Q)
GET(BRW1.Q, F#)
IF Aux <> BRW1.Q.CLI:Nombre
Col# = 1- Col#
Aux = BRW1.Q.CLI:Nombre
END
If Col#
BRW1.Q.CLI:Nombre_NormalBG = COLOR:SILVER
Else
BRW1.Q.CLI:Nombre_NormalBG = COLOR:WHITE
End
PUT(BRW1.Q)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Refrescar un browse desde otra ventana ===
Lo mas fácil sería usando NOTIFY.
En la Ventana 1 (la del browse a refrescar)
WindowManager.Init
GLO:THREAD = THREAD() !VARIABLE GLOBAL LONG

Window Events
Notify
BRW1.ResetfromBuffer() ! o ThisWindow.Reset(1)?

En la ventana 2, cuando se necesite refrescar la 1
NOTIFY (999, GLO:THREAD)

Puede ser 999 o cualquier cosa ya que en éste caso no estoy usando ese parámetro.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Iniciar el browse en un Tab determinado ===
En ThisWindow.Init, al final
SELF.FirstField = ?Tab:4 !Use del tab

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Actualizar el resultado de un totaling del browse de detalle, en el Encabezado ===
En el Browse de abajo (el de detalle)
ResetFromView, prioridad 4500 - La prioridad es importante
GET(Encabezado, ENC:Por_Numero)
ENC:Total = loc:total !ÉSTA ES LA VARIABLE DEL TOTALING
PUT (Encabezado)
IF ERRORCODE() THEN MESSAGE(ERROR()).
BRW1.ResetFromFile()

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtro Dinámico ===
Poner un control Text donde el usuario pueda escribir cualquier filtro
X# = EVALUATE(Filtro)
IF ERRORCODE()
MESSAGE('ERROR DE SINTAXIS EN EL FILTRO: ' & ERROR(), 'ATENCION')
ELSE
BRW1.SetFilter(Filtro)
ThisWindow.Reset(1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Rangos múltiples y dinámicos ===
Si tenemos una clave con varios componentes, en Actions del browse ponemos un rango por current value, elegimos el componente de la clave hasta el cual queremos hacer el rango.
El siguiente componente de la clave se puede usar como locator.
Por ejemplo si tenemos una clave con Tipo+Provincia+Localidad, hacemos un rango de current value por provincia y nos queda un locator por localidad.

BRW1.ApplyRange PROCEDURE
! [Priority 5000]
RAN:Tipo= loc:tipo
RAN:Provincia=loc:provincia
SELF.Order.Rangelist.AssignLeftToRight()

En algun boton de aplicar rango
BRW1.ApplyRange()
ThisWindow.Reset(1)
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, deshabilitar condicionalmente la actualización de registros ===
IF <Condición>
!Deshabilitar Actualización
BRW1.InsertControl=FALSE
BRW1.ChangeControl=FALSE
BRW1.DeleteControl=FALSE
ELSE
BRW1.InsertControl=?INSERT
BRW1.ChangeControl=?CHANGE
BRW1.DeleteControl=?DELETE
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Detectar el cambio de registro seleccionado en un Browse ===
Ejemplo mostrar una foto del cliente al costado del browse
BRW1.TakeNewSelection PROCEDURE
! [Priority 5001]
!EN CLI:FOTO ESTA EL PATH COMPLETO DE LA FOTO
IF CLI:FOTO <> ''
?Foto{PROP:TEXT}= CLI:FOTO
ELSE
?Foto{PROP:TEXT}= ''
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Filtros complejos en un browse ===
Ejemplo: Mostrar sólo los clientes que tengan alguna orden

BRW1.ValidateRecord PROCEDURE
! [Priority 5001]
!FILTROS COMPLEJOS
!EJ: MOSTRAR SOLO LOS CLIENTES QUE TENGAN ALGUNA ORDEN
CLEAR(ORD:RECORD)
Ord:CodigoCliente=CLI:ID
SET(Ord:FK_Ordenes_CLIENTES,Ord:FK_Ordenes_CLIENTES)
NEXT(ORDENES)
IF ERRORCODE() OR (Ord:CodigoCliente <> CLI:ID) THEN RETURN Record:Filtered.

RETURN Record:OK
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Poner un campo "saldo" en un browse ===
ThisWindow.Reset, antes del Parent Call

S#=0
LOOP F#= 1 TO RECORDS (Queue:Browse:1)
GET(Queue:Browse:1, F#)
S# += Queue:Browse:1.ORD:Total_Impo
Queue:Browse:1.Saldo = S#
PUT(Queue:Browse:1)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Resetear/inicializar un Locator ===
El método a ejecutar es
BRW1::Sort1:Locator.Set

Los nombres de las instancias de Locators por cada TAB se llaman:
BRW1::Sort0:Locator.Set
BRW1::Sort1:Locator.Set
BRW1::Sort2:Locator.Set
!etc..

Luego sería bueno volver a poner el foco en el browse para que se pueda seguir usando el locator normalmente
select (?Browse:1)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== En un Browse, disparar un procedimiento después de generar un alta, modificación, etc. ===

El proceso a disparar se hace desde el browse, la idea es saber si del Form volvió aceptando o canceló la actualización. El punto embebido es:

Local Objects
BRW1 (o el objeto de tipo browse class que sea)
ResetFromAsk (después del Parent.call)

IF VCRRequest=VCR:None
CASE Request
OF InsertRecord
IF Response = RequestCompleted
!Hacer algún proceso
END
END
END!

=== Inserción continua refrescando el Browse ===
Este otro método es similar al anterior, también sirve para lo mismo.
Agrego un ejemplo para hacer inserción continua en el Form y además se vaya actualizando el browse

ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)
! Cuidado que existen dos ThisWindow.Run, seleccionar el correcto
! [Priority 8500]
IF Request = InsertRecord And ReturnValue = RequestCompleted
POST(EVENT:ACCEPTED, BRW1.InsertControl)
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Posicionar un browse en un registro seleccionado ===

Al abrir un browse a veces necesitamos posicionar el selector en un registro determinado, tal como lo hacen los browses para selección.

Por ejemplo para posicionar el browse en el registro más cercano al proporcionado por el usuario:

ThisWindow.Open PROCEDURE
! Start of "WindowManager Method Data Section"
! [Priority 5000]
! End of "WindowManager Method Data Section"
CODE
! Start of "WindowManager Method Executable Code Section"
! [Priority 500]
CLI:cliente= LOC:Cliente
ACCESS:Clientes.fetch(CLI:Kcodigo)
BRW1.selecting=1
! Parent Call
PARENT.Open()
! [Priority 6300]
BRW1.selecting=0

Otra idea, propuesta por Matías Flores:
Ubicarlo por el valor de los campos de la clave. Por ejemplo, si en un browse de clientes querés posicionarte en un cliente que tiene un código determinado (Loc:Codigo):

Cli:Codigo = Loc:Codigo
SET(Cli:PorCodigo,Cli:PorCodigo)
Access:Clientes.Next()
BRW1.ResetFromFile()
ThisWindow.Reset(True)

un ejemplo parecido al anterior, pero en legacy, sería:
CLI:Codigo = LOC:Codigo
BRW1::LocateMode = LocateOnValue
DO BRW1::LocateRecord

Una opción más es:
En el WindowManager.init, antes de Initialize browse y después de OpenFiles, colocar el siguiente código:

BRWx.StartAtCurrent = True
TAB:Campo = Valor_Buscado
get(Tabla, TAB:Key_que_ordena_por_Campo)

=== En Legacy, activar un filtro sobre un browse abierto. ===

Esto se pone en el punto embebido "Before opening VIEW". Acordarse de BINDEAR todas las variables que se necesiten.

!---ANTES DE ABRIR EL VIEW---
if SoloPendientes then
BRW2::View:Browse{Prop:Filter} = |
'MER:numertra = BRW2::Sort1:Reset:TRA:numertra AND MER:saldunid <> 0'
end

=== Campos Calculados ===
Por ejemplo cuando quieras presentar el nombre completo sin los espacios de un campo a otro. Pones en el browse una variable local.
En el SETQUEUERECORD (4500)

Loc:ApellidoNombre = clip(CON:Apellido) & ' ' & CON:Nombre

!(Tip de Alex B.)

=== Código antes y después de una actualización DESDE UN BROWSE. ===

- Antes de la llamada al Form de actualización
! ABC Objects -> Browse on Archvivo ->Ask Priority[4500]
IF Request = InsertRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR ALTA ','ALTA',ICON:EXCLAMATION)
ELSIF Request = ChangeRecord
BEEP
MESSAGE('ATENCION: SE VA A ACTUALIZAR ','CAMBIO',ICON:EXCLAMATION)
ELSIF Request = DeleteRecord
BEEP
MESSAGE('ATENCION: SE VA A DAR DE BAJA ','BAJA',ICON:EXCLAMATION)
END

- Después de la actualización del registro
!ABC Objects -> Browse on Provincia ->Ask Priority[5500]
IF ReturnValue =1
BEEP
MESSAGE('ATENCIÓN: SE ACTUALIZÓ EL REGISTRO','ACTUALIZÓ OK',ICON:EXCLAMATION)
ELSIF ReturnValue =2
BEEP
MESSAGE('SE CANCELÓ LA ACTUALIZACIÓN DEL REGISTRO','ATENCIÓN',ICON:HAND)
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

=== Deshabilitar/esconder (cambiar a PROP:HIDE) un control si el browse está vacío - pe. un botón-. ===

En el Browse.UpdateWindow(), última prioridad:
?TuBoton{PROP:Disable}=Choose(Self.Records()<>0,0,1)

===Iniciar un browse con un orden "sort header"===

Si queremos que al abrir un browse el mismo se encuentre ordenado como si hubiéramos hecho click en el sortheader, ponemos luego del generated code del evento openwindow lo siguiente:

BRW1::SortHeader.SetSortFromString('TAB:Campo')

donde TAB:Campo es uno de los campos de la tabla que estoy mostrando en el browse.

== EDIT IN PLACE==
=== Edit in Place o Form, según condición ===
En BrowseClass, Ask, antes del Parent Call
If ?browse:1{proplist:mousedownfield} = 5
Self.AskProcedure = 0
else
Self.AskProcedure = 1
end

Puede usarse cualquier condición, en este caso si el usuario hace doble click en la 5a columna se usa edit in place, sino se usa el formulario

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Desactivar Edit in Place de un campo según condición ===
En las propiedades del EIP del campo admitir la edición del mismo.

En el EIP Field Manager del campo, TakeEvent, antes del Parent Call
if Queue:Browse:1.TAB:Campo_de_mi_Tabla > 0
Return EditAction:Cancel
thiswindow.reset(true)
end

En este ejemplo sólo permito que pueda editarse el campo si el valor actual del mismo es <= 0

=== Inicializar campos al insertar registro ===
O sea lo que hace el Prime Fields en las formas
ABC Objects
BROWSE ON TABLA using ?LIST
PrimeRecords
Después del Parent Call
TPS:TuCampo= valor inicial

=== Poner Disable un campo===
Local Objects -->>
Abc Objects -->>
EIP Field Manag...for Field NombreCampo
-->>Init [Priority 5001]
If SELF.FEQ then SELF.FEQ{Prop:Disable} = true.
También se pueden cambiar otras propiedades como por ejemplo UPPER (mayúsculas) o READ ONLY (sólo lectura)
If SELF.FEQ
SELF.FEQ{prop:readonly} = TRUE
SELF.FEQ{prop:upr} = TRUE
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Campos Calculados ===
Por ejemplo Modificar el total cuando cambia la cantidad.
Primero agregar el campo cantidad en Column Specific
EditInPlace::DET:Cantidad.TakeEvent PROCEDURE(UNSIGNED Event)
....
!Despues del Parent Call

CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
BRW1.Q.DET:Total = BRW1.Q.DET:Cantidad * BRW1.Q.DET:Importe
!Etc... siempre haciendo referencia a los campos de la cola BRW1.Q.
END
[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validaciones ===
Por ejemplo una validación básica de un número requerido
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:NroDocumento
-->>Take Event [Priority 5001]
! Validación del nro. de Documento
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
UPDATE(Self.Feq)
IF NOT BRW1.Q.Cli:NroDocumento
BEEP(BEEP:SystemExclamation) ; YIELD()
MESSAGE('No se informó el número de Documento', |
'Atención!', ICON:Exclamation)
ReturnValue = EditAction:NONE
Return ReturnValue
END
END

Validación con un lookup a una tabla
!Local Objects -->> Abc Objects -->> EIP Field Manager for Field Cli:Provincia
-->>Take Event [Priority 5001]
!Valida Provincia
CASE ReturnValue
OF EditAction:None OROF EditAction:Cancel
ELSE
Update(Self.Feq)
Pro:Codigo= BRW1.Q.Cli:Provincia
IF Access:Provincia.Fetch(Pro:PorCodigo)
GlobalRequest = SelectRecord
SelectProvincia
IF NOT Pro:Codigo
ReturnValue = EditAction:NONE
Return ReturnValue
ELSE
BRW1.Q.Cli:Provincia = Pro:Codigo
BRW1.Q.Pro:NOMBRE = Pro:NOMBRE
END
END
END

Gustavo Olmedo [http://www.templatesclarion.com.ar/downloads/ (Evolution)]

== GLOBALES ==

=== Cambiar los mensajes de error del SQL ===
Con cambiar los TRN no alcanza para ese tipo de errores.

Lo que se puede hacer es determinar el mensaje que viene desde el SQLServer
para mostrar un mensaje mas amigable.

El embebido es
Global Embeds:
Global Objets
Abc Objects
Error Manager
TakeNotify
!Antes del Parent Call
IF INSTRING('COLUMN REFERENCE', SELF.SubsString(),1,1)
SELF.Msg('El registro no puede borrarse porque tiene datos de detalle
que dependen de él. |Presione [OK] para una descripción detallada del
error',SELF.GetErrorBufferTitle(),ICON:Exclamation,Button:OK,BUTTON:OK,0)
END

Hay que armar un IF de estos por cada tipo de error...

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

=== Validación de campos (Edit in place o Form)===

Para validar campos lo ideal es usar los Global Embeds
Global Embeds
Field Level Validation
Tabla
Campo
IF <No cumple Condición>
Message('error...')
RETURN Level:Notify
END

Esto te va a funcionar "para siempre" ya sea que uses Edit in place, un Form
o código embebido para actualizar la tabla.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Templates gratuitos

2015-03-07T22:39:52Z

Jorge Brugger: Texto reemplazado: «www.evolutionconsulting.com.ar/download.html» por «www.templatesclarion.com.ar/downloads/»

Existen diversos templates adicionales para Clarion que extienden notablemente su funcionalidad.

Esta sección debería incluir el nombre, una breve descripción del mismo, las versiones compatibles de Clarion y el sitio desde donde puede descargarse.

== ABCFree ==

Es el conjunto de templates y librerias gratuitas más interesante para Clarion.
Esta disponible en http://www.authord.com/Clarion . Frecuentemente actualizado y cubre todos los niveles de programación con Clarion: bajo y alto nivel. Fundamental

== Botpl ==
Sitio web: http://comsoft7.com/Botpl.htm

Incluye:

AppSpecsControl, BarCodeLabelControl,BrowseSearch,LabelControl,ListHorzRuntime,ListVertRuntime, PerCentGraph,PerCentGraphVert,Bo_resc 32bit only.

== Clarion Australia ==
http://www.comformark.com.au/

Clarion Autralia

== Clarion FreeImage Project ==

http://www.clarionfreeimage.com/

Conjunto de clases y un template que implementa la librería open source FreeImage para procesamiento de imágenes en Clarion 5.5 y 6.x.
Tiene una seccion[http://www.clarionfreeimage.com/related.html] con varias clases y ejemplos: escanear con eztwain, enumerar monitores, barras de progreso e iconos en Barras de estado, botones con alpha blend y smooth scrolling control

== Evolution Consulting ==

[http://www.templatesclarion.com.ar/downloads/ Seccion Downloads]

[http://www.templatesclarion.com.ar/downloads/ MENSAJES DE CLARION EN ESPAÑOL ]

Traducción al español de todos los botones, mensajes, etc... que se utilizan en la generación de los Wizzards. Actualizado siempre a la última version de Clarion 6.1. Una herramienta indispensable para nuestra comunidad Latinoamericana.

Para instalar simplemente copie los archivos al directorio Clarion6\LIBSRC.

También agregamos la traducción del Calendario ABUTILUI

[http://www.templatesclarion.com.ar/downloads/ EVOLUTION MAIL TEMPLATE (Clarion 5.0) (Clarion 5.5) (Clarion 6.1) (Clarion 7.2)]

El producto está compuesto por un Control Template para envío de mail y un Extension Template para enviar los WMF del preview por mail con selector de página. Permite guardar el wmf en un word y generar el attach automáticamente dentro de un mail o bien dejarlo en segundo plano del aplicativo.

[http://www.templatesclarion.com.ar/downloads/ EVOLUTION TOOLS (Clarion 5, 5.5 y 6.1) ]

Incluye el Control Template tan solicitado "página de páginas" en los reportes.

Evita el mensaje 'No hay registros para procesar'

STREAM y FLUSH Automático en los process.

Control template que nos permite pegar un calendario en una windows. La diferencia de este template con otros free es que éste agrega el calendario dentro de la misma ventana como "Control Template", los otros son simplemente procedimientos aparte.

Enter por Tab mejorado.

Imprimir Página Desde - Hasta desde Preview.

Configuración de Impresora en Preview.

Impresión Página Actual en Preview.

Este template se irá actualizando periódicamente, se aceptan sugerencias...

[http://www.templatesclarion.com.ar/downloads/ ARBOL DE PROCEDIMIENTOS ]

Pequeño Utility template que genera el árbol de procedimientos en un archivo NombreAPP.TXT

[http://www.templatesclarion.com.ar/downloads/ CLARION BATCH COMPILER (beta 11) ]

Este excelente producto de Cristian Olsen compila en modo Batch todos los APPs del sistema. Compatible con todas las versiones de Clarion

[http://www.templatesclarion.com.ar/downloads/ INFORMACION DE PROCEDIMIENTOS ]

Template muy útil para volcar información detallada de los procedimientos de un app, con nombre, tipo, prototipo, ultima modificación, si es local o externo, etc (Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.templatesclarion.com.ar/downloads/ GRABAR TAB ELEGIDO ]

Se agrega a los browses con múltiples tabs y graba como se lo utilizó la ultima vez para cuando se reingrese, se pare nuevamente en ese tab(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.templatesclarion.com.ar/downloads/ TRACE PROCEDIMIENTOS ]

Este es mas complejo, es global y se indica un procedimiento que es le que recibirá el procedimiento y app por el que se está pasando, este procedimiento (que el usuario debe crear) es que debe grabar en un archivo deseado, el resultado. En mi caso graba en un txt, el procedimiento, app, fecha y hora, y tengo una variable en un INI para indicar si debe grabarse o no.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.templatesclarion.com.ar/downloads/ CAMPOS OBLIGATORIOS ]

Extensión que hace no se pueda salir de los campos obligatorios. Es global con opciones locales (se puede deshabilitar en cada procedimiento). Importante: Es necesario crear un alert key global para salir del procedimiento para dejar escapar al usuario en caso de necesidad.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.templatesclarion.com.ar/downloads/ VARIOS ]

Tiene 2 funciones, si se presiona CrtlAltP, indica en un message en que procedimiento estamos y en que APP está y una función que si estás parado en un campo con formato de fecha y presionas el + del teclado numérico asigna la fecha del día.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.templatesclarion.com.ar/downloads/ DCT2SQL ]

La última versión de uno de los templates mas populares para la generación de Scripts SQL a partir del DCT (Gracias Roberto Artigas)

[http://www.templatesclarion.com.ar/downloads/ MCI ]

Template que reproduce audio (Wav, Mp3) y video (Avi, Mpg) (Gracias Victor Pierri)

[http://www.templatesclarion.com.ar/downloads/ Calendario + 18 funciones ]

Template del estilo PopUp Calendario y un conjunto de 18 Funciones muy útiles (Ver mas info) Gracias Francisco J. Carabez

[http://www.templatesclarion.com.ar/downloads/ Print Driver ]

Template para impresoras matriciales, traducido y mejorado por Ruben Caporossi . Simplemente se registra en Global Extensions del app y las funciones están disponibles

[http://www.templatesclarion.com.ar/downloads/ Esta página se actualiza constantemente...]

== SICyA Software ==
http://www.sicya.com

''' SICyA Templates '''

AutoCompletar_SICyA - Control entry de autocompletado desde una tabla.

Calendario_SICyA - Calendario con estilo XP con manejo de dominicales y feriados.

LlamaProcedimiento_SICyA - Llama procedimientos con parámetros o en forma thread.

VolumeDiscoDuro_SICyA - Captura Serial, nombre del Volumen y Tipo Archivos de un Disco

Botones_SICyA - Extensión para tener Botones con un estilo propio en aplicaciones no XP.

[http://www.sicya.com/download/SICyA_Templates_Build_051007.exe Descargar el template aqui...]

== Solace ==

http://www.solace-software.demon.co.uk/freetemplates.htm

Enhanced standard HTML help template

Colour all columns in a browse on a condition without having to individually specify each column

Screen Resolution

Make Directory

Read Only Window

Open Close Files in Source Template

Add Wallpaper to every Window

Override Recursive Insert Message

Global extension to change the Font of every screen in your app.

Global Extension to allow users to make all controls flat

== tabajara ==

http://www.tabajara.com/downloads.html

Browser to HTML - Just populate a Button and you can export to HTML

Browser to CSV - Just populate a Button, and Done! This way you can export to Excel.

Files to CSV - Choose files to export data. (export files to CSV selecting from DCT)

Report Green Bar - makes shadowed every other report detail.

== xFunction ==

Colección gratuita de templates de código de la empresa Sealsoft. Incluyen funciones para manejo de fechas, archivos y paths, y algunas otras. Puede descargarse de http://www.seal-soft.com

== Locus Templates ==

http://www.riebens.co.za/index.php?option=com_content&view=article&id=39&Itemid=183

Excelente conjunto de templates que abarcan varias categorias:

'''CONTROL TEMPLATES:'''
* PageTree Seleccionar una hoja de propiedades de un listbox tipo tree
* PopupDate Seleccionar fecha desde un calendario
* PopupDirectory Seleccionar directorio
* RichEdit Completo editor de texto enriquecido (RTF) totalmente escrito en clarion con toolbar y tabulador.

'''PROCEDURES:'''
* QBEDialog Crea Dialogo QBE (Query by Example).

'''CODE TEMPLATES:'''
* CWPrintEngine Imprimir un reporte creado con el CW Report Writer

'''EXTENSION TEMPLATES:'''
* BrowseEdit Edit in place para un browse box con validación de campos y lookup
* BrowseTotal Totalizar campos en un browse box.
* BrowseValue Crea un checkbox editable
* FormSplit Divisores verticales u horizontales
* GetIniFile Obtiene y guarda valores en un archivo ini.
* LimitStarts Evita comenzar 2 MDI threads a la vez
* PopupToolbar Toolbar ocultable
* ReportFilter Seleccionar registros para imprimir y resaltar. Incluye un visor de reporte
* FILE MANAGER Posibilita cambiar el dct, recompilar, y todos los archivos son actualizados automáticamente a la nueva version

Codigo Util

2015-03-07T22:38:19Z

Jorge Brugger: Texto reemplazado: «[http://www.evolutionconsulting.com.ar/espanol/downloads.html (Evolution Downloads)]» por «[http://templatesclarion.com.ar/downloads/ (Templates Clarion)]»

En esta sección se incluyen rutinas de código que nos resultaron útiles en más de una ocasión.

== PDF con cualquier versión de Clarion ==
Después de mucho rebuscar algo gratis que haga esto, hoy pude componer algo:
1º) Aporte de Fernando Cerini para "capturar" los .wmf de los reportes de Clarion:

En el embed PrintPreview.Open, despues de Parent call

get(SELF.ImageQueue,POINTER(SELF.ImageQueue))
LOOP a# = 1 to RECORDS(SELF.ImageQueue)
get(SELF.ImageQueue,a#)
COPY(SELF.ImageQueue, 'c:\temp\Pagina' & a# &'.WMF')
IF ERRORCODE() THEN MESSAGE(ERROR()).
END

En mi caso, con Clarion 5.0 ABC el embed point fue Previewer.Open, después del Parent call

2º) Instalar OpenOffice y seguir las instrucciones de
http://www.xml.com/pub/a/2006/01/11/from-microsoft-to-openoffice.html
para crear la macro.
La verdad, no pude cambiar el nombre de Module1 a Conversiones o algo así, pero no importó mucho.

3º) Cree un batch con la línea

"C:\Archivos de Programa\OpenOffice.org 2.3\program\soffice" -invisible macro:///Standard.Module1.SaveAsPDF(c:\temp\pagina8.wmf)

Es lo que dice el instructivo mencionado en el punto 2º) acomodado a mi instalación de OpenOffice, lo corrí y funcionó a la primera prueba.

4º) Sólo queda hacer la llamada mediante RUN en el código de Clarion y santo remedio.

Espero sea de ayuda para alguien.
Saludos
Ezequiel

== Como filtrar un Tree ==
Una tecnica de Saul Perez Quezada para filtrar Arboles (generados con el template Relacion Tree), con filtros en runtime que son complejos, y que no podemos hacer con un simple SetFilter().

Alguien ha posteado una pregunta sobre como Filtrar arboles, yo en lo personal he dejado de usar arboles, por que son bastante lentos y deficientes, pero en algunas aplicaciones es bastante util, de manera que comparto la experiencia y les subo una pequeña explicacion de como filtrar Arboles (generados con el template Relacion Tree), con filtros en runtime que son complejos, y que no podemos hacer con un simple SetFilter(), ya que no existe esto en la propiedad.

Saludos y espero les sirva.

Como filtrar un Tree con solamente tablas:

Dentro del Template para armar los arboles, tiene dentro de Primary y Secondary files la opcion de filtrar, agregando un filtro, pero muchas veces dicho filtro no es tan simple de armar, o necesitamos estarlo cambiando en runtime.

Aqui les presento un caso y como su solucion, esperando que les sirva...

Tengo tres tablas:

Abuelos
Padres
Hijos

Y en la tabla hijos, tengo un campo que define en que nivel de escuela en que va cada hijo: Pre-escolar, Primaria, Secundaria, Bachillerato, Universidad, PostGrado, Maestria y Doctorado.

En la ventana requiero que el usuario pueda filtrar por el nivel escolar, pero con las siguientes condiciones:

1.- El usuario puede seleccionar si quiere ver cualquier combinacion de estudios, es decir, que pueda ver los de primaria y universidad solamente o todos, o ninguno...
2.- Si selecciona un filtro donde resulte que un abuelo o padre no tiene hijos que cumplan la condicion, entonces no debe mostrarnos a esos abuelos y padres...

Considerando que el Tree template, muestra siempre los niveles de acuerdo al filtro que se arma, pues podria convertirse algo engorroso, estar cambiando el filtro, ya que no es una propiedad del relacion tree, tal como sucede con el browse class, sino que el tree filtra a base de If's interpuestos al llenar el queue...

Usando el template y solo poniendo los filtros de NIVELESCOLAR = LOC:MINIVEL, solo mostraria los hijos de un nivel, asi que este metodo no nos servira...

La idea seria entonces que como filtro usaremos una condicion matematica, si la condicion es Verdadera, entonces mostrara el hijo, de lo contrario no lo mostrara.

Asi que con el comando EVALUATE, evaluaremos un filtro, dentro del secondary files, opcion filter, si el filtro es bueno (igual a 1), entonces nos mostrara la info de lo contrario no...

Por ejemplo:

En el secondary files en buscamos la tabla de Hijos y le escribimos en el filtro:

0<EVALUATE(Filtro) ! Si el filtro es valido, entonces nos mostrara el resultado, de lo contrario no...

Declaramos un check box por cada cada condicion, con su respectiva variable: Preescolar, Primaria, Secundaria, etc... que sea tipo byte, con valor true = 1 y valor false = 0

! En el acepted del check box Preescolar... y cada condicion...
Do Filtrar
Display

! En procedure routines
Filtrar Routine
Clear(Filtro) ! Variable para filtrar

If Preescolar Then Filtro = 'HIJ:NIVELESCOLAR=''Preescolar''' ..

If Filtro And Primaria
Filtro = Clip(Filtro) & ' And HIJ:NIVELESCOLAR=''Primaria'''
ElsIf Filtro And Primaria
Filtro = 'HIJ:NIVELESCOLAR=''Primaria'''
End
! Esto se repite con todas las condiciones...
...
...

! Despues de armar el filtro, refrescar el browse...

DO REL4::RefreshTree ! Esta rutina la genera el template, se debe buscar en los modulos su nombre correcto.
POST(EVENT:NewSelection,?RelTree)

Exit

Hasta ahora, lo que se ha logrado es que cuando el usuario seleccione un tipo nivel escolar, nos mostrara o no los hijos, pero resulta, que ahora lo que necesito es que solo me muestre los abuelos que tienen nietos, y los padres que tienen hijos, es entonces por que no tiene caso que el arbol se llene con Mil abuelos, si solo 30 de ellos tienen nietos...

Para hacer debemos entender como se llena el queue del tree, basicamente, el tree, tantas vueltas como combinaciones de nuestra estructura tengamos, es decir, suponiendo que tenemos 3 abuelos, 3 padres, con 3 hijos cada uno, lo que hace el template es:

Por cada Abuelo Barre (con Loop) la tabla Padres por completo 1 vez y selecciono los que me corresponden y por cada padre barro la tabla hijos (con Loop) por completo y selecciono los que me corresponden...

Entonces esta estructura daria 3 x 3 x 3 = 27 vueltas. (Ahora imaginen lo que tarda en entre tablas de 10000 registros...)

Bueno, siguiendo esta idea, entonces lo que necesitamos, es interceptar cada vuelta en el punto donde no queremos que se ingrese al queue y hacer un break.

Conociendo esto buscamos en nuestros embeds, embedido llamado:

RelacionTree After Next Primary File y RelationTree After Next Secondary File...

Aqui buscamos el archivo que requerimos excluir en algunos casos, que es Padres e Hijos, le escribimos en el caso de Padres:

PAD:AbueloId = ABU:AbueloId
If Access:Padres.Fetch(FK AbueloId) ! Si no existen padres que sean dependientes de este abuelo
Break ! hacer el break al Loop del armado del tree...
End

Y el caso de los hijos repetimos la condicion:

HIJ:PadreId = PAD:PadreId
If Access:Hijos.Fetch(FK PadreId) ! Si no existen hijos que sean dependientes de este abuelo
Break ! hacer el break al Loop del armado del tree...
End

El efecto sera que no nos mostrara aquellos padres y abuelos que no tengan hijos.

Si requerimos algo mas complejo podemos usar una vista, en vez de una Fetch a una tabla, pero obviamente se alentara esto cada vez mas y mas al llenar el Arbol.

Nota
Si usamos un motor de SQL, una alternativa mucho mas eficiente es declarar un Vista en nuestro motor y diccionario que sirva de base para llenar el Arbol, con esto aumentaria considerablemente la velocidad.

== Reemplazar caracteres en un string ==
Una rutina generica para reemplazar todas las instancias de un string dentro de otro

Replace PROCEDURE(string find,string replace,*cstring into)
Locate LONG,AUTO
CODE
IF UPPER(find)<>UPPER(replace)
LOOP
Locate = INSTRING(UPPER(find),UPPER(into),1,1)
IF ~Locate THEN RETURN .
into = SUB(into,1,Locate-1) & replace &SUB(into,Locate+LEN(find),LEN(into))
END
END

Para llamarlo:

Replace('Busacr','Reemplazar',Loc:miString)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Contar los threads abiertos ==
Este código fue posteado por Jeff Slarve
ChildThreadCount Procedure!,Long
Ndx Long
Count Long
T &Window
W &Window
Code

Count = 0
SetTarget
T &= System{PROP:Target}
Loop Ndx = 1 to MaxThreads
SetTarget(,Ndx)
W &= System{PROP:Target}
If NOT W &= T
Count += 1
end
end
SetTarget
Return Count

== Permitir solo una instancia del EXE en ejecucion ==
En Inside the global map:

INCLUDE('CWUTIL.INC'),ONCE

En Global Program Setup:

IF NOT BeginUnique('MiAPP.exe')
BEEP(BEEP:SystemExclamation)
YIELD()
CASE MESSAGE('El programa ya esta ejecutando..','Ho, ho...',ICON:Asterisk,BUTTON:OK,BUTTON:OK,0)
OF BUTTON:OK
HALT()
END
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Cambiar los atributos de un archivo ==
(Del FAQ de SoftVelocity)
1. En Global Embeds

A. Before Global Includes:

LPCSTR EQUATE(CSTRING)
DWORD EQUATE(ULONG)

B. Global Data: Equates de los artributos

FILE_ATTRIBUTE_READONLY EQUATE(00000001h)
FILE_ATTRIBUTE_HIDDEN EQUATE(00000002h)
FILE_ATTRIBUTE_SYSTEM EQUATE(00000004h)
FILE_ATTRIBUTE_ARCHIVE EQUATE(00000020h)
FILE_ATTRIBUTE_NORMAL EQUATE(00000080h)
FILE_ATTRIBUTE_TEMPORARY EQUATE(00000100h)

C. Inside Global Map:

Module('Win32.lib')
SetFileAttributes(*CSTRING, ULONG), BOOL, RAW, PASCAL, NAME('SetFileAttributesA')
GetFileAttributes(*CSTRING), ULONG, RAW, PASCAL, NAME('GetFileAttributesA')
END

2. En el codigo:

filename CSTRING(50)

filename = 'test.txt'
y# = GetFileAttributes(filename) ! Leer atributos
y# = SetFileAttributes(filename, FILE_ATTRIBUTE_READONLY)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Crear directorios ==
Hay 2 opciones:

1- Con Clarion (no sé si estarán estas funciones en versiones anteriores de Clarion)

En "Inside the Global map"
Include('clib.clw')

En Local Data
MiDir Cstring(256)
Ret Long

En tu embed
MiDir = 'Dirtest'
Ret = MkDir(MiDir)

2- Con API
En Global Embeds - inside global map:

MODULE('')
DirAccess(*CSTRING,SHORT=0),SHORT,RAW,NAME('_access'),PROC
MkDir(*CSTRING),SHORT,RAW,NAME('_mkdir'),PROC
DirRename(*CSTRING, *CSTRING), SHORT, RAW, NAME('_rename'),PROC
RmDir(*CSTRING),SHORT,RAW,NAME('_rmdir'),PROC
END

Y en tu embebido podés poner lo siguiente:

Var='O:\test' ! Ojo tiene que ser Cstring
IF DirAccess(Var)<>0 !Si no existe
MkDir(Var) !Crearlo
END

También se puede usar DirRename y RmDir para renombrar o borrar

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Modificar la posicion de un informe ==

Este código permite modificar la posición inicial vertical y horizontal de un informe. Es útil cuando trabajamos con un formulario preimpreso o una hoja membretada y necesitamos desplazar la impresión sin necesidad de reconfigurar el programa.

El punto embebido donde se ubica es After Open the Report.

!=====================================================
! MODIFICAR LA POSICION DEL INFORME
! El pie de página modificarlo sólo si se usa:
! Por ejemplo se pone ahí el Nro de página o algo así.
! No es necesario cambiar los atributos de las bandas
! de detalle adicionales que se usan en el informe.
!-----------------------------------------------------
DesplazamientoX = getini('Parametros',|
'DesplazamientoX','','.\prog.ini')
DesplazamientoY = getini('Parametros',|
'DesplazamientoY','','.\prog.ini')

if DesplazamientoX or DesplazamientoY then
SETTARGET(Report)
x# = report{prop:Xpos}
y# = report{prop:Ypos}
x# += DesplazamientoX
y# += DesplazamientoY
target{prop:Xpos} = x#
target{prop:Ypos} = y#
settarget

SETTARGET(Report,?Encabezado)
x# = ?Encabezado{prop:Xpos}
y# = ?Encabezado{prop:Ypos}
x# += DesplazamientoX
y# += DesplazamientoY
?Encabezado{prop:Xpos} = x#
?Encabezado{prop:Ypos} = y#
settarget

SETTARGET(Report,?PiePagina)
x# = ?PiePagina{prop:Xpos}
y# = ?PiePagina{prop:Ypos}
x# += DesplazamientoX
y# += DesplazamientoY
?PiePagina{prop:Xpos} = x#
?PiePagina{prop:Ypos} = y#
SETTARGET
end

== Generar un informe a partir de una cola en memoria ==

(Sin pasar por el template)

Se puede definir en el módulo en la parte de DATA el reporte necesario y mandarlo a imprimir.

En DATA SECTION

WMFQue QUEUE
PageImage STRING(64)
END
ReportRunDate LONG
ReportRunTime LONG
!!> Report (portrait)
Report REPORT,AT(1000,2000,6000,7000),THOUS,PRE(RPT),FONT('Arial',10)
HEADER,AT(1000,1000,6000,1000)
END
Detail DETAIL
END
FOOTER,AT(1000,9000,6000,1000)
END
FORM,AT(1000,1000,6000,9000)
END
END

Luego, en el botón que imprime, poner el siguiente código:

ReportRunDate = today()
ReportRunDate = today()
ReportRunTime = clock()
OPEN(Report)
LOOP x# = 1 to records(ColaError)
get(ColaError,x#)
PRINT(rpt:DetalleUno)
END
ENDPAGE(Report)
ReportPreview(WMFQue)
IF GlobalResponse = RequestCompleted
Report{PROP:FlushPreview} = True
END
CLOSE(Report)
FREE(WMFQue)

Este proceso usa el Print Preview de Clarion para visualizar el informe, por consiguiente, la apariencia es totalmente normal para el usuario

== Proceso BATCH que funcione sincronizado con el TIMER de la ventana. ==

En un proceso BATCH hecho a mano se puede operar en forma similar al report o al proccess, para eso hay que definir una pantalla que tenga el atributo TIMER (un valor de 1 es suficiente). El código fuente quedaría de la siguiente manera:

open(PantaTrabaja)
Accept
case event()
of event:openwindow
Display()
! Abrir pantalla, Abrir archivos, hacer el set
! Inicial
of event:timer
?Mensaje{prop:text} = 'Procesando...'
display(?Mensaje)
loop 2 times
next(archivo)
if errorcode() then
FinArchivo = true
Break
end
! HACER AQUÍ ALGÚN PROCESO..
end
of event:closewindow
Setcursor()
Close(PantaTrabaja)
Break
End!case

case field()
of ?BotonCancelar
if event() = event:accepted then
message('Proceso cancelado por el usuario.')
post(event:closewindow)
end
End
end!accept

== Drop Combo a mano, con opción a todos y recuerdo de último elegido ==

En muchos de mis informes, cuando pido parámetros asumo lo siguiente, por ejemplo: Si el código de cliente es igual a 0 (cero) se imprimen todos los clientes, sino, se imprime uno solo. Este código permite armar lo mismo con un DropCombo, agregando la opción TODOS LOS XXXX (código Cero).

1. Definir una cola con la siguiente estructura ( por ejemplo ):

Cola QUEUE,PRE(col)
descri STRING(20)
codigo SHORT
END

2. Definir una variable local llamada por ejemplo

Combo1 STRING(20)

3. En la pantalla definir una drop combo a mano, en el campo FROM poner el nombre de la COLA, y en el USE poner Combo1 ( no poner ?Combo1 )

4. Cargar la cola según corresponda después de abrir archivos, poniendo como último dato el código 0 y el texto 'TODOS LOS REGISTROS' y hacer un ADD(Cola,1) para que quede al principio.

5. Definir una variable global ( o local estática) que va a guardar el resultado elegido:

Glo:codigo short

6. En el evento open window, ANTES de abrir la ventana va el siguiente código

loop x# = 1 to records(Cola)
get(Cola,x#)
if col:codigo = glo:codigo then break.
end
Combo1 = col:descri
?Combo1{prop:selected} = x#

7. Al hacer esto, el combo se abre posicionado en el último elemento elegido o en TODOS LOS REGISTROS si es la primera vez.

== En un report, poner los totales en otra página ==

En algún informe, se puede solicitar como parámetro la opción de imprimir los totales correspondientes en una página nueva. Para ello, después de abrir el report:

if glo:totpag then
settarget(report)
?TituloTotalCategoria{prop:pagebefore} = 1
end

== En un report, cambiar el color de un campo según alguna condición ==

Si durante la impresión de un informe se desea cambiar algún atributo (tal como el color) de un campo puede hacer lo siguiente (antes de imprimir el detalle):

if cl:impotota <> cl:totacalc
settarget(report)
?ARC:importe{PROP:FONTCOLOR} = COLOR:RED
settarget(ProgressWindow)
else
settarget(report)
?ARC:importe{PROP:FONTCOLOR} = COLOR:NONE
settarget(ProgressWindow)
end
print(rpt:Detalle) ! Imprimir la línea de detalle

== Cerrar todas las ventanas abiertas ==
LOOP Thrd# = 2 TO 64 !1 es el Frame
POST(Event:CloseWindow,,Thrd#)
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Abrir cualquier archivo con ShellExecute ==
Hay varios templates gratis que implementan Shellexecute, por ejemplo:
http://www.sterlingdata.com/shellex.htm

Para hacerlo con codigo:

En Global-embed 'Inside the Global Map':
Module('Win32.lib')
ShellExecute(Long,*CString,*CString,*CString,*CString,Short),UShort,PASCAL,RAW,NAME('ShellExecuteA')
END

En Local Data
LOC:Handle LONG
LOC:Op CSTRING (255)
LOC:File CSTRING (255)
LOC:Path CSTRING (255)
LOC:Param CSTRING (255)
LOC:Show LONG
LOC:RetHandle LONG

En el embed
LOC:Handle = 0{PROP:Handle}
LOC:Op = 'Open'
LOC:File = 'C:\TEST.TXT'
LOC:Path = PATH()
LOC:Param = ' '
LOC:Show = 1
LOC:RetHandle = ShellExecute(LOC:Handle,LOC:Op,LOC:File,LOC:Param,LOC:Path,LOC:Show)
If LOC:Rethandle <> 0 Then
Message('Error','Error',Icon:Exclamation)
End

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Abrir una pagina WEB con ShellExecute ==
(Ver declaraciones del API y variables en el ejemplo anterior)

En el embed
LOC:Handle = 0{PROP:Handle}
LOC:Op = 'Open'
LOC:File = 'http://www.evolutionconsulting.com.ar'
LOC:Path = ' '
LOC:Param = ' '
LOC:Show = 1
LOC:RetHandle = ShellExecute(LOC:Handle,LOC:Op,LOC:File,LOC:Param,LOC:Path,LOC:Show)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Convertir un LONG a un String Binario ==
binario='' !binario es CSTRING
LOOP F# = 1 TO 32
IF BAND(abinario, 1) !abinario es LONG
binario = '1' & binario
ELSE
binario = '0' & binario
END
abinario = abinario / 2
if abinario = 0 then break.
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Convertir un string binario a LONG ==
Para volver del CSTRING al LONG seria simplemente
X# = EVALUATE (binario & 'b')

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Copiar la QUEUE (solo lo que se esta viendo) de un browse a Excel ==
Copiar='' !Cstring de 4.000.000
LOOP C#= 1 TO BRW1.View{Prop:Fields}
!Primero una fila con los titulos
Copiar= Copiar & ?Browse:1{PropList:Header,C#} & '<9>'
END
Copiar= Copiar &'<13,10>'

LOOP F# = 1 TO RECORDS(BRW1.Q)
LOOP C#= 1 TO BRW1.View{Prop:Fields}
GET(BRW1.Q, F#)
Copiar= Copiar & FORMAT(WHAT(BRW1.Q, C#), ?Browse:1{PropList:Picture,C#}) & '<9>'
END
Copiar= Copiar &'<13,10>'
END
SETCLIPBOARD(Copiar)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Copiar el VIEW (cuidado: se lee todo) de un browse a Excel ==
Copiar='' !CSTRNG de 4.000.000
LOOP C#= 1 TO BRW1.View{Prop:Fields}
Copiar= Copiar & ?Browse:1{PropList:Header,C#} & '<9>'
END
Copiar= Copiar &'<13,10>'

SET (BRW1.View)
LOOP
NEXT(BRW1.View)
IF ERRORCODE() THEN BREAK.
BRW1.SetQueueRecord
LOOP C#= 1 TO BRW1.View{Prop:Fields}
Copiar= Copiar & FORMAT(WHAT(BRW1.Q, C#), ?Browse:1{PropList:Picture,C#}) & '<9>'
END
Copiar= Copiar &'<13,10>'
END
SETCLIPBOARD(Copiar)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Para que no lea todo el contenido del archivo, sino que procese estrictamente lo mismo que muestra el browse, basta con agregar la antes del BRW1.SetQueueRecord el llamado a BRW1.ValidateRecord().
...
LOOP
NEXT(BRW1.View)
IF ERRORCODE() THEN BREAK.
IF BRW1.ValidateRecord() THEN CYCLE.
BRW1.SetQueueRecrod
...

Daniel Ruzo

== Mostrar iconos en un listbox desde una queue ==
Ejemplo: marcar en una cola de memoria si un empleado tiene entrada y/o salida

Primero agregar los iconos al Project

En el Codigo:

cola_empleados queue, pre(que)
nombre string(30)
entro long
entro_ico long
salio long
salio_ico long
end

En el list:

primer campo: nombre

segundo campo: entro, picture @p p, iconized, transparente

tercer campo: salio, picture @p p, iconized, transparente

En el init de la pantalla:

?list{prop:iconlist,1} = '~no.ico'
?list{prop:iconlist,2} = '~si.ico'

Donde cargo la cola y la muestro:

if condicion (si NO hay entrada)
que:entro_ico = 1 ! icono de no
else
que:entro_ico = 2 !icono de si
end
if condicion (si NO hay salida)
que:salio_ico = 1 ! icono de no
else
que:salio_ico = 2 !icono de si
end
! otras asignaciones
add(cola_empleados)
!
display(?list)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Calcular Días Hábiles ==

Ante todo necesitas una tabla de feriados, con al menos un campo llamado,
por ej., diaferiado y una clave por dicho campo.

Luego podés hacer lo siguiente

habiles# = 0
loop dia# = FechaInicial to FechaFinal
if (Dia# % 7) = 0 then cycle. ! porque es domingo
if (Dia# % 7) = 6 then cycle. ! porque es sabado
!
! busco si es feriado
!
clear(feriado:record)
feriado:diaferiado = dia#
if access:feriado.fetch(Feriado:PorDia) = level:benign then cycle. !porque es feriado
!
habiles# += 1
end!loop
corridos# = fechafinal - fechainicial

Si los cálculos que vas a realizar son muchos y continuos, sería conveniente
que la tabla de feriados la cargues en una queue y realices las búsquedas
sobre ella.

Adrian Gallegos - Mega Sistemas S.R.L.

Otra opción: Días Hábiles del mes - Rutina que quita los días sábados y domingos del mes

CONTAR_DIAS ROUTINE
LOC:DIAS = 0
tope# = 1
LOOP UNTIL DAY(LOC:FECHA) = tope#
CASE LOC:FECHA % 7
of 0 ! Domingo
LOC:FECHA = LOC:FECHA - 1
CYCLE
of 6 ! sabado
LOC:FECHA = LOC:FECHA - 1
CYCLE
ELSE
LOC:DIAS += 1
LOC:FECHA = LOC:FECHA - 1
END !CASE
END !LOOP
IF LOC:FECHA % 7 = 0 or LOC:FECHA % 7 = 6 THEN !si el primero es feriado
! nada
else
LOC:DIAS += 1
END !IF

Julio César Britez

== Último día del mes y cantidad de días (Lunes, Martes, etc) entre 2 Fechas ==
Incluye el truco de saber el último día del mes: en la parte " Date(4,1,2005)-1 " significa que le resto 1 al primer día del mes siguiente, lo cual es una forma de obtener el último día del mes actual...

Loop Fecha# = Date(3,1,2005) TO (Date(4,1,2005)-1)
EXECUTE (Fecha# % 7) + 1
Domingo# +=1
Lunes# +=1
Martes# +=1
Miercoles# +=1
Jueves# +=1
Viernes# +=1
Sabado# +=1
END
END

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Fecha en Español (por ejemplo en el Frame)==
Si quieres que funcione independientemente de como este configurado windows,
lo mejor es poner este embed, al final de WindowManager.Init

EXECUTE (TODAY() % 7) + 1
Dia"= 'Domingo'
Dia"= 'Lunes'
Dia"= 'Martes'
Dia"= 'Miercoles'
Dia"= 'Jueves'
Dia"= 'Viernes'
Dia"= 'Sabado'
END

EXECUTE (MONTH(TODAY()))
Mes" = 'Enero'
Mes" = 'Febrero'
Mes" = 'Marzo'
Mes" = 'Abril'
Mes" = 'Mayo'
Mes" = 'Junio'
Mes" = 'Julio'
Mes" = 'Agosto'
Mes" = 'Septiembre'
Mes" = 'Octubre'
Mes" = 'Noviembre'
Mes" = 'Diciembre'
END
AppFrame{Prop:StatusText,1} = CLIP(Dia") & ' ' & DAY(TODAY()) & ' de ' &
CLIP(Mes")

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Dia" = Choose(((TODAY() % 7) + 1),'Domingo','Lunes','Martes','Miercoles','Jueves','Viernes','Sabado')

Javier A. Junca Barreto [http://www.sicya.com (SICyA Software - Colombia)]

== Obtener la fecha del server ==
Este código lee la fecha del servidor, usando el truco de crear un archivo en el servidor y leer la fecha y hora de los atributos:

!Data
LOC:TMP STRING(254),STATIC
TMP FILE,DRIVER('Ascii'),CREATE,NAME(LOC:TMP)
RECORD RECORD
LIN STRING(1)
.
.
FILS QUEUE(File:queue),PRE(FIL)
END

CODE
LOC:TMP = PATH()&'\TMP'&RANDOM(10000,99999)&'.TMP'
CREATE(TMP)
IF NOT ERRORCODE()
DIRECTORY(FILS,LOC:TMP,0)
REMOVE(TMP)
GET(FILS,1)
IF TODAY() <> FIL:DATE OR ABS(CLOCK()-FIL:TIME) > 100
!FECHA DIFERENTE O 1 SEGUNDO DE DESFASE
SETTODAY(FIL:DATE)
SETCLOCK(FIL:TIME)
END
ELSE
REMOVE(TMP)
END

Carlos Gutierrez

''Con SQL''

La sugerencia de Carlos es muy buena. Si estás usando SQL o drivers ODBC, la otra opción es preguntarle la fecha al motor de base de datos.

La forma genérica de hacerlo es:
temp{prop:sql}='SELECT {fn curdate() }'

''Con NET TIME''

Posteado por Diego Sánchez al foro.
Run('NET TIME \\Server_Name /SET /Y')
Reemplazar "Server_Name" por el nombre del servidor o equipo del cual se desea obtener la hora
Fue posteado originalmente por un NICOLAS VEILLEUX nveilleux@nbautomation.com, en el foro comp.lang.clarion

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Llamar a un Stored Procedure ==
El código sería mas o menos asi:
L:Query = 'CALL NombreDelStored (''' & FORMAT(ParamFecha,@D12) & ''', ''' &
FORMAT(OtraFecha,@D12) & ''', ' & OtroParam1 &', ' & OtroParam2 &', ' &
OtroParam3 &' )'

ResSQL{prop:sql} = L:Query
Loop Until Access:ResSql.Next()
MiVariable = R:Campo1
etc = R:Campo2
....
END

En la tabla auxiliar ResSQL obtienes el resultado del último SELECT que
tenga el Stored Procedure.

Para mas detalles ver el documento sobre SQL Embebido [http://templatesclarion.com.ar/downloads/ (Templates Clarion)]

También recomiendo leer el help "MSSQL Accelerator Calling a Stored
Procedure". Ahi está explicado además el uso de valores de retorno y parámetros de salida.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Encriptación básica ==
Encriptación / desencriptación básica de un campo usando el metodo XOR.
!la primera vez encripta
!al volver a aplicar el algoritmo con la misma
!Clave de encriptado: desencripta
X# = 1
loop Y# = 1 to Len(Campo)
Campo [Y#] = chr(bxor(val(Campo[Y#]), val(ClaveEncriptado[X#])))
X# += 1
if X# > len (ClaveEncriptado) then X# = 1.
end
display

!Campo y ClaveEncriptado son campos CString

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Generar un archivo de Texto a máxima velocidad==
Estas son las APIs para generar un archivo de texto sin necesidad de declararlo en el Diccionario.

Además es muy rápido, ideal para exportaciones.

En Global - Inside Global map:

MODULE('Windows API')
_lcreat(*CSTRING,SIGNED),SIGNED,PASCAL,RAW
_hwrite(SIGNED,*CSTRING,LONG),LONG,PASCAL,RAW
_lclose(SIGNED),SIGNED,PASCAL
END

Por ejemplo para guardar el contenido de un control Text

IF NOT FILEDIALOG('Guardar como',FileName,'Text|*.TXT|Source|*.CLW',FILE:Save + FILE:LongName)
CYCLE
END
F# = _lcreat(FileName,0)
X# = _hwrite(F#,Texto,LEN(Texto))
X# = _lclose(F#)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Efecto BLINK en un campo ==
Tienes que crear un timer en la ventana, para eso ponle cada cuanto se va a
ejecutar en la propiedad timer de la ventana. Son centesimas de seg, asi que
si le pones 50 por ejemplo tu campo va a titilar 2 veces por segundo.

Luego cierra la ventana, vuelve a entrar y vas a encontrar un evento timer
de la ventana en los embeds.

Window Events --> Timer
if ?campo{prop:background} = COLOR:WHITE
?campo{prop:background} = COLOR:SILVER
else
?campo{prop:background} = COLOR:WHITE
end

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Función para calcular dígito verificador en CUIT ==
- La siguiente función devuelve el numero de CUIT con el dígito verificador
correcto.
- El parámetro que recibe es el numero de CUIT a revisar incluyendo el
dígito verificador.

...
CuitCliente='20-15433984-6'
IF Cuit(CuitCliente)=CuitCliente THEN
MESSAGE('Digito verificador correcto')
ELSE
MESSAGE('Digito verificador incorrecto')
END
...

Cuit PROCEDURE(cuit1)
cuit2 STRING(255)
digver LONG
lon LONG
fac LONG
car STRING(1)

CODE
cuit2=cuit1
digver=0
fac=2
lon=LEN(CLIP(cuit2))
LOOP i#=lon-1 TO 1 BY -1
car=SUB(cuit2,i#,1)
IF car<'0' OR car>'9' THEN
CYCLE
.
digver=digver+(car*fac)
fac+=1
IF fac>7 THEN
fac=2
.
.
digver=11-(digver%11)
IF digver>9 THEN
digver=0
.
cuit2=SUB(cuit2,1,lon-1) & FORMAT(digver,@n01)
RETURN(cuit2)

Este codigo esta en la documentacion del template de Impresoras Fiscales
(BIGSYS TEMPLATES) del amigo Juan Carlos Rodríguez

== Validar Email ==
Puedes hacerlo con MATCH, el cual devuelve 1 o 0 si el mail no es valido.
Ejemplo:

X# = MATCH(UPPER(CLIP(locemail)),|
'^[-A-Z0-9._]+@{{[-A-Z0-9._]+.}+[A-Z][A-Z][A-Z]?[A-Z]?$', Match:Regular)

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Restar Horas==
Para sacar la diferencia entre horas es simplemente:
resultado = hora2 - hora + 1

El +1 es porque sino que faltaria un segundo cuando muestres el resultado (en formato @T6, por ej)

Si Hora2 es del dia siguiente, la cuenta seria:
resultado = (hora2 +(100*60*60*24)) - hora + 1

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

== Digito Verificador para 5 digitos ==

Si tenes un numero de 5 digitos y deses verificar que el mismo es ingresado correctamente podes usar este codigo que genera un digito verificador

Crea una funcion que tenga un parametro (numero a verificar) y retorne el digito verificador correspondiente ejem: DigitoV5(LONG xNumero),BYTE

loc:Numero = xNumero

loc:Valor = (loc:Numero[1]*5) + |
(loc:Numero[2]*4) + |
(loc:Numero[3]*3) + |
(loc:Numero[4]*2) + |
(loc:Numero[5]*7)

IF (loc:Valor%5) + 1 = 0 OR (loc:Valor%5) + 1 = 1
loc:Digito = 0
ELSE
loc:Digito = 6 - ((loc:Valor%5) + 1)
END

RETURN loc:Digito

Ruben Garcia [http://www.dipsarg.com (DiPS)]

== Digito Verificador para Cualquier Longitud ==

Si no sabes que longitud puede tener el numero a verificar podes probar verificarla con este codigo

Crea una funcion cuyo parametro es el numero a verificar y retorne el digito verificador. Ej. DigitoV(STRING xNumero),BYTE

!Inicializa
loc:Numero = xNumero
loc:Valor = 0
loc:Multiplo = 1

!Barrido y calculo
LOOP loc:Posicion = LEN(CLIP(loc:Numero)) TO 1 BY -1
loc:Multiplo += 1
IF loc:Multiplo > 7
loc:Multiplo = 2
END
loc:Valor += loc:Numero[loc:Posicion] * loc:Multiplo
END

loc:Digito = loc:Valor % 11

IF loc:Digito = 10
loc:Digito = 0
END

RETURN loc:Digito

Ruben Garcia [http://www.dipsarg.com (DiPS)]

== Autoincremento Manual ==

Esto se utiliza cuando tenemos una tabla en la cual queremos manejar la clave de auto incremento

CLEAR(MASTER)
SET(MAS:ClavePorID, MAS:ClavePorID)
ACCES:MASTER.Previous()
IF MAS:Id = 0 THEN
MAS:Id = 1
ELSE
MAS:Id = MAS:Id +1
END

!!!MAS:Id TENDRÍA EL VALOR DEL PROXIMO NUMERO.-

Gracias [mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

Nota: El mecanismo descrito es "confiable" sólo para aplicaciones que usan TPS y en modo single-user. Para Multiusuario y SQL hay que tener cuidado con las lecturas simultáneas del último valor.
También puede simplificarse el "if ... then ... else ..." como "MAS:Id = MAS:Id +1" (si es cero, será 1, no hace falta chequearlo)

== Desabilitar menu desde cualquier procedimiento ==
Una opcion seria usando NOTIFY.
En el Frame
Window Events
Notify
DISABLE = VariableGlobal

En cualquier procedimiento que se necesite deshabilitar un menu

VariableGlobal = Nro de Use del Menu
NOTIFY (999, 1)

Puede ser 999 o cualquier cosa ya que no estoy usando ese parametro.
(bueno, en realidad podria usar ese parametro en lugar de la global...)
1 es el Tread del Frame

Como desde los otros procedimientos no existen los use del los items de menu
(o sea ?menuitem) lo que hay que hacer es ponerles un numero a cada uno.
Esto se logra poniendolos de esta manera ?use, numero en la definicion del
menu.

[mailto:Fernando_Cerini@hotmail.com Fernando Cerini]

==Formatear fechas en SQL ==
Les paso una función que utilizo para trabajar con las fechas en el SQL parecido al format de clarion. Es muy útil.

CREATE FUNCTION dbo.FormatDateTime
(
@dt DATETIME,
@format VARCHAR(16)
)
RETURNS VARCHAR(64)
AS
BEGIN
DECLARE @dtVC VARCHAR(64)
SELECT @dtVC = CASE @format

WHEN 'LONGDATE' THEN

DATENAME(dw, @dt)
+ ',' + SPACE(1) + DATENAME(m, @dt)
+ SPACE(1) + CAST(DAY(@dt) AS VARCHAR(2))
+ ',' + SPACE(1) + CAST(YEAR(@dt) AS CHAR(4))

WHEN 'LONGDATEANDTIME' THEN

DATENAME(dw, @dt)
+ ',' + SPACE(1) + DATENAME(m, @dt)
+ SPACE(1) + CAST(DAY(@dt) AS VARCHAR(2))
+ ',' + SPACE(1) + CAST(YEAR(@dt) AS CHAR(4))
+ SPACE(1) + RIGHT(CONVERT(CHAR(20),
@dt - CONVERT(DATETIME, CONVERT(CHAR(8),
@dt, 112)), 22), 11)

WHEN 'SHORTDATE' THEN

LEFT(CONVERT(CHAR(19), @dt, 0), 11)

WHEN 'SHORTDATEANDTIME' THEN

REPLACE(REPLACE(CONVERT(CHAR(19), @dt, 0),
'AM', ' AM'), 'PM', ' PM')

WHEN 'UNIXTIMESTAMP' THEN

CAST(DATEDIFF(SECOND, '19700101', @dt)
AS VARCHAR(64))

WHEN 'YYYYMMDD' THEN

CONVERT(CHAR(8), @dt, 112)

WHEN 'YYYY-MM-DD' THEN

CONVERT(CHAR(10), @dt, 23)

WHEN 'YYMMDD' THEN

CONVERT(VARCHAR(8), @dt, 12)

WHEN 'YY-MM-DD' THEN

STUFF(STUFF(CONVERT(VARCHAR(8), @dt, 12),
5, 0, '-'), 3, 0, '-')

WHEN 'MMDDYY' THEN

REPLACE(CONVERT(CHAR(8), @dt, 10), '-', SPACE(0))

WHEN 'MM-DD-YY' THEN

CONVERT(CHAR(8), @dt, 10)

WHEN 'MM/DD/YY' THEN

CONVERT(CHAR(8), @dt, 1)

WHEN 'MM/DD/YYYY' THEN

CONVERT(CHAR(10), @dt, 101)

WHEN 'DDMMYY' THEN

REPLACE(CONVERT(CHAR(8), @dt, 3), '/', SPACE(0))

WHEN 'DD-MM-YY' THEN

REPLACE(CONVERT(CHAR(8), @dt, 3), '/', '-')

WHEN 'DD/MM/YY' THEN

CONVERT(CHAR(8), @dt, 3)

WHEN 'DD/MM/YYYY' THEN

CONVERT(CHAR(10), @dt, 103)

WHEN 'HH:MM:SS 24' THEN

CONVERT(CHAR(8), @dt, 8)

WHEN 'HH:MM 24' THEN

LEFT(CONVERT(VARCHAR(8), @dt, 8), 5)

WHEN 'HH:MM:SS 12' THEN

LTRIM(RIGHT(CONVERT(VARCHAR(20), @dt, 22), 11))

WHEN 'HH:MM 12' THEN

LTRIM(SUBSTRING(CONVERT(
VARCHAR(20), @dt, 22), 10, 5)
+ RIGHT(CONVERT(VARCHAR(20), @dt, 22), 3))

ELSE

'Invalid format specified'

END
RETURN @dtVC
END
GO

Ejemplos:

DECLARE @now DATETIME
SET @now = GETDATE()

PRINT dbo.FormatDateTime(@now, 'LONGDATE')
PRINT dbo.FormatDateTime(@now, 'LONGDATEANDTIME')
PRINT dbo.FormatDateTime(@now, 'SHORTDATE')
PRINT dbo.FormatDateTime(@now, 'SHORTDATEANDTIME')
PRINT dbo.FormatDateTime(@now, 'UNIXTIMESTAMP')
PRINT dbo.FormatDateTime(@now, 'YYYYMMDD')
PRINT dbo.FormatDateTime(@now, 'YYYY-MM-DD')
PRINT dbo.FormatDateTime(@now, 'YYMMDD')
PRINT dbo.FormatDateTime(@now, 'YY-MM-DD')
PRINT dbo.FormatDateTime(@now, 'MMDDYY')
PRINT dbo.FormatDateTime(@now, 'MM-DD-YY')
PRINT dbo.FormatDateTime(@now, 'MM/DD/YY')
PRINT dbo.FormatDateTime(@now, 'MM/DD/YYYY')
PRINT dbo.FormatDateTime(@now, 'DDMMYY')
PRINT dbo.FormatDateTime(@now, 'DD-MM-YY')
PRINT dbo.FormatDateTime(@now, 'DD/MM/YY')
PRINT dbo.FormatDateTime(@now, 'DD/MM/YYYY')
PRINT dbo.FormatDateTime(@now, 'HH:MM:SS 24')
PRINT dbo.FormatDateTime(@now, 'HH:MM 24')
PRINT dbo.FormatDateTime(@now, 'HH:MM:SS 12')
PRINT dbo.FormatDateTime(@now, 'HH:MM 12')
PRINT dbo.FormatDateTime(@now, 'goofy')

Posteado al foro por Omar Squiabro

== Anular Tecla Escape ==

Hay veces que se necesita que el usuario salga de una FORM o de una ventana solo cuando pulse un determinado boton o se halla completado alguna condicion. Y en estos casos puede suceder que si el usuario pulsa la tecla ESC cause algun problema

Primero hay que activar la alerta de la tecla esc en el INIT de la ventana

ALERT(EscKey)

Despues en el evento alertkey

IF KEYCODE() = EscKey
SELECT(?UnDeterminadoCampo) !1= al primero
RETURN Level:Notify
END

Si el codigo embebido es puesto despues del codigo generado por clarion reemplazar el RETURN por CYCLE

Ruben Garcia [http://www.programaya.com (DiPS)]

== Convertir Número Hexadecimal a Binario ==
A veces, y sobre todo al trabajar con estados de puertos de comunicaciones, necesitamos convertir numeros hexadecimales a binario para establecer errores o tratar envios y recepciones.
Esta función hace justamente esto de forma sencilla.

HexaABinario PROCEDURE(PAR:Nhexa) ! (String),String
HBinario String(4),dim(16) !Equivalencias
RetuBina String(100) !Variable Retorno

CODE
HBinario[01] = '0000' ! 0h
HBinario[02] = '0001' ! 1h
HBinario[03] = '0010' ! 2h
HBinario[04] = '0011' ! 3h
HBinario[05] = '0100' ! 4h
HBinario[06] = '0101' ! 5h
HBinario[07] = '0110' ! 6h
HBinario[08] = '0111' ! 7h
HBinario[09] = '1000' ! 8h
HBinario[10] = '1001' ! 9h
HBinario[11] = '1010' ! Ah 65
HBinario[12] = '1011' ! Bh 66
HBinario[13] = '1100' ! Ch 67
HBinario[14] = '1101' ! Dh 68
HBinario[15] = '1110' ! Eh 69
HBinario[16] = '1111' ! Fh 70
CLEAR(RetuBina)
PAR:NHexa = UPPER(PAR:NHexa) !Aseguro letras en mayusculas
LOOP I# = 1 to LEN(CLIP(PAR:NHexa))
IF NUMERIC(PAR:NHexa[I#]) THEN !Si es numero es <= 9
!Asigno equivalente
RetuBina = CLIP(RetuBina) & HBinario[PAR:NHexa[I#]+1]
ELSE
!Asigno equivalente tomando,por ejemplo, 65 - 54 = 11 para "A"
RetuBina = CLIP(RetuBina) & HBinario[VAL(PAR:NHexa[I#])-54]
END
END
!Retorno la cadena binaria sin ceros a la izquierda
RETURN(SUB(RetuBina, INSTRING('1',RetuBina), LEN(CLIP(RetuBina))))

Bueno, espero les sea de utilidad!

Mario A. Wojcik

Manuales

2015-03-07T22:36:00Z

Jorge Brugger: Texto reemplazado: «[http://www.evolutionconsulting.com.ar/download.htm (Evolution Consulting)]» por «[http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]»

Los programadores Clarion reconocemos que existe una falencia importante en la cantidad de manuales disponibles para Clarion, eso es especialmente notable en nuestra lengua.

Por eso es importante conocer los manuales diponibles y dónde descargarlos o acceder.

== Clarion 5 Primeros pasos ==

Una traducción del Getting Started de Clarion 5 realizado por Unisoft. '''Altamente recomendable.''' Sobre todo para los que principiantes que les cuesta leer en inglés.

[http://www.lawebdelprogramador.com/cursos/enlace.php?idp=1066&id=16&texto=Clarion Manual primeros pasos Clarion 5]

== Anti Manual de SQL ==

De Mauricio Nicastro.

Imposible empezar a incursionar en SQL sin leerlo.

[[Anti Manual de SQL]]

== Los mejores puntos embebidos ==

De Mauricio Nicastro.

Este tema tiene una sección propia en este Wiki, pero el documento tiene consistencia de manual, por eso lo incluyo en forma completa.

[[Los mejores puntos embebidos]]

== Guia de las mejores prácticas de Clarion ==

De Cristian Olsen.

[[Guia de las mejores prácticas de Clarion]]

== SQL Embebido ==
Doc. que explica como usar sql embebido y un ejemplo de como crear un editor de SQL

[http://www.templatesclarion.com.ar/downloads/ (Templates Clarion)]

== Migración TPS a SQL ==
Primeros pasos en la migración de TPS a SQL. Basado en una presentación del creador de los drivers, Scott Ferret. La cual tuve la suerte de presenciar y me tomé el atrevimiento de hacer algunos cambios...

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

== Funciones ODBC ==
Lista de funciones muy útiles de ODBC.

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

== Strings de Conexión ==
De diversas bases en formato DSNLess (sin necesidad de crear el DNS).

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

== Tipos de Datos SQL ==
Compatibilidad de tipos entre SQL y Clarion.

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

== Multithreading con Clarion6 ==
Uso correcto de variables y queues globales. Ejemplos de Secciones criticas, Mutexs y Semáforos. Incluye documentación de la charla presentada en CONDEV por Fernando Cerini

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

== Firebird ==
Primeros pasos en la instalación del Firebird. (Gracias Roque Delia)

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

Manuales

2015-02-28T14:53:01Z

Jorge Brugger: Videos de Youtube ya no están disponibles

Los programadores Clarion reconocemos que existe una falencia importante en la cantidad de manuales disponibles para Clarion, eso es especialmente notable en nuestra lengua.

Por eso es importante conocer los manuales diponibles y dónde descargarlos o acceder.

== Clarion 5 Primeros pasos ==

Una traducción del Getting Started de Clarion 5 realizado por Unisoft. '''Altamente recomendable.''' Sobre todo para los que principiantes que les cuesta leer en inglés.

[http://www.lawebdelprogramador.com/cursos/enlace.php?idp=1066&id=16&texto=Clarion Manual primeros pasos Clarion 5]

== Anti Manual de SQL ==

De Mauricio Nicastro.

Imposible empezar a incursionar en SQL sin leerlo.

[[Anti Manual de SQL]]

== Los mejores puntos embebidos ==

De Mauricio Nicastro.

Este tema tiene una sección propia en este Wiki, pero el documento tiene consistencia de manual, por eso lo incluyo en forma completa.

[[Los mejores puntos embebidos]]

== Guia de las mejores prácticas de Clarion ==

De Cristian Olsen.

[[Guia de las mejores prácticas de Clarion]]

== SQL Embebido ==
Doc. que explica como usar sql embebido y un ejemplo de como crear un editor de SQL

[http://www.evolutionconsulting.com.ar/download.htm (Evolution Consulting)]

== Migración TPS a SQL ==
Primeros pasos en la migración de TPS a SQL. Basado en una presentación del creador de los drivers, Scott Ferret. La cual tuve la suerte de presenciar y me tomé el atrevimiento de hacer algunos cambios...

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

== Funciones ODBC ==
Lista de funciones muy útiles de ODBC.

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

== Strings de Conexión ==
De diversas bases en formato DSNLess (sin necesidad de crear el DNS).

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

== Tipos de Datos SQL ==
Compatibilidad de tipos entre SQL y Clarion.

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

== Multithreading con Clarion6 ==
Uso correcto de variables y queues globales. Ejemplos de Secciones criticas, Mutexs y Semáforos. Incluye documentación de la charla presentada en CONDEV por Fernando Cerini

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

== Firebird ==
Primeros pasos en la instalación del Firebird. (Gracias Roque Delia)

[http://www.evolutionconsulting.com.ar/download.html (Evolution Consulting)]

Portada

2015-02-28T14:49:49Z

Jorge Brugger:

¡Bienvenido!

Este Wiki tiene por objetivo ser una guía en idioma español de la herramienta de desarrollo de aplicaciones Clarion, agrupando manuales, trucos, ideas, código, templates gratuitos o simplemente recomendaciones para los usuarios de Clarion. La consigna es agrupar los documentos o respuestas que se han publicado en los foros de consulta en un lugar centralizado, donde los usuarios novatos (y los más avanzados también...) puedan tenerla más a mano y organizada.

En el menú de la derecha puedes acceder a las distintas secciones del sitio, o utilizar el buscador situado en la esquina superior izquierda.

¿Te interesaría colaborar como editor?
Envíame un e-mail a [mailto:jbrugger@clarionwiki.com.ar jbrugger@clarionwiki.com.ar] para gestionar el alta de la cuenta.

Templates gratuitos

2014-11-18T13:24:59Z

Jorge Brugger:

Existen diversos templates adicionales para Clarion que extienden notablemente su funcionalidad.

Esta sección debería incluir el nombre, una breve descripción del mismo, las versiones compatibles de Clarion y el sitio desde donde puede descargarse.

== ABCFree ==

Es el conjunto de templates y librerias gratuitas más interesante para Clarion.
Esta disponible en http://www.authord.com/Clarion . Frecuentemente actualizado y cubre todos los niveles de programación con Clarion: bajo y alto nivel. Fundamental

== Botpl ==
Sitio web: http://comsoft7.com/Botpl.htm

Incluye:

AppSpecsControl, BarCodeLabelControl,BrowseSearch,LabelControl,ListHorzRuntime,ListVertRuntime, PerCentGraph,PerCentGraphVert,Bo_resc 32bit only.

== Clarion Australia ==
http://www.comformark.com.au/

Clarion Autralia

== Clarion FreeImage Project ==

http://www.clarionfreeimage.com/

Conjunto de clases y un template que implementa la librería open source FreeImage para procesamiento de imágenes en Clarion 5.5 y 6.x.
Tiene una seccion[http://www.clarionfreeimage.com/related.html] con varias clases y ejemplos: escanear con eztwain, enumerar monitores, barras de progreso e iconos en Barras de estado, botones con alpha blend y smooth scrolling control

== Evolution Consulting ==

[http://www.evolutionconsulting.com.ar/download.html Seccion Downloads]

[http://www.evolutionconsulting.com.ar/download.html MENSAJES DE CLARION EN ESPAÑOL ]

Traducción al español de todos los botones, mensajes, etc... que se utilizan en la generación de los Wizzards. Actualizado siempre a la última version de Clarion 6.1. Una herramienta indispensable para nuestra comunidad Latinoamericana.

Para instalar simplemente copie los archivos al directorio Clarion6\LIBSRC.

También agregamos la traducción del Calendario ABUTILUI

[http://www.evolutionconsulting.com.ar/download.html EVOLUTION MAIL TEMPLATE (Clarion 5.0) (Clarion 5.5) (Clarion 6.1) (Clarion 7.2)]

El producto está compuesto por un Control Template para envío de mail y un Extension Template para enviar los WMF del preview por mail con selector de página. Permite guardar el wmf en un word y generar el attach automáticamente dentro de un mail o bien dejarlo en segundo plano del aplicativo.

[http://www.evolutionconsulting.com.ar/download.html EVOLUTION TOOLS (Clarion 5, 5.5 y 6.1) ]

Incluye el Control Template tan solicitado "página de páginas" en los reportes.

Evita el mensaje 'No hay registros para procesar'

STREAM y FLUSH Automático en los process.

Control template que nos permite pegar un calendario en una windows. La diferencia de este template con otros free es que éste agrega el calendario dentro de la misma ventana como "Control Template", los otros son simplemente procedimientos aparte.

Enter por Tab mejorado.

Imprimir Página Desde - Hasta desde Preview.

Configuración de Impresora en Preview.

Impresión Página Actual en Preview.

Este template se irá actualizando periódicamente, se aceptan sugerencias...

[http://www.evolutionconsulting.com.ar/download.html ARBOL DE PROCEDIMIENTOS ]

Pequeño Utility template que genera el árbol de procedimientos en un archivo NombreAPP.TXT

[http://www.evolutionconsulting.com.ar/download.html CLARION BATCH COMPILER (beta 11) ]

Este excelente producto de Cristian Olsen compila en modo Batch todos los APPs del sistema. Compatible con todas las versiones de Clarion

[http://www.evolutionconsulting.com.ar/download.html INFORMACION DE PROCEDIMIENTOS ]

Template muy útil para volcar información detallada de los procedimientos de un app, con nombre, tipo, prototipo, ultima modificación, si es local o externo, etc (Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.evolutionconsulting.com.ar/download.html GRABAR TAB ELEGIDO ]

Se agrega a los browses con múltiples tabs y graba como se lo utilizó la ultima vez para cuando se reingrese, se pare nuevamente en ese tab(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.evolutionconsulting.com.ar/download.html TRACE PROCEDIMIENTOS ]

Este es mas complejo, es global y se indica un procedimiento que es le que recibirá el procedimiento y app por el que se está pasando, este procedimiento (que el usuario debe crear) es que debe grabar en un archivo deseado, el resultado. En mi caso graba en un txt, el procedimiento, app, fecha y hora, y tengo una variable en un INI para indicar si debe grabarse o no.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.evolutionconsulting.com.ar/download.html CAMPOS OBLIGATORIOS ]

Extensión que hace no se pueda salir de los campos obligatorios. Es global con opciones locales (se puede deshabilitar en cada procedimiento). Importante: Es necesario crear un alert key global para salir del procedimiento para dejar escapar al usuario en caso de necesidad.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.evolutionconsulting.com.ar/download.html VARIOS ]

Tiene 2 funciones, si se presiona CrtlAltP, indica en un message en que procedimiento estamos y en que APP está y una función que si estás parado en un campo con formato de fecha y presionas el + del teclado numérico asigna la fecha del día.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.evolutionconsulting.com.ar/download.html DCT2SQL ]

La última versión de uno de los templates mas populares para la generación de Scripts SQL a partir del DCT (Gracias Roberto Artigas)

[http://www.evolutionconsulting.com.ar/download.html MCI ]

Template que reproduce audio (Wav, Mp3) y video (Avi, Mpg) (Gracias Victor Pierri)

[http://www.evolutionconsulting.com.ar/download.html Calendario + 18 funciones ]

Template del estilo PopUp Calendario y un conjunto de 18 Funciones muy útiles (Ver mas info) Gracias Francisco J. Carabez

[http://www.evolutionconsulting.com.ar/download.html Print Driver ]

Template para impresoras matriciales, traducido y mejorado por Ruben Caporossi . Simplemente se registra en Global Extensions del app y las funciones están disponibles

[http://www.evolutionconsulting.com.ar/download.html Esta página se actualiza constantemente...]

== SICyA Software ==
http://www.sicya.com

''' SICyA Templates '''

AutoCompletar_SICyA - Control entry de autocompletado desde una tabla.

Calendario_SICyA - Calendario con estilo XP con manejo de dominicales y feriados.

LlamaProcedimiento_SICyA - Llama procedimientos con parámetros o en forma thread.

VolumeDiscoDuro_SICyA - Captura Serial, nombre del Volumen y Tipo Archivos de un Disco

Botones_SICyA - Extensión para tener Botones con un estilo propio en aplicaciones no XP.

[http://www.sicya.com/download/SICyA_Templates_Build_051007.exe Descargar el template aqui...]

== Solace ==

http://www.solace-software.demon.co.uk/freetemplates.htm

Enhanced standard HTML help template

Colour all columns in a browse on a condition without having to individually specify each column

Screen Resolution

Make Directory

Read Only Window

Open Close Files in Source Template

Add Wallpaper to every Window

Override Recursive Insert Message

Global extension to change the Font of every screen in your app.

Global Extension to allow users to make all controls flat

== tabajara ==

http://www.tabajara.com/downloads.html

Browser to HTML - Just populate a Button and you can export to HTML

Browser to CSV - Just populate a Button, and Done! This way you can export to Excel.

Files to CSV - Choose files to export data. (export files to CSV selecting from DCT)

Report Green Bar - makes shadowed every other report detail.

== xFunction ==

Colección gratuita de templates de código de la empresa Sealsoft. Incluyen funciones para manejo de fechas, archivos y paths, y algunas otras. Puede descargarse de http://www.seal-soft.com

== Locus Templates ==

http://www.riebens.co.za/index.php?option=com_content&view=article&id=39&Itemid=183

Excelente conjunto de templates que abarcan varias categorias:

'''CONTROL TEMPLATES:'''
* PageTree Seleccionar una hoja de propiedades de un listbox tipo tree
* PopupDate Seleccionar fecha desde un calendario
* PopupDirectory Seleccionar directorio
* RichEdit Completo editor de texto enriquecido (RTF) totalmente escrito en clarion con toolbar y tabulador.

'''PROCEDURES:'''
* QBEDialog Crea Dialogo QBE (Query by Example).

'''CODE TEMPLATES:'''
* CWPrintEngine Imprimir un reporte creado con el CW Report Writer

'''EXTENSION TEMPLATES:'''
* BrowseEdit Edit in place para un browse box con validación de campos y lookup
* BrowseTotal Totalizar campos en un browse box.
* BrowseValue Crea un checkbox editable
* FormSplit Divisores verticales u horizontales
* GetIniFile Obtiene y guarda valores en un archivo ini.
* LimitStarts Evita comenzar 2 MDI threads a la vez
* PopupToolbar Toolbar ocultable
* ReportFilter Seleccionar registros para imprimir y resaltar. Incluye un visor de reporte
* FILE MANAGER Posibilita cambiar el dct, recompilar, y todos los archivos son actualizados automáticamente a la nueva version

Templates gratuitos

2014-11-18T13:24:12Z

Jorge Brugger: /* Locus Templates */

Existen diversos templates adicionales para Clarion que extienden notablemente su funcionalidad.

Esta sección debería incluir el nombre, una breve descripción del mismo, las versiones compatibles de Clarion y el sitio desde donde puede descargarse.

== ABCFree ==

Es el conjunto de templates y librerias gratuitas más interesante para Clarion.
Esta disponible en http://www.authord.com/Clarion . Frecuentemente actualizado y cubre todos los niveles de programación con Clarion: bajo y alto nivel. Fundamental

== Botpl ==
Sitio web: http://comsoft7.com/Botpl.htm

Incluye:

AppSpecsControl, BarCodeLabelControl,BrowseSearch,LabelControl,ListHorzRuntime,ListVertRuntime, PerCentGraph,PerCentGraphVert,Bo_resc 32bit only.

== Clarion Australia ==
http://www.comformark.com.au/

Clarion Autralia

== Clarion FreeImage Project ==

http://www.clarionfreeimage.com/

Conjunto de clases y un template que implementa la librería open source FreeImage para procesamiento de imágenes en Clarion 5.5 y 6.x.
Tiene una seccion[http://www.clarionfreeimage.com/related.html] con varias clases y ejemplos: escanear con eztwain, enumerar monitores, barras de progreso e iconos en Barras de estado, botones con alpha blend y smooth scrolling control

== Evolution Consulting ==

[http://www.evolutionconsulting.com.ar/download.html Seccion Downloads]

[http://www.evolutionconsulting.com.ar/download.html MENSAJES DE CLARION EN ESPAÑOL ]

Traducción al español de todos los botones, mensajes, etc... que se utilizan en la generación de los Wizzards. Actualizado siempre a la última version de Clarion 6.1. Una herramienta indispensable para nuestra comunidad Latinoamericana.

Para instalar simplemente copie los archivos al directorio Clarion6\LIBSRC.

También agregamos la traducción del Calendario ABUTILUI

[http://www.evolutionconsulting.com.ar/download.html EVOLUTION MAIL TEMPLATE (Clarion 5.0) (Clarion 5.5) (Clarion 6.1) (Clarion 7.2)]

El producto está compuesto por un Control Template para envío de mail y un Extension Template para enviar los WMF del preview por mail con selector de página. Permite guardar el wmf en un word y generar el attach automáticamente dentro de un mail o bien dejarlo en segundo plano del aplicativo.

[http://www.evolutionconsulting.com.ar/download.html EVOLUTION TOOLS (Clarion 5, 5.5 y 6.1) ]

Incluye el Control Template tan solicitado "página de páginas" en los reportes.

Evita el mensaje 'No hay registros para procesar'

STREAM y FLUSH Automático en los process.

Control template que nos permite pegar un calendario en una windows. La diferencia de este template con otros free es que éste agrega el calendario dentro de la misma ventana como "Control Template", los otros son simplemente procedimientos aparte.

Enter por Tab mejorado.

Imprimir Página Desde - Hasta desde Preview.

Configuración de Impresora en Preview.

Impresión Página Actual en Preview.

Este template se irá actualizando periódicamente, se aceptan sugerencias...

[http://www.evolutionconsulting.com.ar/download.html ARBOL DE PROCEDIMIENTOS ]

Pequeño Utility template que genera el árbol de procedimientos en un archivo NombreAPP.TXT

[http://www.evolutionconsulting.com.ar/download.html CLARION BATCH COMPILER (beta 11) ]

Este excelente producto de Cristian Olsen compila en modo Batch todos los APPs del sistema. Compatible con todas las versiones de Clarion

[http://www.evolutionconsulting.com.ar/download.html INFORMACION DE PROCEDIMIENTOS ]

Template muy útil para volcar información detallada de los procedimientos de un app, con nombre, tipo, prototipo, ultima modificación, si es local o externo, etc (Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.evolutionconsulting.com.ar/download.html GRABAR TAB ELEGIDO ]

Se agrega a los browses con múltiples tabs y graba como se lo utilizó la ultima vez para cuando se reingrese, se pare nuevamente en ese tab(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.evolutionconsulting.com.ar/download.html TRACE PROCEDIMIENTOS ]

Este es mas complejo, es global y se indica un procedimiento que es le que recibirá el procedimiento y app por el que se está pasando, este procedimiento (que el usuario debe crear) es que debe grabar en un archivo deseado, el resultado. En mi caso graba en un txt, el procedimiento, app, fecha y hora, y tengo una variable en un INI para indicar si debe grabarse o no.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.evolutionconsulting.com.ar/download.html CAMPOS OBLIGATORIOS ]

Extensión que hace no se pueda salir de los campos obligatorios. Es global con opciones locales (se puede deshabilitar en cada procedimiento). Importante: Es necesario crear un alert key global para salir del procedimiento para dejar escapar al usuario en caso de necesidad.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.evolutionconsulting.com.ar/download.html VARIOS ]

Tiene 2 funciones, si se presiona CrtlAltP, indica en un message en que procedimiento estamos y en que APP está y una función que si estás parado en un campo con formato de fecha y presionas el + del teclado numérico asigna la fecha del día.(Gracias Gustavo Bocian y los amigos de BTB Soft)

[http://www.evolutionconsulting.com.ar/download.html DCT2SQL ]

La última versión de uno de los templates mas populares para la generación de Scripts SQL a partir del DCT (Gracias Roberto Artigas)

[http://www.evolutionconsulting.com.ar/download.html MCI ]

Template que reproduce audio (Wav, Mp3) y video (Avi, Mpg) (Gracias Victor Pierri)

[http://www.evolutionconsulting.com.ar/download.html Calendario + 18 funciones ]

Template del estilo PopUp Calendario y un conjunto de 18 Funciones muy útiles (Ver mas info) Gracias Francisco J. Carabez

[http://www.evolutionconsulting.com.ar/download.html Print Driver ]

Template para impresoras matriciales, traducido y mejorado por Ruben Caporossi . Simplemente se registra en Global Extensions del app y las funciones están disponibles

[http://www.evolutionconsulting.com.ar/download.html Esta página se actualiza constantemente...]

== SICyA Software ==
http://www.sicya.com

''' SICyA Templates '''

AutoCompletar_SICyA - Control entry de autocompletado desde una tabla.

Calendario_SICyA - Calendario con estilo XP con manejo de dominicales y feriados.

LlamaProcedimiento_SICyA - Llama procedimientos con parámetros o en forma thread.

VolumeDiscoDuro_SICyA - Captura Serial, nombre del Volumen y Tipo Archivos de un Disco

Botones_SICyA - Extensión para tener Botones con un estilo propio en aplicaciones no XP.

[http://www.sicya.com/download/SICyA_Templates_Build_051007.exe Descargar el template aqui...]

== Solace ==

http://www.solace-software.demon.co.uk/freetemplates.htm

Enhanced standard HTML help template

Colour all columns in a browse on a condition without having to individually specify each column

Screen Resolution

Make Directory

Read Only Window

Open Close Files in Source Template

Add Wallpaper to every Window

Override Recursive Insert Message

Global extension to change the Font of every screen in your app.

Global Extension to allow users to make all controls flat

== tabajara ==

http://www.tabajara.com/downloads.html

Browser to HTML - Just populate a Button and you can export to HTML

Browser to CSV - Just populate a Button, and Done! This way you can export to Excel.

Files to CSV - Choose files to export data. (export files to CSV selecting from DCT)

Report Green Bar - makes shadowed every other report detail.

== xFunction ==

Colección gratuita de templates de código de la empresa Sealsoft. Incluyen funciones para manejo de fechas, archivos y paths, y algunas otras. Puede descargarse de http://www.seal-soft.com

== Locus Templates ==

http://www.riebens.co.za/index.php?option=com_content&view=article&id=39&Itemid=183

Excelente conjunto de templates que abarcan varias categorias:

'''CONTROL TEMPLATES:'''
* PageTree Seleccionar una hoja de propiedades de un listbox tipo tree
* PopupDate Seleccionar fecha desde un calendario
* PopupDirectory Seleccionar directorio
* RichEdit Completo editor de texto enriquecido (RTF) totalmente escrito en clarion con toolbar y tabulador.

'''PROCEDURES:'''
* QBEDialog Crea Dialogo QBE (Query by Example).

'''CODE TEMPLATES:'''
* CWPrintEngine Imprimir un reporte creado con el CW Report Writer

'''EXTENSION TEMPLATES:'''
* BrowseEdit Edit in place para un browse box con validación de campos y lookup
* BrowseTotal Totalizar campos en un browse box.
* BrowseValue Crea un checkbox editable
* FormSplit Divisores verticales u horizontales
* GetIniFile Obtiene y guarda valores en un archivo ini.
* LimitStarts Evita comenzar 2 MDI threads a la vez
* PopupToolbar Toolbar ocultable
* ReportFilter Seleccionar registros para imprimir y resaltar. Incluye un visor de reporte
* FILE MANAGER Posibilita cambiar el dct, recompilar, y todos los archivos son actualizados automáticamente a la nueva version

MediaWiki:Sidebar

2014-11-18T13:21:02Z

Jorge Brugger:

MediaWiki:Sidebar

2014-11-18T13:20:47Z

Jorge Brugger:

Comunidad Clarion

2014-11-18T12:50:04Z

Jorge Brugger: /* Bases de conocimiento gratuitas */

== Soporte ==

=== Grupos de noticias ===

[news://news.softvelocity.com/softvelocity.clarion.intl.spanish Grupo de soporte oficial en Español]

Server: news.softvelocity.com

Grupo: softvelocity.clarion.intl.spanish

=== Foro Clarioneros ===

[http://www.clarioneros.com www.clarioneros.com]

=== Clarionhub (en inglés) ===

[http://www.clarionhub.com www.clarionhub.com]

== Bases de conocimiento gratuitas ==

[http://www.par2.com/CWS/C5LAUNCH.DLL/FAQS/THEFAQS.EXE.0 Par2.com Just the FAQs]

[http://www.icetips.com/articleindex.php Icetips Articles]

[http://www.clariondeveloper.net/modules/smartfaq/ ClarionDeveloper FAQs]

[http://faq.clarionmag.com ClarionFAQ en Clarion Magazine]

[http://www.nettalkcentral.com/ Página de ayuda con Templates de Capesoft]

[http://www.ClarionLive.com/ Página que contiene Webinars y tutoriales. Muy útil.]

== Repositorios de archivos ==

[http://www.clariondeveloper.net/modules/wfdownloads/ ClarionDeveloper downloads]

[http://www.icetips.com/ftp/ Icetips FTP]

[http://www.par2.com/CWS/C5LAUNCH.DLL/D7.EXE.0 Par2.com Download Center]

[http://evolutionconsulting.com.ar/download.htm Evolution Consulting - Downloads]

[http://www.dasu.com.ar/clarion DASU]

Comunidad Clarion

2014-11-18T12:48:35Z

Jorge Brugger: /* Soporte */

== Soporte ==

=== Grupos de noticias ===

[news://news.softvelocity.com/softvelocity.clarion.intl.spanish Grupo de soporte oficial en Español]

Server: news.softvelocity.com

Grupo: softvelocity.clarion.intl.spanish

=== Foro Clarioneros ===

[http://www.clarioneros.com www.clarioneros.com]

=== Clarionhub (en inglés) ===

[http://www.clarionhub.com www.clarionhub.com]

== Bases de conocimiento gratuitas ==

[http://www.schoeffler.biz/cwkb.php Clarion for Windows Knowledge Base]

[http://www.clarionfaq.com ClarionFAQ]

[http://www.par2.com/CWS/C5LAUNCH.DLL/FAQS/THEFAQS.EXE.0 Par2.com Just the FAQs]

[http://www.icetips.com/articleindex.php Icetips Articles]

[http://www.clariondeveloper.net/modules/smartfaq/ ClarionDeveloper FAQs]

[http://faq.clarionmag.com ClarionFAQ en Clarion Magazine]

[http://www.nettalkcentral.com/ Página de ayuda con Templates de Capesoft]

[http://www.ClarionLive.com/ Página que contiene Webinars y tutoriales. Muy útil.]

[http://www.clarionwiki.com/ Wiki de Clarion en inglés]

== Repositorios de archivos ==

[http://www.clariondeveloper.net/modules/wfdownloads/ ClarionDeveloper downloads]

[http://www.icetips.com/ftp/ Icetips FTP]

[http://www.par2.com/CWS/C5LAUNCH.DLL/D7.EXE.0 Par2.com Download Center]

[http://evolutionconsulting.com.ar/download.htm Evolution Consulting - Downloads]

[http://www.dasu.com.ar/clarion DASU]

Portada

2014-11-12T17:06:51Z

Jorge Brugger:

¡Bienvenido!

Este Wiki pretende ser una guía en idioma español para los usuarios de Clarion.

La idea del sitio es agrupar manuales, trucos, ideas, código, templates gratuitos o simplemente recomendaciones para los usuarios de Clarion. El objetivo es agrupar los documentos o respuestas que se han publicado en los foros de consulta en un lugar centralizado, donde los usuarios novatos (y los más avanzados también...) puedan tenerla más a mano y organizada.

En el menú de la derecha puedes acceder a las distintas secciones del sitio, o utilizar el buscador situado en la esquina superior izquierda.

¿Te interesaría colaborar como editor?
Envíame un e-mail a [mailto:jbrugger@clarionwiki.com.ar jbrugger@clarionwiki.com.ar] para gestionar el alta de la cuenta.

Portada

2014-11-12T15:05:34Z

Jorge Brugger:

Portada

2014-11-12T14:49:21Z

Jorge Brugger:

¡Bienvenido!

Este Wiki pretende ser una guía en idioma español para los usuarios de Clarion.

La idea del sitio es agrupar manuales, trucos, ideas, código, templates gratuitos o simplemente recomendaciones para los usuarios de Clarion. El objetivo es agrupar los documentos o respuestas que se han publicado en los foros de consulta en un lugar centralizado, donde los usuarios novatos (y los más avanzados también...) puedan tenerla más a mano y organizada.

En el menú de la derecha puedes acceder a las distintas secciones del sitio, o utilizar el buscador situado en la esquina superior izquierda.

¿Te interesaría colaborar como editor?
Envíame un e-mail a jbrugger@clarionwiki.com.ar para gestionar el alta de la cuenta.

Portada

2014-11-12T14:35:22Z

Jorge Brugger:

MediaWiki:Sidebar

2014-11-12T14:31:42Z

Jorge Brugger:

MediaWiki:Sidebar

2014-11-12T14:30:03Z

Jorge Brugger:

* navigation
** mainpage|mainpage-description
** recentchanges-url|recentchanges
* Secciones
** manuales|Manuales
** Puntos Embebidos|Puntos embebidos
** Codigo Util|Código útil
** Recomendaciones|Recomendaciones y trucos
** Soluciones|Soluciones a Problemas Comunes
** Templates Gratuitos
** Aplicaciones de Ejemplo
** Comunidad Clarion|Comunidad Clarion

* SEARCH
* TOOLBOX
* LANGUAGES

Comunidad Clarion

2014-11-12T14:27:22Z

Jorge Brugger:

== Soporte ==

=== Grupos de noticias ===

Cualquier duda que tengas de Clarion podes recurrir al [news://news.softvelocity.com/softvelocity.clarion.intl.spanish Foro de soporte oficial en Español]

Server: news.softvelocity.com

Grupo: softvelocity.clarion.intl.spanish

=== Foro Clarioneros ===

[http://www.clarioneros.com www.clarioneros.com]

== Bases de conocimiento gratuitas ==

[http://www.schoeffler.biz/cwkb.php Clarion for Windows Knowledge Base]

[http://www.clarionfaq.com ClarionFAQ]

[http://www.par2.com/CWS/C5LAUNCH.DLL/FAQS/THEFAQS.EXE.0 Par2.com Just the FAQs]

[http://www.icetips.com/articleindex.php Icetips Articles]

[http://www.clariondeveloper.net/modules/smartfaq/ ClarionDeveloper FAQs]

[http://faq.clarionmag.com ClarionFAQ en Clarion Magazine]

[http://www.nettalkcentral.com/ Página de ayuda con Templates de Capesoft]

[http://www.ClarionLive.com/ Página que contiene Webinars y tutoriales. Muy útil.]

[http://www.clarionwiki.com/ Wiki de Clarion en inglés]

== Repositorios de archivos ==

[http://www.clariondeveloper.net/modules/wfdownloads/ ClarionDeveloper downloads]

[http://www.icetips.com/ftp/ Icetips FTP]

[http://www.par2.com/CWS/C5LAUNCH.DLL/D7.EXE.0 Par2.com Download Center]

[http://evolutionconsulting.com.ar/download.htm Evolution Consulting - Downloads]

[http://www.dasu.com.ar/clarion DASU]

Portada

2014-11-12T14:27:04Z

Jorge Brugger:

== Wiki Clarion en español ==

Bienvenidos a este Wiki, que intenta ser una guía en idioma español para los usuarios de Clarion.

La idea del sitio es agrupar manuales, trucos, ideas, código, templates gratuitos o simplemente recomendaciones para los usuarios de Clarion. El objetivo es agrupar los documentos o respuestas que se han publicado en los foros de consulta en un lugar centralizado, donde los usuarios novatos (y los más avanzados también...) puedan tenerla más a mano y organizada.

== Secciones ==

[[Manuales]]

[[Puntos Embebidos|Puntos embebidos]]

[[Codigo Util|Código útil]]

[[Recomendaciones|Recomendaciones y trucos]]

[[Soluciones|Soluciones a Problemas Comunes]]

[[Templates gratuitos]]

[[Aplicaciones de Ejemplo]]

[[Sitios Web sobre Clarion]]

== ¿Cómo se edita una página Wiki? ==

Para conocer cómo se edita/crea una página Wiki pueden leer directamente el tutorial en español desde la Wikipedia. Visiten por favor la siguiente dirección:

[http://es.wikipedia.org/wiki/Wikipedia:C%C3%B3mo_se_edita_una_p%C3%A1gina ¿Cómo se edita una páqina Wiki?]

En este wiki, sólo los usuarios registrados pueden crear o editar páginas. Si desea colaborar como editor, por favor solicite la creación de su cuenta a jbrugger (arroba) dasu.com.ar

Tenga en cuenta que NO debe hacer pruebas sobre este sitio, ya que el mismo forma parte de la comunidad de usuarios de Clarion y es consultado diariamente.

== Importante ==

Toda la información que se provee aquí debe ser de uso público y por favor, tengan en cuenta que va a ser utilizada por cualquier programador Clarion. Si ud. tiene algo que no desea compartir, o sólo está disponible por una suma de dinero, por favor no lo postee aquí.

Comunidad Clarion

2014-11-12T14:26:20Z

Jorge Brugger:

== Bases de conocimiento gratuitas ==

[http://www.schoeffler.biz/cwkb.php Clarion for Windows Knowledge Base]

[http://www.clarionfaq.com ClarionFAQ]

[http://www.par2.com/CWS/C5LAUNCH.DLL/FAQS/THEFAQS.EXE.0 Par2.com Just the FAQs]

[http://www.icetips.com/articleindex.php Icetips Articles]

[http://www.clariondeveloper.net/modules/smartfaq/ ClarionDeveloper FAQs]

[http://faq.clarionmag.com ClarionFAQ en Clarion Magazine]

[http://www.nettalkcentral.com/ Página de ayuda con Templates de Capesoft]

[http://www.ClarionLive.com/ Página que contiene Webinars y tutoriales. Muy útil.]

[http://www.clarionwiki.com/ Wiki de Clarion en inglés]

== Repositorios de archivos ==

[http://www.clariondeveloper.net/modules/wfdownloads/ ClarionDeveloper downloads]

[http://www.icetips.com/ftp/ Icetips FTP]

[http://www.par2.com/CWS/C5LAUNCH.DLL/D7.EXE.0 Par2.com Download Center]

[http://evolutionconsulting.com.ar/download.htm Evolution Consulting - Downloads]

[http://www.dasu.com.ar/clarion DASU]

Comunidad Clarion

2014-11-12T14:11:56Z

Jorge Brugger:

Comunidad Clarion

2014-11-12T14:11:40Z

Jorge Brugger: /* Repositorios de archivos */

Comunidad Clarion

2014-11-12T14:11:27Z

Jorge Brugger: /* Repositorios de archivos */

Comunidad Clarion

2014-11-12T14:11:04Z

Jorge Brugger: /* Bases de conocimiento gratuitas */

Comunidad Clarion

2014-11-12T14:10:33Z

Jorge Brugger:

Comunidad Clarion

2014-11-12T13:51:00Z

Jorge Brugger: /* Bases de conocimiento */

== Bases de conocimiento ==

[http://www.schoeffler.biz/cwkb.php Clarion for Windows Knowledge Base]

[http://www.clarionfaq.com ClarionFAQ]

[http://www.icetips.com/articleindex.php Icetips Articles]

[http://www.par2.com/CWS/C5LAUNCH.DLL/FAQS/THEFAQS.EXE.0 Par2.com Just the FAQs]

[http://www.clariondeveloper.net/modules/smartfaq/ ClarionDeveloper FAQs]

[http://faq.clarionmag.com ClarionFAQ en Clarion Magazine]

[http://www.nettalkcentral.com/ Página de ayuda con Templates de Capesoft]

Comunidad Clarion

2014-11-12T13:50:42Z

Jorge Brugger: /* Bases de conocimiento */

Comunidad Clarion

2014-11-12T13:50:25Z

Jorge Brugger: /* Bases de conocimiento */