FernandoBatista

Obrigado!

Boa tarde a todos! Algumas informações que não existe mais na versão 3.0 deixou resíduo na DACTE impressos de maneira incorreta no modelo do Fortes. Os campos que identifiquei foram a "Forma de pagamento" que agora sempre carrega "PAGO" que corresponde a opção 0 (zero) e a "Data prevista de entrega" que sempre carrega "30/12/1899". Por favor me corrijam se não apliquei a melhor solução, ou se estou fazendo algo errado. Para corrigir essas informações apliquei as alterações abaixo: > Forma de pagamento if FCTe.infCTe.versao = 3 then begin if (FCTe.vPrest.vRec > 0) then rllFormaPagamento.Caption := tpforPagToStrText(fpAPagar) else if (FCTe.vPrest.vRec = 0) and (FCTe.vPrest.vTPrest > 0) then rllFormaPagamento.Caption := tpforPagToStrText(fpPago) else rllFormaPagamento.Caption := tpforPagToStrText(fpOutros) end else rllFormaPagamento.Caption := tpforPagToStrText(FCTe.Ide.forPag); > Data prevista de entrega if FCTe.infCTe.versao = 3 then begin if (FCTe.infCTeNorm.infDoc.infNFe.Count > 0) then rllDtPrevEntrega.Caption := FormatDateTime('DD/MM/YYYY', FCTe.infCTeNorm.infDoc.InfNFe[0].dPrev) else if (FCTe.infCTeNorm.infDoc.infNF.Count > 0) then rllDtPrevEntrega.Caption := FormatDateTime('DD/MM/YYYY', FCTe.infCTeNorm.infDoc.InfNF[0].dPrev) else if (FCTe.infCTeNorm.infDoc.infOutros.Count > 0) then rllDtPrevEntrega.Caption := FormatDateTime('DD/MM/YYYY', FCTe.infCTeNorm.infDoc.infOutros[0].dPrev); end else rllDtPrevEntrega.Caption := FormatDateTime('DD/MM/YYYY', dPrev); ACBrCTeDACTeRLRetrato.pas

Bom dia! Vou aplicar as alterações e anexo novamente.

Juliomar, bom dia! Obrigado pelo retorno! Segue em anexo a unit. pcnConversao.pas

Boa tarde a todos, Estou usando o ACBrCTe na versão 3.00, me corrijam se eu estiver enganado, mas observei a seguinte divergência: Segundo o manual: Código pcnConversao: // CST ICMS ******************************************************************** function CSTICMSToStr(const t: TpcnCSTIcms): string; begin // ID -> N02 - Tributada integralmente // ID -> N03 - Tributada e com cobrança do ICMS por substituição tributária // ID -> N04 - Com redução de base de cálculo // ID -> N05 - Isenta ou não tributada e com cobrança do ICMS por substituição tributária // ID -> N06 - Isenta // ID -> N06 - Não tributada // ID -> N06 - Suspensão // ID -> N07 - Diferimento A exigência do preenchimento das informações do ICMS diferido fica à critério de cada UF. // ID -> N08 - ICMS cobrado anteriormente por substituição // ID -> N09 - Com redução de base de cálculo e cobrança do ICMS por substituição tributária // ID -> N10 - ICMS pagto atribuído ao tomador ou ao terceiro previsto na legislação p/ ST // ID -> N10a - Operação interestadual para consumidor final com partilhado ICMS devido na operaçãoentre a UF de origem e a UF do destinatário ou a UF definida na legislação. (Ex. UF daconcessionária de entrega do veículos) (v2.0) // ID -> N10b - Grupo de informação do ICMS ST devido para a UF de destino,nas operações interestaduais de produtos que tiveram retenção antecipada de ICMS por ST na UF do remetente. Repasse via Substituto Tributário. (v2.0) // ID -> N11 - ICMS devido para outras UF // ID -> N12 - Outros result := EnumeradoToStr(t, ['00' , '10' , '20' , '30' , '40' , '41' , '50' , '51' , '60' , '70' , '80' , '81', '90', '10', '90', '41', '90', 'SN', '60'], [cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstPart10 , cstPart90 , cstRep41, cstICMSOutraUF, cstICMSSN, cstRep60]); end; function StrToCSTICMS(out ok: boolean; const s: string): TpcnCSTIcms; begin result := StrToEnumerado(ok, s, ['00', '10', '20', '30', '40', '41', '50', '51', '60', '70', '80', '81', '90', '91', '92'], [cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN]); end; function CSTICMSToStrTagPosText(const t: TpcnCSTIcms): string; begin result := EnumeradoToStr(t, ['00 - TRIBUTAÇÃO NORMAL DO ICMS', '10 - TRIBUTAÇÃO COM COBRANÇA DO ICMS POR SUBST. TRIBUTÁRIA', '20 - TRIBUTAÇÃO COM REDUÇÃO DE BC DO ICMS', '30 - TRIBUTAÇÃO ISENTA E COM COBRANÇA DO ICMS POR SUBST. TRIBUTÁRIA', '40 - ICMS ISENÇÃO', '41 - ICMS NÃO TRIBUTADO', '45 - ICMS ISENTO, NÃO TRIBUTADO OU DIFERIDO', '50 - ICMS SUSPENSÃO', '51 - ICMS DIFERIDO', '60 - ICMS COBRADO ANTERIORMENTE POR SUBSTITUIÇÃO TRIBUTÁRIA', '70 - TRIBUTAÇÃO COM REDUÇÃO DE BC E COBRANÇA DO ICMS POR SUBST. TRIBUTÁRIA', '80 - RESPONSABILIDADE DO RECOLHIMENTO DO ICMS ATRIBUÍDO AO TOMADOR OU 3° POR ST', '81 - ICMS DEVIDO À OUTRA UF', '90 - ICMS OUTROS', '90 - ICMS DEVIDO A UF DE ORIGEM DA PRESTACAO, QUANDO DIFERENTE DA UF DO EMITENTE', 'SN - SIMPLES NACIONAL'], [cst00, cst10, cst20, cst30, cst40, cst41, cst45, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN]); end; O correto não seria?: function StrToCSTICMS(out ok: boolean; const s: string): TpcnCSTIcms; begin result := StrToEnumerado(ok, s, ['00', '10', '20', '30', '40', '41', '50', '51', '60', '70', '80', '81', '90', '91', 'SN'], [cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN]); end;

Peço a gentileza de adicionar a Balança Jundiaí no projeto. ACBrBAL.pas ACBrBALJundiai.pas

Só hoje consegui parar para ler a nota técnica. E esta esclarecida a minha duvida:

Entendi! Eu já utilizo o DistribuiçãoDFe e armazeno tudo que ele retora. Zerei o NSU para ver se em algum momento deixei passa os eventos deste documento e mesmo assim não tive retorno dos eventos. Mas como já faz um bom tempo que eu li a Nota Técnica, vou ler novamente para ver se estou esquecendo de algo.

Destinatário! Segue consulta pelo demo: temp.xml

Prezados, boa tarde. Estou fazendo uma consulta de situação de uma NFe (43160891494765000261550030001280701633682150) através do ACBrNFe passando a chave de acesso, e não esta retornando os eventos que estão vinculados a esta nota. Não sei quando parou de funcionar, mais os eventos retornavam junto a consulta. Mudou algo na Sefaz ou no ACBr? Como posso conseguir esses eventos através do ACBr?

Caro Everson, entendo a sua preocupação, no entanto acredito que os parâmetros de integração com os bancos já estejam bem resolvidos. A unica pendencia realmente era o texto do boleto, onde não tem como chegar na quantidade de dias uteis a partir da data do protesto que é o parâmetro utilizado pelo componente, isso considerando feriado municipais.

Caro Joabe Geraldo, Também me deparei com esse problema, e para corrigir adicionei um campo novo e modifiquei a linha que gera o texto para o boleto: Peço a gentileza ao pessoal do ACBr de adicionar assim que possível a alteração no repositório. Desde já muito obrigado! ACBrBoleto.pas

juaumkiko, Me desculpe, mais não entendi... estou usando o Delphi 2010 => RAVE77VCL onde devo informar? qual arquivo devo alterar? []´s