[Exemplo AcbrBal para Xharbour ou harbour]

E mais qual a dll usar. e quais as sintaxes da dll?

[Exemplo AcbrBal para Xharbour ou harbour]

Alguem teria algum exemplo ? 

[Exemplo de Acbrlib para etiquetas.]

   Alguem tem algum exemplo de uso da acbrlib com etiquetas (AcbrEtq) em xharbour ou harbour. so encontrei para boleto e para nfe. 

[dll]

onde consigo baixar as dll para etiquetas? 

 

[Erro com impressão.]

Venho Enfrentando alguns erros estranhos onde não consegui identificar o motivo. 

uso a acbrlib para gerar boletos e imprimir. consigo imprimir normalmente mas se eu imprimir muitos boletos as vezes no segundo ja trava as vezes no 10 mas sempre trava. 

95    oErr := ErrorNew()
96   oErr:Severity := ES_ERROR
97    oErr:Description := hb_UTF8ToStr(buffer)
98    Throw(oErr) 
    

180 METHOD Imprimir(eNomeImpressora) CLASS ACBrBoleto
181    local hResult 
182    hResult := DllCall(::hHandle, DLL_OSAPI, "Boleto_Imprimir", hb_StrToUTF8(eNomeImpressora))
183    ::CheckResult(hResult) 

 

472        arqct := ALLTRIM(PAEEMP->pasta)+"\boletos\"+M->mes+"\ttl"+FLDUP->dup_num+FLDUP->num+".ini"
473        boleto:IncluirTitulos(arqct,"I")

 

[boleto sem protesto]

Em 18/01/2020 at 11:33, BigWings disse:

Qual o banco?

Bradesco

[boleto sem protesto]

Tenho um cliente que emite o boleto no bradesco mas ele não coloca informação de protesto. tentei colocar 0 ou deixar em branco ai o boleto sai como vai ser protestado na data do vencimento!

existe essa possibilidade?

[impressao do protocolo no Danfe]

2 horas atrás, Lorena Gonçalves disse:

nfeacbr:Imprimir("", 1, "", "True", "", "", "") estou passando no 4 (quarto) parametro. somente pra visualizar antes de imprimir. 

 

desculpa encontrei o erro. baixei o exemplo do site e no site ta errado.

    hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Imprimir", hb_StrToUTF8(cImpressora), nNumCopias, hb_StrToUTF8(bMostrarPreview), hb_StrToUTF8(cMarcaDagua), b_StrToUTF8(bViaConsumidor), hb_StrToUTF8(bSimplificado))

o correto e

    hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Imprimir", hb_StrToUTF8(cImpressora), nNumCopias,, hb_StrToUTF8(bMostrarPreview), hb_StrToUTF8(cMarcaDagua), hb_StrToUTF8(bViaConsumidor), hb_StrToUTF8(bSimplificado))
 

depois do nnumcopias falta uma virgula. alguem pode concertar la por favor. 

 

 

 

[impressao do protocolo no Danfe]

3 horas atrás, Rafael Dias disse:

@Lorena Gonçalves esta imprimindo True pois você esta mandando fazer isso.

Você esta passando no 3 parametro a palavra true,  este parâmetro é para informar o numero do protocolo caso o xml que você carregou não tenha o mesmo se deseja pegar do xml basta informar como vazio.

https://acbr.sourceforge.io/ACBrLib/NFE_Imprimir.html

nfeacbr:Imprimir("", 1, "", "True", "", "", "") estou passando no 4 (quarto) parametro. somente pra visualizar antes de imprimir. 

 

[Atualização windows erro salvar xml rede]

to com mesmo problema em varios clientes todos  kaspersky usando o windows 7.  começou a +ou- 15 dias.  

[impressao do protocolo no Danfe]

sou obrigado a colocar o numero do protocolo na chamada de impressao usando a dll? ele não pega automatico do xml?

 

[impressao do protocolo no Danfe]

5 minutos atrás, BigWings disse:

Está usando o DANFE em Fast ou Fortes Report?

Fez teste com o programa exemplo do componente?

Está atribuindo algo para a propriedade "Protocolo" do componente DANFE?

estou usando o exemplo que baixei 

          nfeacbr := ACBrNFe():New()
          //                      Sessão       Chave    Valor
          // Configurações de log da Lib
          nfeacbr:ConfigGravarValor("Principal", "LogNivel", "4") //Nenhum // logParanoico     
          nfeacbr:ConfigGravarValor("Principal", "LogPath", mDiretori)
          nfeacbr:ConfigGravarValor("DANFE"    , "PathPDF", mDiretori)            
          nfeacbr:ConfigGravarValor("DANFE"    , "PathLogo", cLogoFile)            
          nfeacbr:ConfigGravarValor("DANFE"    , "CasasDecimais.qCom", "4")
          nfeacbr:ConfigGravarValor("DANFE"    , "CasasDecimais.vUnCom", "4")            

          nfeacbr:ConfigGravarValor("DANFE"    , "ExpandeLogoMarca", "0")

          
          // Salvando configurações
          nfeacbr:ConfigGravar("")
             nfeacbr:CarregarXML(MDiretori+"\"+ALLTRIM(CENF->nfe)+'-procNfe.xml')
             nfeacbr:Imprimirpdf()
             nfeacbr:Imprimir("", 1, "", "True", "", "", "")
          nfeacbr := nil

 chamo a dll via xhabour usando DllLoad(ACBrLIB) e depois uso o dllcall. 

 

 

2 minutos atrás, Lorena Gonçalves disse:

estou usando o exemplo que baixei 

          nfeacbr := ACBrNFe():New()
          //                      Sessão       Chave    Valor
          // Configurações de log da Lib
          nfeacbr:ConfigGravarValor("Principal", "LogNivel", "4") //Nenhum // logParanoico     
          nfeacbr:ConfigGravarValor("Principal", "LogPath", mDiretori)
          nfeacbr:ConfigGravarValor("DANFE"    , "PathPDF", mDiretori)            
          nfeacbr:ConfigGravarValor("DANFE"    , "PathLogo", cLogoFile)            
          nfeacbr:ConfigGravarValor("DANFE"    , "CasasDecimais.qCom", "4")
          nfeacbr:ConfigGravarValor("DANFE"    , "CasasDecimais.vUnCom", "4")            

          nfeacbr:ConfigGravarValor("DANFE"    , "ExpandeLogoMarca", "0")

          
          // Salvando configurações
          nfeacbr:ConfigGravar("")
             nfeacbr:CarregarXML(MDiretori+"\"+ALLTRIM(CENF->nfe)+'-procNfe.xml')
             nfeacbr:Imprimirpdf()
             nfeacbr:Imprimir("", 1, "", "True", "", "", "")
          nfeacbr := nil

 chamo a dll via xhabour usando DllLoad(ACBrLIB) e depois uso o dllcall. 

 

 

no imprimir sou obrigado a colocar o numero do protocolo? ele não busca no xml?

 

[impressao do protocolo no Danfe]

Toda vez que mando imprimir um danfe no lugar do protocolo imprime apenas a palavra "True"

oque esqueci de configurar?