Duvidas na Compilação

[rogerio_roy]

Ola.

Baixei o xharbour demo, no site www.xharbour.com.br é queria saber se a versäo DEMO, roda com indice NSX. Pois queria fazer uns testes, mas näo conseguir fazer nada alguen tem algum modo de compilação para essa versäo DEMO, ou a outra versäo que rode com indice NSX.

Agradeço Antecipadamente.

[gransoft]

ARAGUARI-MG, 31 de agosto de 2004.

Prezado Rogério,

Sobre RDD SIX 3.02:
http://www.vistasoftware.com/sixdriver.asp

Observe em Notes:
Não recomendado para Harbour ...

Atenciosamente,
Janis Peters Grants.

http://www.gransoft.com.br
gransoft@zipmail.com.br

[rogerio_roy]

Oi.

O que posso usar no lugar do NSX. tem algum indice que eu possa usar que seja parecido com o NSX, que näo tenha que mudar muita coisa no programa.


Obrigado.

[Antonio]

Use CDX, não precisa mudar nada....

Código: Selecionar todos

Request dbfcdx
Rddsetdefault("dbfcdx")

Func Main()
CriaDbfPacientes()
Indexa()
Return Nil
*--------------------------------------------------------------------------
Function CriaDbfPacientes()
  If !File( cDirDbf + "Paciente.dbf" )
             Estrut1:= {{"p_codigo"    , "C" ,  6 , 0 },;
                        {"p_nome"      , "C" , 50 , 0 },;
                        {"p_cpf"       , "C" , 11 , 0 },;
                        {"p_rg"        , "C" , 20 , 0 },;
                        {"p_profis"    , "C" , 20 , 0 },;
                        {"p_endere"    , "C" , 50 , 0 },;
                        {"p_numero"    , "C" ,  6 , 0 },;
                        {"p_bairro"    , "C" , 20 , 0 },;
                        {"p_cep"       , "C" ,  9 , 0 },;
                        {"p_cidade"    , "C" , 20 , 0 },;
                        {"p_fone"      , "C" , 16 , 0 },;
                        {"p_fax"       , "C" , 16 , 0 },;
                        {"p_celula"    , "C" , 16 , 0 },;
                        {"p_email"     , "C" , 38 , 0 }}
             DbCreate( cDirDbf + "Paciente"  , Estrut1 )
  EndIf
Return nil
*--------------------------------------------------------------------
Function Indexa()
         DbSelectArea(    "Pacientes"    )

            If !File( cDirDbf + "PaciNoco.cdx" )
               Index on p_codigo tag 1  to  ( cDirDbf + "PaciNoco.cdx"     )
               Index on p_nome   tag 2  to  ( cDirDbf + "PaciNoco.cdx"     )
            Endif
Return Nil

Na compilação inclua a lib dbfcdx.lib

Antonio Carlos da Silva

[culik]

Ola rogerio_roy

Quanto a sua pergunta, sim o xharbour demo baixadao de www.xharbour.com.br toda indices .nsx sem problemas

na pasta samples da instalação do xharbour comercial olhe os arquivos testsix*.prg

e outra
aqui não é lugar de perguntar duvidas do xharbour comercial
mande email direto para o suporte do xharbour em suporte@xharbour.com.br

[]´s
Luiz
www.xharbour.com.br

[culik]

Antonio e janis

O roy fez uma pergunta de algo do xharbour comercial

a resposta correta de vocês deveria ser mande sua pergunta para o suporte do xharbour comercial em suporte@xharbour.com.br

[]´s
Luiz
www.xharbour.com.br

[gransoft]

ARAGUARI-MG, 9 de setembro de 2004.

Prezado Sr. Culik,

É absolutamente NOTÁVEL sua dedicação em convidar usuários deste FÓRUM a dirigirem suas dúvidas a outros links...

Novamente, solicito humildemente SEU AUXÍLIO, e NESTE FÓRUM, sobre dúvidas BÁSICAS, para migrar meus Aplicativos Fiscais de Clipper 5.2E para xHarbour TEXTO, postadas aqui mesmo, e também no Fórum que você tanto divulga.

Ocorre que EU TAMBÉM SOU ANALISTA DE SISTEMAS, postei um algorítmo ELEMENTAR, BÁSICO,
https://pctoledo.org/forum/viewtopic.php?t=108

http://www.gransoft.com/download/xharbour/

referente a simples combinações de cores que NÃO FUNCIONAM, por mais que


VOCÊ insista que aí, no SEU micro, TUDO COMPILA E RODA MUITO BEM.


Solicito então, NOVAMENTE, gentilmente, que você me oriente SEM MNEMÔNICOS, e remeta ZIPADO ao meu e-mail,

gransoft_mg@yahoo.com.br

o executável FUNCIONANDO, o *.bc utilizado no MALDITO HBMAKE e o xHarbour ou Harbour para Win98 que foi utilizado para compilar o referido exemplo (RIDÍCULO por sinal).

Informo-lhe, novamente, que NÃO consigo o resultado esperado com xHarbour do SEU link, com HARBOUR, e menos ainda com o compilado do CVS pelo colaborador Luma Informática, disponibilizado em outras datas no site http://www.lumainformatica.com.br/index.HTML

RESUMINDO: Por favor, coloque sua VASTÍSSIMA experiência ao dispor de simples programadores que TAMBÉM desejam ter sucesso com este Produto, e diga-se de passagem, xHarbour ou Harbour, Open Source ou Versão Comercial. Desde que funcionem !!!

E repito novamente:

- para telas TEXTO, formatadas (Layout), o SETCOLOR, GET/SAY e SET INTENSITY OFF

NÃO F U N C I O N A M !!! http://www.gransoft.com/download/xharbour/

E, pelos SEUS posts (tive "saco" e já li quase TODOS, tentando uma solução para o fato em questão), temos uma ÚNICA opinião em comum: FLAGSHIP é uma BOMBA. E uma BOMBA há mais de um ano sem RELEASE para a Versão Comercial 5.1.4. - e, absurdamente cara, para que um simples SET DELIMITERS ON também não funcione ...

Sobre RDD SIX 3.02:
http://www.vistasoftware.com/sixdriver.asp
Alguma informação MELHOR do que a do Fabricante/Representante ? Qual foi MEU erro em apresentar o link com a informação ao colega ?

Mas bah tchê !!!


Atenciosamente,
Janis Peters Grants.

http://www.gransoft.com.br
gransoft@zipmail.com.br

[culik]

Ola Janis

>Sobre RDD SIX 3.02:
>http://www.vistasoftware.com/sixdriver.asp
>Alguma informação MELHOR do que a do Fabricante/Representante ? >Qual foi MEU erro em apresentar o link com a informação ao colega ?

Sim
Primeiro
Apenas o xharbour comercial tem o driver RDD Six e se você olhou a postagem do Rogerio Ele fez uma pergunta referente ao xharbour comercial. Você deveria ter respondido a ele, que duvidas no xharbour comercial são de responsabilidade de suporte@xharbour.com.br e não recomendar o dbfcdx

segundo

Desdes que você postou o problema do intensity com os gets ele foi arrumado e esta disponivel desde aquela epoca no CVS

[]´s
Luiz

[gransoft]

ARAGUARI-MG, 11 de setembro de 2004.

Prezado Culik,

"Uai, esse trem né 100% compatível não sô "

Muito obrigado pela atenção.

O colaborador Claudinei, postou há pouco, um "paleativo" para o problema, que presumo ser de "sintaxe".

Substituirei TODOS os comandos "SETCOLOR" e "SET COLOR TO" nos Aplicativos.

Código: Selecionar todos

# include "SET.CH"

PRIVATE cCor0 := ""
PRIVATE cCor1 := "BG/B               "
PRIVATE cCor2 := "+W/B              "
PRIVATE cCor3 := "+W/B               "
PRIVATE cCor4 := "+GR*/B             "
PRIVATE cCor5 := "+GR*/R             "
PRIVATE cCor6 := "+BG/B,+GR/R,N,,+W/B"
PRIVATE cCor7 := "+BG/B,+GR/R,,N,,,, "
*
   cConfirma := "N"
*  SETCOLOR(cCor4)
   SET(_SET_COLOR,cCor4)
   Centro(24,"*** DIGITE OS DADOS CORRETAMENTE ***")
*  SETCOLOR(cCor3)
   SET(_SET_COLOR,cCor3)
   @ 11,38 SAY cLogin PICTURE '@!'
   @ 13,38 SAY cSenha PICTURE '@!'
*  SETCOLOR(cCor2)
   SET(_SET_COLOR,cCor2)
   @ 11,38 GET cLogin PICTURE '@!'
     READ
   SET DELIMITERS ON
   @ 13,37 GET cSenha PICTURE '@!'
     READ
   SET DELIMITERS OFF
*  SETCOLOR(cCor3)
   SET(_SET_COLOR,cCor3)

Acredito que o compilador xHarbour dele, e o seu também, tenham origem no mesmo CVS...

Atenciosamente,
Janis Peters Grants.

http://www.gransoft.com.br
gransoft@zipmail.com.br

[culik]

Ola

Sim tem
mas cores ao passar para a função setcolor ou comando set color to não podem ter espaços em branco

[]´s
Luiz

[gransoft]

... mas cores ao passar para a função setcolor ou comando set color to não podem ter espaços em branco...

ARAGUARI-MG, 13 de setembro de 2004.

Prezado Culik,

Testei o SETCOLOR sem os espaços, e NÃO funciona.
O GET não importa os parâmetros de cor anteriormente definidos.

Por enquanto, vou utilizar a dica do Claudinei.

Atenciosamente,
Janis Peters Grants.

http://www.gransoft.com.br
gransoft@zipmail.com.br