Jump to content
Fivewin Brasil

coutinho.amauri

Membros
  • Posts

    188
  • Joined

  • Last visited

Everything posted by coutinho.amauri

  1. Olá amigos por acaso alguem ja tem o pelles c na versão 5.0 se alguem tiver tem como me enviar obrigado fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  2. tenho uma imagem no formato pdf como posso imprimir esta imagem por dentro do sistema fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  3. tenho uma imagem no formato pdf como posso imprimir esta imagem por dentro do sistema fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  4. ESTA ASSIM hBorland := LoadLibrary( ".\DLL32\bwcc32.dll" ) hBorland := LoadLibrary( ".\DLL32\prev32.dll" ) BWCCRegister( GetResources( ) ) DLL32 FUNCTION BWCCRegister(hinst AS LONG) AS WORD PASCAL LIB "BWCC32.DLL" Procedure AppSys return fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  5. compilo com o xdev versao 0.65 tem uma chamada sim de bwccregister fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  6. este erro ocorre no momento da chamada do sistema logo assim que clica no executavel fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  7. esta classe não existe migrei a minha aplicação de clipper para xharbour qdo executo da esta mensagem de erro alguem saberia me dizer o que pode ser Obrigado. fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  8. esta classe não existe migrei a minha aplicação de clipper para xharbour qdo executo da esta mensagem de erro alguem saberia me dizer o que pode ser Obrigado. fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  9. Duvida consigo usar a BEMAFI32.DDL E SUAS FUNÇÕES UTILIZANDO O FW24 FOR CLIPPER ou ela so rola em 32 bits Obrigado fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  10. Duvida consigo usar a BEMAFI32.DDL E SUAS FUNÇÕES UTILIZANDO O FW24 FOR CLIPPER ou ela so rola em 32 bits Obrigado fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  11. obrigado , vlw fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  12. Oi Amigos Alguem ja trabalhou com esta gaveta como faço pra enviar o comando de abertura pra esta gaveta via serial fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  13. Oi Amigos Alguem ja trabalhou com esta gaveta como faço pra enviar o comando de abertura pra esta gaveta via serial fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  14. Alo Galera como faço pra visualizar uma imagem tipo temho uma imagem scaneada tem um botao pra visualizar a imagem , como faço a açao do botão. pra imagem usamdo o visualidor de imagem do windows. Atenciosamente fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  15. Alo Galera como faço pra visualizar uma imagem tipo temho uma imagem scaneada tem um botao pra visualizar a imagem , como faço a açao do botão. pra imagem usamdo o visualidor de imagem do windows. Atenciosamente fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  16. por acaso alguem tem a rotina de calculo do digito verificador do EAN8 atenciosamente Amauri fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  17. Valdir o seu exemplo esta indentico ao meu fonte fiz um teste no seu e esta imprimindo legal mas continuo com problemas no meu to achando que fica algo guardado no buffer da impressora tipo a quantidade de etiquetas que peço pra imprimir ai ela ta somando ao codigo. fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  18. me ajudem por favor fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  19. Ninguem ?? fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  20. to com um problema que é o seguinte na hora de imprimir o codigo de barras na etiqueta ta saindo o codigo errado o resto ta correto ja quando e menor que 10 sai zero e os outros da sempre tres ou dois numeros a menos ex: numero 15 sai 13 eis o codigo se alguem puder me ajudar agradeço.. FUNCTION IMPETIPRO(wQTDE) LOCAL nREF1 := SPACE(08) LOCAL nREF2 := SPACE(07) LOCAL nCob := SPACE(08) LOCAL nIND := 0 LOCAL nVEND := 0 LOCAL nQTD := 0 LOCAL nLin := 0 LOCAL nCol := 0 LOCAL nIX := "" nREF1 := LEFT(PRODUTOS->NOME ,8) nREF2 := SUBST(PRODUTOS->NOME ,9,7) nVEND := PRODUTOS->PRECO nQTD := wQTDE nCob := RIGHT(strzero(val(PRODUTOS->CODIGO)),8) nIX := "R$" oPrn:= TDosPrn():New("\TICKET.PRN") oPrn:StartPage() oPrn:lZeraBuffer:=.T. // Inibe o Pulo da P gina WHIL ! ISPRINTER() IF ! MsgRetryCancel( "Sua Impressora, Não Esta Ligada!!! " + CRLF + ; "Favor Verificar e tente de novo!",; "Erro de Impressora!" ) Return Nil ENDIF ENDDO @ nLin,nCol SAY [FK"*"]+CRLF OF oPrn @ nLin,nCol SAY [FS"ETQ"]+CRLF OF oPrn @ nLin,nCol SAY [V00,08,N,""]+CRLF OF oPrn @ nLin,nCol SAY [V01,08,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V02,07,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V03,02,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V04,10,N,""]+CRLF OF oPrn @ nLin,nCol SAY CRLF OF oPrn @ nLin,nCol SAY [Q104,24+0]+CRLF OF oPrn @ nLin,nCol SAY [R100,0]+CRLF OF oPrn @ nLin,nCol SAY [s2]+CRLF OF oPrn @ nLin,nCol SAY [D8]+CRLF OF oPrn @ nLin,nCol SAY [ZT]+CRLF OF oPrn @ nLin,nCol SAY [TTh]+CRLF OF oPrn @ nLin,nCol SAY [TDy2.mn.dd]+CRLF OF oPrn @ nLin,nCol SAY [b449,8,0,E80,2,2,59,B,V00]+CRLF OF oPrn @ nLin,nCol SAY [A337,6,0,1,1,2,N,V01]+CRLF OF oPrn @ nLin,nCol SAY [A337,31,0,1,1,2,N,V02]+CRLF OF oPrn @ nLin,nCol SAY [A305,53,0,1,1,2,N,V03]+CRLF OF oPrn @ nLin,nCol SAY [A337,57,0,1,1,2,N,V04]+CRLF OF oPrn @ nLin,nCol SAY [FE]+CRLF OF oPrn @ nLin,nCol SAY [FR"ETQ"]+CRLF OF oPrn @ nLin,nCol SAY +CRLF OF oPrn * impressao dos dados @ nLin,nCol SAY nCOB + CRLF OF oPrn @ nLin,nCol SAY NREF1 + CRLF OF oPrn @ nLin,nCol SAY NREF2 + CRLF OF oPrn @ nLin,nCol SAY NIX + CRLF OF oPrn @ nLin,nCol SAY TRANSFORM(NVEND, "@E 99,999.99") + CRLF OF oPrn @ nLin,nCol SAY "P"+STRZERO(nQTD,4) + CRLF OF oPrn oPrn:EndPage() // Obrigat¢rio oPrn:End() // Idem SysRefresh() ImprSpool( "\TICKET.PRN", , .T. ) fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  21. to com um problema que é o seguinte na hora de imprimir o codigo de barras na etiqueta ta saindo o codigo errado o resto ta correto ja quando e menor que 10 sai zero e os outros da sempre tres ou dois numeros a menos ex: numero 15 sai 13 eis o codigo se alguem puder me ajudar agradeço.. FUNCTION IMPETIPRO(wQTDE) LOCAL nREF1 := SPACE(08) LOCAL nREF2 := SPACE(07) LOCAL nCob := SPACE(08) LOCAL nIND := 0 LOCAL nVEND := 0 LOCAL nQTD := 0 LOCAL nLin := 0 LOCAL nCol := 0 LOCAL nIX := "" nREF1 := LEFT(PRODUTOS->NOME ,8) nREF2 := SUBST(PRODUTOS->NOME ,9,7) nVEND := PRODUTOS->PRECO nQTD := wQTDE nCob := RIGHT(strzero(val(PRODUTOS->CODIGO)),8) nIX := "R$" oPrn:= TDosPrn():New("\TICKET.PRN") oPrn:StartPage() oPrn:lZeraBuffer:=.T. // Inibe o Pulo da P gina WHIL ! ISPRINTER() IF ! MsgRetryCancel( "Sua Impressora, Não Esta Ligada!!! " + CRLF + ; "Favor Verificar e tente de novo!",; "Erro de Impressora!" ) Return Nil ENDIF ENDDO @ nLin,nCol SAY [FK"*"]+CRLF OF oPrn @ nLin,nCol SAY [FS"ETQ"]+CRLF OF oPrn @ nLin,nCol SAY [V00,08,N,""]+CRLF OF oPrn @ nLin,nCol SAY [V01,08,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V02,07,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V03,02,L,""]+CRLF OF oPrn @ nLin,nCol SAY [V04,10,N,""]+CRLF OF oPrn @ nLin,nCol SAY CRLF OF oPrn @ nLin,nCol SAY [Q104,24+0]+CRLF OF oPrn @ nLin,nCol SAY [R100,0]+CRLF OF oPrn @ nLin,nCol SAY [s2]+CRLF OF oPrn @ nLin,nCol SAY [D8]+CRLF OF oPrn @ nLin,nCol SAY [ZT]+CRLF OF oPrn @ nLin,nCol SAY [TTh]+CRLF OF oPrn @ nLin,nCol SAY [TDy2.mn.dd]+CRLF OF oPrn @ nLin,nCol SAY [b449,8,0,E80,2,2,59,B,V00]+CRLF OF oPrn @ nLin,nCol SAY [A337,6,0,1,1,2,N,V01]+CRLF OF oPrn @ nLin,nCol SAY [A337,31,0,1,1,2,N,V02]+CRLF OF oPrn @ nLin,nCol SAY [A305,53,0,1,1,2,N,V03]+CRLF OF oPrn @ nLin,nCol SAY [A337,57,0,1,1,2,N,V04]+CRLF OF oPrn @ nLin,nCol SAY [FE]+CRLF OF oPrn @ nLin,nCol SAY [FR"ETQ"]+CRLF OF oPrn @ nLin,nCol SAY +CRLF OF oPrn * impressao dos dados @ nLin,nCol SAY nCOB + CRLF OF oPrn @ nLin,nCol SAY NREF1 + CRLF OF oPrn @ nLin,nCol SAY NREF2 + CRLF OF oPrn @ nLin,nCol SAY NIX + CRLF OF oPrn @ nLin,nCol SAY TRANSFORM(NVEND, "@E 99,999.99") + CRLF OF oPrn @ nLin,nCol SAY "P"+STRZERO(nQTD,4) + CRLF OF oPrn oPrn:EndPage() // Obrigat¢rio oPrn:End() // Idem SysRefresh() ImprSpool( "\TICKET.PRN", , .T. ) fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  22. JA VERIFIQUEI ISTO , AINDA CONTINUA COM PROBLEMA . fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  23. amigos estou gerando um relatorio no preview ocorreu o seguinte ocorreu um erro no relatorio , acertei o programa recompilei , qdo mandei gerar o relatorio outra vez , ele me gera um preview em branco , isto ocorre sempre que da um erro no relatorio e eu mando gerar ele de novo. obs: se eu reiniciar o computador ele me gera o preview 100 % fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  24. amigos estou gerando um relatorio no preview ocorreu o seguinte ocorreu um erro no relatorio , acertei o programa recompilei , qdo mandei gerar o relatorio outra vez , ele me gera um preview em branco , isto ocorre sempre que da um erro no relatorio e eu mando gerar ele de novo. obs: se eu reiniciar o computador ele me gera o preview 100 % fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
  25. vou pegar o onibus em niteroi direto pro tiete vou sair daqui as 23 hrs na sexta devo chegar em tiete la pelas 5:30 da manha como fazer pra chegar de tiete ate o local do congresso Atenciosamente Amauri fw24/blink7/clip53 msn:coutinho.amauri@hotmail.com
×
×
  • Create New...