Pesquisar na Comunidade
Showing results for tags 'falha na validação - acbrncm´s'.
Encontrado 1 registro
-
falha na validação - acbrncm´s Falha na validação - AcbrNcm´s
um tópico no fórum postou Carlos Alberto Dias Filho Dúvidas Gerais sobre o ACBr
Bom dia, estou efetuando uma consulta simples utilizando a Classe TAcbrNcm´s dentro da Minha classe de validação dos dados do Ncm, estava funcionando perfeitamente, porém 5 ou 6 dias atraz , por volta das 2 horas da manhã estava testando e sempre me retornava erros, pensei que fosse o servidor web que poderia estar passando por manutenções, na manhã segunte atualizei como de prátiica o trunk do acbr, não houveram alterações no componente, mas porém o que acontece, ele só valida se estiver em branco, ou seja se eu passar um valor nullo ele gera um timeout na aplicao e não está me gerando a exception, e quando informo um valor como por exemplo '12345678' ele passa normalmente e não valida o Ncm... gostaria de saber se estou usando erroneamente a Classe TAcbrncm´s ou é algo que deva ser avaliado pela equipe? Devo ter certeza que sou eu quem não esteja consumindo corretamente a classe AcbrNcm´s, devo estar utilizando de forma incorreta , mas gostaria de uma avaliação sobre o uso desse cara na classe.! unit TValidaNcm; interface uses ACBrNCMs, SysUtils; Type TValidaNcmCest = class(TObject) private FTACBrNCMs: TACBrNCMs; FValorNcm : String; procedure setValorNcm (const Value: String); protected public property ACBrNCMs1: TACBrNCMs read FTACBrNCMs write FTACBrNCMs; Property valorNcm : String read FValorNcm write setValorNcm; constructor Create (aValueNcm: String); destructor Destroy; override; published end; implementation { TValidaNcmCest } uses ResourceMessages, DmSrvProd; constructor TValidaNcmCest.Create (aValueNcm: String); begin self.valorNcm := aValueNcm; end; destructor TValidaNcmCest.Destroy; begin inherited; self.ACBrNCMs1.DisposeOf; end; procedure TValidaNcmCest.setValorNcm (const Value: String); begin FTACBrNCMs := TACBrNCMs.Create (Nil); FValorNcm := Value; try FTACBrNCMs.Validar ( FValorNcm ); Except on E: EACBrNcmException do TResourceMessages.OngetCodeNcmerror end; end; end.