DATA REGIS! COMPLICADO DE MAIS!!

[Geo_sts]

Boa tarde amigos..!!

Comecei a implantar a If da DataRegis hoje, mas não to me achando com o manual deles.. alguem tem algum exemplo das declarações das Funções.. só as algumas pra mim ter comunicação..

Obrigado

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

Editado por - geo_sts on 17/06/2009 18:33:45

Editado por - geo_sts on 19/06/2009 10:07:47

[Geo_sts]

Boa tarde amigos..!!

Comecei a implantar a If da DataRegis hoje, mas não to me achando com o manual deles.. alguem tem algum exemplo das declarações das Funções.. só as algumas pra mim ter comunicação..

Obrigado

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

Editado por - geo_sts on 17/06/2009 18:33:45

Editado por - geo_sts on 19/06/2009 10:07:47

[Yury]

veja:

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=7386

abraço

Yury Marcelino Al

Viman Sistemas

vimansca@vimansca.com.br

yury030575@yahoo.com.br (msn)

skype: yury.marcelino.al

Leme / SP

FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say

[Geo_sts]

yury... Valeu pela dica..

mas ja tentei...

não consigo me comunicar com ela!...

=/

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[dorneles]

Olá Geovanni, qual o modelo?

Me chama no skype, que ti passo, soft.tres

Abraço

Dorneles

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

[Geo_sts]

BOM DIA.!! DORNELES. PELO ACBr MONITOR. NÃO CONSEGUI!! NÃO DEU COMUNICAÇÃO..!! =/

eu montei a rotina pela DLL e passei pra eles... disseram q esta certo.. mas.. pq não imprime..!

Olha como eu Fiz..

Entrada

Dstart()

*******************************

FUNCTION dStart()

*******************************

LOCAL hBorland,bAction

SET 3DLOOK ON

mensagem1:=''

//------------------------> CARREGA DLL

dDll:=' '

beep(16)

MsgRun("Carregando arquivo de comunicação da Impressora Fiscal","Aguarde...",{||dDll:=loadlib32('dllg2.dll')})

VARCOM:="COM3"

canal:=drprintlig(varcom)

** //MsgRun("Estabelecendo comunicação com a Impressora Fiscal","Aguarde...",{||canal:=drprintlig(varcom)})

RETURN nil

//imprimir Leitura X

function DrleituraX()

dnRet := DLLG2_ExecutaComando(canal,'EmiteLeituraX')

//Emite leitura X

DLL32 FUNCTION DLLG2_ExecutaComando(canal AS STRING) AS LONG PASCAL ;

FROM "EmiteLeituraX" LIB dDll

Sera que ninguem conseguiu algo pela DLL?

abraços

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Anderson.OL]

Tá aqui o codigo da declaração:

function LoadDataRegis(LibAx)

****************************************************************************

nLib32 := LoadLib32("DLLG2.DLL")

LibAx := LoadLib32("BemaFI32.dll")

DLL32 FUNCTION T_INICIA (Canal AS STRING) ;

AS _INT PASCAL FROM 'DLLG2_IniciaDriver' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_ENCERR(Canal AS LONG) ;

AS _INT PASCAL FROM 'DLLG2_EncerraDriver' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_LISTPA( Canal AS LONG, NomeParam AS STRING, ;

TamList AS LONG ) ;

AS STRING FROM 'DLLG2_ListaParams' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_EXECUT(Canal AS LONG, Comando AS STRING) ;

AS _INT PASCAL FROM 'DLLG2_ExecutaComando' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_CODERR(Canal AS LONG) ;

AS _INT PASCAL FROM 'DLLG2_ObtemCodErro' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_NOMERR(Canal AS LONG, NomeErro AS PTR, ;

TamNome AS PTR) ;

AS STRING PASCAL FROM 'DLLG2_ObtemNomeErro' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_CIRCUN(Canal AS LONG, Circunst AS PTR, ;

TamCirc AS PTR) ;

AS STRING PASCAL FROM 'DLLG2_ObtemCircunstancia' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_TIMEOU(Canal AS LONG, Timeout AS LONG) ;

AS NIL PASCAL FROM 'DLLG2_DefineTimeout' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_DEFLOG(NomeArquivo AS STRING) ;

AS NIL PASCAL FROM 'DLLG2_SetaArquivoLog' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_LIMPPA(Canal AS LONG) ;

AS NIL PASCAL FROM 'DLLG2_LimpaParams' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_ADDPAR(Canal AS LONG, NomeParam AS STRING, ;

ValorParam AS STRING, TipoParam AS LONG) ;

AS NIL PASCAL FROM 'DLLG2_AdicionaParam' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_TOTRET(Canal AS LONG) ;

AS _INT PASCAL FROM 'DLLG2_TotalRetornos' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_RETORN(Canal AS LONG, Indice AS LONG, ;

NomeRetorno AS STRING, TamNome AS LONG, ValorRetorno AS STRING, ;

TamvalorRetorno AS LONG) ;

AS _INT PASCAL FROM 'DLLG2_Retorno' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_GETRET(Canal AS LONG, Retornos AS PTR, ;

TamRetornos AS LONG) ;

AS STRING PASCAL FROM 'DLLG2_ObtemRetornos' ;

LIB 'DLLG2.DLL'

DLL32 FUNCTION T_INITEF( ) ;

AS _INT PASCAL FROM "Bematech_FI_IniciaModoTEF" ;

LIB "BEMAFI32.DLL"

DLL32 FUNCTION T_FINTEF( ) ;

AS _INT PASCAL FROM "Bematech_FI_FinalizaModoTEF" ;

LIB "BEMAFI32.DLL"

RETURN

/*------------------------------------------------------------------------*/

id=code>id=code>

FwxH 9.04 | xHb 1.2.1 | xDev 0.72 | SqlLib | MySql

[Geo_sts]

Anderson..

as minhas declarações estão certas.. o problema e que não executar na IF.. eu mando... o comando.. como vc viu no meu Ex. mas a If não imprime.!! =/

Abraços!

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[dorneles]

Olá Geovanni, faz um teste ai muda a velocidade da porta(COM) e da impressora para 115200.

Vc testou com o DEMOLOG2?

Abraço

Dorneles

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

[Geo_sts]

Bom dia ..Dorneles.

Eu tentei.. mas com o Exmplo deles Funciona, quando tendo pele ACBr ele não consegue comunicar com a IF.

ja mudei as velocidades.. e nada! =/..

complicado!

Abraços

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[dorneles]

Bom dia Geovanni, qual o modelo da impressora que vc esta selecionando no ACBR.

Abraço

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

[Geo_sts]

eu estou selecionando a ecfDataregis..

e minha IF é a quick..

Fiz como vc tinha me orientado.. mas não deu,,

pelo exemplo deles ela se comunica.. mas pelo ACBr.. não.

abraços

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[dorneles]

Bom noite Geovanni,a IF Dataregis quick com o ACBR, vc tem que selecionar a impressora ecfFiscNET.

Abraço

Dorneles

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

[Paulo1361303230]

è Caro amigo.. a Coisa ta comlicada.. msm alterando para ecfFiscNET ele me retorna q a IF não responde.. troquei..o cabo serial para USB.. mas msm assim. não foi..

ta complicado!..

abraços

José Paulo H.Rodrigues

Santos/SP

drplus@uol.com.br

adm_house@hotmail.com

[SAOliveira]

Amigo, diz aí.

1 - Porta com direto no micro ?

2 - Esta usando adaptador USB/COM ?

3 - Qual o modelo exato da ECF.

4 - Não pegou ou baixou algum software DataRegis, de teste.

5 - O Acbr esta configurado ?

6 - Já testou colocar outra ECF no ACBR ?

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

Boleto with Personal/FastReport it is very, very good, beyond prettier.

FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX

[Geo_sts]

Bom dia amigo..

Então.. estava usando um conversor USB para seria.

não deu certo..

troquei o cabo serial para USB direto.. tmb não deu certo.

no exemplo que eles me mandaram. funciona.. mas o exemplo deles é um executavel.. não um módulo que explique as funçoes.. Pelo ACbr se eu selecionar "DataRegis" ela da erro ao se comunicar.. e ao selecionar o FiscNet. ele da ecf não responde... Tentei montar um exemplo simples.. só para comunicar.. e imprimir um LX e mostrei ao suporte para ver se estava correto.. segundo eles estava certo.. mas nem se quer ela respirou..

E o problema dos desenvolvedores de ECF que eles nunca tem um exemplo em Five ou em clipper.. pra dar uma força...

=/

To perdido....

Abraços..

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[SAOliveira]

Não usei ainda DataRegis.

Mas vamos tentar ajudar.

Voce disse que o demo deles, é um executável, este executável tem configuração de Porta/Velocidade.

Se sim, voce configurou o ACBR ?

O ACBR quando dá erro de comunicação, significa que a porta selecionada, não corresponde a do equipamento.

Em em propriedades, Gerenciador de dispositivos, tem LPT/COM, voce por acaso já conferiu a porta que esta lá, com a configurada no ACFR, este só vai até COM3.

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

Boleto with Personal/FastReport it is very, very good, beyond prettier.

FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX

[Geo_sts]

Sim.. verifiquei a velocidade da IF junto a minha Porta todas estão 9600.. o msm ja tentei com o conversor de USB para COM e utilizei o USB da IF..

esta na porta COM3.

abraços

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Geo_sts]

Da uma olhada na minha Função! pela Dll ..

Entrada

Dstart()

*******************************

FUNCTION dStart()

*******************************

LOCAL hBorland,bAction

SET 3DLOOK ON

mensagem1:=''

//------------------------> CARREGA DLL

dDll:=' '

beep(16)

MsgRun("Carregando arquivo de comunicação da Impressora Fiscal","Aguarde...",{||dDll:=loadlib32('dllg2.dll')})

VARCOM:="COM3"

canal:=drprintlig(varcom)

** //MsgRun("Estabelecendo comunicação com a Impressora Fiscal","Aguarde...",{||canal:=drprintlig(varcom)})

RETURN nil

//imprimir Leitura X

function DrleituraX()

dnRet := DLLG2_ExecutaComando(canal,'EmiteLeituraX')

//Emite leitura X

DLL32 FUNCTION DLLG2_ExecutaComando(canal AS STRING) AS LONG PASCAL ;

FROM "EmiteLeituraX" LIB dDll

Abraços..

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Kbelo]

Veja se ajuda.

adicionei voce no Skype

Se tiver MSN pode me chamar que uso essa DLL.

// Primeiro Inicia o Driver id=green>

DRIVER_ECF := DLLG2_IniciaDriver("COM1")

//Sempre antes de Enviar o ExecutaComando Voce deve Limpar os Parametros id=green>

DLLG2_LimpaParams(DRIVER_ECF)

// Agora voce ja Pode executar os Comandos.id=green>

DLLG2_ExecutaComando(DRIVER_ECF, "EmiteLeituraX")

id=code>id=code>

Marcelo Michels

Msn/E-mail:marcelo@infototal.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

[Geo_sts]

Boa tarde.. Marcelo.

Então.. eu acho que estou fazendo certo..

olha so um exemplo que montei do q eu estou fazendo!

//Leitura X

canal:=drprintlig("com3") // 1º

limpa(canal) // 2 º

MsgRun("Emissão da Leitura X (Relatório Gerencial) ","Aguarde",{||Drleiturax(canal,"EmiteLeituraX")}) //3º

//Funções

************************************************************************************

DLL32 FUNCTION DrPrintLig( canal AS STRING ) AS LONG PASCAL ;

FROM "DLLg2_IniciaDriver" LIB dDll

************************************************************************************

************************************************************************************

DLL32 function limpadr( canal AS LONG ) AS LONG PASCAL ;

FROM "DLLG2_LimpaParams" LIB dDll

************************************************************************************

************************************************************************************

//Emite leitura X

DLL32 FUNCTION DrLeituraX( canal AS STRING ) AS LONG PASCAL ;

FROM "DLLG2_ExecutaComando" LIB dDll

************************************************************************************

Abraços..

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Kbelo]

com3 ???

É DA MAQUINA OU EXTERNA?

JA TENTOU NA COM1

Marcelo Michels

Msn/E-mail:marcelo@infototal.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

[Geo_sts]

é USB... pois estou usando o USB da IF.. mas posso colocar direto pela com da maquina!.

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[Kbelo]

//Leitura X

canal:=drprintlig("COM3") // 1º

limpa(canal) // 2 º

MsgRun("Emissão da Leitura X (Relatório Gerencial) ","Aguarde",{||Drleiturax(canal,"EmiteLeituraX"id=red>)}) //3º

//Funções

************************************************************************************

DLL32 FUNCTION DrPrintLig( canal AS STRING ) AS LONG PASCAL ;

FROM "DLLg2_IniciaDriver" LIB dDll

************************************************************************************

************************************************************************************

DLL32 function limpadr( canal AS LONG ) AS LONG PASCAL ;

FROM "DLLG2_LimpaParams" LIB dDll

************************************************************************************

************************************************************************************

//Emite leitura X

DLL32 FUNCTION DrLeituraX( canal AS STRING, cade o parametroid=red> ) AS LONG PASCAL ;

FROM "DLLG2_ExecutaComando" LIB dDll

************************************************************************************

id=code>id=code>

Veja no seu fonte

Marcelo Michels

Msn/E-mail:marcelo@infototal.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

[Kbelo]

Tente Inicialmente na COM que essa eu Garanto que funciona a não ser que vopce tambem garante que essa DLL tb funcione na USB

Marcelo Michels

Msn/E-mail:marcelo@infototal.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.