Funçao GerarPDFBoleto(eIndice) Acumulando boleto

[andreinformatica]

Olá pessoal.

Quando tento utilizar a função Boleto_GerarPDFBoleto(eIndice), sempre esta sendo retornado os boletos da lista. Em minha rotina, estou realizado o seguinte procedimento:

Loop

- Boleto_IncluirTItulos(ArquivoINI)

- Boleto_GerarPDFBoleto(id)

End Loop

 

Porém, no primeiro laço apresenta o 1º boleto, na segunda após incluir o 2º titulo, ao GerarPDF ele acrecenta no segundo PDF o 1º e o 2º Titulo.

Alguma dica?

 

[Renato Rubinho]

Utilize o método Boleto_LimparLista antes de incluir um novo.

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

 

[andreinformatica]

Sim, porém ele limpa a lista de remessa correto?

Terei que ir gerando a remessa e depois agrutinando em um unico arquivo pra envio, sendo que na documentação há tal função

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

 

[Daniel InfoCotidiano]

@andreinformatica
Bom dia !
Utilizando o exemplo vi que existe 3 sobrecarga de metodos:

 

Então, criei um novo botão no Exemplo para testar o método:
 

        private void btnBoletoIndividualPDF_Click(object sender, EventArgs e)
        {
            var indexTitulo = "0";
            InputBox.Show("Informe o Indice", "Indice do titulo", ref indexTitulo);
            try
            {
                boleto.GerarPDF(int.Parse(indexTitulo));
                rtbRespostas.AppendLine("PDF Gerado");
            }
            catch (Exception ex)
            {
                rtbRespostas.AppendLine(ex.Message);
            }
        }

Ele criou o PDF individual de cada Índice que passei;
Única coisa que sobrescreveu o Nome do Boleto;
Para ficar em nome diferente, no acbrlib.ini deixar a propriedade calcularNomeIndividual=1

[Daniel InfoCotidiano]

No VB
 

Private Declare Function Boleto_GerarPDFBoleto Lib "ACBrBoleto32.dll" (ByVal eIndice As Long) As Long

e tbm

 

Public Sub GerarPDFBoleto(ByVal eIndice As Long)
    Dim retorno As Long
    retorno = Boleto_GerarPDFBoleto(eIndice)
    CheckResult retorno
End Sub

 

[andreinformatica]

Depois de conversar com Daniel, pelo discord, ele me mostrou que havia declarado minha função errada. Utilizando:

Private Declare Function Boleto_GerarPDFBoleto Lib "ACBRBoleto32.dll" (ByVal eIndice As Integer) As Long

Como eIndice As Integer

Quando na verdade deve ser declarada como Long

Private Declare Function Boleto_GerarPDFBoleto Lib "ACBRBoleto32.dll" (ByVal eIndice As Long) As Long

 

[Daniel InfoCotidiano]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.