Pesquisar na Comunidade

Bom dia Pessoal, já vi dois tópicos a respeito deste problema, mas eu não consegui solucionar ele ainda. Já fiz a atualização de todo o trunk2, já refiz a instalação, pelo ACBrInstal marcando a tag 'Remover Arquivos Antigos', mas o problema ainda continua. O Wenderli postou que fez o seguinte : " -Desinstalei e exclui tudo relacionado ao delphi -Instalei novamente -É importante instalar o FastReport e o FortesReport antes do ACBR " Ele quis dizer que desinstalou o delphi por completo e refez a instalação do Delphi ??? Estou usando Delphi Rio Grato pela atenção.

Boa tarde a todos Seguindo alguns tópicos que encontrei no fórum, fiz um resumo da conversão que fiz para quem estiver migrando para o trunk 2, espero que possa ajudar alguém: CTe ** CTe * Valida De: ACBrCTe1.Conhecimentos.Valida; Para: ACBrCTe1.Conhecimentos.Validar; * Configuracoes.Geral.PathSalvar De: ACBrCTe1.Configuracoes.Geral.PathSalvar Para: ACBrCTe1.Configuracoes.Arquivos.PathSalvar * EnviarEventoCTe De: ACBrCTe1.EnviarEventoCTe(idLote); Para: ACBrCTe1.EnviarEvento(idLote); * De: if ACBrCTe1.Conhecimentos.Items[i].Confirmada then Para: if ACBrCTe1.Conhecimentos.Items[i].Confirmado then * De: ACBrCTe1.Conhecimentos.Items[i].SaveToFile(cFileName); Para: ACBrCTe1.Conhecimentos.Items[i].GravarXML(cFileName); * De: DFEUtil.LimpaNumero(cDocumento) Para: OnlyNumber(cDocumento) * De: ACBrCTe1.Configuracoes.Certificados.DataVenc Para: ACBrCTe1.SSL.CertDataVenc NFe ** NFe * De: cNroSerieCertificado := ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado; Para: cNroSerieCertificado := ACBrNFe1.SSL.SelecionarCertificado; * De: ACBrNFe1.NotasFiscais.Valida; Para: ACBrNFe1.NotasFiscais.Validar; * De: ACBrNFe1.Configuracoes.Geral.PathSalvar; Para: ACBrNFe1.Configuracoes.Arquivos.PathSalvar; * De: ACBrNFe1.EnviarEventoNFe(idLote); Para: ACBrNFe1.EnviarEvento(idLote); * De: cSituacao := SituacaoNFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[idx].resNFe.cSitNFe); Para: cSituacao := SituacaoDFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[idx].resNFe.cSitNFe); * De: ACBrNFe1.NotasFiscais.Items[i].SaveToFile(cFileName); Para: ACBrNFe1.NotasFiscais.Items[i].GravarXML(cFileName); * Removidos: ( não existe mais DPEC) ACBrNFe1.WebServices.EnviarDPEC.Executar ACBrNFe1.WebServices.ConsultaDPEC.NFeChave ACBrNFe1.WebServices.ConsultaDPEC.Executar; * De: NFe.Det[idx].Prod.nItemPed := 0; Para: NFe.Det[idx].Prod.nItemPed := ''; * Disponível NFe.Det[idx].Prod.CEST ( trunk 2 ) * Remover Componentes ACBrNFeDANFERave1 e ACBrNFeDANFERaveCB1 * De: ACBrNFe1.NotasFiscais.Items[idx].SaveToFile(cFileName ); Para: ACBrNFe1.NotasFiscais.Items[idx].GravarXML(cFileName); * De: ACBrNFe1.Configuracoes.Certificados.DataVenc Para: ACBrNFe1.SSL.CertDataVenc NFSe ** NFSe * De: ACBrNFSe1.Configuracoes.Arquivos.PastaMensal := True Para: ACBrNFSe1.Configuracoes.Arquivos.SepararPorMes := True * De: ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := 9999 Para: ACBrNFSe1.Configuracoes.Geral.CodigoMunicipio := 9999 * De: ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe1.Configuracoes.Geral.PathSchemas); Para: ACBrNFSe1.Configuracoes.Geral.SetConfigMunicipio; * De: ACBrNFSe1.Configuracoes.WebServices.SenhaWeb := cSenhaWeb; Para: ACBrNFSe1.Configuracoes.Geral.SenhaWeb := cSenhaWeb; * De: ACBrNFSe1.Configuracoes.WebServices.UserWeb := cUserWeb; Para: ACBrNFSe1.Configuracoes.Geral.UserWeb := cUserWeb; * De: cProvedor := ACBrNFSe1.Configuracoes.WebServices.xProvedor; Para: cProvedor := ACBrNFSe1.Configuracoes.Geral.xProvedor; * De: ACBrNFSe1.Configuracoes.Geral.PathSalvar; Para: ACBrNFSe1.Configuracoes.Arquivos.PathSalvar; * De: ACBrNFSe1.NotasFiscais.Items[0].NFSe.NaturezaOperacao := noTributacaoNoMunicipio; ACBrNFSe1.NotasFiscais.Items[0].NFSe.NaturezaOperacao := StrToNaturezaOperacao(ok, cNaturezaOperacao); Geral * pcnConversao ( ainda existe ) - especializado para pcnConversaoNFe e pcteConversaoCTe adicionem no uses pcnConversaoNFe e pcteConversaoCTe junto com pcnConversao * ACBrDFeUtil // Unificado: ACBrNFeUtil-ACBrNFEsUtil-ACBrCTeUtil ( não existem mais ) remover ACBrNFeUtil-ACBrNFEsUtil-ACBrCTeUtil e deixem ACBrDFeUtil * Added novo uses ACBrUtil * EstaVazio De: if DFeUtil.EstaVazio(cPathSalvar) then Para: if EstaVazio(cPathSalvar) then

Bom dia pessoal, Criei um teste unitário para a unit ACBrDFeUtil. Gostaria de saber se há interesse por parte dos desenvolvedores. Também adicionei mais 2 testes para a função FloatMask na unit ACBrUtilTest. Para testar a função com e sem separador de milhar. Pois essa função foi modificada no commit 12770, passando a ser facultativo o uso do Separador de Milhar. Segue em anexo Patch da pasta Testes. Atenciosamente, Wesley Luan. UnitTest.patch

Bom dia, boa tarde e boa noite! Conforme for a hora pra todos. Pessoal estamos com CT-e e MDF-e em produção, e fomos questionados pela mudança de mascara da Chave de Acesso, e gostaria de questionar o motivo desta mudança. Em Trunk1 (ACBrCTeUtil) havia a seguinte função de Mascarar a Chave de Acesso: class function CTeUtil.FormatarChaveAcesso(AValue: String; Mascara: Boolean = False ): String; begin AValue := DFeUtil.LimpaNumero(AValue); if Mascara then Result := copy(AValue,1,2) + '-' + copy(AValue,3,2) + '/' + copy(AValue,5,2) + '-' + copy(AValue,7,2) + '.' + copy(AValue,9,3) + '.' + copy(AValue,12,3) + '/' + copy(AValue,15,4) + '-' + copy(AValue,19,2) + '-' + copy(AValue,21,2) + '-' + copy(AValue,23,3) + '-' + copy(AValue,26,3) + '.' + copy(AValue,29,3) + '.' + copy(AValue,32,3) + '-' + copy(AValue,35,1) + '-' + copy(AValue,36,2) + '.' + copy(AValue,38,3) + '.' + copy(AValue,41,3) + '-' + copy(AValue,44,1) else Result := copy(AValue,1,4) + ' ' + copy(AValue,5,4) + ' ' + copy(AValue,9,4) + ' ' + copy(AValue,13,4) + ' ' + copy(AValue,17,4) + ' ' + copy(AValue,21,4) + ' ' + copy(AValue,25,4) + ' ' + copy(AValue,29,4) + ' ' + copy(AValue,33,4) + ' ' + copy(AValue,37,4) + ' ' + copy(AValue,41,4); end; Em Trunk2 (ACBrDFeUtil) há a seguinte função de Mascarar a Chave de Acesso: function FormatarChaveAcesso(AValue: String): String; var I: Integer; begin AValue := OnlyNumber(AValue); I := 1; Result := ''; while I < Length(AValue) do begin Result := Result+copy(AValue,I,4)+' '; Inc( I, 4); end; Result := Trim(Result); end; O porque dessa mudança e porque tirou a opção da primeira mascara. Certo de vossas atenção, antecipo agradecimentos, Atenciosamente