Jump to content

tdressano

Membros Pro
  • Posts

    136
  • Joined

  • Last visited

Posts posted by tdressano

  1. Boa tarde Junior,

    Está em cdecl, e está tudo em x86. A lib já está em mais de 50 clientes funcionando! Somente esse que tem ControlID que não estamos conseguindo fazer funcionar.

    Inclusive se pegar a mesmas dll que funciona no monitor, na lib não funciona.

     

  2. Boa Noite,

    Está dando erro NFE_EnviarEmailEvento, a classe em VB6 está faltando parâmetro.

    Está assim:
    NFE_EnviarEmailEvento(libHandler, ePara, eChaveNFe, aEnviaPDF, eAssunto, eCc, eAnexos, eMensagem)

    Manual:
    NFE_EnviarEmailEvento( ePara, eChaveEvento, eChaveNFe, AEnviaPDF, eAssunto, eCC, eAnexos, eMensagem)


    Faltando eChaveEvento

    Obrigado,
    Tiago

    Captura de tela 2021-08-31 193815.png

  3. Antonio,

    Está dando essa erro com a Classe ACBrSat atualizada nesse tópico, que foi corrigido em erro de sat.FinalizarLib.

    Se utilizo a classe antiga, funciona o sat.AtivarSAT, mas não o sat.FinalizarLib.

    Se volto, dai inverte.

    Em VB

    Att,

     

  4. Rafael,

    Se o método está correto, então a declaração  está errada, olha abaixo como está.

     

    Private Declare Function POS_ImportarConfig _
                    Lib "ACBrPosPrinter32.dll" (ByVal libHandler As Long, _
                                                ByVal eArqConfig As String) As Long
                                                
    Private Declare Function POS_ExportarConfig _
                    Lib "ACBrPosPrinter32.dll" (ByVal libHandler As Long, _
                                         ByVal buffer As String, _
                                         ByRef bufferLen As Long) As Long

     

    Obrigado,
    Tiago

     

     

  5. Senhores,

    Estou com problema para usar a Function AtivarSAT da calsse ACBrSat, está apresentando o seguinte erro:

    Bad DLL calling convention

    Estou usando a Classe / DLL 32 MultiThread, estou utilizando o VB6.

    Atenciosamente,
    Tiago

    erro.png

  6. O erro para FinalizarLib em  MultiThread está funcionando agora.

    Estou reportando 3 correções para a Classe ACBrPosPrinter MultiThread :

    Public Sub ConfigImportar
    Errado:
    retorno = POS_ConfigImportar(libHandler, eArqConfig)
    Correto:
    retorno = POS_ImportarConfig(libHandler, eArqConfig)

     

    Public Function ConfigExportar
    Errado:
    retorno = POS_ConfigExportar(libHandler, buffer, bufferLen)
    Correto:
    retorno = POS_ExportarConfig(libHandler, buffer, bufferLen)

     

    Public Function LerCMC7
    Errado:
    LeituraCheque = processResult(buffer, bufferLen) 
    Correto:
    LerCMC7 = processResult(buffer, bufferLen) 

     

    PS - Segue a classe corrigida.


    Obrigado,

    ACBrPosPrinter.cls

  7. Senhores,

    Estou com problema para usar a Sub FinalizarLib da calsse ACBrBoleto, sempre que a chamo está travando a aplicação.

    Estou usando a Classe / DLL 32 MultiThread, estou utilizando o VB6.

    Testei também os demos Boleto e PosPrinter os 2 também apresentaram o mesmo erro, o restante está funcionando, somente dá erro quando chamo FinalizarLib

     

    Encontrei 3 errinhos no manual da Lib, segue caso queiram corrigir:

    ACBrLibPosPrinter / Configurações da Biblioteca

    [PosPrinter_Gaveta]
    SinarInvertido -> SinalInvertido

    [PosPrinter_QRCode]
    ErroeLevel ->  ErrorLevel

    [POS_Device] -> [PosPrinter_Device]

     

    Obrigado,
    Tiago

     

    boleto.png

  8. Sim estou usando a suas Classe, eu vi que tenta tratar isso, mas não está funcionando

    Uso da seguinte forma:

    txtRetorno = boleto.ObterRetorno(txtImportarDiretorio, txtImportarArquivo)

    Classe:

    Public Function ObterRetorno(ByVal eDir As String, ByVal eNomeArquivo As String) As String
        Dim retorno   As Long
        Dim buffer    As String
        Dim bufferLen As Long
        
        bufferLen = BUFFER_LENGTH
        buffer = String$(bufferLen, " ")
        
        retorno = Boleto_ObterRetorno(eDir, eNomeArquivo, buffer, bufferLen)
        CheckResult retorno
        
        ObterRetorno = processResult(buffer, bufferLen)
    End Function

     

    Private Function processResult(ByRef buffer As String, ByRef bufferLen As Long) As String
        
        If bufferLen > BUFFER_LENGTH Then
            buffer = String$(bufferLen, " ")
            Boleto_UltimoRetorno buffer, bufferLen
        End If

        processResult = Trim$(FromUTF8(buffer))
    End Function

     

  9. Senhores, Boa tarde.

    Estou alterando do Monitor para a Lib, mas estou com um problema no retorno que não consigo resolver:

    O retorno do comando  boleto.ObterRetorno (da Lib) está me trazendo os caracteres dessa forma:

    06-Liquida??o Normal

    Estou utilizando o VB6, alguma sugestão para corrigir isso?

    Já alterei a CodificacaoResposta = 1 e não mudou nada.

    Obrigado,

  10. Senhores, estou com o seguinte erro para compilar o monitor:

    ACBrLibBPeConsts.pas(101,13) Error: Identifier not found "SetRetorno"

    Segue também o print.

    Alguém poderia me ajudar? Só estou abrindo o fonte e compilando.

    Atenciosamente,

     

     

    Capturar.PNG

  11. Senhores,

    Estou tentando homologar um boleto da Sicoob e está dando o seguinte erro:

    Dígito Verificador da Ag/Conta - 72 - 72 Alfanumérico  - 1 -  Alfanumérico - Valor informado diverge do valor default definido para o campo: 0

    Juros de Mora por Dia/Taxa - 127 - 141 0 Numérico 15 - 000000000000000 - Numérico - Valor do juros deve ser informado caso o código do juros seja
    informado

    No caso do primeiro erro já estou informando DigitoVerificadorAgenciaConta=0 e mesmo assim não gera no arquivo remessa.

    Já o segundo erro, qual é o campo que devo informar?

    Obrigado,

  12. Juliomar,

    Obrigado pela resposta, mas quando reverto ACBr.inc para os valores do SVN preciso adicionar as seguintes DLLs na pasta raiz para funcionar o Monitor:

    ;DLLs XMLSec
    Source: {#ACBrDIR}\DLLs\XMLSec\libxml2.dll
    Source: {#ACBrDIR}\DLLs\XMLSec\libxmlsec.dll; 
    Source: {#ACBrDIR}\DLLs\XMLSec\libxmlsec-openssl.dll; 
    Source: {#ACBrDIR}\DLLs\XMLSec\libxslt.dll; 
    Source: {#ACBrDIR}\DLLs\XMLSec\iconv.dll; 

    E na instalação do Monitor compilado por vocês estas DLLs não estão presentes.

    Existe alguma outra coisa que preciso fazer?

    Obrigado,

  13. Senhores,

    Como as diretivas abaixo devem estar para compilar o Monitor ? (Da forma padrão que é compilada por vocês.)

    // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXML2, LibXMLSEC,  
    {.$DEFINE DFE_SEM_OPENSSL}
    // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXMLSEC, mas continue suportando a LibXML2
    {.$DEFINE DFE_SEM_XMLSEC}
    // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXML2, mas continue suportando LibXMLSEC
    {.$DEFINE DFE_SEM_LIBXML2}
    // Descomente a linha abaixo, se você não utiliza a obsoleta Capicom para Criptografia (recomendado)
    {.$DEFINE DFE_SEM_CAPICOM}
    // Descomente a linha abaixo, se você não utiliza a obsoleta MSXML para Assinatura de XML(recomendado)
    {.$DEFINE DFE_SEM_MSXML}
    // Descomente a linha abaixo, se você não deseja adicionar a Dependência da INDY nos seus Projetos
    {.$DEFINE DFE_SEM_INDY}   

    Atenciosamente,
    Tiago
     

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.