Página 1 de 1

Usando Miro Gerador de Sistemas no FreeDOS 3.4 ...

Enviado: 10 Ago 2025 20:50
por arcanjoebc
Amigos do fórum, há muitos anos atrás, na década de 1990, eu usava o Gerador Automático de Sistemas MIRO. Agora, instalei a nova versão do FreeDOS, a 3.4, e dentro do DOSBOX Staging, em um diretório na pasta "/home" do meu Debian Linux 12 LXqt. O interessante é que, com a versão 1.3 do FreeDOS, o miro não funcionava e, agora com a nova versão, o programa funciona! Então, uma pergunta simples: quando eu o usava há tempos atrás, eu gerava um campo autoincrement em "..dbf" padrão ".ntx", que é o que o MIRO gera. Mas não lembro direito como fazia isso ... faz muito tempo ... eu fiz um Sistemas de Despesas, e mudei os fontes gerados pelo Gerador Automático. Abaixo coloco o trecho de código em específico:

Código: Selecionar todos

FUNCTION CARREG01
*
* -> Carrega variaveis para entrada ou altercao de dados
PARA R_CAR
**
** Bloco de inser‡„o I01.B14
**
PUBLIC CODIGO,NOME,TELEFONE,EMAIL
IF M->R_CAR=1
   M->ORDEM = INDEXORD()     <---- daqui
   SET ORDER TO 2
   M->CODIGO=CODIGO+1
   SET ORDER TO M->ORDEM    <--- até aqui
   M->NOME=SPACE( 30)
   M->TELEFONE=SPACE( 15)
   M->EMAIL=SPACE( 50)
   **
   ** Bloco de inser‡„o I01.B15
   **
ELSE
   M->CODIGO=CODIGO
   M->NOME=NOME
   M->TELEFONE=TELEFONE
   M->EMAIL=EMAIL
   **
   ** Bloco de inser‡„o I01.B16
   **
ENDIF
Essa parte acima mostrada, eu copiei de outro trecho de código nesse mesmo fonte, apenas acrescentando o contador, abaixo mostro de onde retirei tal código:

Código: Selecionar todos

FUNCTION VERI001
*
* -> Funcao que verifica duplicidade no arquivo "USUARIOS"
PARA R_PARA
M->I_REG=RECN()
M->ORDEM = INDEXORD()        <----- daqui
SET ORDER TO 2              
SEEK STR(M->CODIGO,10,0)    <---- aqui eu coloquei o contador 
IF M->I_REG=RECN() .AND. R_PARA=2   <---- essa linha eu eliminei
   SET ORDER TO M->ORDEM    <----- até aqui
   RETURN .T.
ENDIF
Eu não lembro se no autoincrement eu colocava mais alguma coisa manualmente ... o que vem ocorrendo é que inseri dois registros e encerrei o sistema. Entrei novamente, e acessei o menu de inclusão de "Usuários", cujo código acima se refere. O contador mostra o registro número "2" para ser inserido. Quando pressiono enter, dá a mensagem dizendo que o mesmo já existe. Até aí tudo bem, pois o programa pergunta se eu devo "alterar" ou "inserir" novo registro. Então eu insiro mais dois registros. No campo mostra estar no registro "3". Eu saio do programa e acesso o mesmo novamente e, para minha surpresa, o contador estaciona no registro "2" ... o interessante que após pedir para inserir novo registro, ele acha os outros que gravei e a contagem do autoincrement volta ao normal ... alguém pode dizer onde estou errando? Outra coisa, eu testei compilar com o Harbour 3.2 os fontes e esse compilador fez o trabalho corretamente, mas o contador continua errado, mesmo compilando com o Harbour do Debian 12: Abaixo, coloco o código completo:




Aguardo contato e, desde já, agradeço a ajuda!

Everaldo Bernardo Cunha
DESPI01.PRG
(5.01 KiB) Baixado 322 vezes

Usando Miro Gerador de Sistemas no FreeDOS 3.4 ...

Enviado: 10 Ago 2025 21:51
por JoséQuintas
Depois de ver isto....

Código: Selecionar todos

   GO BOOTOM
   M->ORDEM = INDEXORD()
   SET ORDER TO 2
   M->CODIGO=CODIGO+1
   SET ORDER TO M->ORDEM
1) go bootom não existe... sei lá....
2) se é último mais um, deveria ser go bottom APÓS setar ordem, e não antes... sei lá também...

Usando Miro Gerador de Sistemas no FreeDOS 3.4 ...

Enviado: 10 Ago 2025 23:59
por arcanjoebc
José Quintas, obrigado! Eu não estava realmente colocando o comando no local correto. Quanto ao erro de grafia, eu já havia notado ao compilar ... agora está funcionando. Mas acho que terei que mudar algo com relação ao vídeo, pois depois de sair de alguma opção dos menus e voltar ao menu principal, aparecem algumas distorções na imagem ... vou tentar uma dica do pctoledo que vi aqui no fórum e posto aqui o resultado ....

Usando Miro Gerador de Sistemas no FreeDOS 3.4 ...

Enviado: 11 Ago 2025 21:35
por arcanjoebc
O problema continua ... infelizmente! Achei que tinha resolvido ... quanto ao sistema, depois que saiu de uma determinada tela e volto ao menu principal, mesmo colocando a dica apresentada aqui no site; aparecem sombras quando navego pelo menu. Creio que seja o resultado de estar usando o Debian 12 LXqt em vez do FreeDOS 3.4 dentro do DOSBox Staging! Nesse último, o sistema se comporta de forma adequada, exceto os contadores. Vou testar no Windows 11 Home que tenho em dual boot ... depois, mais uma vez, posto aqui o resultado!

Usando Miro Gerador de Sistemas no FreeDOS 3.4 ...

Enviado: 12 Ago 2025 15:05
por Nascimento
rapaz, vc sabia que o miro3 foi todo feito em clipper puro?, pois é eu uma vez até decompilei, e usei muitas funções dele para poder portar para harbour.
nunca tive vontade de remontar ele totalmente, até porque pode ser que tenha copyright n sei mas as funções que usava no meu sistema em clipper sim usei todas!

Usando Miro Gerador de Sistemas no FreeDOS 3.4 ...

Enviado: 12 Ago 2025 15:26
por JoséQuintas
salvar/restaurar telas, quando tem codepage não dá certo se usar compatibilidade Clipper, fica bagunçado mesmo.

Código: Selecionar todos

   hb_gtInfo( HB_GTI_COMPATBUFFER, .F. )

Usando Miro Gerador de Sistemas no FreeDOS 3.4 ...

Enviado: 12 Ago 2025 17:57
por JoséQuintas
Faltou dizer:

Como não fica compatível com Clipper, funções antigas de sombra também vão falhar.

Como era o formato Clipper: letra, cor, letra, cor, letra, cor
Tem função pra sombra que troca o byte da cor.
Ao deixar de usar compatibilidade, não faço nem idéia do que vai acontecer com funções desse tipo, pode ser imprevisível.

Usando Miro Gerador de Sistemas no FreeDOS 3.4 ...

Enviado: 12 Ago 2025 22:00
por arcanjoebc
No Windows 11 Home, compilei com o Harbour e rodei o sistema e ... não apresentou as falhas com as "sombras" e telas "distorcidas". O único erro foi o contador manual que continua dando erro, após a inserção do terceiro registro (isso após já ter inserido vários registros com êxito). Quanto a copyright eu não sei se está liberado no MIRO ou não. Vou pesquisar na Internet e posto aqui!

Everaldo

Usando Miro Gerador de Sistemas no FreeDOS 3.4 ...

Enviado: 13 Ago 2025 18:00
por Nascimento
JoséQuintas escreveu:Faltou dizer:

Como não fica compatível com Clipper, funções antigas de sombra também vão falhar.

Como era o formato Clipper: letra, cor, letra, cor, letra, cor
Tem função pra sombra que troca o byte da cor.
Ao deixar de usar compatibilidade, não faço nem idéia do que vai acontecer com funções desse tipo, pode ser imprevisível.
quintas eu usei a gtwvt e não tive problemas com sombras nas janelas n, ficou igual ao miro no clipper sim
tela.png

Usando Miro Gerador de Sistemas no FreeDOS 3.4 ...

Enviado: 13 Ago 2025 18:53
por JoséQuintas
Olhando a mensagem sem acento, é possível que esteja usando a codepage padrão EUA. ela dá menos conflitos.