Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
18 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 18 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

» Pesquisa em grid
14/9/2016, 09:24 por AJC

» Total Code Generator
9/9/2016, 17:43 por robsonpassos

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

TRANSPOR TABELA

9/11/2016, 10:34 por hidroluz

Bom dia a todos, gostaria de saber como consigo fazer a transposição de uma tabela no VFP.



Comentários: 0

Estatísticas
Temos 6959 usuários registrados
O último usuário registrado atende pelo nome de EDBERTO

Os nossos membros postaram um total de 17117 mensagens em 2575 assuntos

MP-2500

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido MP-2500

Mensagem por barry em 17/9/2012, 07:48

Olá pessoal boa noite

Estou com um pequeno problema na impressão de um cupom de restaurante em uma mp-2500 da Bematech.

Ela funciona normalmente por várias vezes, mais sem ver nem pra que ela deixa de funcionar, é como se algum comando a travasse. Quando ocorre isso as vezes preciso resetar o micro para ela voltar a funcionar mais nem sempre uma vez só funciona.

Alguém já passou por isso?

O código que estou usando é o abaixo:

Código:
SELECT VENDAS
SET FILTER TO COD_MESA=1 .AND. SITUACAO = "Aberta" .AND. CODPRODUTO <> 9999
LOCATE
*
STORE TOT_VENDA TO VTOT_VENDA
STORE TOT_SERVI TO VTOT_SERVI
STORE TOT_GERAL TO VTOT_GERAL
STORE COD_PGTO_1 TO VCOD_PGTO_1
STORE COD_PGTO_2 TO VCOD_PGTO_2
STORE COD_PGTO_3 TO VCOD_PGTO_3
STORE COD_PGTO_4 TO VCOD_PGTO_4
STORE DES_PGTO_1 TO VDES_PGTO_1
STORE DES_PGTO_2 TO VDES_PGTO_2
STORE DES_PGTO_3 TO VDES_PGTO_3
STORE DES_PGTO_4 TO VDES_PGTO_4
STORE VLR_PGTO_1 TO VVLR_PGTO_1
STORE VLR_PGTO_2 TO VVLR_PGTO_2
STORE VLR_PGTO_3 TO VVLR_PGTO_3
STORE VLR_PGTO_4 TO VVLR_PGTO_4
*---------------------------------
* Impressão da nota de venda
* Mini cupom
*---------------------------------
SET DEVICE TO PRINT
DATA = DTOC(DATE())
TEMPO = TIME()
LETRA = "TIMES NEW ROMAM"
TAM = 8
*
@ PROW()+1, 01 SAY REPLICATE("-",70) FONT LETRA,TAM STYLE "T"
@ PROW()+1, 13 SAY "S E M V A L O R F I S C A L" FONT LETRA,TAM STYLE "T"
@ PROW()+1, 01 SAY REPLICATE("-",70) FONT LETRA,TAM STYLE "T"
@ PROW()+1, 01 SAY VFIRMA FONT LETRA,TAM STYLE "T"
@ PROW()+1, 01 SAY ALLTRIM(VENDE_FIRMA) FONT LETRA,TAM STYLE "T"
@ PROW()+1, 01 SAY ALLTRIM(VCID_FIRMA) + " Cep:" + VCEP_FIRMA + " - " + "Brasil" FONT LETRA,TAM STYLE "T"
@ PROW()+1, 01 SAY "Atendente:" + NOME_VEND FONT LETRA,TAM STYLE "T"
@ PROW()+1, 01 SAY "Mesa:" + STR(COD_MESA) FONT LETRA,TAM STYLE "T"
@ PROW() , 26 SAY "Nº Comanda: " + NR_VENDA FONT LETRA,TAM STYLE "T"
@ PROW()+1, 01 SAY REPLICATE("-",70) FONT LETRA,TAM STYLE "T"
@ PROW()+1, 13 SAY "C U P O M C O N S U M O" FONT LETRA,TAM STYLE "T"
@ PROW()+1, 01 SAY REPLICATE("-",70) FONT LETRA,TAM STYLE "T"
@ PROW()+1, 01 SAY "Descrição do Produto Qtd´s R$ Unit Total Item" FONT LETRA,7 STYLE "T"
@ PROW()+1, 01 SAY REPLICATE("-",70) FONT LETRA,TAM STYLE "T"
*
DO WHILE .NOT. EOF()
 *
 @ PROW()+1,01 SAY DES_PRODU PICTURE "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx" FONT LETRA,6 STYLE "T"
 @ PROW() ,27 SAY QTD PICTURE "99.99" FONT LETRA,6 STYLE "T"
 @ PROW() ,34 SAY PRECO_VEND PICTURE "999.99" FONT LETRA,6 STYLE "T"
 @ PROW() ,43 SAY TOTAL_ITEM PICTURE "999.99" FONT LETRA,6 STYLE "T"
 *
 SKIP
 *
 IF EOF()
 *
 @ PROW()+1,01 SAY REPLICATE("-",70) FONT LETRA,TAM STYLE "T"
 *
 IF VCOD_PGTO_1 <> 0.00
 *
 @ PROW()+1,01 SAY VDES_PGTO_1 FONT LETRA,TAM STYLE "T"
 @ PROW() ,15 SAY VVLR_PGTO_1 PICTURE "999.99" FONT LETRA,TAM STYLE "T"
 *
 ENDIF
 *
@ PROW() ,28 SAY "Consumo:" FONT LETRA,TAM STYLE "T"
 @ PROW() ,43 SAY VTOT_VENDA PICTURE "999.99" FONT LETRA,TAM STYLE "T"
 *
 IF VCOD_PGTO_2 <> 0.00
 *
 @ PROW()+1,01 SAY VDES_PGTO_2 FONT LETRA,TAM STYLE "T"
 @ PROW() ,15 SAY VVLR_PGTO_2 PICTURE "999.99" FONT LETRA,TAM STYLE "T"
 @ PROW() ,28 SAY "Total Serviços" FONT LETRA,TAM STYLE "T"
 @ PROW() ,43 SAY VTOT_SERVI PICTURE "999.99" FONT LETRA,TAM STYLE "T"
 *
 ELSE
*
 @ PROW()+1,28 SAY "Total Serviços" FONT LETRA,TAM STYLE "T"
 @ PROW() ,43 SAY VTOT_SERVI PICTURE "999.99" FONT LETRA,TAM STYLE "T"
 *
 ENDIF
 *
IF VCOD_PGTO_3 <> 0.00
 *
 @ PROW()+1,01 SAY VDES_PGTO_3 FONT LETRA,TAM STYLE "T"
 @ PROW() ,15 SAY VVLR_PGTO_3 PICTURE "999.99" FONT LETRA,TAM STYLE "T"
 @ PROW() ,28 SAY "Total Geral:" FONT LETRA,TAM STYLE "T"
 @ PROW() ,43 SAY VTOT_GERAL PICTURE "999.99" FONT LETRA,TAM STYLE "T"
 *
 ELSE
*
 @ PROW()+1,28 SAY "Total Geral:" FONT LETRA,TAM STYLE "T"
 @ PROW() ,43 SAY VTOT_GERAL PICTURE "999.99" FONT LETRA,TAM STYLE "T"
 *
 ENDIF
 *
 @ PROW()+2,01 SAY REPLICATE("-",70) FONT LETRA,TAM STYLE "T"
 @ PROW()+1,12 SAY "OBRIGADO E VOLTE SEMPRE" FONT LETRA,TAM STYLE "T"
 *
 SET PRINT TO
 SET DEVICE TO SCREEN
 EXIT
 *
 ENDIF
 *
ENDDO


Agradecido

barry
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: MP-2500

Mensagem por Marcos Guedes em 17/9/2012, 10:04

Olá, meu caro!
Faz tanto tempo que não vemos você que esquecesse da área de visual foxpro, não foi?

Smile

Tópico movido para a área correta:
[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: MP-2500

Mensagem por barry em 17/9/2012, 10:37

Pois é estou agora como representante da IONICS sistema de postos e viajando muito, parei muito com a parte de desenvolvimento, estou voltando agora para fazer esse sistema pra um amigo e estou com esse problema.

abraço

barry
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: MP-2500

Mensagem por Marcos Guedes em 18/9/2012, 08:22

Você disse que o código funciona perfeitamente e depois de um tempo dá erro, não é?

Não seria problema com o Spooler de impressão?
Já tentasse limpar o Spooler sempre que a aplicação for fechada ou a impressão for completamente concluída?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: MP-2500

Mensagem por barry em 18/9/2012, 10:19

Já desativei o spooler. Depois que ela trava eu desligo pelo windows o spool zero ele e inicializao novamente e nada ela só volta a imprimir depois que inicializa a maquina. A mp-2500 é conexão USB.

Teria como limpar esse spool de dentro da aplicação sem precisar sair e entrar de novo? Será que isso resolveria? Já utilizo outras impressoras nao fiscal mais nunca tinha usada com usb não sei se o problema pode ser esse

barry
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: MP-2500

Mensagem por Marcos Guedes em 18/9/2012, 10:29

Os comandos - via prompt de comando - para para limpar o spooler é o seguinte:
Código:
net stop spooler
del C:\windows\system32\spoo\printers\*.shd
del C:\windows\system32\spoo\printers\*.spl
net start spooler

Talvez, se você adicionar estes comando a um arquivo .bat e executá-lo a partir do VFP resolva.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: MP-2500

Mensagem por barry em 18/9/2012, 10:52

Já pensei nisso o problema é usar comando do msdos ficando totalmente transparente ao usuario

barry
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: MP-2500

Mensagem por Marcos Guedes em 18/9/2012, 14:03

Veja esta função:
[Você precisa estar registrado e conectado para ver este link.]

Um dos parâmetros permite executar o arquivo sem aparecer a janela.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: MP-2500

Mensagem por barry em 18/9/2012, 15:55

Pessoal com uma das rotinas do Marcos Guedes parece que o problema foi solucionado. Coloquei a rotina abaixo no final da impressão do cupom e pelos testes que fiz está funcionando. Valeu amigos pelas dicas

Código:
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ;
STRING cDir, ;
INTEGER nShowWin

cFileName = "net stop spooler"
cAction = "open"
ShellExecute(0,cAction,cFileName,"","",1)

cFileName = "del C:\windows\system32\spoo\printers\*.shd"
cAction = "open"
ShellExecute(0,cAction,cFileName,"","",1)

cFileName = "del C:\windows\system32\spoo\printers\*.spl"
cAction = "open"
ShellExecute(0,cAction,cFileName,"","",1)

cFileName = "net start spooler"
cAction = "open"
ShellExecute(0,cAction,cFileName,"","",1)



barry
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: MP-2500

Mensagem por Conteúdo patrocinado Hoje à(s) 09:32


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum