Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
25 usuários online :: 3 usuários cadastrados, Nenhum Invisível e 22 Visitantes :: 2 Motores de busca

Clebervfp, Napster182, Rubens

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Erro de compatibilidade de cores

28/3/2017, 10:59 por Clebervfp

Boa dia, estou com um problema com vfp9, se alguém poder me ajudar fico agradecido!

Tenho um …

Comentários: 0

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

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

Os nossos membros postaram um total de 32 mensagens em 18 assuntos

Impressora Ticket

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

Impressora Ticket

Mensagem por clima238 em 15/11/2016, 09:20

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

SET ENGINEBEHAVIOR 80 && Desactivo o Foxprewier

SET CONSOLE OFF
SET PRINTER ON
SET PRINTER TO NAME (m.a_impressora)

@ PRow(),01 say a_empresa
@ PRow()+1,01 say a_morada
@ PRow()+1,01 say o_nif
@ PRow()+1,01 say o_telefone

@ PROW()+3,01 say "Venda a dinheiro em " + DTOC(a_data)+" as "+time()

@ PROW()+2,01 say "----------------------------- ----------------------"
@ PROW()+1,01 say "QUANT ARTIGO VALOR"
@ PROW()+1,01 say "----------------------------- ----------------------"

&& Propositado
tem_decimais = .F.

SELECT itens_venda
LOCATE

SCAN
if tem_decimais = .T.
@ PRow()+1,01 say LTRIM(STR(itens_venda. quantidade)) PICTURE "999.999"
else
@ PRow()+1,01 say LTRIM(STR(itens_venda. quantidade)) PICTURE "9999"
endif
@ PROW(),07 say LEFT(itens_venda.descricao, 35)
@ PROW(),42 say itens_venda.valor_venda PICTURE "999,999.99"
ENDSCAN

@ PROW()+1,01 say "----------------------------- ----------------------"

IF a_comissao_servicos > 0
@ PROW()+1,20 say "Comisssão Serviços"
@ PROW(),42 say a_comissao_servicos PICTURE "999,999.99"
@ PROW(),52 say " Cve"
ENDIF

IF a_comissao_lubrificantes > 0
@ PROW()+1,20 say "Comisssão Lubrificantes"
@ PROW(),42 say a_comissao_lubrificantes PICTURE "999,999.99"
@ PROW(),52 say " Cve"
ENDIF

@ PROW()+1,01 say "TOTAL"
@ PROW(),42 say o_total PICTURE "999,999.99"
@ PROW(),52 say " Cve"

@ PROW()+1,42 say o_total / 110.265 PICTURE "999,999.99"
@ PROW(),52 say " Eur"
@ PROW()+2,01 say "Iva Incluido"


o_comprimento = "Obrigado(a) pela preferência, volte sempre"
o_operador = IIF(!EMPTY(nome_oper)," Atendido por ", "") + decCryptar(m.nome_oper,a_ senha)

@ PROW()+2,01 say o_operador
@ PROW()+1,01 say o_comprimento

*@ PROW()+3,01 say '' + CHR(29)+CHR(86)+CHR(48) && CUT paper

SET PRINTER TO
SET PRINTER OFF
SET CONSOLE ON
SET PRINTER TO DEFAULT && Se necesita para que no quede la cola de impresión ocupada


clima238
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Re: Impressora Ticket

Mensagem por FERNANDOMATRELLA em 16/12/2016, 11:35

porque vc esta usando say ao inves de usar tres interrogações ???



FERNANDOMATRELLA
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Re: Impressora Ticket

Mensagem por ImRicoh em 20/1/2017, 08:25

Adicionar

SET DEVICE TO PRINTER

ImRicoh
Participa Pouco
Participa Pouco


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