Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
27 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 27 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
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: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

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: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Rota de um arquivo

15/12/2016, 22:28 por Martins

Agradeço ajuda para o seguinte:
como guardar numa variável, um caminho ou rota,por exemplo


Comentários: 3

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

Os nossos usuários postaram um total de 1 mensagem em 1 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

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