Comandos MFD com BEMATECH
Enviado: 12 Abr 2012 14:22
Alguem estah usando ou jah usou com sucesso os comandos:
e
Estou usando o xhb 1.0.0 + hwgui 2.17
No meu caso o sistema fica lendo as informacoes na ECF, inclusive ele cria o arquivo download.mfd e nao sai disso, nao responde mais.
Tentei ler apenas um cupom impresso e ficou 2 horas processando e nao saiu disso.
Marcos Roberto.
Código: Selecionar todos
iRetorno:= dllcall(DllBem,32,"Bematech_FI_DownloadMFD",cArquivo,cTipoDownload,cCOOInicial,cCOOFinal,cUsuario)Código: Selecionar todos
iRetorno := DllCall(DllBem,32,"Bematech_FI_FormatoDadosMFD",cArquivo,cArquivoDestino,cTipoFormato,cTipoDownload,cCOOInicial,cCOOFinal,cUsuario) Código: Selecionar todos
Local DLLBem
Local cCOOInicial:=cCOOFinal:=SPace(6)
Local cDataIni:=cDataFim:=Space(6)
Local cPrinterName
DllBem:= LoadLibrary("BEMAFI32.dll")
cArquivo := "DOWNLOAD.MFD"
cTipoDownload := "2"
cCOOInicial := "002210"
cCOOFinal := '002210'
cUsuario := '1'
cArquivoDestino := "Imagem.TXT"
cTipoFormato := "0"
cTipoDownload := "2"
cUsuario := "1"
MsgRun("Puxando informacoes da E.C.F. Aguarde...")
iRetorno:= dllcall(DllBem,32,"Bematech_FI_DownloadMFD",cArquivo,cTipoDownload,cCOOInicial,cCOOFinal,cUsuario)
If iRetorno # 1
Fim_Run()
ok := Ver_ECFError(iRetorno)
Endif
iRetorno := DllCall(DllBem,32,"Bematech_FI_FormatoDadosMFD",cArquivo,cArquivoDestino,cTipoFormato,cTipoDownload,cCOOInicial,cCOOFinal,cUsuario)
If iRetorno # 1
Fim_Run()
ok := Ver_ECFError(iRetorno)
Endif
FreeLibrary(DLLBem)
Fim_Run()
If MsgYesNo("Deseja Imprimir o cupom fiscal (2a via) ?")
cPrinterName:=GetDefaultPrinter() // pega a impressora padrão
nResult := PrintFileRaw(cPrinterName,cArquivoDestino, "Impressao de 2a via de cupom fiscal "+cOOInicial)
Endif
Return .T.
No meu caso o sistema fica lendo as informacoes na ECF, inclusive ele cria o arquivo download.mfd e nao sai disso, nao responde mais.
Tentei ler apenas um cupom impresso e ficou 2 horas processando e nao saiu disso.
Marcos Roberto.