Sebastião Elivaldo

Não, não... Eu estou assessorando uma softhouse a portar o sistema deles para uma versão mais nova do Delphi.

Realmente, Juliomar. Faz tempo que foi alterado. E o mais curioso é que esse meu cliente disse que matinha a ACBr sempre atualizada. Muito obrigado pela ajuda!

Obrigado, Juliomar!

Olá Pessoal, bom dia. Percebi que o método DescricaoRetorno não está mais presente na interface da classe TArquivoR_CNAB240 (ACBrPagFor). Alguém saberia me dizer se esse método foi migrado para outra unit/classe? TArquivoR_CNAB240 = class(TArquivoRClass) ... public ... function DescricaoRetorno(const ADesc: string): string; virtual; Obrigado!

Pessoal, Acabei de verificar o código fonte do componente e vi que temos que usar o objeto infCteComp10 em vez infCteComp.

Olá Pessoal, boa noite. Ao emitir um CTe complementar na versão 4.00 recebo o seguinte erro ao fazer a validação: 1871 - Element '{http://www.portalfiscal.inf.br/cte}infCte': Missing child element(s). Expected is one of ( {http://www.portalfiscal.inf.br/cte}infCTeNorm, {http://www.portalfiscal.inf.br/cte}infCteComp ). Ao analisar o conteúdo do XML, observei que realmente não existe a TAG <infCteComp>. Então fiz o seguinte teste: alterei para a versão 3.00 e gerei novamente o mesmo CTe. Para minha surpresa, emitindo na versão 3.00 ele cria corretamente a TAG <infCteComp>. Comparei os dois XML (versão 3 e 4) e a única diferença é realmente que na versão 4 não está sendo incluído a referida tag. Alguém já passou por isso e saberia me dizer o que estou fazendo errado? Obrigado!

Excelente! Muito obrigado, Italo.

Valeu!!! Muitíssimo obrigado!

Boa tarde, Italo. Concordo plenamente com você. A SEFAZ-MG está deixando a desejar. Mas se você me permite, gostaria de insistir naquela alteração sugerida. Observe que ela substituiria, inclusive, aquele "if" que hoje já existe. E funcionaria tanto em homologação quanto produção. Mas isso é apenas uma sugestão. Obrigado!

Talvez seja interessante forçar para sempre seja "CTe" fazendo assim: FPRetWS := StringReplace(FPRetWS, 'retConsStatServCte', 'retConsStatServCTe', [rfReplaceAll]); CTeRetorno := TRetConsStatServ.Create('CTe'); // if (FPConfiguracoesCTe.Geral.VersaoDF <= ve300) or // ((FPConfiguracoesCTe.WebServices.UFCodigo = 31) and // (FPConfiguracoesCTe.Geral.FormaEmissao = teNormal)) then // CTeRetorno := TRetConsStatServ.Create('Cte') // else // CTeRetorno := TRetConsStatServ.Create('CTe');

Olá Pessoal, Acredito que a função TratarResposta da unit ACBrCTeWebServices precisará de um pequeno ajuste. Na versão 4.00 do CT-e, o retorno do status do serviço (em MG) começa com "retConsStatServCTe" se estiver em Produção e "retConsStatServCte" se for no ambiente de Homologação. Trecho da função TratarResposta: if (FPConfiguracoesCTe.Geral.VersaoDF <= ve300) or ((FPConfiguracoesCTe.WebServices.UFCodigo = 31) and (FPConfiguracoesCTe.Geral.FormaEmissao = teNormal)) then CTeRetorno := TRetConsStatServ.Create('Cte') <------------------------- else CTeRetorno := TRetConsStatServ.Create('CTe');