Ariston Santos

Oi, amigos. Como faço para imprimir o CUPON FISCAL na BEMATECH pela rede? Grato! Ariston Santos Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi, amigos. Como faço para imprimir o CUPON FISCAL na BEMATECH pela rede? Grato! Ariston Santos Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi, pessoal. Como faço para cancelar outro cupom diferente do último na ECF BEMATECH? Estou usando MP20FI32.DLL. Grato! Ariston Santos Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi, pessoal. Como faço para cancelar outro cupom diferente do último na ECF BEMATECH? Estou usando MP20FI32.DLL. Grato! Ariston Santos Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br

Se o problema é lentidão, também quero dar minha opinião baseada em um problema parecido de filtro. Meu banco de dados tinha menos registros, apenas 35 mil, e o objetivo erá fazer um filtro de clientes ou endereços por parte do nome. 1. Em DBF, usando set filter, demorou uma eternidade; 2. Em DBF usando arquivo temporário demorava muito para separar os dados e gravar no temporário. Melhorou um pouquinho. 3. Migrei para MySQL com SQLLIB, usando SQLFilter. Demorou tanto quanto em DBF. 4. Eu já estava quase desistindo quando pensei em usar o comando em SQL e usar um Array para receber o filtro. Finalmente consegui agilizar o filtro. Passou a demorar no máximo 3 segundos para mostrar o resultado da pesquisa. O cliente ficou satisfeito. Veja como ficou a codificação final: cNome := "FEITOSA" SQL := "SELECT CODIGO, ENDERECO, NOME FROM cliente_tb WHERE NOME LIKE '%"+alltrim(cNome)+"%'" Arr := SQLArray(SQL) DEFINE DIALOG oPdl RESOURCE "PESQUISA" TITLE "Selecione o endereço" nRec := 1 REDEFINE LISTBOX oBr1 ; FIELDS Arr[nRec,3],; ALLTRIM(Arr[nRec,1])+"-"+Arr[nRec,2]; ID 103 OF oPdl ; ALIAS NIL ; COLORS BrwText, BrwBack oBr1:aHeaders := {"Endereço", "Nome"} oBr1:aColSizes := {250,150} oBr1:bLogicLen := {|| len(Arr)} oBr1:bGoTop := {|| nRec := 1 } oBr1:bGoBottom := {|| nRec := len(Arr) } oBr1:bSkip := { | nWant, nDo | ; nDo := Min( Max( nWant, 1 - nRec ), ; Len( Arr ) - nRec ), ; nRec += nDo, nDo } REDEFINE BUTTON oBt1 ID 101 OF oPdl ACTION (lProssegue := .T., oPdl:End()) REDEFINE BUTTON oBt3 ID 107 OF oPdl ACTION (lProssegue := .F., oPdl:End()) ACTIVATE DIALOG oPdl CENTERED nCodCli := VAL(Arr[nRec,1]) SET ORDER TO 1 SEEK nCodCli Sucesso, amigo. Ariston Santos Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br Editado por - j_arist on 24/06/2008 11:38:36 Editado por - j_arist on 24/06/2008 11:41:29

Faltou as dlls. Preciso delas também. Qual a versão do fw que vc está usando? Ariston Santos Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi, amigo. Se ainda não tiver resolvido, zip teus prgs (sem o executável) e mande para mim, junto com os resources, para eu tentar descobrir o erro e mandar de volta para você. Ariston Santos Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi, amigo. Espero que ja tenha resolvido. Se não, vai outra dica: Copie a WORKRES.DLL do Workshop para a pasta de sua aplicação e carregue ela junto com a sua dll, conforme comando abaixo: SET RESOURCES TO "SUADLL.DLL", "WORKRES.Dll" Já tive o mesmo problema antes e foi assim que eu resolvi. Sucesso! Ariston Santos Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br

É bom saber isso. Só faltou postar aqui o e-mail, msn ou telefone dele para os que quiserem entrar em contato. Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi, amigos. Neste link http://www.shapephone.com.br/soundbina/soundbina.html tem o anúncio do aparelho micDTMF (Identificador de chamadas para computador). Já vi um programa de diskgas em Delphi que funciona perfeitamete com ele. Gostaria de sabar se alguem aqui do forum já conhece este aparelho e se já está disponivel alguma codificação em clipper ou xharbour para obter o número dele do telefone usando este aparelho. Grato! Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi, amigos. Neste link http://www.shapephone.com.br/soundbina/soundbina.html tem o anúncio do aparelho micDTMF (Identificador de chamadas para computador). Já vi um programa de diskgas em Delphi que funciona perfeitamete com ele. Gostaria de sabar se alguem aqui do forum já conhece este aparelho e se já está disponivel alguma codificação em clipper ou xharbour para obter o número dele do telefone usando este aparelho. Grato! Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Por que vc não usa a clausula VALID para chamar a função que seria chamada ao acionar o botão? Ex: @LL,CC GET oGet VAR cVar SIZE 100,10 OF oDlg VALID Funcao() STATIC FUNCTION Funcao() *** Executa os comandos da funcao RETURN .T. // Retorne verdadeiro. Sucesso! Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Caros amigos. Fiz testes usando a dica exitente neste forum. (1) Soldei um resistor de 5K1 no fio vermelho do cabo. (2) Conectei ao PCI SoftV92 Modem (COM3). (3) Minha linha já tem serviço de ID de chamada. Mesmo seguindo os passos acima, o programa só mostra a informação RING. Não detecta o número do telefone. Gostaria de saber se existe um MODEM específico para detectar o número do telefone, uma bilbioteca, ou informações adicionais que possam me ajudar a resolver este problema. Grato a todos. Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Caros amigos. Fiz testes usando a dica exitente neste forum. (1) Soldei um resistor de 5K1 no fio vermelho do cabo. (2) Conectei ao PCI SoftV92 Modem (COM3). (3) Minha linha já tem serviço de ID de chamada. Mesmo seguindo os passos acima, o programa só mostra a informação RING. Não detecta o número do telefone. Gostaria de saber se existe um MODEM específico para detectar o número do telefone, uma bilbioteca, ou informações adicionais que possam me ajudar a resolver este problema. Grato a todos. Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi, amigos. O link http://rapidshare.com/files/85461087/_GrF_nger.rar.html nao permite mais fazer download e eu ainda nao consegui pega-lo. Alguem poderia mandar este arquivo para meu email (ariston.ap@bol.com.br) ou disponibilizar outro link para eu baixar? Grato! Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

O link acima não permitiu mais fazer o download. Alguém poderia postar novamente, ou mandar para meu e-mail: ariston.ap@bol.com.br. Tô precisando mesmo. Agradeço pela ajuda de todos. Ps: Comprei o leitor biométrico da Microsoft. Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Prezados amigos do forum. Já vi por aqui aguns tópicos relacionados à biometria, mas nenhum apresenta uma solução concreta para desenvolvedores em xHarbour & Fivewin. Por isso, resolvi abrir mais este tópico. Estou desenvolvendo um programa de ponto e comprei um leitor biométrico da Microsoft para captura da leitura digital e preciso fazer meu programa obter a digital desse leitor. Pretendo: Salvar a digital (cadastrar), fazer a leitura e pesquisar em um banco de dados ao bater o ponto. Solicito a quem já tiver uma solução postar aqui o link. Se for vendido, favor informar o preço, forma de pagamento e demais dados necessários. No aguardo. Ariston Santos. Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Prezados amigos do forum. Já vi por aqui aguns tópicos relacionados à biometria, mas nenhum apresenta uma solução concreta para desenvolvedores em xHarbour & Fivewin. Por isso, resolvi abrir mais este tópico. Estou desenvolvendo um programa de ponto e comprei um leitor biométrico da Microsoft para captura da leitura digital e preciso fazer meu programa obter a digital desse leitor. Pretendo: Salvar a digital (cadastrar), fazer a leitura e pesquisar em um banco de dados ao bater o ponto. Solicito a quem já tiver uma solução postar aqui o link. Se for vendido, favor informar o preço, forma de pagamento e demais dados necessários. No aguardo. Ariston Santos. Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi, amigo. Eu também uso SQLLIB e sempre faço filtros usandos a função SQLfilter(). Para filtrar datas, uso a função DTOS. Ex: dData := CTOD('12/10/2007') // Pode ser preenchida em um GET cHome_cli := "NTO " cFiltro := "DATA <= '"+DTOS(dData)+"' AND nome_cli LIKE '%"+ALLTRIM(cNome_cli)+"%'" SQLFilter(cFiltro) // Filtra ... SQLFilter("") // Remove o filtro Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi, amigo. Localize a linha abaixo e comente ela colocado // ou asterisco no início dela. REDEFINE SAY oCt_2 PROMPT ALLTRIM(STR(Rc_it08))+"% ao mˆs" ID -2 OF oDlg3 Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi pessoal. Já notei que quando o ponteiro do mouse fica parado sobre um botão (da barra de botôes), as teclas de atalhos do menu (Ex: Alt+letra) não funcionam. Como faço pra corrigir este problema? Grato! Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Oi pessoal. Já notei que quando o ponteiro do mouse fica parado sobre um botão (da barra de botôes), as teclas de atalhos do menu (Ex: Alt+letra) não funcionam. Como faço pra corrigir este problema? Grato! Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib Conheça o pacote fivewin: www.arsoft-ap.com.br

Posso até não ter entendido direitinho. Mas, tenho um programa para hotel que faz fechamento de diárias, só que relacionado com hóspedes. Se ajudar, baixe os fontes usando este link: http://www.arsoft-ap.com.br/download/shotprg.zip Conheça o pacote fivevin: www.arsoft-ap.com.br Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib

Oi,amigo. Não entendi direito o que vc quer dizer com "programa de instalação com senha/contra-senha". Se vc está precisando de um Gerador de instalação para seus programas, tenho um que gera instalador com senha. Se não é isso, explique com mais detalhes. Quanto a tela de "Aguarde, imprimindo...", você pode usar a função MSGRUN() para chamar sua função de impressão. Exemplo: MsgRun("Aguarde. Imprimindo...", "Aguarde...", {||Sua_Funcao_Imprimir()}) Sucesso! Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib

Eu consigo assim: cCurPath := CurDrive()+":\"+GetCurDir()+"\DADOS" IF ! lIsDir(cCurPath) // Se a pasta não existir IF ! lMkDir(cCurPath) // Tentar criar. Se não conseguir MsgStop(OemToAnsi("A base de dados nÆo foi encontrada. Favor verificar e tente novamente."),"Erro na abertura dos dados") QUIT ENDIF ENDIF Só ainda não achei a função para renomear. Ariston Santos Fwh26 / xHarbour 0.99.3 / Bcc55 / xDev / Workshop / SqlLib