tborges

Ok, não devo ter me atentado a isso, como iniciei essa conversa lá no discord acabou passando batido já que já tinha explicado tudo lá.

Bom dia, Alexandre. Nós utilizamos a acbrlib em VB.Net, não usamos Delphi. Tentamos de todas as formas utilizar um PNG da transparente e não conseguimos. Nossa solução (com um custo alto), foi salvar a imagem que esta no banco de dados em uma pasta temporaria com o fundo branco e ai passar essa imagem para a lib Call Financeira.Bancos.InitACBoleto(dtConta.Rows(0), ACBoleto) If ACBoleto Is Nothing Then Exit Sub If Not File.Exists(Application.StartupPath.ToString() + $"\\Temp\\Logo{DBNumber(FGrade.SelectedRows(0).Cells("PVendaNr").FormattedValue)}.JPG") Then Using cmd As New SqlCommand($"Select Logotipo from PVenda where PVendaNr={DBNumber(FGrade.SelectedRows(0).Cells("PVendaNr").FormattedValue)}", Global.ETL.Global.SQLConnect) Using reader As SqlDataReader = cmd.ExecuteReader() While reader.Read If Not reader("LogoTipo").ToString = "" Then Dim bytes = CType(reader("LogoTipo"), Byte()) Using ms As New MemoryStream(bytes) Dim originalImage As Image = Image.FromStream(ms) Dim newImage As New Bitmap(originalImage.Width, originalImage.Height) Using g As Graphics = Graphics.FromImage(newImage) g.Clear(Color.White) ' Preencher o fundo com branco g.DrawImage(originalImage, 0, 0, originalImage.Width, originalImage.Height) End Using Dim jpgEncoder As Imaging.ImageCodecInfo = Imaging.ImageCodecInfo.GetImageDecoders().FirstOrDefault(Function(codec) codec.FormatID = Imaging.ImageFormat.Jpeg.Guid) Dim encoderParameters As New Imaging.EncoderParameters(1) encoderParameters.Param(0) = New Imaging.EncoderParameter(Imaging.Encoder.Quality, 75L) Dim filePath As String = Application.StartupPath.ToString() & "\\Temp\\Logo" & FGrade.SelectedRows(0).Cells("PVendaNr").Value & ".JPG" newImage.Save(filePath, jpgEncoder, encoderParameters) End Using ' Dim I As Image = CType(((New ImageConverter()).ConvertFrom(bytes)), Bitmap) ' I.Save(Application.StartupPath.ToString() + "\\Temp\\Logo" & FGrade.SelectedRows(0).Cells("PVendaNr").Value & ".JPG", Imaging.ImageFormat.Jpeg) End If End While End Using End Using End If ACBoleto.Config.Impressao.DirLogo = Application.StartupPath.ToString() + "\Recursos\Boletos"

Utilizamos a dll acbrNfe, eu gostaria de editar a propriedade detMedicamentos como diz no manual, não usamos o .Ini para setar as propriedade, usamos tudo como [MEMORY] O Manual diz o seguinte: Define quais campos das informações do medicamento devem ser exibidas. Valores possíveis: dm_nLote, dm_qLote, dm_dFab, dm_dVal, dm_vPMC os valores deverá ser informado dentro de colchetes e separados por virgula. Ex.: [dm_nLote,dm_qLote,dm_dFab,dm_dVal] Apesar de preencher a propriedade conforme orientado no Discord, continua imprimindo todas as tags no DANFE: ACBrNFe.Config.DANFe.NFe.DetMedicamentos = DetMedicamentos.dm_nLote | DetMedicamentos.dm_dFab; Conforme Orientado pelo Diego Folieni, estou abrindo esse tópico para analise do problema, quando não utilizado o .ini para setar as propriedades Diego: "Fiz um teste aqui utilizando com a ACBrLib.ini e de fato, mesmo passando mais de uma opção, ele só ficou com um valor no arquivo ACBrLib.ini; Será necessário uma análise mais aprofundada do caso, realizando debug"

Nós podemos customizar esses modelos que utilizamos com o fast report? caso sim, poderia me dar uma orientação? nos arquivos de exemplo não há nada sobre isso.

Isso é para o logo do Banco certo? estou falando do logotipo da empresa

Julio, não localizei uma forma de informar diretamente a imagem via componente e nem uma forma do png não estar com fundo preto. Em conversa com o Daniel, ele disse que isso ainda esta em analise. Se já existe, poderia me ajudar como fazer?

Aproveitando o tópico, seria possivel criar uma propriedade do tipo Image no boleto, para que ao invés de eu informar o caminho de um arquivo salvo na pasta local, já possa passar diretamente o valor Byte salvo no banco de dados? Hoje nosso sistema armazena a logo direto no banco de dados e preciso salvar essa imagem em uma pasta temp antes de emitir um boleto para preencher a propriedade ArquivoLogoEmp

Ao tentar imprimir um boleto, onde a logo é uma imagem .png com fundo transparante, o componente esta imprimindo ela com fundo preto. Conforme orientado via discord, poderiam analisar esse ceário e verificar a possibilidade de ser impresso normalmente?

Boa tarde, Julio. O problema do OrientcaoBanco quando utilizado com memory permanece. Eu atualizei todas as dlls ontem pela manha, no entanto, apesr de baixar o arquivo zip ACBrLibBoleto-1.2.1.309, dentro dele, na pasta bin\Cdecl a dll ACBrBoleto32.ddl (que utilizamos), esta na versão 1.2.1.308 conforme imagem anexada. Poderia checar por favor?

Seguem as imagens novamente. Não, as informações no post não resultam nenhuma solução. Principalmente pelo fato de só ocorrer quando declaramos da seguinte forma: Public ACBoleto As New ACBrLib.Boleto.ACBrBoleto("[Memory]") e precisamos que se mantenha assim para não gerar o arquivo .ini, nós populamos os dados via classe.

@Daniel InfoCotidiano estou tendo o mesmo problema com relação ao campo OrientacaoBanco. O erro só ocorre se declaramos a lib usando [Memory]: Public ACBoleto As New ACBrLib.Boleto.ACBrBoleto("[Memory]") a imagem mostra com e sem, sem ‘Memory’ OrientacaoBanco inicializa normal. Se eu removo o Memory, o componente gera o arquivo .ini, o que não queremos que ocorra. @Daniel InfoCotidiano já testamos não informar o campo OrientacaoBanco, mas o erro segue o mesmo

Sim, mas a NF-e não existe. Conforme exemplo, imagine que você tem um romaneio de carga com 50 Pedidos de Venda, ao mandar faturar, é gerado um lote e enviados todos juntos para a SEFAZ, que responde o lote inteiro. Nós checamos a resposta de cada um dos pedidos e fazemos as atualizações necessárias dentro do nosso ERP, no entanto, a lista populada na lb da acbr ainda constam os 50 pedidos. Imagine que 5 desses pedidos foram rejeitados. Ao mandar imprimir, o componente da ACBR gera 50 DANFES. O usuário imprime e despacha a carga, já tentou fazer um usuário prestar atenção nas informações detalhadas? Ou seja, o sistema o esta induzindo ao erro, o correto seria imprimir DANFE apenas das 45 NF-es autorizadas. O componente já tem uma propriedade que define que somente xmls de notas autorizadas sejam salvos, o mesmo deveria valer para todo o processo. Vamos além, ao mandar enviar os DANFEs+XMLs por e-mail, é enviado tudo que esta dentro da lista. Porque eu enviaria a um cliente um DANFE rejeitado? então deveria ser enviado apenas o que esta efetivamente autorizado. Hoje estamos limpando a lista do componente e repopulando apenas com as NF-es aprovadas, mas veja que isso tem um custo computacional desnecessário uma vez que bastaria ter um filtro na lista que foi utilizada para enviar as notas para a SEFAZ.

Boa tarde, Pessoal. Poderiam me ajudar com uma dúvida em relação a impressão dos DANFEs? Quando que eu mando enviar as NF-es para a SEFAZ, faço isso em lotes e dento desse lote podem ter várias notas, imaginemos que tenho 10 notas enviadas para a SEFAZ. No meu código faço o seguinte: Resposta = ACNFe.Enviar(CInt(Lote), False, False, True) Depois disso, pego a resposta e populo o status de cada uma das NF-es que estavam dentro do lote, algumas podem estar rejeitadas, então digamos que das 10 NFs envidas, 3 a SEFAZ rejeitou, mas elas já estão na lista do componente. Quando mando imprimir os danfes com o código abaixo, acabam sendo gerados 10 DANFES, inclusive das NFes que foram rejeitados. Existe uma propriedade que eu diga para não imprimir as NFs rejeitadas ou uma forma q excluir agumas NFs da lista do componente? Isso causa problema pq o usuario acha q a nf-e esta ok pq gerou danfe (Eles não leem q esta rejeitado) If Not ACNFe Is Nothing Then ACNFe.Config.DANFe.TipoDANFE = dgr.Cells("ImpressaoDANFE").FormattedValue ACNFe.Imprimir("", 1, "", True) Else MsgBox("Não existe nenhum documento para ser Impresso.", vbInformation, "Faturamento") End If

@Daniel InfoCotidiano só para te deixar sem nenhuma resposta, estamos com uma prioridade aqui na frente, tento atualizar e te dar uma resposta final até o final do dia. Obrigado.

enviado