Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3143 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Estou com o emulador da BEMATECH MP-4200 e DELPHI 2010 XE8. Estou usando as Dlls 32 bits. Em sistema windows 7 64bits.
Como referencia de uso das funções estou usando o manual da própria bematech http://www3.bematech.com.br/suporte/bemafi32/index.html?configuracao.htm

Tenho uma procedure inicial :

procedure TForm1.Button2Click(Sender: TObject);
var
  iRetorno: integer;
  cCPF:string;
  iACK, iST1, iST2, iST3: integer;
begin
   //cCPF := '11.111.111-11';
   iRetorno := Bematech_FI_AbreCupom( pchar( cCPF ) );
   ShowMessage(IntToStr(iRetorno));
   iRetorno := Bematech_FI_RetornoImpressoraMFD( iACK, iST1, iST2, iST3 );
   //ShowMessage(IntToStr(iRetorno));
end;

Eu tentei também:

procedure TForm1.Button2Click(Sender: TObject);
var
   iRetorno: integer;
   iACK, iST1, iST2, iST3: integer;
   cCPF, cNome: string;
begin
   // Abre o Cupom Fiscal
   cCPF := '11.111.111-11';
   cNome := 'Fulano de Tal';
   iRetorno := Bematech_FI_AbreCupom( PAnsiChar(AnsiString(Edit1.Text)) );
   ShowMessage(IntToStr(iRetorno));
   iRetorno := Bematech_FI_RetornoImpressoraMFD( iACK, iST1, iST2, iST3 );
   ShowMessage(IntToStr(iRetorno));
end;

O retorno é -2. Este valor, segundo o manual, vem a dizer que o parâmetro a ser enviado esta errado (sintaxe errada). Tentei uma busca no fórum da bematech mas este se encontra fora do ar.
Novamente, tentando alguma possível solução em testes aleatórios, se retiro o cpf da função, deixando-o em branco, consigo abrir o cupom. Porém, para demais funcionalidades que usam o mesmo recurso de passagem de strings retornam o mesmo erro (-2).


Procurei avaliar o código, se eu havia errado em alguma linha e segui, a "tira teima" alguns exemplos de livros de automação incluindo os exemplos práticos da prórpia bematech em delphi 7 (desatualiados). Ao baixar um exemplo completo, inserindo as dll necessárias sendo a BEMFI32.dll no projeto, e clicando no executável, o mesmo retorna o erro: "Não foi possível localizar o ponto de entrada do procedimento Bematech_FIR_FechaCupomResumidoRestaurante na biblioteca de vinculo dnamico BEMFI32.DLL". Levando-me a entender que o erro é do proprietário, pois segui todas as recomendações, configurações e tentei executar um sistema do proprietário para testes, sendo o mesmo, desatualizado.


Fiz mais um teste com base em um livro de automação comercial, utilizando outra chamada 9detalhada) para abertura do cupom, veja a rotina:
 

procedure TForm1.Button2Click(Sender: TObject);
var
iRetorno: integer;
iACK, iST1, iST2, iST3: integer;
cCPF, cNome: string;
iCasas: integer;
cCodigo, cDescricao, cAliquota, cTipoQuantidade, cQTDE,
cValorUnitario, cTipoDesconto, cDesconto: string;
cNumeroItem, cDescAcresc, cTipo, cValor: string;
cValorDesc: string;
begin
// Abre o Cupom Fiscal
cCPF := Edit1.Text;
cNome := 'Fulano de Tal';
iRetorno := Bematech_FI_AbreCupomMFD( ( cCPF ),
( cNome ), PAnsichar( 'dd' ) );
ShowMessage(IntToStr(iRetorno));

{..etc}
end;

Esse código retorna "alguma coisa" na impressora sendo apenas o primeiro caracter sendo "F" e "d". Teoricamente, suponho que o problema seja com o emulador (ou dll) na declaração do tamanho da variável dada por parâmetro. A IMAGEM EM ANEXO É O RETORNO NO EMULADOR.


Conclusão: Segui todos os passos das instruções da BEMATECH. Tentei entrar em contado nos inúmeros "contados disponibilizados pela mesma" sem sucesso, estão no site  proprietário, porem, em vão. Preciso inserir na nota o CPF, nome e endereço e não consigo por um suposto BUG no emulador ou na DLL e não tenho suporte do fabricante, por incrível que pareça.


Desta forma, nesta respeitável associação, alguém poderia, com conhecimento suficiente, me esclarecer esse evento. Eu estou errado em algum parâmetro ou o produto do proprietario realmente esta com um BUG?
Obrigado.

att


sa.png

sa.png

Postado

Ótimo. Infelizmente a Bematech esta deixando a desejar.
Quanto aos componentes ACBr, trata-se de uma paleta em delphi para conexões com impressoras fiscais? Interessante. Baixe o instalador, e ao tentar instalar o segundo passo, na identificação da versão do DELPHI ele não encontra, e a instalação não passa daqui. A versão que tenho do DELPHI é a XE8.

Os compoenntes possuem limitação de versões? E com quais impressoras eles podem se conectar?

att

  • Este tópico foi criado há 3143 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...