Algumas dúvidas sobre Harbour

[Paulo Simas]

Olá,

Já coloquei em uso em alguns clientes meu aplicativo de gerenciamento de vendas no varejo convertido para Harbour.

Estou precisando de ajuda nos seguintes tópicos:

1- Como executar uma rotina externa ".exe" em Harbour chamada por um aplicativo em Delphi para atualizar arquivos ".dbf" sem que abra o Console?

2- É possível pelo Harbour descobrir qual a versão do Windows?

3- É possível pelo Harbour descobrir se está processando em 32 ou 64 Bits?

4- Como direcionar pela rede uma impressora matricial para uma porta LPT1 configurada pelo NET USE?

5- Como enviar e-amil com boleto bancário anexo e solicitação de confirmação pelo destinatário pelo Harbour?

Acredito que após esta etapa, darei início a transformação para telas gráficas.

Antecipadamente agradeço sua preciosa ajuda.

Uma abraço,

Paulo Simas
Mascate Automação
Salvador-BA

[Toledo]

1- Como executar uma rotina externa ".exe" em Harbour chamada por um aplicativo em Delphi para atualizar arquivos ".dbf" sem que abra o Console?

Na compilação do programa em Harbour incluir o comando -gui, para criar um executável GUI. Por exemplo: hbmk2 sistema.prg -gui

2- É possível pelo Harbour descobrir qual a versão do Windows?

Use a função OS().
Veja: https://pctoledo.org/forum/viewto ... =4&t=16163

3- É possível pelo Harbour descobrir se está processando em 32 ou 64 Bits?

Eu não conheço nenhum função para Harbour que faça isto. Ví uma função ISWIN64(), mas era para FiveWin.
Veja o Código da função: http://forums.fivetechsupport.com/viewt ... 80#p103264

4- Como direcionar pela rede uma impressora matricial para uma porta LPT1 configurada pelo NET USE?

Não entendi sua dúvida.

5- Como enviar e-amil com boleto bancário anexo e solicitação de confirmação pelo destinatário pelo Harbour?

Aqui no fórum tem várias exemplos, basta usar a busca do fórum.
Veja: mailsend

Neste exemplo, /* attachment */ é o parâmetro para colocar o anexo e /* lRead */ quando .T. é para solicitar cofirmação de leitura.

Abraços,

[Itamar M. Lins Jr.]

Eu não conheço nenhum função para Harbour que faça isto.

Código: Selecionar todos

HB_OSIS64BIT()

Harbour 3.4 Viktor fork!

Saudações,
Itamar M. Lins Jr.

[Paulo Simas]

Estive fora de circulação em razão de alguns problemas, mas vou dar continuidade ao projeto.

Dos cinco questionamentos, quatro já dá para iniciar os testes.

Pra mim ficou pendente a seguinte situação:
Em Clipper/DOS a rotina vendas de frente de loja (balcão) funciona utilizando uma mini impressora em uma das estações de trabalho.
Por exemplo, são quatro estações de trabalho vendendo e uma única impressora em uma das estações.
Normalmente, utilizamos nas estações que não tem impressora o direcionamento dela via comando DOS "NET USE" para que dê a sua localização.

Como resolver essa questão via Harbour?

Estou dependendo disto para liberar a instalação nos meus clientes de varejo.

Fico no aguardo e muito agradecido pela atenção de vocês.

Um abraço a todos,

Paulo Simas

[asimoes]

NETREDIR("LPT2","\\IMPRESSORA\EPSON")