ddsilva Postado 28 Fevereiro Compartilhar Postado 28 Fevereiro Olá, O campo IND_EMIT do Registro D700 está ficando com o valor incorreto. Pois estamos passando fixamento o valor para ser "1: Terceiros", conforme linha abaixo: IND_EMIT := edTerceiros; Porém o arquivo gerado está ficando com o valor 2 Percebemos que isso ocorre devido a utlização da função IndEmitToStr no arquivo \Fontes\ACBrTXT\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBloco_D_Class.pas na linha 2053, ficando da seguinte forma: LFill(IndEmitToStr(wRegD700.IND_EMIT), 0) Mas a função sempre acrescenta + 1 no valor: function IndEmitToStr(AValue: TACBrIndEmit): string; begin Result := IntToStr( Integer( AValue ) + 1 ); end; Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Renato Rubinho Postado 1 Março Consultores Compartilhar Postado 1 Março Bom dia Tem algum sugestão de correção? Anexe o fonte para análise. Link para o comentário Compartilhar em outros sites More sharing options...
Joao Pedro Pereira Postado 1 Março Compartilhar Postado 1 Março Boa tarde. Acredito que simplesmente parar de utilizar a função já resolva o problema ACBrEFDBloco_D_Class.pas Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Renato Rubinho Postado 1 Março Consultores Compartilhar Postado 1 Março Boa tarde, Obrigado pela contribuição. Criada TK-5159 para análise. Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Solution EMBarbosa Postado 14 Março Consultores Solution Compartilhar Postado 14 Março Em 01/03/2024 at 13:51, Joao Pedro Pereira disse: Boa tarde. Acredito que simplesmente parar de utilizar a função já resolva o problema ACBrEFDBloco_D_Class.pas Muito obrigado pela contribuição. Mas achamos melhor corrigir a função. Pelo visto, ela não era usada no código do ACBr em outros lugares e estava incorreta já faz um tempo. @ddsilva, Subi as alterações para o SVN na Revisão 32926. Pelo que vi está tudo certo. Pedimos a todos o favor de atualizar, testar e reportar qualquer problema. Mais uma vez obrigado a todos pelo relato e sugestões de correção. 1 []'s Elton Profissionalize o ACBr na sua empresa, conheça o ACBr Pro. (15) 2105-0750 (15)99790-2976. Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas. Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh. Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora