Acbribptax Busca De Ncm Com Exceção

[Marcelo A. Rodrigues]

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;