FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Problemas con la Ñ
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Problemas con la Ñ

Posted: Fri Jun 02, 2017 11:28 AM
Colegas, debo verificar la existencia de un archivo

Code (fw): Select all Collapse
File( C:\escuelas\VIÑAS\config.ini )


Me devuelve .F., sin embargo el archivo existe en esa ruta. Me he dado cuenta que cambiando la Ñ por cualquier otra letra funciona. Esta es mi configuración del idioma

Code (fw): Select all Collapse
Request HB_LANG_ES
Hb_LangSelect("ES")


Algo me está faltando ? Desde ya muchas gracias

Saludos
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: Problemas con la Ñ

Posted: Fri Jun 02, 2017 01:25 PM
Code (fw): Select all Collapse
REQUEST HB_LANG_ESWIN
Function Main()
    HB_LANGSELECT( 'ESWIN' )
    HB_SetCodePage("ESWIN")
    lOemToAnsi:=.T.


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Problemas con la Ñ

Posted: Fri Jun 02, 2017 03:23 PM
Gracias por responder. Obtengo este error

Code (fw): Select all Collapse
  Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 02/06/2017, 12:22:47
   Error description: Error BASE/1302  Argument error: HB_CDPISUTF8
   Args:
     [   1] = C   ESWIN

Stack Calls
===========
   Called from:  => HB_CDPISUTF8( 0 )
   Called from: ../../../langcomp.prg => HB_LANGSELECT( 0 )
   Called from: C:\acugan\main.prg => DEFINEENTORNO( 193 )
   Called from: C:\acugan\main.prg => MAIN( 32 )


Uso Harbour.

Saludos
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: Problemas con la Ñ

Posted: Fri Jun 02, 2017 03:37 PM
Code (fw): Select all Collapse
hb_cdpIsUTF8()

Compliance

hb32 hb34

Library*

Harbour core

Text updated here on 2014-04-11 11:00:13


hbcpage.lib ??

hb_cdpIsUTF8([<cCPID>]) ➜ .T.|.F.
returns .T. if the current or the given <cCPID> code page is UTF8 otherwise returns .F.

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 11:15 AM
Gracias Karinha por tu respuesta. He adjuntado la librería hbcpage.lib al proyecto y obtengo este error

Code (fw): Select all Collapse
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 05/06/2017, 08:12:58
   Error description: Error BASE/1302  Argument error: HB_CDPISUTF8
   Args:
     [   1] = C   ESWIN

Stack Calls
===========
   Called from:  => HB_CDPISUTF8( 0 )
   Called from: ../../../langcomp.prg => HB_LANGSELECT( 0 )
   Called from: C:\acugan\main.prg => DEFINEENTORNO( 194 )
   Called from: C:\acugan\main.prg => MAIN( 32 )


Saludos
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 11:26 AM

Harbour o xHarbour?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 11:38 AM

Cristobal, gracias por responder. Utilizo Harbour.

Saludos

karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 12:34 PM

Muestra:

main.prg

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 12:39 PM
Karinha, te posteo la función donde estan estas llamadas.

Code (fw): Select all Collapse
//----------------------------------------------------------------------------//
Function DefineEntorno()

    Set Epoch To 1950
    Set Date  To British
    Set Delete   On
    Set Multiple Off
    Set Autopen  On
    Set Softseek On
    Set Century  On
    Set Confirm  On
    Set 3dlook   On
    Set Decimals To 2
    Set Fixed Off
    Set Exact on
    Set Optimize On
    Request HB_LANG_ES
    HB_LANGSELECT( 'ESWIN' )
    HB_SetCodePage("ESWIN")
    SetHandleCount( 250 )
    Request DBFCDX
    RddSetDefault( "DBFCDX" )
    Return 0


Saludos
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 01:03 PM
Code (fw): Select all Collapse
#Include "FiveWin.ch"

REQUEST HB_LANG_ESWIN
// REQUEST HB_LANG_ES
// REQUEST HB_CODEPAGE_PT850 // Cual es el de espania?

ANNOUNCE RDDSYS
REQUEST DBFCDX, DBFFPT

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto

Function Main()

   SET EPOCH TO 1950
   SET DATE  TO BRITISH
   SET DELETE   ON
   SET MULTIPLE OFF
   SET AUTOPEN  ON
   SET SOFTSEEK ON
   SET CENTURY  ON
   SET CONFIRM  ON
   SET 3DLOOK   ON
   SET DECIMALS TO 2
   SET FIXED OFF
   SET EXACT ON
   SET OPTIMIZE ON

   // Request HB_LANG_ES
   HB_LANGSELECT( 'ESWIN' )
   HB_SetCodePage("ESWIN")

   // SetHandleCount( 250 )  // 16 bits no usar

   RDDSETDEFAULT("DBFCDX")

   ? [Main: Perfecto]

Return Nil

//----------------------------------------------------------------------------//
// Function DefineEntorno()  // main = principal - gerenciador
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 01:10 PM
Yes, this run OK for me
Code (fw): Select all Collapse
#include "Fivewin.ch"

REQUEST HB_LANG_ESWIN

//----------------------------------------------------------------------------//

Function Main()

     HB_LANGSELECT( 'ESWIN' )
     HB_SetCodePage("ESWIN")
     
     ? File( "viña.txt" )

Return nil

//----------------------------------------------------------------------------//
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 01:51 PM

Cristobal, no es el problema el nombre del archivo sino la ruta y este es el ejemplo que no funciona "C:\escuelas\VIÑAS\config.ini"

Saludos

horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 01:52 PM

Karinha, hice los cambios que me propusiste pero, si bien no da errores no funciona.

Saludos

cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 02:36 PM

Cuando leas el INI haz

? cFile ( o la variable que contenga el nombre completo ) y di lo que aparece

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: Problemas con la Ñ

Posted: Mon Jun 05, 2017 02:49 PM
Code (fw): Select all Collapse
#Include "FiveWin.ch"

REQUEST HB_LANG_ESWIN
// REQUEST HB_LANG_ES
// REQUEST HB_CODEPAGE_PT850 // Cual es el de espania?

ANNOUNCE RDDSYS
REQUEST DBFCDX, DBFFPT

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto

Function Main()

   LOCAL cFile

   SET EPOCH TO 1950
   SET DATE  TO BRITISH
   SET DELETE   ON
   SET MULTIPLE OFF
   SET AUTOPEN  ON
   SET SOFTSEEK ON
   SET CENTURY  ON
   SET CONFIRM  ON
   SET 3DLOOK   ON
   SET DECIMALS TO 2
   SET FIXED OFF
   SET EXACT ON
   SET OPTIMIZE ON

   cFile := "C:\escuelas\VIÑAS\config.ini"

   // Request HB_LANG_ES
   HB_LANGSELECT( 'ESWIN' )
   HB_SetCodePage("ESWIN")

   // SetHandleCount( 250 )  // 16 bits no usar

   RDDSETDEFAULT("DBFCDX")

   ? [Main: Perfecto], cFile

   ? [Main: Perfecto], OemToAnsi( cFile )

   ? [Main: Perfecto], AnsiToOem( cFile )

Return Nil

//----------------------------------------------------------------------------//
// Function DefineEntorno()  // main = principal - gerenciador
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Static archive · New replies & topics via GitHub Discussions