Re: Cambios HMG 2.x a 3.x No puedo compilar
Posted: Mon Sep 12, 2011 8:44 pm
Hola Daniel, los SET LANG, EPOCH y DATE, ya los sabía de Clipper , pero el CODEPAGE sólo lo había utilizado en HMG.danielmaximiliano wrote:Angel:
SET Lang es para los mensajes de sistema en tu lengua
SET Codepage es para tipo de teclado
SET EPOCH para la fecha de comeinzo de epoca
SET DATE para formato de fecha en tu sistema
Pero he probado sin ningún SET en el siguiente programa y me sale todo bién.
Code: Select all
#include "hmg.ch"
Function Main
public aMenu := { {"Mayúsculas","MsgInfo('En Mayúsculas ÁÉÍÓÚÑÇ')"} ,;
{"Minúsculas","MsgInfo('áéíóúñç')"} ,;
{"Caractéres" ,"MsgInfo('ºª%&€$@# - Hasta el €uro sale bien')" }},;
cAction
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 400 ;
TITLE 'Prueba de Code Page!' ;
MAIN
DEFINE MAIN MENU
For nI=1 To Len(aMenu)
POPUP aMenu[nI][1]
cAction:=aMenu[nI][2]
ITEM aMenu[nI][1] ACTION { || &cAction }
END POPUP
Next
POPUP 'Salir'
ITEM 'Salir de la Prueba' ACTION ThisWindow.Release
END POPUP
END MENU
END WINDOW
ACTIVATE WINDOW Win_1
Return
Gracias por la aclaración, y parece ser que este post está ya solucionado, por lo menos por mi parte y me ha sido de mucha utilidad y agradezco vuestra colaboración.
Saludos.
Angel.