Ariston Santos

Olá pessoal.

Como faço para desligar o computador através da minha aplicação? Exite algum comando?

Grato!

Ariston Santos.

Ariston

Obrigado, amigo.

Vou testar.

Ariston

Olá pessoal.

Como faço para desabilitar as telcas CTRL+ALT+DEL no XP? Já testei as funções disponíveis em dicas, mas uma delas funciona com perfeição apenas no Win98 e a outra, que funciona bem no XP, trava também o teclado e o mouse. Preciso de uma que apenas desabilite o pressionamento de CTRL ALT DEL sem travar as demais teclas e o mouse, e que rode em qualquer versão do Ruindows.

A quem puder me dar uma dica, meus agradecimentos.

Ariston

Caro amigo,

Já tive um problema parecido e resolvi fazendo a seguinte modificação no meu .lnk, apenas na linha que define as libs do clipper:

LIB Clipper, Extend, DbfCdx, _DbfCdx, Terminal

Note que acrescentei _DbfCdx.

Abro meu FORNECED.PRG da seguinte forma:

USE FORNECED ALIAS FORNECED SHARED NEW

IF ! FILE("FORNECED.CDX")

MsgMeter( { | oMeter, oText, oDlg, lEnd | ;

BuildIndex( oMeter, oText, oDlg, @lEnd, "FORNECED->CODIGO", "FORNCODI" ) },;

"Indexando fornecedores por código...", "Espere um momento!" )

MsgMeter( { | oMeter, oText, oDlg, lEnd | ;

BuildIndex( oMeter, oText, oDlg, @lEnd, "FORNECED->ITEM02", "FORNNOME" ) },;

"Indexando fornecedores por nome...", "Espere um momento!" )

MsgMeter( { | oMeter, oText, oDlg, lEnd | ;

BuildIndex( oMeter, oText, oDlg, @lEnd, "FORNECED->ITEM10", "FORNFANT" ) },;

"Indexando fornecedores por fantasia...", "Espere um momento!" )

ENDIF

ordListClear()

OrdListAdd("FORNECED","FORNCODI", "FORNNOME", "FORNFANT")

Espero ter ajudado.

Ariston

Caro amigo,

Já tive um problema parecido e resolvi fazendo a seguinte modificação no meu .lnk, apenas na linha que define as libs do clipper:

LIB Clipper, Extend, DbfCdx, _DbfCdx, Terminal

Note que acrescentei _DbfCdx.

Abro meu FORNECED.PRG da seguinte forma:

USE FORNECED ALIAS FORNECED SHARED NEW

IF ! FILE("FORNECED.CDX")

MsgMeter( { | oMeter, oText, oDlg, lEnd | ;

BuildIndex( oMeter, oText, oDlg, @lEnd, "FORNECED->CODIGO", "FORNCODI" ) },;

"Indexando fornecedores por código...", "Espere um momento!" )

MsgMeter( { | oMeter, oText, oDlg, lEnd | ;

BuildIndex( oMeter, oText, oDlg, @lEnd, "FORNECED->ITEM02", "FORNNOME" ) },;

"Indexando fornecedores por nome...", "Espere um momento!" )

MsgMeter( { | oMeter, oText, oDlg, lEnd | ;

BuildIndex( oMeter, oText, oDlg, @lEnd, "FORNECED->ITEM10", "FORNFANT" ) },;

"Indexando fornecedores por fantasia...", "Espere um momento!" )

ENDIF

ordListClear()

OrdListAdd("FORNECED","FORNCODI", "FORNNOME", "FORNFANT")

Espero ter ajudado.

Ariston

Visite www.arsoft-ap.com.br

Ariston

Olá Kleyton,

Também estou desenvolvendo um sistema de disk entrega (revendedora de gás) e preciso de uma rotina que detecte no número do telefone. Poderia mandar uma cópia para mim também?

ariston.ap@bol.com.br

Obrigado

Ariston

Prezados amigos,

Tenho um sistema de entregas rápidas (disk gás) e meu cliente quer que, ao tocar o telefone, o sistema capture o número do telefone (como um bina) a faça a busca dos dados do fregues pelo número capturado. Existe um meio de fazer isso em fivewin? Se alguém já desenvolveu algo parecido, poderia me ajudar passando algumas dicas?

Grato!

Ariston Santos

Prezado Jefferson,

Também já tive o mesmo problema uma vez e notei que o motivo foi devido eu ter esquecido de abrir um dos arquivos de indice ao fazer alteração na base de dados: Por Ex:

USE DADOS SHARED NEW

INDEX ON FIELD1 TO INDICE1

INDEX ON FIELD2 TO INDICE2

INDEX ON FIELD3 TO INDICE3

SET INDEX TO INDICE1, INDICE2 // Note que esqueci o INDICE2

// Procedi com os cadastros, alteraçoes, etc...

CLOSE DADOS.

Quando abri a base de dados novamente usando todos os índices, ocorreu o erro de CORRUPTION DETECTED (Corrupção detectada)

Outra vez que ocorreu o mesmo erro foi porque eu cometi a gafe de criar indices usando a funcao ALLTRIM(), por Ex:

INDEX ON ALLTRIM(NOME_CLI) TO NOMECLI

Este tipo de indexação não é recomendada. Dê uma olhada no seu prg. Pode está havendo algum erro na indexação dos arquivos.

Um abraço!

Ariston Santos

Obrigado jef2_tim pela disposição em ajudar. Meus e-mails são:

ariston.ap@bol.com.br (preferencial)

suporte@arsoft-ap.com.br

arsoft-ap@ig.com.br

Estou aguardando resposta.

Um grande abraço!

Prezados amigos, no site www.corisco.com.br não tem informações sobre a ECF CORISCO. Ainda preciso de ajuda para imprimir nessa impressora. Ficarei muito agradecido a quem puder me mandar algum código fonte pronto.

Ariston santos,

aristo.ap@bol.com.br

Prezados amigos,

Estou precisando do codigo fonte para emissão de dados para impressora fiscal CORISCO. Ficarei muito grato se alguém puder me ajudar.

Ariston Santos

Macapá-AP

Prezados amigos,

Estou precisando do codigo fonte para emissão de dados para impressora fiscal CORISCO. Ficarei muito grato se alguém puder me ajudar.

Ariston Santos

Macapá-AP