retorno ECF

[aluiziorafael]

Caros colegas clippeiros

Estou empacado num problema que não consegui solução no site da bematech.
Como é que eu consigo o retorno de uma informação do ecf como por exemplo, último cupom fiscal impresso, cnpj cadastrado no ecf, etc?

Sempre que uso uma variável para pegar o retorno, ela me dá a situação da impressora naquele momento e não o que espero.
Exemplo
retorno_ecf := envia(comando,..... etc)/// eu uso o drive mp20drv instalado na memória,clipper 5.2e e rtlink

o retorno é sempre 006 // ack,st1,st2

Como pego o ultimo COO por exemplo?

Agradeço antecipadamente colegas,
Abraços e sucesso a todos em 2009

[aluiziorafael]

:'( Olá pessoal, ninguém com uma resposta?
Estou realmente precisando, obrigado.

[Kebe]

Bom dia !

Logo abaixo está o código do meu programa que utilizo para pegar o numero do último cupom fiscal
emitido.
Como um exemplo vale mais que 1000 palavras ...

Código: Selecionar todos

------------------------------------------------------------

           C_BUFFER = chr(27)+chr(251)+"30|"+chr(27) 
           fwrite(ECF_ARQIDE,C_BUFFER,len(C_BUFFER))
           N_RET = bema_error()
           if N_RET != 0
                 L_RET = .F.
                 C_ERRO = strzero(N_RET,6)
           else
                 C_RETORNO := " "
                 C_DADOS   := ""
                 for N_LEITURA:= 1 to 9
                     fread(ECF_ARQIDE,@C_RETORNO,1)
                     C_DADOS+=C_RETORNO
                 next
                 // C_RESPOSTA:=substr(C_DADOS,4,6)
                 C_RESPOSTA:=strzero(val(C_DADOS),5)
                 L_RET := .T.
           endif

-----------------------------------------------------------

Espero que te ajude

Kebe

-------------------------------
Nota de Moderação (Toledo): mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: faq.php?mode=bbcode#f21