PC Toledo

Boa tarde
auguem tem um dbase, foxpro etc que rode em 64 Bits ?

tenho um PRG que anexei ao sistema que faz replace , list etc ++ o dele e o PACK não faz..

auguem tem um fontes que permita isso tambem ?

Ob

Paiva

cpaivasistemas@gmail.com

Olá!
hbrun.exe
ou se desejar por fora.
hbrun.exe meu.prg

Saudações,
Itamar M. Lins Jr.

paiva_dbdc escreveu:tenho um PRG que anexei ao sistema que faz replace , list etc ++ o dele e o PACK não faz..
auguem tem um fontes que permita isso tambem ?

Por acaso esse PRG é aquele meu rdbase?
Pra fazer o pack, precisa usar exclusivo.

Código: Selecionar todos

use arquivo exclusive
pack
quit

Quintas...

é seu ? não sabia.

anexei ele ao sistema e pego uma linha onde escrevo o comando

com certeza devo estar fazendo algo errado. talvez por estar recebendo somente UM campo;

teria como vc printar como vc usa ? ou me mandar para ver se compila junto ao meu sistema ?

cpaivasistemas@gmaill.com

desde já agradeço

Se for o meu mesmo, é desse jeito da imagem, com o EXCLUSIVE na hora de abrir.
Mas daria a mensagem, em caso contrário.

Código: Selecionar todos

STATIC FUNCTION cmdPack()

   IF ! Used()
      SayScroll( "No file in use" )
      RETURN Nil
   ENDIF
   IF ! DBASE_EXCLUSIVE
      SayScroll( "Only available in exclusive mode" )
      RETURN Nil
   ENDIF
   PACK
   SayScroll( Str( LastRec() ) + " record(s) copyed" )

   RETURN Nil

Alternativamente:

Código: Selecionar todos

SET EXCLUSIVE ON
USE arquivo
PACK

Sempre usei muito pouco, de vez em quando fazia algum ajuste.
Talvez desse pra atualizar pra Harbour, e usar o compilador que tem dentro dele, ao invés de ficar fazendo isso "manualmente".
Como o Itamar já disse, o HBMK2 permite executar fonte sem precisar compilar totalmente.
Mas isso fica disponível dentro do programa, exceto os arquivos .ch.

Ola !

Como o Itamar já disse, o HBMK2 permite executar fonte sem precisar compilar totalmente.

HBRUN, HBRUN !

HBMK2 tem também, mas não entra como se fosse DBASE.

É o Harbour via linha de comandos, mesma coisa do DBASE, FOXBASE...

LINUX WINS!

Saudações,
Itamar M. Lins Jr.

José

veja se e´seu tem Um josé data 13/02/99

se localizar *paiva fiz um at( exclusive para forçar ebrir com exclusive
o comando set exclusive ON ate permite

faz o PACK

++ o delete all for grupo = [001] nao da erro ++ tambem nao deleta rs

Enviado: **10 Jan 2022 16:20**

Amiguinhos,

Passe a usar esta opção de Prompt. Ela vem com MS-DOS 8.00 instalado e compatível, recursos de memória EMS/XMS, impressão, etc.

Para preencher a tela, entre no arquivo autoexec.txt e altere a variável window para 100.

Roda em 32bits e 64bits

Faça download aqui

Enviado: **10 Jan 2022 16:32**

paiva_dbdc escreveu:José

veja se e´seu tem Um josé data 13/02/99

Deixei passar.
Sim, é ele mesmo.
Inclusive registra no log do aplicativo todos os comandos usados.

Detalhe:
EDIT faz o lock() automático
BROWSE NÃO, porque o original do Harbour não faz isso, se quiser editar pelo browse tem que usar exclusivo.
Ou, ESC no browse, digita EDIT, e depois volta no browse.