Jump to content
Fivewin Brasil

Kleyton

Membros
  • Posts

    1,668
  • Joined

  • Last visited

Everything posted by Kleyton

  1. Coloque assim "HKEY_LOCAL_MACHINE" Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  2. Quase infartei por causa dessa impressora. No meu caso a impressora veio de fábrica pronta pra ser ligada em 220v, e liguei ela no nobreak, não imprimia de forma alguma. Mudei a chave dela para 110v e liguei novamente no nobreak, e pimba, funcionou. Tente isso. Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  3. Kleyton

    Bematech

    Só pra título de informação, estou vendo em diversos fóruns de automação comercial que, a BEMATECH irá colocar todas as assistências técnicas dela que fazem lacramento e vendas de impressoras fiscais, como seu repretentante na venda de seus softwares. Já imaginou toda vez que um cliente seu mandar impressoras para algum tipo de reparo ou até mesmo comprar novas impressoras, o atendente dizer ao seu cliente "Está satisfeito com seu sistema? Nós temos uma linha completa que nunca irá te deixar na mão, já que o software é da própria fabricante da impressora, não dando nenhum tipo de imcompatilidade". E ainda tem mais, parece que estão vendendo o software no valor de R$ 150,00 com valor de manutenção a partir de R$ 35,00 mensais. Até já sei o que alguns aqui do fórun irão dizer. Eu sei que se o cliente estiver satisfeito com o seu software ele nem irá dar bola para o atendente, mas vai que ele caia na tentação, já imaginou !!! Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  4. Kleyton

    Bematech

    Só pra título de informação, estou vendo em diversos fóruns de automação comercial que, a BEMATECH irá colocar todas as assistências técnicas dela que fazem lacramento e vendas de impressoras fiscais, como seu repretentante na venda de seus softwares. Já imaginou toda vez que um cliente seu mandar impressoras para algum tipo de reparo ou até mesmo comprar novas impressoras, o atendente dizer ao seu cliente "Está satisfeito com seu sistema? Nós temos uma linha completa que nunca irá te deixar na mão, já que o software é da própria fabricante da impressora, não dando nenhum tipo de imcompatilidade". E ainda tem mais, parece que estão vendendo o software no valor de R$ 150,00 com valor de manutenção a partir de R$ 35,00 mensais. Até já sei o que alguns aqui do fórun irão dizer. Eu sei que se o cliente estiver satisfeito com o seu software ele nem irá dar bola para o atendente, mas vai que ele caia na tentação, já imaginou !!! Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  5. Você tem que instalar o driver dela, como se fora uma impressora normal? Já fez isso, inclusive deixando-a como padrão? Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  6. cGet2 := "NOME DO PRODUTO" cGet3 := 2 // qtde de etiquetas cBar_get := "9999"+strzero(val(codbar_get),8) // código de barras oPrn := TDosPrn():New("ARGOX.PRN") oPrn:StartPage() lin := 0 oPrn:Say(Lin,0, "e" +CRLF + ; "m" +CRLF + ; "c0040" +CRLF + ; "L" +CRLF + ; "H14" +CRLF + ; "D11" +CRLF + ; "121200003530050"+cGet2 +CRLF + ; "131100002990050Lote :" +CRLF + ; "13110000299025000100" +CRLF + ; "+1" +CRLF + ; "1F0011001550045"+cBar_get +CRLF + ; "+0" +CRLF + ; "Q"+strzero(cGet3,4) +CRLF + ; "J" +CRLF + ; "E" +CRLF ) oPrn:EndPage2() SysRefresh() cPorta:= "PRN" WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 ) xSetFocus(oGet1) SYSREFRESH() Return NIL id=code>id=code>Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  7. Caros Empresários, Mais a uma vez estão querendo que nós, setor produtivo, paguemos o preço da incompetência do Governo. De acordo com a notícia vinculada no jornal eletrônico Convergência Digital, segue abaixo, a camara federal está querendo incluir o software na cobranca de ICMS ( invês de ISS nós pagaremos ICMS ) na reforma tributária. “ ICMS: Relator está inclinado a apoiar pedido dos Estados “ Se não houver um forte trabalho de pressão junto aos deputados na Câmara, por parte das entidades que defendem o setor de software, as emendas que tentam inserir na Reforma Tributária, a cobrança de ICMS nas vendas dos programas de computadores e nas compras pela Internet serão aprovadas. O deputado Sandro Mabel (PR-GO), relator da reforma naquela casa, já admitiu a alguns parlamentares que a pressão dos Estados pelo ICMS no software e nas compras feitas pela Internet tem sido "fortíssima". Não podemos aceitar esta situação precisamos fazer uma pressão, JUNTOS COM TODOS, para que os nossos deputados não votem a favor. A COMTEC juntos com o SINDINFORMÃTICA está fazendo o seu papel de “brigar†a favor do setor de Software precisamos unir forças, pois se ficarmos sentados em nossas mesas com certeza iremos pagar mais imposto, que já é altíssimo. Providência já tomadas pela a COMTEC: - Articulação junto com a Dep. Federal Raquel Teixeira, que irá fazer uma fala contra a inclusão do software no IVA nesta quarta-feira ( 02/07 ), precisamos subsidiar a fala dela. - Articulação junto com o Dep. Sandro Mabel para que não aceita a inclusão no relatório final da Reforma Tributária. - Articulação junto com o Dep. Jovair Arantes Líder do Governo na Camara Federal, para votação contra a inclusão do software no IVA. - Mobilização dos empresários encaminhando e-mail para os jornais e e-mail ao relator Dep. Sandro Mabel para não incluir no seu parecer - Mobilização juntos com o Forúm Empresarial, inclusive indo uma comitiva a Brasília para não aceitar esta inclusão Estamos aberto a todo apoio e sugestões. A COMTEC e o SINDINFORMÃTICA não deixará passar em branco e o que vocÊ vai fazer para não ter que pagar mais imposto? Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  8. Caros Empresários, Mais a uma vez estão querendo que nós, setor produtivo, paguemos o preço da incompetência do Governo. De acordo com a notícia vinculada no jornal eletrônico Convergência Digital, segue abaixo, a camara federal está querendo incluir o software na cobranca de ICMS ( invês de ISS nós pagaremos ICMS ) na reforma tributária. “ ICMS: Relator está inclinado a apoiar pedido dos Estados “ Se não houver um forte trabalho de pressão junto aos deputados na Câmara, por parte das entidades que defendem o setor de software, as emendas que tentam inserir na Reforma Tributária, a cobrança de ICMS nas vendas dos programas de computadores e nas compras pela Internet serão aprovadas. O deputado Sandro Mabel (PR-GO), relator da reforma naquela casa, já admitiu a alguns parlamentares que a pressão dos Estados pelo ICMS no software e nas compras feitas pela Internet tem sido "fortíssima". Não podemos aceitar esta situação precisamos fazer uma pressão, JUNTOS COM TODOS, para que os nossos deputados não votem a favor. A COMTEC juntos com o SINDINFORMÃTICA está fazendo o seu papel de “brigar†a favor do setor de Software precisamos unir forças, pois se ficarmos sentados em nossas mesas com certeza iremos pagar mais imposto, que já é altíssimo. Providência já tomadas pela a COMTEC: - Articulação junto com a Dep. Federal Raquel Teixeira, que irá fazer uma fala contra a inclusão do software no IVA nesta quarta-feira ( 02/07 ), precisamos subsidiar a fala dela. - Articulação junto com o Dep. Sandro Mabel para que não aceita a inclusão no relatório final da Reforma Tributária. - Articulação junto com o Dep. Jovair Arantes Líder do Governo na Camara Federal, para votação contra a inclusão do software no IVA. - Mobilização dos empresários encaminhando e-mail para os jornais e e-mail ao relator Dep. Sandro Mabel para não incluir no seu parecer - Mobilização juntos com o Forúm Empresarial, inclusive indo uma comitiva a Brasília para não aceitar esta inclusão Estamos aberto a todo apoio e sugestões. A COMTEC e o SINDINFORMÃTICA não deixará passar em branco e o que vocÊ vai fazer para não ter que pagar mais imposto? Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  9. TEF dedicado ele faz também? Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  10. Coloque assim no objeto que está fazendo a validação: REDEFINE GET oGet[20] Var cGet[20] ID 40 OF oDlgEnt FONT oFontCli picture "99999999999999" valid chkprodu(cGet[20]) oGet[20]:bKeyDown := {|nKey| chktecbal(nKey) } //IIF( nKey = VK_F2,( consprod2(cGet[20], " ", 8 ) ), ) } oGet[20]:lCancel := .t. Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  11. Kleyton

    Bematech

    http://portalexame.abril.uol.com.br/revista/exame/edicoes/0917/tecnologia/m0158173.html Já começou a aparecer os resultados da Bematech... Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  12. Kleyton

    Bematech

    http://portalexame.abril.uol.com.br/revista/exame/edicoes/0917/tecnologia/m0158173.html Já começou a aparecer os resultados da Bematech... Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  13. Mudar a linha abaixo: IF T_AUTE_LOGOMARCA1 := DRIVE_TR+"\"+CURDIR()+"\BITMAPS\"+"LOGO_M.BMP" para IF T_TXT_DESCRICAO = DRIVE_TR+"\"+CURDIR()+"\BITMAPS\"+"LOGO_M.BMP" Mudar a variável T_AUTE_LOGOMARCA1 para T_TXT_DESCRICAO e mudar também := para = Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  14. Jackson, teria como você postar parte do seu código para vermos como é realmente na prática a programação com FastReport? Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  15. Não tem que indexar a data com o comando dtos? Index on dtos(Data) to DataDiario Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  16. Estou interessado. Teria como alguém que já esteja utilizando postar o fonte de um pequeno relatório, juntamente com o script de compilação e declaração das dll´s? ou seja, tudo que terá que ser feito para ser implantando em meu sistema. Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  17. http://www.bematech.com.br/imprensa/mostranoticia.asp?id=940 Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  18. TESTBMP.PRG é melhor, é exatamente o que você quer, quando dá dois cliques em cima da figura. Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  19. Em samples tem o arquivo TESTBMP2.PRG, veja se serve... Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  20. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=12584 Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  21. obrw:UpsTable() obrw:refresh() Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  22. Já tentou como mostrado abaixo, usando o comando dtos para indexar e para executar o dbseek. INDEX ON almox + dtos(dt_aberto) TO CAIXA1 IF CAIXA->(DBSEEK( str( nDado,3 )+DTOS(dDatPes) )) Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  23. Alguém poderia postar um pequeno exemplo de utilização do Acbrmonitor? Desde abertura, registro de ítens e fechamento de um cupom fiscal. Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  24. Se terminal que está na foto do link postado pelo aokisantos, serve pra quê? É leitor de consulta de preços? Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
  25. Pessoal, estou com um problema, parece ser fácil, mas não estou achando solução. No get abaixo, tem um campo onde faz busca de produtos, pelo código de barras ou digitando o nome do mesmo, que será posionado no listbox logo abaixo. Só que se eu digitar um produto por exemplo: "ARROZ" e descer com a seta pra baixo para posicionar no listbox para selecionar o "ARROZ" desejado, está executando a função: valid Chkprod_(), ou seja incluíndo o produto que só deveria ser incluíndo quando pressionado ENTER, ou seja, a função valid Chkprod_(), está sendo executado quando pressiono a seta pra baixo, passando do get para o listbox. Alguém teria uma sugestão? * PESQUISAR PRODUTOS REDEFINE GET oGet[01] Var cGet[01] ID 114 OF oDlgEnt picture "@X" FONT oFontCli COLOR CLR_BLACK, nRGB( 66, 115, 155 ) ; ON CHANGE( oLbx:Refresh(), Buscar( nKey, oGet[01], oLbx,"01" ) ) valid Chkprod_() oGet[01]:cTooltip:="Digite o nome do produto, ou passe o leitor no código de barras" * lista de produtos ARQMED->(DbGotop()) ARQMED->(DbSetOrder(7)) REDEFINE LISTBOX oLbx FIELDS ; ARQMED->DESMED, ARQMED->UNIMED , transf(ARQMED->PREMED,"@E 99,999.99") ; HEADERS "Produto", "Uni", "Preco " ; ID 601 ; SIZES 260,30,150 ; FONT oFontCli ; ON LEFT DBLCLICK ( ( cGet[01]:=ARQMED->DESMED,oGet[01]:Refresh(),Chkprod_()) ) OF oDlgEnt oLbx:bKeyChar = { | nKey | if(nKey=13, (cGet[01]:=ARQMED->DESMED,oGet[01]:Refresh(),Chkprod_(), sel_ini()), )} // Controlling keystrokes oLbx:nClrPane := { || if( ARQMED->(OrdKeyNo())%2=0, RGB( 176,234,255 ),RGB( 224,248,255) ) } Kleyton xHarbour 99.5 Clipper5.2E+Clipper5.3b+Blink7+FW2.0d+Fwh 2.5 (xHarbour 0.99.3) cleitonbala@bol.com.br
×
×
  • Create New...