Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 1

ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

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

Os nossos membros postaram um total de 12249 mensagens em 1552 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

Re: Impressora Ticket

Mensagem por Conteúdo patrocinado


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