Darumaframework.dll com xhb

[lucimauro]

A dll que voce me mandou ta beleza, agora voce sabe me dizer como faço pra ter todos as os comandas desta dll?

Desde ja agradeço.

[alaminojunior]

No site da Daruma, área para desenvolvedores existe o help on-line desta DLL.
Convido o colega a dar uma olhada.

[lucimauro]

alaminojunior quer dizer que em sao paulo ainda nao é obrigado PAF-ECF ?

[alaminojunior]

Graças à Deus, ainda não !

12.2. O Programa Aplicativo Fiscal (PAF-ECF) deve ser utilizado pelos contribuintes paulistas?

O PAF-ECF, de que trata Convenio ICMS 15/08, não foi disciplinado na legislação do Estado de São Paulo, portanto, não há obrigatoriedade da sua utilização nos equipamentos ECF instalados nos estabelecimentos dos contribuintes paulistas.

Entretanto, observamos que qualquer Software “aplicativo de frente de loja” utilizado nos equipamentos ECF de estabelecimentos paulistas bem como seu desenvolvedor (empresa ou autônomo) devem ser cadastrados na SEFAZ/SP

.

[daruma developer]

Bom dia Pessoal,
Lucimauro, segue o link de nosso Help online com todas as funções: http://www.desenvolvedoresdaruma.com.br ... mework.htm
Um forte abraço!

[lucimauro]

Obrigado por responder.
Queria saber de voce no arquivo daruma.txt que voce postou aqui.:

#Include "Dll.ch"

// Declarar como public este comando e incluir no inicio do programa principal
// public nLib32 := LoadLibrary( nLib32 )

// incluir a linha abaixo quando finalizar a aplicação
// FreeLibrary( nLib32 )


O dll.ch seria o arquivo que eu usaria com as definicoes abaixo ?
/-----------------------------------------------------------------------
DLL32 FUNCTION iCFAbrir_ECF_Daruma( pszCPF AS STRING;
pszNome AS STRING;
pszEndereco AS STRING ) AS LONG PASCAL;
FROM "iCFAbrir_ECF_Daruma" LIB nLib32

DLL32 FUNCTION iCFAbrirPadrao_ECF_Daruma() AS LONG PASCAL;
FROM "iCFAbrirPadrao_ECF_Daruma" LIB nLib32

// Registro de item
//------------------------------------------------
DLL32 FUNCTION iCFVender_ECF_Daruma( pszCargaTributaria AS STRING;
pszQuantidade AS STRING;
pszPrecoUnitario AS STRING;
pszTipoDescAcresc AS STRING;
pszValorDescAcresc AS STRING;
pszCodigoItem AS STRING;
pszUnidadeMedida AS STRING;
pszDescricaoItem AS STRING ) AS LONG PASCAL;
FROM "iCFVender_ECF_Daruma" LIB nLib32

DLL32 FUNCTION iCFVenderSemDesc_ECF_Daruma( pszCargaTributaria AS STRING;
pszQuantidade AS STRING;
pszPrecoUnitario AS STRING;
pszCodigoItem AS STRING;
pszUnidadeMedida AS STRING;
pszDescricaoItem AS STRING ) AS LONG PASCAL;
FROM "iCFVenderSemDesc_ECF_Daruma" LIB nLib32


Ja que nao vi nenhum funcao que carregue chame a darumaframework.dll
Voce poderia me dar ums exemplo de como abrir um cupom?

[lucimauro]

Outra tambem, é que estou fazendo uns teste com o harbou 3.00 e o comando LOADLIBRARY nao existe,alguem poderia me dar um orientacao qual comando usar para ler a dll?

desde ja agradeço.

[daruma developer]

Olá pessoal,
Segue um exemplo para vocês terem uma noção de como chamar a dll no xHB, e a programação com os métodos para fazer um Cupom Fiscal na darumaframework.dll!

Baixe os fontes no link abaixo:
http://www.desenvolvedoresdaruma.com.br ... Habour.zip

Agora insira dentro do exemplo a darumaframework ultima versão e suas dlls auxiliares:

http://www.desenvolvedoresdaruma.com.br ... rk_DLL.zip

Um abraço!

[lucimauro]

Ate agora nao conseguir colocar pra rodar esse exemplo DARUMA.PRG,acho que nao to sabendo como usar dentro do harbour, quando compilo da erro em todas a linhas.

To usando um exemplos asism
**public HH1:=hb_LibLoad("darumaframework.dll")
public HH1:=loadlibrary("darumaframework.dll") && ( ok )

*ret:=hb_DllCall( hh1, 32, "iLeituraX_ECF_Daruma()")
*ret:=hb_DynCall( hh1, 32, "iCFAbrirPadrao_ECF_Daruma")
ret:=hb_dyncall( hh1, 32, "iVerificaImpressoraLigada_ECF_Daruma")

[daruma developer]

Opa beleza Lucimauro, o Load Library funciona legal para todas versões do xHarbour.
Neste exemplo abaixo utilizo o nLib32 := LoadLibrary( "DarumaFrameWork.dll" )
e atribuo a chamada da darumaframework para nLib32...

Feito isto chamo a função com o dllcall:

Function InterpretarAviso( Int_NumAviso, Str_Msg_NumAviso )

Return DllCall( nLib32, 32, "eInterpretarAviso_ECF_Daruma", Int_NumAviso, Str_Msg_NumAviso )

Veja:

Código: Selecionar todos

Function main()

   public nLib32 := LoadLibrary( "DarumaFrameWork.dll" )

   // Testa de Impressora Fiscal esta Ligada
   iRetorno := VerificarImpressoraLigada()

   IF iRetorno = 1
      msginfo( 'Impressora Ligada' )
   Else
      msginfo( 'Impressora Desligada' )
      Return nil
   EndIF

   //iRetorno := LeituraX()
   //DarumaFramework_Mostrar_Retorno_ECF( iRetorno )

   iRetorno := ReducaoZ( "", "" )
   DarumaFramework_Mostrar_Retorno_ECF( iRetorno )

   iRetorno := CFAbrirPadrao_ECF_Daruma()
   DarumaFramework_Mostrar_Retorno_ECF( iRetorno )

   iRetorno := CFCancelar_ECF_Daruma()
   DarumaFramework_Mostrar_Retorno_ECF( iRetorno )

   FreeLibrary( nLib32 )

Return nil
//-------------------------------------------------------------------------------------------
//    ===========            TRATAMENTO DE RETORNO IMPRESSORA FISCAL              ===========
//-------------------------------------------------------------------------------------------
Function DarumaFramework_Mostrar_Retorno_ECF( iRetorno )

   local Str_Msg_NumErro  := Space(200)
   local Str_Msg_NumAviso := Space(200)
   local Str_Msg_Retorno_Metodo := ''

   local int_Ret      := 0, zPendente := ' '
   local Int_NumErro  := ''
   local Int_NumAviso := ''

   int_Ret := VerificarReducaoZ( @zPendente )

   IF zPendente = '1'
      IF msgYesNo( "ECF com ReducaoZ Pendente, Emitir Redução Z", "Atenção Operador" )
         iRetorno := ReducaoZ( "", "" )
      Else
         Return nil
      EndIF
   EndIF

   // Retornos de Método
   IF iRetorno <> 1

      iRetorno := Str( iRetorno )
      Str_Msg_Retorno_Metodo := "[" + iRetorno + "] - Erro durante a execução"

      // Verifico o status do ultimo comando e pego o numero de erro e o numero de aviso
      int_Ret := StatusUltimoCmd( Int_NumErro, Int_NumAviso )

      Int_NumErro  := Val( Int_NumErro )
      Int_NumAviso := Val( Int_NumAviso )

      IF Int_NumErro <> 0 .OR. Int_NumAviso <> 0

         IF Int_NumErro <> 0 .OR. Int_NumAviso <> 0
            // Faço a interpretação do numero de erro e mostro na tela
            iRetorno := InterpretarErro( Int_NumErro, @Str_Msg_NumErro )
            Str_Msg_NumErro := Alltrim( Str_Msg_NumErro )
         EndIF

         IF Int_NumAviso <> 0
            // Faço a interpretação do numero de aviso e mostro na tela
            iRetorno := InterpretarAviso( Int_NumAviso, @Str_Msg_NumAviso )
            Str_Msg_NumAviso := Alltrim( Str_Msg_NumAviso )
         EndIF

         msginfo( "Retorno do Metodo = " + Str_Msg_Retorno_Metodo + CRLF +;
                  "Num.Erro  = " + Str_Msg_NumErro  + CRLF +;
                  "Num.Aviso = " + Str_Msg_NumAviso + CRLF, "Atenção Operador" )
      EndIF

   Else // Se iRetorno = 1 (Ok!)

      msginfo( "Retorno do Metodo = [1] - Operação realizada com sucesso" + CRLF +;
               "Num.Erro  = " + "[0] Sem Erros" + CRLF +;
               "Num.Aviso = " + "[0] Sem Avisos", "Atenção Operador" )
     
   EndIF

Return nil
//--------------------------------------------------------------------
Function VerificarImpressoraLigada()

Return DllCall( nLib32, 32, "rVerificarImpressoraLigada_ECF_Daruma" )
//--------------------------------------------------------------------
Function StatusUltimoCmd( Int_NumErro, Int_NumAviso )

Return DllCall( nLib32, 32, "rStatusUltimoCmdInt_ECF_Daruma", Int_NumErro, Int_NumAviso )
//--------------------------------------------------------------------
Function InterpretarErro( Int_NumErro, Str_Msg_NumErro )

Return DllCall( nLib32, 32, "eInterpretarErro_ECF_Daruma", Int_NumErro, Str_Msg_NumErro )
//--------------------------------------------------------------------
Function InterpretarAviso( Int_NumAviso, Str_Msg_NumAviso )

Return DllCall( nLib32, 32, "eInterpretarAviso_ECF_Daruma", Int_NumAviso, Str_Msg_NumAviso )
//--------------------------------------------------------------------
Function VerificarReducaoZ( zPendente )

Return DllCall( nLib32, 32, "rVerificarReducaoZ_ECF_Daruma", zPendente )
//--------------------------------------------------------------------
Function ReducaoZ( data, hora )

Return DllCall( nLib32, 32, "iReducaoZ_ECF_Daruma", data, hora )
//--------------------------------------------------------------------
Function LeituraX()

Return DllCall( nLib32, 32, "iLeituraX_ECF_Daruma" )
//--------------------------------------------------------------------
Function CFAbrirPadrao_ECF_Daruma()

Return DllCall( nLib32, 32, "iCFAbrirPadrao_ECF_Daruma" )
//--------------------------------------------------------------------
Function CFCancelar_ECF_Daruma()

Return DllCall( nLib32, 32, "iCFCancelar_ECF_Daruma" )

[marcos.gurupi]

Caro DarumaDeveloper, poderia nos presentiar com um exemplo "testado" da funcao em ( x )harbour do sped fiscal?

Eu testei na epoca, entrei em contato com o suporte daruma mas ainda nao tinham nada em (x) harbour.


Marcos Roberto.

[daruma developer]

Opa Claro que sim,
Vou providenciar!
Alem do mais nosso exemplo está caminhando e esta quase pronto!
A Daruma tem o compromisso de sempre estar lançando materiais, drivers exemplos para auxiliar o desenvolvimento de parceiros como vocês do xHarbour...
Vou providenciar estes fontes da geração de relatórios...
Um forte Abraço...

[lucimauro]

Queria saber tambem se tem como saber se tem alguma comando na darumaframework que me retorne os dados da ultima reducao Z?

[daruma developer]

Olá Lucimauro, segue o exemplo com fontes em xHarbour, com o comando rGerarRelatorio_ECF_Daruma, demonstrando a geração do Sped e do SINTEGRA.
Segue o link:
www.desenvolvedoresdaruma.com.br/home/d ... ntegra.zip

A outra pegunta foi:

Queria saber tambem se tem como saber se tem alguma comando na darumaframework que me retorne os dados da ultima reducao Z?

Tem sim! E esta função é a rRetornarInformacao_ECF_Daruma
Passando como parâmetros:

.Índice da informação desejada = no caso dos dados da ultima Z o 140
. Variável por referencia para receber a informação solicitada = neste caso 1164

Confira todos os retornos em nossa tabela de informações:

http://www.desenvolvedoresdaruma.com.br ... do_ECF.htm

Agora mãos a obra! =)

Em quanto nosso exemplo passa por ajustes finais, já disponibilizamos os codigos: Emissão do Cupom Fiscal, Geração de Relatorios.

Duvidas Estamos à disposição!

[lucimauro]

Obrigado pessoal da duruma pela ajuda. Agora nao estou conseguindo acessar os link acima.