theiller

Olá, Fiz um ajuste para o arquivo de remessa Bradesco CNAB400 referente as instruções (Protesto/Baixa). Existe uma particularidade em que a "instrução1" refere-se ao código da operação, podendo ser para para (Protesto) ou (Baixa/Devolução), enquanto a "instrução2" refere-se aos dias equivalente ao código passada na "instrução1". O ACBrTitulo possui as propriedades Instrucao1, Instrucao2, DataBaixa e DataProtesto, geralmente a Instrucao1 é destinada ao protesto e a instrução2 destina a baixa/devolução, mas como dito acima no Bradesco CNAB400 não trata exatamente dessa forma. Identifiquei que no fonte existe o tratamento para o protesto inclusive passando um código direto, embora exista mais de um tipo de protesto possível ('06' e '05'), um outro caso é após os possíveis "elses" é utilizado o conteúdo real definido nas instuções 1 e 2 porem como existe um tratamento melhorado para o protesto (Comparando "DataProtesto"), creio que também deveria existir para o caso de baixa/devolução (Comparando "DataBaixa") e utilizar os valores direto das instruções em ultimo caso, pois geralmente tempos em nosso sistemas definições especificas para o código e dias para cada instrução (Protesto/Baixa). Fiz um ajuste para tratar o protesto conforme instrução com "IFF" para tratar o "legado" que já estava sendo passado valor fixo "06". Fiz um ajuste quanto a data baixa conforme condição já existente para o protesto. Segue em anexos: prints, manual, e fonte. Espero que possam avaliar/melhorar/disponibilizar em SVN. Observação: Nesse fonte já consta um outro ajuste realizado e documento em artigo: Bradesco_CNAB_400.pdf ACBrBancoBradesco.pas

Olá, Identifiquei uma falha na remessa Bradesco CNAB400 no registro tipo 2 referente aos campos de descontos. As posições referente aos valores (Data Desconto2, Valor Desconto2, Data Desconto3, Valor Desconto3) requerem dados numéricos, porem está sendo passado o caracteres "espaço em branco" que é considerado alfanumérico. Fiz o ajuste formatando o conteúdo corretamente, embora zerado e não através das propriedades especificas, pois como não faço uso desse recurso e já estava sendo passando um valor nulo, não me preocupei tanto quanto a associação. Também adicionei como comentário as posições especificas na concatenação da string que monta a linha. A análise foi feio através do manual e site de validação de arquivo remessa próprio Bradesco (aba Cobrança): https://banco.bradesco/assets/pessoajuridica/pdf/4008-524-0121-layout-cobranca-versao-portugues.pdf https://banco.bradesco/html/pessoajuridica/solucoes-integradas/outros/layout-de-arquivo.shtm Segue anexos para analise, e atualização do componente! ACBrBancoBradesco.pas

O ajuste está funcional!!!

Tambem passo por essas situações algumas vezes, mas avaliando sei caso comparei seus XML e notei que o fechamento de algumas tags possuem espaco, ex.: "<cEAN />", "<cEANTrib />", "<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />" "<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" />" "<DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />" já a tag "DigestValue" estão idênticos No xml do banco está com o padrao UTF-8 e no outro não, Porem no xml comum tem a informação de autorização <infProt> Você utilizou a mesma aplicação para gerar os dois XML? Segue anexo dos seus XML com algumas quebras de linha identificado os exemplos da comparação. 35160208957311000155550000001983351450305138-nfe.xml 35160208957311000155550000001983351450305138-nfe-banco.xml

Ok, obrigado!

Algum moderador poderia posta as mudanças?

Olá, Hoje 13.02.2015 a Sefaz BA está em modo contingencia SVCRS, e estive com alguns problemas. Após atualizar os fontes e continuar com o problema, identifiquei que a falha ocorre porque ao "DefinirServicoEAction" a BAHIA possui um tratamento diferenciado, porem deve ser apenas quando a "FormaEmissaão" for "teNormal", pois como está trabalhando em contingência não deve utilizar dessa outra URL. Identificado essa situação para os serviços de Status, Consulta e Inutilização. Segue anexo da unit alterada para ajuste em ACBr. ACBrNFeWebServices.pas

Tive problemas com o modelo FastReport, o pessoal do ACBr ainda não fez a correção: http://www.projetoacbr.com.br/forum/topic/16711-nfse-impressão-fr-campo-xitemlistaservico-incompleto/

Citei o caso em outro chamado também ajustei outro caso quando ao numero SVN, e postei o DFM, se puder subir para SVN agradeço.

Outra coisa que observei é sobre um outro campo que esta com o tamanho diferente do necessário é o campo "xItemListaServico" que esta apenas com 100 e existem textos de classificação de serviço que necessitam de muito mais. Esse caso eu tambem havia notificado no link abaixo: http://www.projetoacbr.com.br/forum/topic/16711-nfse-impressão-fr-campo-xitemlistaservico-incompleto/ CÓDIGO DE CLASSIFICAÇÃO DO SERVIÇO:1401 Conteúdo original XML: "Lubrificacao, limpeza, lustracao, revisao, carga e recarga, conserto, restauracao, blindagem, manutencao e conservacao de maquinas, veiculos, aparelhos, equipamentos, motores, elevadores ou de qualquer objeto (exceto pecas e partes empregadas, que ficam sujeitas ao ICMS)." Conteúdo registrado no cds apenas 100 caracteres: "Lubrificacao, limpeza, lustracao, revisao, carga e recarga, conserto, restauracao, blindagem, manute" Favor os ajustar no svn, segue o arquivo dfm com esse ajuste, alem do ajuste citado anteriomente ACBrNFSeDANFSeFRDM.dfm

Olá, Na impressão do DANFSE Modelo FastReport o número do RPS está sendo apresentado cortando o ultimo digito. Na unit "Fontes\ACBrNFSe\ACBrNFSeDANFSeFRDM.dfm" o "cdsIdentificacaoNumero" deve ter tamanho 16 e não 15. O problema ocorre porque o campo "Numero" em cdsIdentificacao->IdentificacaoRps está recebendo o valor formatado pela função "DFeUtil.FormatarNumeroDocumentoFiscalNFSe", que resulta 16 caracteres por conta do caracter ponto "." que é agregado na quinta casa após já ter sido formatado em 15 posições. Ex.: "0000.0000000123"(16) = "0000.000000012"(15) Trecho do arquivo ACBrNFSeDANFSeFRDM.pas with IdentificacaoRps do begin FieldByName('Numero').AsString := DFeUtil.FormatarNumeroDocumentoFiscalNFSe(Numero); Trecho do aquivo alterado ACBrNFSeDANFSeFRDM.dfm object cdsIdentificacaoNumero: TStringField FieldName = 'Numero' Size = 16 end Segue anexo do arquivo dfm alterado. ACBrNFSeDANFSeFRDM.dfm

Olá, fui fazer o processo de homologação da NFCe e o pessoal retornou uma restrição quando ao layout de impressão em que não saiu a hora. Verifiquei que o acbr no esquema do danfe em fast reports esta tratando o campo data e hora corretamente, porem no create do campo dEmi está definido string 10 quando deveria ser string 19 para poder comportar a conversão da hora, feito isso a impressão ocorreu normalmente. Não estou conseguindo abrir um tópico no forum, segue em anexo aquivo de ajuste. ACBrNFeDANFEFRDM.pas ACBrNFeDANFEFRDM.pas

Olá, Estou carregando o XML refrente a uma nota com ISS retido, provedor Saatri, porem estou com problema: O ISS Retido não está sendo apresentado no DANFSe do ACBr porem se acessarmos pelo site o valor consta: https://barreiras.saatri.com.br/Relatorio/VisualizarNotaFiscal?numero=1814&codigoVerificacao=ABIXAKAO-EPAJGJ Segue em anexo: XML com ISS Retido; Danfse do ACBr; Danfse do Provedor Saatri; Print de xml com iss retido; Print de xml sem iss retido; NFSE001814.xml NFE-RPS-SAATRI.pdf NFE-RPS-ACBr.pdf

O pessoal personaliza o arquivo .fr3, então não foi necessário, mas pode ser que o original do ACBr necessite ajuste de espaço para o conteúdo ou de tamanho da fonte!

Confira se esta definido as outras configurações, não somente a inclusão do rps: Conferir (Geral, Certificados,WebServices); ACBrNFSe1.Configuracoes.Geral.PathSchemas := ...; ACBrNFSe1.Configuracoes.Certificados.? := ...; ACBrNFSe1.Configuracoes.WebServices.Ambiente := ...; ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := ...; Conforme provedor, talvez: ACBrNFSe.Configuracoes.WebServices.SetConfigMunicipio;

Olá, Na impressão modelo FR o campo xItemListaServico (CÓDIGO DE CLASSIFICAÇÃO DO SERVIÇO) de cdsServicos está apenas com 100 caracteres, insuficiente para o conteúdo, fazendo com que na impressão fique com a informação quebrada, truncada, pela metade. ex.: 1401 Conteúdo: "Lubrificacao, limpeza, lustracao, revisao, carga e recarga, conserto, restauracao, blindagem, manutencao e conservacao de maquinas, veiculos, aparelhos, equipamentos, motores, elevadores ou de qualquer objeto (exceto pecas e partes empregadas, que ficam sujeitas ao ICMS)." impressão: "Lubrificacao, limpeza, lustracao, revisao, carga e recarga, conserto, restauracao, blindagem, manute" Arquivo alterado: ACBrNFSeDANFSeFRDM.dfm linha: 184 de Size = 100 para Size = 500 Não conseguir anexar o arquivo do tipo dfm

Anexando arquivo... ACBrNFSeDANFSeFRDM.pas

Certo, Obrigado!

Olá, Na impressão da NFSe o campo MunicipioIncidencia esta ficando em branco, percebi que o xml nem contem essa informação. Provedor: WebISS Utiliza: TNFSeW.GerarServicoValores_V1 (Campo não está presente) É alguma questão de provedor? Padrão WebService? ou deve esta faltando mesmo?

Olá, estou com o mesmo problema, para os mesmos provedores, observei que falta resolver a situação em outras units, existe a correção no arquivo ACBrNFSeDANFSeQRClass.pas no evento TfqrDANFSeQRRetrato.qrb_6_ISSQNBeforePrint. Porem utilizo FastReport ao invés do QR, fiz o ajuste em TdmACBrNFSeFR.CarregaServicos e não no before print. Segue codigo do evento com a alteração para analisar a necessidade de ajuste do SVN e validar demais opções de impressões. procedure TdmACBrNFSeFR.CarregaServicos; var i: Integer; dValorNota: Double; begin with cdsServicos do begin Close; CreateDataSet; Append; with FNFSe.Servico do begin FieldByName('ItemListaServico').AsString := ItemListaServico; FieldByName('xItemListaServico').AsString := xItemListaServico; FieldByName('CodigoCnae').AsString := CodigoCnae; FieldByName('CodigoTributacaoMunicipio').AsString := CodigoTributacaoMunicipio; FieldByName('Discriminacao').AsString := StringReplace(Discriminacao, ';', #13, [rfReplaceAll]); FieldByName('CodigoPais').AsString := IntToStr(CodigoPais); FieldByName('NumeroProcesso').AsString := NumeroProcesso; // FieldByName('ResponsavelRetencao').AsString := DFeUtil.SeSenao(ResponsavelRetencao = rtPrestador,'0','1'); FieldByName('Descricao').AsString := Descricao; with Valores do begin FieldByName('ValorServicos').AsFloat := ValorServicos; FieldByName('ValorDeducoes').AsFloat := ValorDeducoes; FieldByName('ValorPis').AsFloat := ValorPis; FieldByName('ValorCofins').AsFloat := ValorCofins; FieldByName('ValorInss').AsFloat := ValorInss; FieldByName('ValorIr').AsFloat := ValorIr; FieldByName('ValorCsll').AsFloat := ValorCsll; // FieldByName('IssRetido').AsString := DFeUtil.SeSenao(IssRetido = stRetencao,'0', DFeUtil.SeSenao(IssRetido = stNormal,'2','3')); FieldByName('ValorIss').AsFloat := ValorIss; FieldByName('OutrasRetencoes').AsFloat := OutrasRetencoes; FieldByName('BaseCalculo').AsFloat := BaseCalculo; FieldByName('Aliquota').AsFloat := Aliquota; //Tratando situação do envio da aliquota ser em decimal (2.5 = 0.025) By Theiller 22/04/2014 //if FProvedor in [proThema, proWebISS] then //Opcao1 Validar pelo provedor if (Aliquota > 0) and (Aliquota < 1) then //Opcao2 FieldByName('Aliquota').AsFloat := Aliquota * 100; FieldByName('ValorLiquidoNfse').AsFloat := ValorLiquidoNfse; FieldByName('ValorIssRetido').AsFloat := ValorIssRetido; FieldByName('DescontoCondicionado').AsFloat := DescontoCondicionado; FieldByName('DescontoIncondicionado').AsFloat := DescontoIncondicionado; end; end; Post; end; end; Fiz o ajuste validando se possui alíquota e menor que 1 para saber se esta em forma decimal, verificar se por Provedor!