Ariston Santos

Obrigado por tudo. A propósito, ainda estou com problemas com o CTRL+ALT+DEL (de outro tópico). Recebi algumas dicas mais ainda não consegui travar essas teclas no XP. Já testei as seguintes: 1. SysTaskChange( .F. ) // Só funciona no Windows 98 2. TravaTc() Dll32 FUNCTION TravaTc() AS VOID FROM "VoTravaTeclado" LIB "VoTravaKey.DLL" Dll32 FUNCTION LiberaTc() AS VOID FROM "VoLiberaTeclado" LIB "VoTravaKey.DLL" // Trava o teclado completo e o mouse, mas preciso de uma função que trave apenas CTRL + ALT + DEL também no XP. 3. if !lState SysParInfo( 97, 1, 0, 0 ) else SysParInfo( 97, 0, 0, 0 ) endif dll32 static function SysParInfo( uAction AS LONG, uParam AS LONG, vParam AS LONG, uWinIni AS LONG ) ; AS LONG PASCAL FROM "SystemParametersInfoA" LIB "User32.dll" Se alguem tiver alguma coisa funcional agradeço pela ajuda. Ariston

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