Kbelo Posted November 7, 2012 Report Share Posted November 7, 2012 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. Quote Link to comment Share on other sites More sharing options...
Kbelo Posted November 7, 2012 Author Report Share Posted November 7, 2012 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. Quote Link to comment Share on other sites More sharing options...
ecmsoft Posted November 7, 2012 Report Share Posted November 7, 2012 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 Quote Link to comment Share on other sites More sharing options...
tiaoFW Posted November 7, 2012 Report Share Posted November 7, 2012 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 Quote Link to comment Share on other sites More sharing options...
Kbelo Posted November 7, 2012 Author Report Share Posted November 7, 2012 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. Quote Link to comment Share on other sites More sharing options...
tiaoFW Posted November 8, 2012 Report Share Posted November 8, 2012 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.