Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

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

Os nossos membros postaram um total de 31 mensagens em 17 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
avatar
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
avatar
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
avatar
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
avatar
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)


avatar
barry
Participa Bastante
Participa Bastante


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