tborges

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

O mesmo ocorre na geração do CNAB, apesar de existirem 5 boletos, o cnab é gerado apenas com 1

@Daniel InfoCotidiano eu gero o array de forma dinamica. Olhe esse trecho de código Dim Titulo As ACBrLib.Boleto.Titulo Dim Titulos As New List(Of ACBrLib.Boleto.Titulo) For Each dr As DataRow In DTTitulo.Rows boTF = dr("Titulo.NossoNumero") > 0 And dr("A.BancoNr") = drConta("Banco.Numero") 'True - mantém mesmo número do boleto If Not boTF Then nNossoNumero += 1 dr("Titulo.NossoNumero") = nNossoNumero End If 'aqui prepara valores de colunas e passar corrreto para a function abaixo If dr.Table.Columns("Mensagem") IsNot Nothing Then dr("Mensagem") = RemoveAcentos(dr("Mensagem").ToString) Else dr("Titulo.Mensagem") = RemoveAcentos(dr("Titulo.Mensagem").ToString) End If Titulo = New ACBrLib.Boleto.Titulo Call DataRowObject(dr, Titulo, "Titulo.", True) Call DataRowObject(dr, Titulo.Sacado, "Sacado.", True) Call DataRowObject(dr, Titulo.Sacado.Avalista, "Sacado.Avalista.", True) Titulos.Add(Titulo) Se você olhar o código fonte do ACBRLib.Boleto vera que ele seta index = 0, por isso meu array fica sempre [Titulo] namespace ACBrLib.Boleto { public sealed class Titulo { [IniIgnore] public int Index { get; internal set; } = 0; O que eu fiz, editei o código e compilei uma nova dll com public int Index { get; set; } dentro do meu for, eu contei titulo.index, então agora chega um array da forma como você pediu (mas só depois que eu mexi no código fonte de vocês) No entanto, apesar de agora ele passar no ACBoleto.IncluirTitulos(Titulos.ToArray) e como você pode ver na imagem acima, tem 5 boletos dentro do array, quando chamo ACBoleto.Imprimir(), ele imprime apenas 1 boleto (o primeiro item do array) Repito, todo esse código funciona há 3 anos, ele só deu problema agora que atualizei a dll de vocês visando tentar resolver um erro no arquivo retorno do C6 bank, se não tivesse erro na versão 0.2.0.156, eu nem estaria perdendo tempo tentando refazer o que já esta rodando. Alguma coisa foi alterada nesse sentido? Apenas mais um detalhe, mesmo index sendo = 0 como estava antes, IncluirTitulos deveria estar contando eles e o erro de item com a mesma chave não deveria ocorrer public void IncluirTitulos(params Titulo[] titulos) { ACBrIniFile aCBrIniFile = new ACBrIniFile(); for (int i = 0; i < titulos.Length; i++) { titulos[i].WriteToIni(aCBrIniFile); titulos[i].Index = i++; } IncluirTitulos(aCBrIniFile.ToString()); }

Olá, bom dia. Estou com a versão 0.2.0.267 e nela da esse erro descrito, anteriormente eu estava com a versão 0.2.0.156 e nela o erro não ocorre, se eu voltar ela, tudo funciona normalmente. Eu gero os boletos usando as classes titulos, monto um array com todos os boletos que o usuário deseja imprimir e chamo IncluirTitulos passando esse array: ACBoleto.LimparLista() ACBoleto.IncluirTitulos(Titulos.ToArray) ACBoleto.Imprimir() O problema ocorre com qualquer banco. Abaixo um exemplo de 3 titulos dentro do array que estou passando para IncluirTitulos, se eu voltar a versão 0.2.0.156 isso funciona normal: {[Titulo] Aceite=1 TipoDiasProtesto=1 TipoDiasNegativacao=0 TipoImpressao=1 TipoDesconto=0 TipoDesconto2=0 CarteiraEnvio=0 MultaValorFixo=0 LocalPagamento=PAGÁVEL EM QUALQUER AGÊNCIA BANCÁRIA MESMO APÓS O VENCIMENTO Vencimento=31/01/2023 DataDocumento=20/12/2023 DataProcessamento=20/12/2023 DataMoraJuros=01/02/2023 DataMulta=01/02/2023 DiasDeProtesto=0 CodigoNegativacao=3 DiasDeNegativacao=0 DataBaixa=15/02/2023 DataLimitePagto=15/02/2023 NumeroDocumento=2023-56511/1 Especie=RC Carteira=RG NossoNumero=6 ValorDocumento=6951 EspecieMod=R$ Parcela=1 TotalParcelas=0 ValorAbatimento=0,00 ValorDesconto=0 ValorMoraJuros=20,853 ValorIOF=0,00 ValorOutrasDespesas=0,00 SeuNumero=1082 PercentualMulta=2 CodigoMora=1 CodigoMoraJuros=0 ArquivoLogoEmp=C:\Projetos\AGE\01. Dev\bin\x86\Debug\Temp\logo1.PNG Verso=0 OcorrenciaOriginal.TipoOcorrencia=0 Sacado.Pessoa=1 Sacado.NomeSacado=ESTRA PRODUTOS ALIMENTÍCIOS LTDA [email protected] Sacado.CNPJCPF=82957335150134 Sacado.Logradouro=RUA ARISTÍDES DE OLIVEIRA PATRÍCIO Sacado.Numero=34 Sacado.Bairro=JARDIM ANA EMILIA Sacado.Cidade=TAUBATE Sacado.UF=SP Sacado.CEP=12070-230 Sacado.SacadoAvalista.Pessoa=0 Sacado.SacadoAvalista.CNPJCPF=00000000000000 Mensagem= } {[Titulo] Aceite=1 TipoDiasProtesto=1 TipoDiasNegativacao=0 TipoImpressao=1 TipoDesconto=0 TipoDesconto2=0 CarteiraEnvio=0 MultaValorFixo=1 LocalPagamento=PAGÁVEL EM QUALQUER AGÊNCIA BANCÁRIA MESMO APÓS O VENCIMENTO Vencimento=31/01/2023 DataDocumento=20/12/2023 DataProcessamento=20/12/2023 DataMoraJuros=01/02/2023 DataMulta=01/02/2023 DiasDeProtesto=0 CodigoNegativacao=3 DiasDeNegativacao=0 DataBaixa=15/02/2023 DataLimitePagto=15/02/2023 NumeroDocumento=2023-5515/1 Especie=RC Carteira=RG NossoNumero=7 ValorDocumento=500 EspecieMod=R$ Parcela=1 TotalParcelas=0 ValorAbatimento=0,00 ValorDesconto=0 ValorMoraJuros=1,5 ValorIOF=0,00 ValorOutrasDespesas=0,00 SeuNumero=1078 PercentualMulta=2 CodigoMora=1 CodigoMoraJuros=0 ArquivoLogoEmp=C:\Projetos\AGE\01. Dev\bin\x86\Debug\Temp\logo1.PNG Verso=0 OcorrenciaOriginal.TipoOcorrencia=0 Sacado.Pessoa=1 Sacado.NomeSacado=ESTRA PRODUTOS ALIMENTÍCIOS LTDA [email protected] Sacado.CNPJCPF=82957335150134 Sacado.Logradouro=RUA ARISTÍDES DE OLIVEIRA PATRÍCIO Sacado.Numero=34 Sacado.Bairro=JARDIM ANA EMILIA Sacado.Cidade=TAUBATE Sacado.UF=SP Sacado.CEP=12070-230 Sacado.SacadoAvalista.Pessoa=0 Sacado.SacadoAvalista.CNPJCPF=00000000000000 Mensagem= } {[Titulo] Aceite=1 TipoDiasProtesto=1 TipoDiasNegativacao=0 TipoImpressao=1 TipoDesconto=0 TipoDesconto2=0 CarteiraEnvio=0 MultaValorFixo=1 LocalPagamento=PAGÁVEL EM QUALQUER AGÊNCIA BANCÁRIA MESMO APÓS O VENCIMENTO Vencimento=31/01/2023 DataDocumento=20/12/2023 DataProcessamento=20/12/2023 DataMoraJuros=01/02/2023 DataMulta=01/02/2023 DiasDeProtesto=0 CodigoNegativacao=3 DiasDeNegativacao=0 DataBaixa=15/02/2023 DataLimitePagto=15/02/2023 NumeroDocumento=2023-505450/1 Especie=RC Carteira=RG NossoNumero=8 ValorDocumento=600 EspecieMod=R$ Parcela=1 TotalParcelas=0 ValorAbatimento=0,00 ValorDesconto=0 ValorMoraJuros=1,8 ValorIOF=0,00 ValorOutrasDespesas=0,00 SeuNumero=1075 PercentualMulta=2 CodigoMora=1 CodigoMoraJuros=0 ArquivoLogoEmp=C:\Projetos\AGE\01. Dev\bin\x86\Debug\Temp\logo1.PNG Verso=0 OcorrenciaOriginal.TipoOcorrencia=0 Sacado.Pessoa=1 Sacado.NomeSacado=ESTRA PRODUTOS ALIMENTÍCIOS LTDA [email protected] Sacado.CNPJCPF=82957335150134 Sacado.Logradouro=RUA ARISTÍDES DE OLIVEIRA PATRÍCIO Sacado.Numero=34 Sacado.Bairro=JARDIM ANA EMILIA Sacado.Cidade=TAUBATE Sacado.UF=SP Sacado.CEP=12070-230 Sacado.SacadoAvalista.Pessoa=0 Sacado.SacadoAvalista.CNPJCPF=00000000000000 Mensagem= }

boa noite pessoal, eu uso o acbrlib boleto já algum tempo e td esta rodando normal...Fui atualizar as dlls e não consigo mais gerar mais de um boleto junto. ele me retorna a msg "Já foi adicionado um item com a mesma chave." qnd chamo IncluirTitulos ACBoleto.LimparLista() CBoleto.IncluirTitulos(Titulos.ToArray) CBoleto.Imprimir() alguém tem ideia do que pode ser? se eu não atualizar a dll td funciona normalmente td esta preenchido corretamente, nenhum SeNumero, NossoNumero ou NumeroDocumento se repete

Muitíssimo obrigado por apontar um descuido meu. Tudo funcionando, pode encerrar este post. Tenha um bom dia.

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

Ok...Na 2ª eu carrego xmls válidos e inválidos para analisar o comportamento e reporto o ocorrido. Bom final de semana...

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)

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

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

OK, vamos testar pela manhã e lhe dou um feedback. Obrigado.

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?