SINTEGRA DLL BEMATECH

[Kbelo]

Bom dia.

Onde foi que eu errei???

Quando executo esse teste da erro no executável de enviar relatório.

O que eu pude perceber é que quando vai acessar a BemaMFD2.dll mostra um alert e depois ocorre o erro.

#INCLUDE "FiveWin.ch"

FUNCTION Start()

LOCAL hBorland,bAction

xDll := LoadLibrary("BEMAFI32.DLL")

Private x01 := "09"

Private x02 := "2012"

Private x03 := "Teste Empresa LTDA"

Private x04 := "Rua Padrao de teste"

Private x05 := " "

Private x06 := space(22)

Private x07 := "Sao Luiz "

Private x08 := "Criciuma "

Private x09 := "88803290"

Private x10 := space(12)

Private x11 := space(10)

Private x12 := space(18)

define dialog oDlg resource "ECFTESTE"

redefine Get ogx01 var x01 ID 101 OF oDlg Picture "@!"

redefine Get ogx02 var x02 ID 102 OF oDlg Picture "@!"

redefine Get ogx03 var x03 ID 103 OF oDlg Picture "@!"

redefine Get ogx04 var x04 ID 104 OF oDlg Picture "@!"

redefine Get ogx05 var x05 ID 105 OF oDlg Picture "@!"

redefine Get ogx06 var x06 ID 106 OF oDlg Picture "@!"

redefine Get ogx07 var x07 ID 107 OF oDlg Picture "@!"

redefine Get ogx08 var x08 ID 108 OF oDlg Picture "@!"

redefine Get ogx09 var x09 ID 109 OF oDlg Picture "@!"

redefine Get ogx10 var x10 ID 110 OF oDlg Picture "@!"

redefine Get ogx11 var x11 ID 111 OF oDlg Picture "@!"

redefine Get ogx12 var x12 ID 112 OF oDlg Picture "@!"

redefine button obok ID 113 OF oDlg ;

ACTION(executa())

oDlg:lHelpicon := .F.

activate dialog oDlg center

*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

static function executa

*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

nRet := Bematech_FI_GeraRelatorioSintegraMFD(31, "c:\download.mfd", "d:\sintegra.txt", x01, x02, x03, x04, x05, x06, x07, x08, x09, x10, x11, x12)

alert('Concluido')

return .t.

//Ler flag fiscal da impressora

DLL32 FUNCTION Bematech_FI_GeraRelatorioSintegraMFD( codigo AS _INT,;

Mdf AS STRING,;

txtSintegra AS STRING,;

x1 AS STRING,;

x2 AS STRING,;

x3 AS STRING,;

x4 AS STRING,;

x5 AS STRING,;

x6 AS STRING,;

x7 AS STRING,;

x8 AS STRING,;

x9 AS STRING,;

x10 AS STRING,;

x11 AS STRING,;

x12 AS STRING ) AS LONG PASCAL ;

FROM "Bematech_FI_GeraRelatorioSintegraMFD" LIB xDll

id=code>id=code>

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

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

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

[Kbelo]

Bom dia.

Onde foi que eu errei???

Quando executo esse teste da erro no executável de enviar relatório.

O que eu pude perceber é que quando vai acessar a BemaMFD2.dll mostra um alert e depois ocorre o erro.

#INCLUDE "FiveWin.ch"

FUNCTION Start()

LOCAL hBorland,bAction

xDll := LoadLibrary("BEMAFI32.DLL")

Private x01 := "09"

Private x02 := "2012"

Private x03 := "Teste Empresa LTDA"

Private x04 := "Rua Padrao de teste"

Private x05 := " "

Private x06 := space(22)

Private x07 := "Sao Luiz "

Private x08 := "Criciuma "

Private x09 := "88803290"

Private x10 := space(12)

Private x11 := space(10)

Private x12 := space(18)

define dialog oDlg resource "ECFTESTE"

redefine Get ogx01 var x01 ID 101 OF oDlg Picture "@!"

redefine Get ogx02 var x02 ID 102 OF oDlg Picture "@!"

redefine Get ogx03 var x03 ID 103 OF oDlg Picture "@!"

redefine Get ogx04 var x04 ID 104 OF oDlg Picture "@!"

redefine Get ogx05 var x05 ID 105 OF oDlg Picture "@!"

redefine Get ogx06 var x06 ID 106 OF oDlg Picture "@!"

redefine Get ogx07 var x07 ID 107 OF oDlg Picture "@!"

redefine Get ogx08 var x08 ID 108 OF oDlg Picture "@!"

redefine Get ogx09 var x09 ID 109 OF oDlg Picture "@!"

redefine Get ogx10 var x10 ID 110 OF oDlg Picture "@!"

redefine Get ogx11 var x11 ID 111 OF oDlg Picture "@!"

redefine Get ogx12 var x12 ID 112 OF oDlg Picture "@!"

redefine button obok ID 113 OF oDlg ;

ACTION(executa())

oDlg:lHelpicon := .F.

activate dialog oDlg center

*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

static function executa

*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*

nRet := Bematech_FI_GeraRelatorioSintegraMFD(31, "c:\download.mfd", "d:\sintegra.txt", x01, x02, x03, x04, x05, x06, x07, x08, x09, x10, x11, x12)

alert('Concluido')

return .t.

//Ler flag fiscal da impressora

DLL32 FUNCTION Bematech_FI_GeraRelatorioSintegraMFD( codigo AS _INT,;

Mdf AS STRING,;

txtSintegra AS STRING,;

x1 AS STRING,;

x2 AS STRING,;

x3 AS STRING,;

x4 AS STRING,;

x5 AS STRING,;

x6 AS STRING,;

x7 AS STRING,;

x8 AS STRING,;

x9 AS STRING,;

x10 AS STRING,;

x11 AS STRING,;

x12 AS STRING ) AS LONG PASCAL ;

FROM "Bematech_FI_GeraRelatorioSintegraMFD" LIB xDll

id=code>id=code>

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

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

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

[ecmsoft]

Eu tentei usar essa função há um tempo atrás e desisti. Estou fazendo diretamente no aplicativo.

Marciano Queiroz

Teixeira de Freitas-Ba

FW 10.12 + xHb 1.2.1 | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria | Ret.XML NF-e

[tiaoFW]

Boa tarde.

Durante a homologação do PAF-ECF talvez eles te peçam pra gerar o sintegra com o ECF desligado. E ai o bicho vai pegar pro seu lado.

t+

FWXH 12.08, PELLESC, MYMAKE 1.9J, DBF

Belzonte - Minas Gerais

A mente do fundamentalista é como a pupila do olho: quanto mais luz você joga, mais ela se fecha.

— Stephen Hawking

msn: tiaopessoa@hotmail.com

[Kbelo]

sei disso e nossos sistemas geram. Isso é para um cliente que usa outro sistema e estamos migrado só que ele precisa do sintegra do ecf e o sistema antigo esta com o banco corrompido.

é só um paleativo

Marcelo Michels

E-mail:marcelo@folksistemas.com.br

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

xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

[tiaoFW]

Boa tarde.

Vc atualizou a dll da bematech? Pois tem uma nova lançada agora em outubro/2012.

t+

FWXH 12.08, PELLESC, MYMAKE 1.9J, DBF

Belzonte - Minas Gerais

A mente do fundamentalista é como a pupila do olho: quanto mais luz você joga, mais ela se fecha.

— Stephen Hawking

msn: tiaopessoa@hotmail.com