Página 1 de 1
DICA DOS COLEGAS
Enviado: 09 Jun 2007 12:14
por HASA
OLÁ PESSOAL, GOSTARIA DE LER ALGUMAS SUGESTÕES DE COMO POSSO IMPRIMIR SEPARADAMENTE OS ITENS DE UM PEDIDO OU SEJA, TENHO UM PEDIDO COMPOSTO POR SUCO, REFEICAO E LANCHE, O SUCO DEVE SER IMPRESSO NO BALCAO DE SUCOS, A REFEIÇAO PARA A COZINHA E O LANCHE PARA A CHAPEIRA, EU TENHO UMA IDEIA MAS TEMO QUE POSSO SER COMPLEXA. GOSTARIA SABER COMO OS COMPANHEIROS TEM TRATADO ESSE TIPO DE SITUAÇÃO, OK.
Enviado: 09 Jun 2007 12:45
por sygecom
Eu particularmente uso assim:
Tem que linka a LIB CT ou CTP no seu sistema e faça assim:
Código: Selecionar todos
IF IMP="SUCO"
NETREDIR("LPT1","\\NOMEMEDOMICRO\NOMEDAIMPRESSORA")
SET DEVICE TO PRINT
set print to lpt1
@ prow()+1,01 SAY "IMPROMINDO O PEDIDO DE SUCO"
SET PRINTER TO
set device to screen
NETCANCEL("LPT1")
ELSEIF IMP="LANCHE"
NETREDIR("LPT1","\\NOMEDOMICRO\NOMEDAIMPRESSORA")
SET DEVICE TO PRINT
set print to lpt1
@ prow()+1,01 SAY "IMPROMINDO O PEDIDO DE LANCHE"
SET PRINTER TO
set device to screen
NETCANCEL("LPT1")
endif
Tche, para usar o modo acima .....vc soh tem que compartilhar a impressora e correr pro abraço......
Obs: USB não funciona
Abraços
Leonardo Machado
Enviado: 09 Jun 2007 13:06
por Eolo
Leonardo,
Se a Printer USB estiver plugada em outro micro e compartilhada na rede, funfa sim, como se fosse uma local paralela...
Enviado: 09 Jun 2007 14:16
por sygecom
Se a Printer USB estiver plugada em outro micro e compartilhada na rede, funfa sim, como se fosse uma local paralela...
Tche, fiz um teste na EPSON C40 e funcionou mas na HP-1410 e não funcionou...
Abraços
Leonardo Machado
Enviado: 09 Jun 2007 17:20
por HASA
:)Pos BELEZA PURA, FICOU MUITO BOA A SUA SOLUÇÃO, OBRIGADO POR COMPARTILHAR, Leonardo, VALEU mesmo !!!
Enviado: 12 Jun 2007 10:01
por HASA
:'( OLÁ PESSOAL, 92 ACESSOS E APENAS 1 DICA, GOSTARIA DE LER AS DICAS DOS COLEGAS QUE TEM APLICATIVOS DIRECIONADOS PARA LANCHONETES E RESTAURANTES, QUE COM CERTEZA PODEM ME AJUDAR, AGUARDO HEIMM :*
Enviado: 12 Jun 2007 10:45
por Eolo
Hasa,
A dica do Leonardo já matou o problema, acho que não tem mais muito o que falar... Dependendo do código ou nome do produto, vc manda imprimir numa printer específica. Não é isso que vc precisa?
Enviado: 12 Jun 2007 11:17
por HASA
) SIM, MAS O QUE AINDA FIQUEI COM DÚVIDA E ESPEREI QUE OUTROS COLEGAS AO DAREM SUAS DICAS SANARIA MINHA DÚVIDA É O SEGUINTE :
IMAGINEM QUE TEMOS 3 TERMINAIS ENVIANDO PEDIDOS AO MESMO TEMPO TENHO QUE INFORMAR QUAL O PEDIDO OU MESA SOLICITANTE PARA CADA UM DOS SETORES E DA MANEIRA QUE ESTÁ NÃO PEGUEI O FIO DA MEADA PARA ESSE CASO. ENTENDE... :-O
Enviado: 12 Jun 2007 14:03
por Eolo
Mantenha um arquivo "PEDIDOS.DBF", com um campo NUMERO, compartilhado entre todos os terminais: a cada atendimento, cada terminal (um de cada vez) APPENDa um registro no DBF e grava nesse campo o próximo número sequencial (último +1), número este ao qual vão ficar vinculados o número da mesa, o nome do cliente, os itens do pedido etc.
Enviado: 12 Jun 2007 15:01
por filizola
nao estou com a rotina na minha frente mas se bem me lembro é mais ou menos isso. se nao funcionar me informe que localizo a rotina para vc.
tenho 1 arquivo matriz com campos mesa, qtde, produto, obs
quando abro o programa já capturo as impressoras :
net use lpt1 \\cozinha\40clunas
net use lpt2 \\pizzaria\40colunas
net use lpt3 \\sandu\40colunas
e já crio os arquivos para esta estação:
use matriz
for i=1 to 3
aux=str(i,1,0)
arq&aux.=left(netname(),8)
copy stru to arq&aux.
next
no cadastro de produtos tenho 1 campo informando o tipo : 1 = cozinha, 2 = Pizzaria 3 = Sanduiche
quando digito na tela o item, gravo no arquivo mesa,qtde,produto,obs
sele arq&tipo.
repla mesa with mesap, qtde with qtdep, produto with produtop, obs with obsp
quando confirmo o pedido, mando para a rotina que imprime
function imprime()
for i=1 to 3
aux=str(i,1,0)
sele arq&aux.
set printer to lpt&aux.
do while !eof()
bla,bla,bla
dele
skip
enddo
next
Enviado: 13 Jun 2007 09:23
por HASA
:)Pos legal agora vou comecar a juntar os cacos, mas.. se mais algum companheiro quizer dar seu pitaco agradeço, :*