Integrar em Forms 6.0 rotinas Java da Bematech

[Renato Menezes Viana]

Olá gente!...sabemos, quer dizer sei, que a falta de vivência em determinado software é difícil. Todos que puderem me ajudar eu agradeço.
Vejam, baixem, http://www.bematech.com.br/suporte/down ... maFI32.zip
lá existe um ótimo Help (.hlp) com todas as dicas para integrar um ambiente Windows (no meu caso XP) com as impressoras fiscais deles, com desenvolvimento em VB, Delphi e até Java. Basicamente a conversa com a BemaFI32.dll.
Acontece que em desenvolvimento Forms como conseguir esta comunicação. Se eu não estiver errado a melhor maneira seria uma comunicação com as classe Java disponibilizadas pela Bematech. Mas COMO FAZER PASSO A PASSO. Mesmo da forma mais tradicional possível da aplicação Forms estar instalada localmente na estação Windows XP onde se encontra conectada a impressora fiscal. Qual a melhor maneira, ou qual a que funciona mesmo. Já está funcionando uma pequena aplicação em Java (a do exemplo da Bematech).
Imensamente grato pela ajuda,
Renato

[dr_gori]

Se for com Forms 6i (cliente servidor), você pode usar o ORA_FFI (que é uma "interface" entre a DLL e o forms). Pode achar documentação no Google sobre isso ou no site da Oracle...

Se for com Form 9i ou 10g, isso deixa de existir. Daí é um pouco mais complicado, pois tem que instalar a WEB_UTIL no servidor de aplicação. Infelizmente, toda documentação sobre isso também é em ingles. (no site da Oracle tem how-to, etc)

Sobre a possibilidade de usar JAVA, eu nunca fiz, por isso não posso opinar.

É um trabalho minucioso!
(De qualquer forma, seja qual for a solução melhor pra você, mostre pra gente como você fez depois que está tudo OK! )

[Renato Menezes Viana]

Obrigado...estou vendo
http://www.oracle.com/technology/produc ... o_ffi.html
Tem no início alguma coisa cliente/servidor que espero funcione sem problemas na versão Forms 6.0

Qualquer coisa próximo da morte de complicado eu torno a te incomodar.

Obrigado

Renato

[Renato Menezes Viana]

Dr. Gori:

Encontrei a solução bem descrita para integrar a BemaFI32.dll diretamente com o ORA_FFI no link abaixo:

http://www.historico.org/message.php/li ... e/id/12894

Só não consegui encontrar o email do Autor: sergio@... para agradecer.

Obrigado

[dr_gori]

Valeu Renato:
Vou colocar o texto aqui, pois esse link pode sair do ar com o tempo:

Selecionar tudo

PACKAGE BODY ECF IS
FDLL Ora_Ffi.Libhandletype;
DLL_FUNCAO Ora_Ffi.Funchandletype;

FUNCTION CHAMAFUNCAOI(fhandle Ora_Ffi.Funchandletype) RETURN BINARY_INTEGER;
PRAGMA interface(C, CHAMAFUNCAOI, 11265);
FUNCTION CHAMAFUNCAO2(fhandle Ora_Ffi.Funchandletype,X CHAR) RETURN BINARY_INTEGER;
PRAGMA interface(C, CHAMAFUNCAO2, 11265);
FUNCTION CHAMAFUNCAO3(fhandle Ora_Ffi.Funchandletype,A CHAR,B CHAR,C CHAR,D CHAR,E CHAR,F CHAR) RETURN BINARY_INTEGER;
PRAGMA interface(C, CHAMAFUNCAO3, 11265);
FUNCTION CHAMAFUNCAO4(fhandle Ora_Ffi.Funchandletype,A CHAR,B CHAR) RETURN BINARY_INTEGER;
PRAGMA interface(C, CHAMAFUNCAO4, 11265);
FUNCTION CHAMAFUNCAO6(fhandle Ora_Ffi.Funchandletype,A CHAR,B CHAR,C CHAR,D CHAR,E CHAR,F CHAR,
G CHAR,H CHAR,I CHAR) RETURN BINARY_INTEGER;
PRAGMA interface(C, CHAMAFUNCAO6, 11265);
FUNCTION CHAMAFUNCAO7(fhandle Ora_Ffi.Funchandletype,A CHAR,B CHAR,C CHAR,D CHAR,E CHAR,F INT,
G CHAR,H CHAR,I CHAR) RETURN BINARY_INTEGER;
PRAGMA interface(C, CHAMAFUNCAO7, 11265);
FUNCTION CHAMAFUNCAOINOUT(fhandle Ora_Ffi.Funchandletype,X IN OUT CHAR) RETURN BINARY_INTEGER;
PRAGMA interface(C, CHAMAFUNCAOINOUT, 11265);
FUNCTION CHAMAFLAG(fhandle Ora_Ffi.Funchandletype,X BINARY_INTEGER) RETURN NUMBER;
PRAGMA interface(C, CHAMAFLAG, 11265);

FUNCTION FLAGSFISCAIS(FLAG IN OUT BINARY_INTEGER) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_FlagsFiscais',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_SHORT_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO,Ora_Ffi.C_INT);
RETURN(CHAMAFLAG(DLL_FUNCAO,FLAG));
END FLAGSFISCAIS; 

FUNCTION EPROMCONECTADA(EPROM IN OUT CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_VerificaEpromConectada',ORA_Ffi.C_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO,Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAOINOUT(DLL_FUNCAO,EPROM));
END EPROMCONECTADA;

FUNCTION SUBTOTAL(SUBT IN OUT CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function(FDLL, 'Bematech_FI_SubTotal',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO,Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAOINOUT(DLL_FUNCAO,SUBT));
END SUBTOTAL;


FUNCTION NUMEROSERIE(NRSERIE IN OUT CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_NumeroSerie',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO,Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAOINOUT(DLL_FUNCAO,NRSERIE));
END NUMEROSERIE;


FUNCTION LEITURAX return NUMBER is
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_LeituraX',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Return (DLL_FUNCAO,Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAOI(DLL_FUNCAO));
END LEITURAX;

FUNCTION ABRECUPOM(CGC CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_AbreCupom',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR); 
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAO2(DLL_FUNCAO,CGC));
END ABRECUPOM;

FUNCTION CANCELAITEM(A CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_CancelaItemGenerico',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR); 
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAO2(DLL_FUNCAO,A));
END CANCELAITEM;

FUNCTION FECHACUPOM(A CHAR,B CHAR,C CHAR,D CHAR,E CHAR,F CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_FechaCupom',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAO3(DLL_FUNCAO,A,B,C,D,E,F));
END FECHACUPOM; 


FUNCTION FECHARESUMIDO(A CHAR,B CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_FechaCupomResumido',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAO4(DLL_FUNCAO,A,B));
END FECHARESUMIDO;

FUNCTION CGCIE(CGC IN OUT CHAR, INSCRICAO IN OUT CHAR) RETURN NUMBER IS 
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_CGC_IE',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAO4(DLL_FUNCAO,CGC,INSCRICAO));
END CGCIE;

FUNCTION DATAHORA (A IN OUT CHAR,B IN OUT CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_DataHoraImpressora',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAO4(DLL_FUNCAO,A,B));
END DATAHORA; 

FUNCTION CANCELAITEMANTERIOR RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_CancelaItemAnterior',ORA_Ffi.C_Std);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAOI(DLL_FUNCAO));
END CANCELAITEMANTERIOR;

FUNCTION CANCELACUPOM RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_CancelaCupom',ORA_Ffi.C_Std);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAOI(DLL_FUNCAO));
END CANCELACUPOM;


FUNCTION RETORNOALICOTA(ALICOTAS IN OUT VARCHAR2) RETURN NUMBER IS
BEGIN 
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_RetornoAliquotas',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAOINOUT(DLL_FUNCAO,ALICOTAS));
END RETORNOALICOTA;

FUNCTION RETORNOCUPOM(CUPOM IN OUT CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_NumeroCupom',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAOINOUT(DLL_FUNCAO,CUPOM));
END RETORNOCUPOM;

FUNCTION ITEMDEP (CODIGO CHAR, DESCRICAO CHAR, ALIQUOTA CHAR, VLUNITARIO CHAR,QUANTIDADE CHAR, ACRESCIMO CHAR,DESCONTO CHAR,DEPARTAMENTO CHAR,UNIMED CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll'); 
DLL_FUNCAO:= Ora_Ffi.Register_Function(FDLL, 'Bematech_FI_VendeItemDepartamento',Ora_Ffi.C_Std); 
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAO6(DLL_FUNCAO,CODIGO,DESCRICAO,ALIQUOTA,VLUNITARIO,QUANTIDADE,ACRESCIMO,DESCONTO,DEPARTAMENTO,UNIMED));
END ITEMDEP;

FUNCTION MAPARESUMO return NUMBER is
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll');
DLL_FUNCAO := Ora_Ffi.Register_Function
(FDLL, 'Bematech_FI_MapaResumo',ORA_Ffi.pascal_Std);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAOI(DLL_FUNCAO));
END MAPARESUMO; 

FUNCTION VENDEITEM(CODIGO CHAR, DESCRICAO CHAR,
ALIQUOTA CHAR, TPQUANT CHAR,
QUANTIDADE CHAR, CASAS INT,
VLUNITARIO CHAR, TIPODESCONTO CHAR, VALORDESCONTO CHAR) RETURN NUMBER IS
BEGIN
FDLL := Ora_Ffi.Load_Library ('C:\WINDOWS\SYSTEM32\','bemafi32.dll'); 
DLL_FUNCAO:= Ora_Ffi.Register_Function(FDLL, 'Bematech_FI_VendeItem',Ora_Ffi.C_Std); 
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_INT);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Parameter (DLL_FUNCAO, ora_ffi.C_CHAR_PTR);
Ora_Ffi.Register_Return (DLL_FUNCAO, Ora_Ffi.C_INT);
RETURN(CHAMAFUNCAO7(DLL_FUNCAO,CODIGO,DESCRICAO,ALIQUOTA,TPQUANT,QUANTIDADE,CASAS,VLUNITARIO,TIPODESCONTO,VALORDESCONTO));
END VENDEITEM; 



END;
----- Original Message ----- 
From: janainabett 
To: usuarios_oracle@...
Sent: Thursday, June 23, 2005 11:25 PM
Subject: [usuarios_oracle] Como Declarar DLLs no Oracle Forms Developer


Preciso declarar a DLL BEMAFI32.DLL no Forms como faço????

[robsontk]

Pessoal, nessas rotinas quando tenho de retornar um valor por exemplo o numero de serie da impressora o meu forms simplesmente fecha... já o atualizai e o problema continua...


detalhe forms 6i;


alquem tem uma luz?

[Renato Menezes Viana]

Que tal você enviar o fonte para ser possível dar um pequena "luz"?

[robsontk]

Posso enviar mas pra onde da para mandar ele?

on click do button

Selecionar tudo

declare 
	
	teste number;
	nserie varchar2(100);
	
begin	
   teste := ECF.NUMEROSERIE(NSERIE);
end;

Selecionar tudo

PACKAGE ECF IS
  FUNCTION NUMEROSERIE(NRSERIE IN OUT CHAR) RETURN NUMBER;
END;

e a body é a pl descrita acima.

[mauriciormaciel]

Boa noite!

Estou com o mesmo problema ao tentar utilizar a função Bematech_FI_NumeroCupom.

você conseguiu solução?

[e_muniz]

Pessoal, por favor... estou com o mesmo problema.. quando preciso utilizar um parâmetro (in out) o runtime do forms fecha.

Estou precisando muito de terminar uma aplicação e não estou conseguindo encontrar nada na web que possa me ajudar.

Muito obrigado a todos...

[Renato Menezes Viana]

Bom Dia (ainda...)!
Não fica achateado com minhas próximas perguntas:
1) você já conferiu tipo de dado (integer, etc), ou algo diferente entre o que a rotina espera receber e espera colocar na saída?
2) Tem certeza que a Bematech não tem nada para contribuir?
Um abraço

[e_muniz]

Infelizmente já fiz a conferência dos dados enviados e inclusive fiz tentativas e "erros" mudando os tipos de dados, as funções que tem seus parâmetros apenas com "IN" estão funcionando corretamente, o problema é quando tenha a exigência do "OUT", então forms apenas fecha e não vai nem para a excpetion;

Att.

Ernandes