DICA DOS COLEGAS

[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.

[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

[Eolo]

Leonardo,
Se a Printer USB estiver plugada em outro micro e compartilhada na rede, funfa sim, como se fosse uma local paralela...

[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

[HASA]

:)Pos BELEZA PURA, FICOU MUITO BOA A SUA SOLUÇÃO, OBRIGADO POR COMPARTILHAR, Leonardo, VALEU mesmo !!!

[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 :*

[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?

[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

[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.

[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

[HASA]

:)Pos legal agora vou comecar a juntar os cacos, mas.. se mais algum companheiro quizer dar seu pitaco agradeço, :*