Sweda + PAF + xHarbour + DLL
Enviado: 26 Fev 2010 12:17
Olá colegas... tenho um problema com o desenvolvimento do PAF, e gostaria que alguém podesse me ajudar.
O sistema da empresa em que trabalho, trabalhar com praticamente todos os modelos de ECF do mercado, e por isso, tenho que desenvolver o PAF compativel com todos eles.
Atualmente, estou adaptando o sistema para o PAF com a ECF da Sweda. Acontece, que ainda não fui capaz de conseguir fazer o download do Arquivo MFD.
Segundo o manual da DLL da Sweda, o comando para isso é: ECF_DownloadMFD. Mas já tentei de tudo quanto foi maneira, e não consegui.
Alguém aqui tem ou teve esse tipo de problema e poderia me ajudar?
Executando esse código, a DLL se activa, faz como se estivesse fazendo o procedimento, mas logo depois apresentar uma msg de erro:
Já tentei com loadlibrary antes, e usando o handle no lugar do nome da dll, ja tentei mudar o segundo parametro para o outro valor la possivel, ou até mesmo, o número 32, que já vi em alguns exemplos por ai. Mas não deu certo.
O mais engraçado, é que o exemplo que vem em Delphi (considerando as diferenças de sintaxe), esta exatamente igual ao meu, e pelo Delphi, não apresenta esse erro.
Alguem tem idéia do que possa ser?
Obrigado
ps.: (estou compondo a data, porque o set date do nosso sistema usa outro formato )
O sistema da empresa em que trabalho, trabalhar com praticamente todos os modelos de ECF do mercado, e por isso, tenho que desenvolver o PAF compativel com todos eles.
Atualmente, estou adaptando o sistema para o PAF com a ECF da Sweda. Acontece, que ainda não fui capaz de conseguir fazer o download do Arquivo MFD.
Segundo o manual da DLL da Sweda, o comando para isso é: ECF_DownloadMFD. Mas já tentei de tudo quanto foi maneira, e não consegui.
Alguém aqui tem ou teve esse tipo de problema e poderia me ajudar?
Código: Selecionar todos
d1 := CTOD("01/01/10")
d2 := DATE()
cFile := "c:\teste.txt"
cData1 := STRZERO(DAY(d1), 2 ) + "/" + STRZERO(MONTH(d1), 2) + "/" + RIGHT(STRZERO(YEAR(d1), 4), 2)
cData2 := STRZERO(DAY(d2), 2 ) + "/" + STRZERO(MONTH(d2), 2) + "/" + RIGHT(STRZERO(YEAR(d2), 4), 2)
nResposta := DLLCALL( "CONVECF.DLL" ,;
0x0020 ,;
"ECF_DownloadMFD" ,;
cFile ,;
"1" ,; // TIPO 1 DATA
cData1 ,;
cData2 ,;
"0" )
Código: Selecionar todos
Encerrando comunicação- Não foi executado ECF_FechaPortaSerial()
O mais engraçado, é que o exemplo que vem em Delphi (considerando as diferenças de sintaxe), esta exatamente igual ao meu, e pelo Delphi, não apresenta esse erro.
Alguem tem idéia do que possa ser?
Obrigado
ps.: (estou compondo a data, porque o set date do nosso sistema usa outro formato )
