AJUDA COM CUPOM NAO FISCAL VINCULADO BEMATECH

[rubens]

ECF Bematech MP25-FI
Pessoal, tem algum erro nesse codigo..:

INICIO_CUPOM := chr(27) + chr(251)
FIM_CUPOM := "|"+ chr(27)

// ABRE CUPOM NAO FISCAL VINCULADO
cFORMAPGTO := "Convenio " // COM TAMANHO 16
CAMPO := +"66|"+cFORMAPGTO+FIM_CUPOM
GRAVAARQUIVO( CAMPO )
!BEMAFI.EXE

// IMPRIME TEXTO CUPOM NAO FISCAL VINCULADO
M9 := "DUPL:"+ cNUMERO_ + " DATA VCMTO:"+DTOC( dDTVENC_ )
M10 := "ASS.:___________________________________________"
cMENSAGEM := cMENSAGEM+M9+M10
CAMPO := INICIO_CUPOM+"67|"+cMENSAGEM+"|"+CHR(13)+CHR(10)+CHR(27)
GRAVAARQUIVO( CAMPO )
!BEMAFI.EXE


// FECHA CUPOM NAO FISCAL VINCULADO
CAMPO := INICIO_CUPOM+"21"+FIM_CUPOM
GRAVAARQUIVO( CAMPO )
!BEMAFI.EXE

Esse codigo nao deveria funcionar
Testei com o um utilitario chamado EXEMPLODELPHI retirado do site da bematech e com ele funciona.. com o utilitario TESTACMD.EXE (CLIPPER) tb retirado do site da bematech.. tb..não funciona...
enviei um e-mail para a bematech e ainda nao obtive resposta.. daí postei aqui de repente alguem usa e pode me passar a forma correta...

Obrigado
Rubens

[rubens]

nesse trecho:
// ABRE CUPOM NAO FISCAL VINCULADO
cFORMAPGTO := "Convenio " // COM TAMANHO 16
CAMPO := +"66|"+cFORMAPGTO+FIM_CUPOM
GRAVAARQUIVO( CAMPO )
!BEMAFI.EXE

na digitacao eu comi uns caracteres.. o certo é:

CAMPO := INICIO_CUPOM+"66|"+cFORMAPGTO+FIM_CUPOM

[Maligno]

Você conferiu todos esses procedimentos com o manual de programação da impressora?

[rubens]

Sim, retirei do manual e do arquivo fonte testecmd.prg que vem junto quando baixa o executável testecmd.exe do site da bematech...

Mesmo o utilitário da bematech testecmd.exe nao funciona o cupom nao fiscal vinculado... no manual informa que tem que imprimir um cupom fiscal com a forma de pagamento diferente de "Dinheiro" e se na sequencia manda abrir um cupom nao fiscal, basta enviar o codigo 66|Forma de pagamento, no caso do exemplo "Convenio", voce pode tambem a qualquer momento abrir um cupom nao fiscal, desde que informe o codigo 66|Valor|Numero do Cupom, tambem nao funcionou...

é muito estranho !!! o resto está funcionando tudo... (que programei) e com o exemplo feito em Delphi tb do site da bematech.. funciona...

[Maligno]

cFORMAPGTO é uma string com alguma codificação, imagino. Qual codificação é essa?

[rubens]

cFORMAPGTO é uma string com alguma codificação, imagino. Qual codificação é essa?

cFORMAPGTO é uma váriavel para armazenar a forma de pagamento, no caso em questão tem que ser uma string com tamanho 16, e no exemplo especifico ela tem o dado "Convenio"

[Maligno]

A impressora não faz alguma crítica com relação ao conteúdo dessa string?

[rubens]

Maligno o arquivo TXT retorna 006016001, vou tentar decifrar isso aqui... mas acho que é comando executado com sucesso...

[Maligno]

E o que você mudou?

[Stanis Luksys]

Olá,

Pode não ter nada a ver com o erro, mas sugiro que você deixe de usar este procedimento de enviar pra arquivo texto pra depois ler e tudo mais.

Use as funções da CA ou se houver possibilidade a HBComm do xHarbour e acesse a porta diretamente enviando comandos e lendo retornos.


INICIO_CUPOM := chr(27) + chr(251)
COM_SEND( INICIO_CUPOM )

Pronto, já foi...

[rubens]

Caro Maligno e Stanis...

Achei o problema.. o código prg está certo.. o problema é na ecf... tive que criar um temporizador (gambiarra) depois que termina de fechar o cupom fiscal e antes da abertura do cupom nao fiscal.. parece que estava passando muito rápido e não dava tempo da impressora responder... bom o que importa é que no momento resolveu o problema...
Stanis, vou sim estudar mais a fundo a catools e tambem fazer o que voce sugeriu... usar diretamente os comandos da catools e esquecer os "drivers" da bematech...

Por enquanto meu muito obrigado...

[Maligno]

tive que criar um temporizador (gambiarra) depois que termina de fechar o cupom fiscal e antes da abertura do cupom nao fiscal..

AHA! Como diria Maxwell Smart: o velho truque da impressora que precisa de um período pra pensar na vida, antes de partir para o próximo cupom. ))