Ir para conteúdo
  • Cadastre-se

tborges

Membros Pro
  • Total de ítens

    47
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que tborges postou

  1. 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á.
  2. 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"
  3. 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"
  4. 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.
  5. Isso é para o logo do Banco certo? estou falando do logotipo da empresa
  6. 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?
  7. 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
  8. 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?
  9. 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?
  10. 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.
  11. @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
  12. Muitíssimo obrigado por apontar um descuido meu. Tudo funcionando, pode encerrar este post. Tenha um bom dia.
  13. Junior bom dia. AGENFe.Configuracao(ACNFe, dtEmpresa.Rows(0), dhEmi, CInt(Controls("NFeAmbiente").Text)) Dim FNFe As String = IO.File.ReadAllText("C:\Temp\NFe.xml") ACNFe.CarregarXML(FNFe) ACNFe.Assinar() ACNFe.Validar() ACNFe.Imprimir() Este código nada acontece, passa 'batido' por todas as linhas e nada ocorre. Em anexo o xml carregado. NFe.xml
  14. Ok...Na 2ª eu carrego xmls válidos e inválidos para analisar o comportamento e reporto o ocorrido. Bom final de semana...
  15. O que esta dizendo é que jamais poderei usar um código como o abaixo.(Pegar um xml do em algum lugar e carregar na Lib) Isso mesmo? tenho que tomar o caminho de NFE_CarregarXML(), apesar de os exemplos nas Demos estarem .CarregarXML(str)! Desculpe pela falta de conhecimento sobre os dois métodos, mas preciso saber alguns 'porques', para que eu possa montar um Classe de Negócio sobre a ACBrLIB com a maior performance possível. E .CarregarXML(stringxml) seria uma 'baita' mão na roda, em um sufoco no Cliente, poderia editar o XML, carrega-lo e enviar a SEFAZ. Grato pela atenção, e código abaixo jamais? Dim ACNFe As New ACBrNFe ACNFe.Config(.......) Dim StrIni As String = IO.File.ReadAllText("C:\Temp\NFe.xml") ACNFe.CarregarXML(StrIni)
  16. tborges

    Tributo ICMS

    Junior quanto a dll corrigida, agora esta gerando correto a section ICMS, parabéns e vlw. [rastro001001] qLote=0 dFab=01/01/0001 dVal=01/01/0001 [ICMS001] orig=0 CSOSN=201 modBCST=4 pMVAST=33,3300 vBCST=287,99 pICMSST=18,0000 vICMSST=12,96 pCredSN=0,0000 vCredICMSSN=0,00
  17. Junior aproveitando olhe este outro problema. Se antes disso você carregar um ini como abaixo, ai ele permite carregar o xml, mas no meu caso eu preciso é que carregue o xml. Dim StrIni As String = IO.File.ReadAllText("C:\Temp\1302.txt") ACNFe.CarregarINI(StrIni) Dim X As String = ACNFe.ObterIni(0) NFe.xml
  18. OK, vamos testar pela manhã e lhe dou um feedback. Obrigado.
  19. tborges

    Geração de Tributo ICMS

    Estou obtendo a seguinte validação de regra de negócio de uma NFe. se eu continuar e mandar validar obtenho mais esta mensagem. o String Ini da Classe gerada é este...local onde obtive o string ' ACNFe.CarregarNota(ACNotaFiscal)' [Produto001] cProd=025 cEAN=17898955143022 cEANTrib=17898955143022 xProd=Achocolatado EstraFoods Pacote 200 Gr NCM=18069000 CEST=1700600 CFOP=5.401 uCom=PCT qCom=400,000000 vUnCom=0,540000 vProd=216,00 uTrib=PCT qTrib=400,000000 vUnTrib=0,540000 vFrete=0,000000 vSeg=0,000000 vDesc=0 indTot=1 nItemPed=1 pDevol=0 vIPIDevol=0 vTotTrib=12,96 indEscala=S [rastro001001] qLote=0 dFab=01/01/0001 dVal=01/01/0001 [ICMS002] orig=0 CSOSN=201 modBCST=4 pMVAST=33,3300 vBCST=287,99 pICMSST=18,0000 vICMSST=12,96 pCredSN=0,0000 vCredICMSSN=0,00 [Total] vBC=0 vICMS=0 vICMSDeson=0 vBCST=287,99 vST=12,96 vProd=216,000000 vFrete=0,000000 vSeg=0,000000 vDesc=0,000000 vII=0 vPIS=0 vCOFINS=0 vOutro=0,000000 vNF=228,960000 vFCP=0,00 vFCPST=0,00 vFCPSTRet=0 vIPI=0 vTotTrib=12,96 vIPIDevol=0 O Codigo que gerou a Classe ACNotaFiscal = New ACBrLib.NFe.NotaFiscal é este Se observarem a Section [ICMS002] é a unica incorreta, se eu editar a string para [ICMS001] gravar um arquivo texto, chamar via CarregarINI, não ocorre nenhuma mensagem. Minha pergunta é : No codigo acima esta faltando alguma linha para definir que a Sections que foi gerada é '001' ou o Metodo da Classe esta contanto o [ICMS] incorretamente?
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...