HELP Fwh + XH + XP + Emulador Bematech

por **paiva** » 12 Dez 2005 16:22

:-o
Por favor a + de 1 ano eu testei com um w98 agora estou precisando acabar os teste + estou com o XP Prof e nao estou conseguindo testar com o Emulador Nem para saber se a IF esta ATIVA (que seria o 1º passo (rs))

baixei um exe teste deles em DELPHI e funciona OK com o EMULADOR

HELP o que estou fazendo de errado ? alguem teria um exe ou um pedaço de prg so para ver se funciona Aqui com o Emulador ?

pode ser o comando de leitura X ou se a impressora esta ativa ou qq coisa HELP (SOCORRO)

E_mail: paiva@triang.com.br

MSN: paiva@triang.com.br

SKYPE: paiva_sistemas

Paiva
ob desde já. s
qq coisa

por **rochinha** » 12 Dez 2005 20:17

Amiguinho

O 1º passo é vc entrar em contato com o suporte bematech em relação ao emulador num XP, pois como vc deve saber as versões 2000/XP do Windows trabalham as portas de comunicação diferentes das versões 95/98 onde vc regula os parametros no setup de forma direta.

Quanto ao emulador, vc esta usando a versão DOS ou a versão Windows, pois ainda assim vc deveria fazer uso do Bematech Monitor, não estou certo?

Se seu aplicativo roda sem problemas no Win98, então o problema é encontrar o me'todo de confirguração correta do emulador e o XP.

Voce poderá fazer o teste usando um aplicativo com comandos basicos, exemplo:

// This sample shows how to make a Dynamic Linking at RunTime!
// Using Borland BWCC.DLL DLLs

#include "FiveWin.ch"
#include "dll.ch"

//----------------------------------------------------------------------------//

function Main()

  //iRetorno := Bematech_FI_PortaSerial( "COM1" )
  iRetorno := IniPortaStr( "COM1" )
  for j = 1 to 10
      iRetorno := AbreCupom( "00.280.911/0001/10" )

      for i = 1 to 10
          iRetorno := VendeItem( "0000000000002", ; // codigo
                                             "Bolachas de Maizena",; // descricao
                                             "1800",;     // aliquota
                                             "I",;        // Inteira ou Fracionaria
                                             "0010",;     // quantidade
                                             2,;          // casas decimais
                                             "00000220",; // valorvenda
                                             "%",;        // Tipo de desconto
                                             "1000" )     // valor do desconto
      next
      iRetorno := IniciaFechamentoCupom( "D", "%", "1500" )
      iRetorno := TerminaFechamentoCupom( "Obrigado!!!" + "Volte sempre!!!" )
  next
  iRetorno := CancelaCupom()

return nil

//----------------------------------------------------------------------------//
DLL32 FUNCTION AbreCupom( cgc_cpf AS STRING ) AS _INT PASCAL FROM "Bema_FI_AbreCupom" LIB "BEMAFI32.DLL" 
DLL32 FUNCTION VendeItem( Codigo AS STRING, ;
                          Descricao AS STRING, ;
                          Aliquota AS STRING, ;
                          TipoQuantidade AS STRING, ;
                          Quantidade AS STRING, ;
                          CasasDecimais AS STRING, ;
                          ValorUnitario AS STRING, ;
                          Tipodesconto AS STRING, ;
                          Desconto AS STRING) AS _INT PASCAL FROM "Bema_FI_VendeItem" LIB "BEMAFI32.DLL"
DLL32 FUNCTION IniciaFechamentoCupom( AcrescimoDesconto AS STRING, ;
                                      TipoDesconto AS STRING, ;
                                      ValorDesconto AS STRING ) AS _INT PASCAL FROM "Bema_FI_IniciaFechamentoCu" LIB "BEMAFI32.DLL"
DLL32 FUNCTION TerminaFechamentoCupom() AS _INT PASCAL FROM "Bema_FI_TerminaFechamentoCupom" LIB "BEMAFI32.DLL" 
DLL32 FUNCTION CancelaCupom() AS _INT PASCAL FROM "Bema_FI_CancelaCupom" LIB "BEMAFI32.DLL" 
DLL32 FUNCTION IniPortaStr(FD AS STRING) AS _INT PASCAL FROM "Bema_FI_IniPortaStr" LIB "BEMAFI32.DLL" 

//----------------------------------------------------------------------------//
procedure AppSys   // XBase++ requirement
   return

Se necessitar de um codigo para fazer os teste use o deste link

@braços :?)

por **paiva** » 13 Dez 2005 09:02

Muito Obrigado pela atenção

o codigo nao fez nada no Emulador.

o Programa ta dando erro na rotina _Fread_Bema essa rotina eu tenho o codigo dela em CLIPPER / DOS

eu estou testando o Emulador com o FWH + XH + XP posso colocar essa rotina feita em clipper ? funciona ?

de qq maneira vou colocar e ver o que da (rs)

me falaram para colocar no XP o emulador como COM2 e no Programa como COM1 + nao vi resultado nengum (rs)

ob

Paiva

por **paiva** » 13 Dez 2005 09:14

BOm dia

APARECEU o programa + ao executar Leitura _x por ex ou qq coisa NAo aparexe NADA no EMULADOR Bematech.

setei o emulador com COM2 e tambem com COM1 e NADA

engraçado que com esse mesmo exemplo feito em DELPHI que baixei da Bematech funciona OK com o Emulador.

paiva

HELP Fwh + XH + XP + Emulador Bematech

HELP Fwh + XH + XP + Emulador Bematech

Emulador

Emulador + XP

Quem está online