Diego A. Folieni

Para polemizar um pouco(ou não?) talvez trazer o Adriano Santos para comentar(e comparar) o Firemonkey com as principais formas de desenvolvimento para Mobile presentes no mercado(FireMokey Vs Flutter Vs Reac Native)?

Me recordo de em edição anterior do Papo Pro o Francisco Thiago ter dito que precisou se afastar da area de TI por um tempo e depois acabou voltando. Acredito que seria interessante ele nos contar um pouco de como foi essa experiência de "alcançar" o mercado novamente.

Timing ruim da minha parte kkkkkk. Atualizei o ACBr nesta quarta-feira(08/06) antes de fazer as minhas alterações. Se eu tivesse esperado um pouco mais kkkk. OK @Italo Giurizzato Junior eu farei como pediu. Muito obrigado!

Adiciono também a ACBrPagForArquivo onde setei para false a property TrailingLineBreak da TStringList ArquivoGerado na function Gravar da classe TRegistro para resolver o erro. Linha 14 - Trailer de Arquivo. Caracteres, espaços ou mais de uma linha após Trailer. apontado pelo validador do Bradesco. ACBrPagForArquivo.pas

Boa tarde. Peço desculpas pela demora na resposta, mas pode encerrar o tópico, por favor.

Prezados, bom dia. Utilizando o validador de arquivos do site do Bradesco para o serviço de Pagamento a Fornecedores disponível neste link https://banco.bradesco/html/pessoajuridica/solucoes-integradas/outros/layout-de-arquivo.shtm Realizei as seguintes alterações em Units do ACBrPagFor. ACBrPagForGravarTXT.pas Alterei a procedure GeraRegistro1 para que quando o banco seja o Bradesco e o lote correspondente for de segmentos O preencha o Layout do Lote como 012. Modifiquei a procedure GeraRegistro1 para que quando o banco seja o Bradesco e o lote correspondente for de segmentos O preencha o indicativo de forma de pagamento (P014 no manual) como 01. Modifiquei o case da procedure GeraSegmentoO para que quando o banco for Bradesco gere o Segmento conforme é para o Santander, Sicredi e Safra, colocando 20 posições para o Nosso Número(conforme é no manual) ao invés de 19. ACBrPagForLerTXT.pas Adicionei um no Case da procedure LerSegmentoO uma opção específica para o Bradesco. ACBrPagForConversao.pas Alterei na procedure BancoToDesc para que o resultado quando Bradesco seja BANCO BRADESCO S.A; Adicionei uma procedure DescricaoRetornoBancoBradesco. As coloco a disposição da comunidade para validação e possível inclusão. ACBrPagForConversao.pas ACBrPagForGravarTxt.pas ACBrPagForLerTxt.pas

O problema de não gerar o Trailer de Lote quando Segmento O foi resolvido. O validador (https://banco.bradesco/html/pessoajuridica/solucoes-integradas/outros/layout-de-arquivo.shtm)ainda apontou alguns(poucos e dos quais alguns nem fazer sentido ao meu ver) problemas, mas isso acredito que seja assunto para outro tópico. Muito obrigado, pode fechar esse aqui, por favor.

Não está compilando @Italo Giurizzato Junior, não esta encontrando a Unit ACBrPagForInterface na Unit ACBrPagForArquivo.pas Linha do log n a instalação. "..\ACBr\Fontes\ACBrPagFor\ACBrPagForArquivo.pas(103) Fatal: F2613 Unit 'ACBrPagForInterface' not found." ACBr foi atualizado hoje ainda a pouco.

Boa tarde! Estou adicionando em nosso sistema opção para que usando o ACBrPagFor gere arquivos com registros para o serviço de Pagamento de Tributos com Código de Barras. Mas me deparei com um problema! Para o banco do Bradesco a procedure GeraRegistro5 da Unit ACBrPagForGravarTxt tem uma condição quando o Banco é Bradesco para que só gere o Trailer de Lote se a forma de lançamento do Header do Lote for algumas específicas. pagBradesco: begin wregistro := wregistro + FormatFloat('000000', FQtdeRegistrosLote); if (FPagFor.Lote.Items[I].Registro1.Servico.FormaLancamento in [flLiquidacaoTitulosProprioBanco, flLiquidacaoTitulosOutrosBancos, flDocTed, flPIXTransferencia, flPIXQRCode,flCreditoContaCorrente])then begin wregistro := wregistro + FormatFloat('000000000000000000', FPagFor.Lote.Items[I].Registro5.Valor * 100); wregistro := wregistro + FormatFloat('000000000000000000', FPagFor.Lote.Items[I].Registro5.QtdeMoeda * 100000); // 5 casas decimais wregistro := wregistro + '000000'; wregistro := wregistro + Space(165); wregistro := wregistro + Space(10); end; end; A forma de lancamento para o Pagamento de Tributos com Código de Barras nos manuais que estou usando é 11, que para o ACBr traduz como flPagamentoContas. Logo a condição não é atendida, o Trailer do Lote não é gerado por completo e da erro na geração do arquivo. Existe alguma razão para ter essa condição delimitando quais os serviços? O Segmento correspondente para esse serviço é o Segmento O e o mesmo consta no manual. Não consigo anexar os manuais em PDF pois ambos excedem 2MB, mas os consegui nos seguintes links * Manual Bradesco https://banco.bradesco/assets/pessoajuridica/pdf/jun-19-layout-multipag.pdf * Manual Febraban https://cmsarquivos.febraban.org.br/Arquivos/documentos/PDF/Layout padrao CNAB240 V 10 09 - 14_10_21.pdf

Bom dia a todos. Precisei utilizar a classe TDeclaracaoImportacao(e derivados) para importar uma DI. Tenho em mãos o XML da DI e o Impresso do Extrato da DI correspondente. Na impressão as informações relacionadas a carga estão conforme o print. Quanto importo atualmente os resultados ficam assim: cargaPesoBruto|Valor Lido (FloatToStr): 11705300 cargaPesoLiquido|Valor Lido (FloatToStr): 9876300 quantidadeVolumes|Valor Lido (FloattoStr): 36,58 cargaPesoBruto|Valor Lido FormatFloat(#,###,##0.00000): 11.705.300,00000 cargaPesoLiquido|Valor Lido FormatFloat(#,###,##0.00000): 9.876.300,00000 quantidadeVolumes|Valor Lido FormatFloat(###0): 37 Fiz algumas pequenas alterações para que eles fiquem assim depois de importar: cargaPesoBruto|Valor Lido (FloatToStr): 11705,3 cargaPesoLiquido|Valor Lido (FloatToStr): 9876,3 quantidadeVolumes|Valor Lido (FloattoStr): 3658 cargaPesoBruto|Valor Lido FormatFloat(#,###,##0.00000): 11.705,30000 cargaPesoLiquido|Valor Lido FormatFloat(#,###,##0.00000): 9.876,30000 quantidadeVolumes|Valor Lido FormatFloat(###0): 3658 pcnDIR.pas

Bom dia a todos. Precisei fazer algumas poucas alterações no ACBrPagFor para o arquivo que é gerado para o Bradesco(Foi muito pouca coisa mesmo). Utilizando este Link aqui para validar o arquivo (https://banco.bradesco/html/pessoajuridica/solucoes-integradas/outros/layout-de-arquivo.shtm) me foram apontados alguns erros. O primeiro deles é que o nome do Banco deveria ser me maíusculo e ser BANCO BRADESCO S.A. Então alterei na BancoToDesc da ACbrPagForConversao.pas; O outro informava que o dígito verificador da conta corrente era inválido. Utilizei este site(https://www.4devs.com.br/validador_conta_bancaria) para validar e o mesmo apontou que a conta era válida. Debugando vi que nas funções GeraRegistro0 e GeraRegistro1 a parte de informações da conta corrente estava caindo no else do case e por isso estava colocando a informação do Tipo de Conta, informação essa que não consta no Layout do Bradesco.(https://banco.bradesco/assets/pessoajuridica/pdf/jun-19-layout-multipag.pdf). Então adicionei uma opção para o Bradesco no case de ambos. Por fim estava apontando que tinha uma linha a mais depois do fim do arquivo. Alterei a procedure Gravar da classe TRegistro na ACBrPagForArquivo .pas Em anexo as Units. ACBrPagForArquivo.pas ACBrPagForConversao.pas ACBrPagForGravarTxt.pas

Tenta ACBrNFSeX.WebService.ConsultaLoteRps.XmlRetorno.

Maravilha, muito obrigado! Precisei fazer também uma pequena alteração na ACBrNFSeXProviderABRASFv2.pas pois ao fazer a substituição, mesmo que efetuada com sucesso não estava achando a Tag NfseSubstituidora que vinha na resposta. Vendo o código da TratarRetornoSubstituiNFSe vi que para a Tag NfseSubstituida era procurada nos elementos filhos de RetSubstituicao, enquanto que a NFSeSubstituidora era procura nos elementos de um nível acima. Grato, Diego F.

No caminho \ACBr\Exemplos\ACBrDFe\Schemas\NFSe você encontra os Schemas dos provedores

Bom dia. Precisei fazer uma pequena alteração na ACBrLerXml_ABRASFv2, pois mesmo recebendo no arquivo soap de retorno as informações de Cancelamento e Substituição o componente não estava fazendo a leitura de ambas as informações. ACBrNFSeXLerXml_ABRASFv2.pas