Pesquisar na Comunidade
Showing results for tags 'Procurar'.
Encontrado 1 registro
-
Acbribptax Busca De Ncm Com Exceção
um tópico no fórum postou Marcelo A. Rodrigues Dúvidas Gerais sobre o ACBr
Bom dia... Alguém já fez a busca da alíquota passando a exceção do NCM?? Eu estou fazendo uns testes de produtos com exceção e não consegui retornar a alíquota com exceção.. Passando o NCM 3057900 e a exceção 2, por exemplo, ele sempre retornar a alíquota 34,12 (alíquota sem exceção), pois ele acha o primeiro NCM e cai no exit da função... estou chamando a função: function TACBrIBPTax.Procurar(const ACodigo: String; var ex, descricao: String; var tabela: Integer; var aliqNac, aliqImp: Double ; const BuscaParcial: Boolean): Boolean; Para corrigir este "erro" (não sei se tem que passar de outra forma) eu alterei a fonte do ACBr... Acrescentei a linha: if StrToIntDef( ex, 0 ) = StrToIntDef( Itens.Excecao, 0 ) then begin e aparentemente funcionou... vejam como ficou o fonte: function TACBrIBPTax.Procurar(const ACodigo: String; var ex, descricao: String; var tabela: Integer; var aliqNac, aliqImp: Double ; const BuscaParcial: Boolean): Boolean; var I: Integer; Igual: Boolean; begin if Itens.Count <= 0 then EACBrIBPTax.Create('Tabela de itens ainda não foi aberta!'); Result := False; for I := 0 to Itens.Count - 1 do begin if BuscaParcial then Igual := Pos(Trim(ACodigo), Trim(Itens.NCM)) > 0 else Igual := SameText(Trim(ACodigo), Trim(Itens.NCM)); if Igual Then begin if StrToIntDef( ex, 0 ) = StrToIntDef( Itens.Excecao, 0 ) then begin ex := Itens.Excecao; descricao := Itens.Descricao; tabela := Integer(Itens.Tabela); aliqNac := Itens.AliqNacional; aliqImp := Itens.AliqImportado; Result := True; Exit; end; end; end; end;