Buenos días,Antonio Linares wrote:Usa esto en tu aplicación:
REQUEST HB_CODEPAGE_ESWIN
...
HB_CDPSELECT( "ESWIN" )
gautxori wrote:Buenos días,Antonio Linares wrote:Usa esto en tu aplicación:
REQUEST HB_CODEPAGE_ESWIN
...
HB_CDPSELECT( "ESWIN" )
Lo probaré pero esto tiene que ver con el juego de caracteres, ñ, vocales acentuadas etc....
No se si con las fechas hara algo, pero por probar
Un saludo
Gracias Antonio.Antonio Linares wrote:Angel,
Voy a probarlo
Code: Select all
#include "FiveWin.ch"
#INCLUDE "adordd.ch"
//----------- Iconos y Brushes Comunes ------------//
static oIcon
//----------- Ventanas del Entorno ----------------//
static oDlg, oDlgApu, oImageList, oToolBar
static oBitLogo
static oBitTitulo
static oWnd,oIni
static oDlgMenuP
static oDlgMenuF
static oEntrada
//----------- Controles de la Entrada -------------//
static oBtnSig,oBtnAnt,oBtnMod,oBtnNew,OBtnCor,oBtnSal
//----------- Botones Menu Principal --------------//
static oBtnCue,oBtnObr,oBtnCon,oBtnApu,oBtnIva,oBtnEsc,oBtnVto
//----------- Botones Menu ABM Ficheros -----------//
static oBtnGes,oBtnVol,oBtn240,oBtn241,oBtn244
static oBtnX,oBtnW,oBtnI,oBtnD
static oNumero,cNumero
static lOkIn,lSalida,lMenup
//-------------------------------------------------------------------------//
static oMAbmGest
static oMSalida
static oNombre
static cNombre
static nlineas
static ncolumnas
static cEmpresa
static cCopias
static oDEmpre, oDate
static hDLL
static oMenu
//----------- Variables del Path ------------//
static cPath,IniPath
static cNumEmp,cRddDrv
static oErr, cDataBase, cServer, cUser, cPassWord
static clra1,clra2,clra3
//-------------------------------------------------------------------------//
function Main()
/*
hDLL := LoadLibrary( "bwcc32.dll" )
BWCCRegister( GetResources() )
SET RESOURCES TO "OBRAS32.DLL"
INI oIni FILE ".\Obras32.ini"
GET IniPath SECTION "Archivos" ENTRY "Path" OF oIni
GET cRddDrv SECTION "Archivos" ENTRY "RddDrv" OF oIni
GET cCopias SECTION "Archivos" ENTRY "Copias" OF oIni
*/
lMenup:=.F.
cNumero:=space(2)
SET DELETE ON
SET DATE ITALIAN
SET CENTURY ON
SetHandleCount(120)
SET _3DLOOK ON
SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } ) // azul claro
DEFINE Window oWnd From 0,0 to MaxRow(),MaxCol(); //768, 768 PIXEL;
TITLE "Prueba";
COLOR "N/W+"
ACTIVATE Window oWnd MAXIMIZED;
on init msginfo (date());
VALID(Salida_Menu())
// FreeLibrary( hDLL )
Return nil
// DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "bwcc32.dll"
//-------------------------------------------------------------------------//
Static Function VerEmpre()
DEFINE DIALOG oDEmpre OF oWnd RESOURCE "EMPRESA"
REDEFINE SAY oDate PROMPT date() ID 11 OF oDEmpre
ACTIVATE DIALOG oDEmpre NOWAIT
return nil
//-------------------------------------------------------------------------//
function Salida_Menu()
if MsgYesNo( CRLF + CRLF +;
OemToAnsi( " Esta seguro de querer Salir ?" );
+ CRLF + CRLF , "Salida del Programa " )
lSalida:=.t.
ResAllFree() // Testing the new FiveWin resources control system
Else
lSalida:=.f.
endif
return lSalida
Antonio Linares wrote:Angel,
Aqui sigue funcionando bien.
Lo que he visto es que hay funciones de FWH repetidas dentro de AdoRdd.prg
Cambia estas funciones a static en AdoRdd.prg ó simplemente bórralas de AdoRdd:
ADORDD.obj : warning LNK4006: _HB_FUN_ADONULL already defined in Fivehm.lib(ADOFUNCS.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_ADODEFAULT already defined in Fivehm.lib(ADOFUNCS.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_ARRTRANSPOSE already defined in Fivehm.lib(FWDECODE.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_CVALTOCHAR already defined in Fivehm.lib(VALBLANK.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_CFILEPATH already defined in Fivehm.lib(FILENAME.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_CFILENOPATH already defined in Fivehm.lib(FILENAME.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_CFILENOEXT already defined in Fivehm.lib(FILENAME.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_CFILEDISC already defined in Fivehm.lib(FILENAME.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_CFILEEXT already defined in Fivehm.lib(FILENAME.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_CGETNEWALIAS already defined in Fivehm.lib(DBTOOLS.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_FW_TTOD already defined in Fivehm.lib(VALTOSTR.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_FW_DTOT already defined in Fivehm.lib(VALTOSTR.obj); second definition ignored
ADORDD.obj : warning LNK4006: _HB_FUN_FW_TIMEPART already defined in Fivehm.lib(VALTOSTR.obj); second definition ignored
