FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour APPEND FROM ... SDF
Posts: 16
Joined: Tue Aug 08, 2006 06:31 PM
APPEND FROM ... SDF
Posted: Fri Jun 08, 2007 07:58 PM

Atualizei minhas versão tanto do Fivewin quanto Xharbour para FHW7.05 e Xharb99.71 e me deparei com dois problemas até o momento:

1- @ 0.35,8.5 SAY " " RAISED BOX COLOR CLR_BLACK,CLR_WHITE SIZE 95,50 OF oDlg
Versões anteriores fazia um box de linha preta e findo branco, agora fax somente o box com a linha preta e não aceito o fundo que defino não importa a cor

2- Dou um APPEND FROM TEXTO.TXT SDF e não funciona nesta nova versão

O que posso fazer?

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
APPEND FROM ... SDF
Posted: Fri Jun 08, 2007 11:39 PM

Paulo,

Estas usando este xharbour ?

www.fivetechsoft.com/files/xharbour.exe

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 16
Joined: Tue Aug 08, 2006 06:31 PM
APPEND FROM ... SDF
Posted: Fri Jun 08, 2007 11:56 PM

Sim estou usando esse versão, baixei novamente para ter certeza.
Mas continua sem funcionar o APPEND FROM TEXTO.TXT SDF e as cores do SAY.
Estou usando FWH7.05 + Xharbour 0.99.71 (simplex)

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
APPEND FROM ... SDF
Posted: Sat Jun 09, 2007 09:45 AM

Paulo,

> APPEND FROM TEXTO.TXT SDF

Por favor envíame por email en un fichero ZIP incluyendo Texto.txt y la DBF en donde vas a añadirlo

Vamos a revisar el tema de los colores que nos comentas

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 16
Joined: Tue Aug 08, 2006 06:31 PM
APPEND FROM ... SDF
Posted: Sat Jun 09, 2007 03:36 PM

Enviei para seu e-mail.

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
APPEND FROM ... SDF
Posted: Sat Jun 09, 2007 06:26 PM
Paulo,

Añade el texto de esta forma:
#include "FiveWin.ch"

function Main()

   local cText := MemoRead( "texto.txt" ), n

   DBCREATE( "NOTICW.DBF", {{ "LINHA","C",255,0 }} )

   USE NOTICW.DBF

   for n = 1 to MLCount( cText )
      APPEND BLANK
      field->Linha := MemoLine( cText,, n )
   next   

   GO TOP
   Browse()

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
APPEND FROM ... SDF
Posted: Sat Jun 09, 2007 06:34 PM
El color del SAY funciona bien aqui. Estás usando temas de XP ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 16
Joined: Tue Aug 08, 2006 06:31 PM
APPEND FROM ... SDF
Posted: Sat Jun 09, 2007 08:45 PM
Antonio Linares wrote:Paulo,

Añade el texto de esta forma:
#include "FiveWin.ch"

function Main()

   local cText := MemoRead( "texto.txt" ), n

   DBCREATE( "NOTICW.DBF", {{ "LINHA","C",255,0 }} )

   USE NOTICW.DBF

   for n = 1 to MLCount( cText )
      APPEND BLANK
      field->Linha := MemoLine( cText,, n )
   next   

   GO TOP
   Browse()

return nil


Funcionou, mas não é igual a Função APPEND FROM TEXTO.TXT SDF, o arquivo gerado pela Função acima gerou um DBF diferente do DBF do APPEND FROM SDF.
Preciso que seja igual a APPEND FROM SDF
Posts: 16
Joined: Tue Aug 08, 2006 06:31 PM
APPEND FROM ... SDF
Posted: Sat Jun 09, 2007 08:50 PM
Antonio Linares wrote:El color del SAY funciona bien aqui. Estás usando temas de XP ?

Sim uso tema do WINDOWS num arquivo .manifest, tirei o arquivo .manifest e funcionou corretamente.
Porém em versões anteriores ele funcionava independente do arquivo .Manisfest.
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
APPEND FROM ... SDF
Posted: Sun Jun 10, 2007 12:06 AM

Paulo,

> Preciso que seja igual a APPEND FROM SDF

Es un comportamiento propio de xharbour que tendrás que reportar en el foro de xharbour, gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 16
Joined: Tue Aug 08, 2006 06:31 PM
APPEND FROM ... SDF
Posted: Sun Jun 10, 2007 12:02 PM
Antonio Linares wrote:Paulo,

> Preciso que seja igual a APPEND FROM SDF

Es un comportamiento propio de xharbour que tendrás que reportar en el foro de xharbour, gracias


O que fazer neste caso, eu uso a versão FWH7.05, qual outro build do xHarbour posso utilizar e como recomplicar as LIBs do FWH?
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
APPEND FROM ... SDF
Posted: Sun Jun 10, 2007 12:07 PM

Paulo,

La mejor solución es que comentes el problema en comp.lang.xharbour (puedes registrarte y escribir en él desde Google, groups). Seguramente lo arreglaran en sólo unos dias

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 16
Joined: Tue Aug 08, 2006 06:31 PM
APPEND FROM ... SDF
Posted: Sun Jun 10, 2007 10:39 PM

Como conseguir outro build compativel com a versão 7.05 para fazer testes, a versão do xHarbour 99.70 é compativel? Onde consegui-la?

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
APPEND FROM ... SDF
Posted: Sun Jun 10, 2007 11:15 PM

Paulo,

El pcode de otras versiones de xharbour no es compatible con FWH 7.05. Lo más fácil es que pidas ayuda en comp.lang.xharbour

Otra solución sería reconstruir FiveHX.lib con el build de xharbour que te funciona bien con el APPEND FROM ... SDF

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 16
Joined: Tue Aug 08, 2006 06:31 PM
APPEND FROM ... SDF
Posted: Sun Jun 10, 2007 11:37 PM
Antonio Linares wrote:Paulo,

El pcode de otras versiones de xharbour no es compatible con FWH 7.05. Lo más fácil es que pidas ayuda en comp.lang.xharbour

Otra solución sería reconstruir FiveHX.lib con el build de xharbour que te funciona bien con el APPEND FROM ... SDF


Como fazer para reconstruir a FiveHx.Lib? pretento testar com o build 99.70