Boa tarde,
Estou implantando uma rotina para um cliente só que o mesmo além de não ter sintegra o banco de dados não está pronto e por urgencia estou tendo que usar a dll da Bematech, alguem aqui já usou essa função Bematech_FI_GeraRelatorioSintegraMFD
Quando passo ele dá erro -2 (parametro inválido) vou postar como fiz a declaração e como fiz o teste.
DLL32 FUNCTION BmGeraRelatorioSintegraMFD( iRelatorios AS Integer,;
cArquivoOrigem AS STRING,;
cArquivoDestino AS STRING,;
cMes AS STRING,;
cAno AS STRING,;
cRazaoSocial AS STRING,;
cEndereco AS STRING,;
cNumero AS STRING,;
cComplemento AS STRING,;
cBairro AS STRING,;
cCidade AS STRING,;
cCEP AS STRING,;
cTelefone AS STRING,;
cFax AS STRING,;
cContato AS STRING ) AS LONG PASCAL ;
FROM "Bematech_FI_GeraRelatorioSintegraMFD" LIB dllbem
Forma como estou testando:
cArqOrigem := 'DOWNLOAD.MFD'
cArqDestino := 'SINTEGRA.TXT'
cMes := '12'
cAno := '2012'
cRazaoSocial := 'BEMATECH S/A'
cEndereco := 'Estrada de Santa Candida'
cNumero := '263'
cComplemento := 'Industria'
cBairro := 'Santa Candida'
cCidade := 'Curitiba'
cCEP := '82630490'
cTelefone := '41 351-2700'
cFax := '41 351-2863'
cContato := 'Fulano de Tal'
iRetorno := BmGeraRelatorioSintegraMFD(63,;
cArqOrigem,;
cArqDestino,;
cMes,;
cAno,;
cRazaoSocial,;
cEndereco,;
cComplemento,;
cBairro,;
cCidade,;
cCEP,;
cTelefone,;
cFax,;
cContato );
Erro que está dando:
Aplicacao
==========
Nome e Caminho: C:\Electra7\Electra.EXE
Tamanho: 1,307,136 bytes
Maximo de arquivos abertos: ( SetHandleCount() ) 0
Ocorreu erro em: 19/01/2013, 13:56:23
Descricao: Erro BASE/1003 Variable does not exist: NUMERIC
Chamadas ao Stack
=================
CHAMADA DE BMGERARELATORIOSINTEGRAMFD(0)
CHAMADA DE TESTE(2556)
CHAMADA DE (b)BUILDMENU(527)
CHAMADA DE TMENU:COMMAND(437)
CHAMADA DE TWINDOW:COMMAND(1029)
CHAMADA DE TMDIFRAME:COMMAND(243)
CHAMADA DE TMDIFRAME:HANDLEEVENT(0)
CHAMADA DE _FWH(3394)
CHAMADA DE WINRUN(0)
CHAMADA DE TMDIFRAME:ACTIVATE(978)
CHAMADA DE MAIN(434)
Se alguem tiver como dar uma dica agradeço.