Unit pnfsConversao - funcão NaturezaOperacaoDescricao

[Gr@c@]

na unit pnfsConversao, falta inicializar a função caso não exista a descrição pelo codigo da Natureza de Operação

function NaturezaOperacaoDescricao( const t: TnfseNaturezaOperacao; AProvedor: TnfseProvedor = proNenhum ): String;
begin
  case t of
    no1 : Result := '1 - Tributação no município';
    no2 : Result := '2 - Tributação fora do município';
    no3 : Result := '3 - Isenção';
    no4 : Result := '4 - Imune';
    no5 : Result := '5 - Exigibilidade susp. por decisão judicial';
    no6 : Result := '6 - Exigibilidade susp. por proced. adm.';

    no51 : Result := '5.1 - Tributacao No Municipio com retenção de ISS';
    no52 : Result := '9 - Tributacao No Municipio Sem Retenção de ISS';
    no58 : Result := '5.8 - Não tributável';
    no59 : Result := '7 - Simples Nacional (Dentro Estado)';
    no61 : Result := '6.1 - Tributacao No Municipio Com Retenção de ISS';
    no62 : Result := '6.2 - Tributacao No Municipio Sem Retenção de ISS';
    no63 : Result := '6.3 - Tributação fora do municipio com retenção de ISS';
    no64 : Result := '6.4 - Tributacao fora do municipio sem retenção de ISS';
    no68 : Result := '6.8 - Não tributável';
    no69 : Result := '8 - Simples Nacional (Fora Estado)';
    no78 : Result := '7.8 - Não tributável';
    no79 : Result := '7.9 - Imposto recolhido pelo regime único de arrecadação';

    no101 : Result := '101 - ISS devido para Abelardo Luz';
    no111 : Result := '111 - ISS devido para outro município';
    no121 : Result := '121 - ISS Fixo (Sociedade de Profissionais)';
    no201 : Result := '201 - ISS retido pelo tomador ou intermediário do serviço';
    no301 : Result := '301 - Operação imune, isenta ou não tributada';
    no501 : Result := '501 - ISS devido para Abelardo Luz (Simples Nacional)';

    no511 : if AProvedor = proPublica then
              Result := '511 - ISS devido para outro município (Simples Nacional)'
            else
              Result := '511 - Prestação de serviço no município - iss mensal sem retenção na fonte';

    no512 : Result := '512 - Prestação de serviço no município - iss mensal com retenção na fonte';
    no515 : Result := '515 - Prestação de serviço iss distribuido por rateio com retenção na fonte';
    no521 : Result := '521 - Construção civil - no município - iss mensal sem retenção na fonte';
    no522 : Result := '522 - Construção civil - no município - iss mensal com retenção na fonte';
    no539 : Result := '539 - Prestacao de serviço - recolhimento antecipado';
    no541 : Result := '541 - MEI (Simples Nacional)';
    no549 : Result := '549 - Prestacao de serviço - isento ou imune - nao tributavel';
    no601 : Result := '601 - ISS retido pelo tomador ou intermediário do serviço (Simples Nacional)';
    no611 : Result := '611 - Prestação de serviço em outro município - iss mensal sem retenção na fonte';
    no612 : Result := '612 - Prestação de serviço em outro município - iss mensal com retenção na fonte';
    no613 : Result := '613 - Prestação de serviço em outro município - iss mensal devido no local da prestaçâo';
    no615 : Result := '615 - Prestação de serviço em outro município - devido em outro município - semretenção na fonte';
    no621 : Result := '621 - Construção civil - outro município - iss mensal sem retenção na fonte';
    no622 : Result := '622 - Construção civil - em outro município - iss mensal com retenção na fonte';
    no701 : Result := '701 - Operação imune, isenta ou não tributada (Simples Nacional)';
    no711 : Result := '711 - Prestação de serviço para o exterior - iss mensal sem retenção na fonte';
    no712 : Result := '712 - Prestação de serviço para o exterior - iss mensal com retenção na fonte';
    no901 : Result := '901 - ISS retido ou sujeito à substituição tributária devido para Abelardo Luz';
    no902 : Result := '902 - ISS retido ou sujeito à substituição tributária devido para outro município';
    no911 : Result := '911 - Prestação de serviço não enquadrada nas situações anteriores - sem retenção';
    no912 : Result := '912 - Prestação de serviço não enquadrada nas situações anteriores - com retenção';
    no921 : Result := '921 - ISS a ser recolhido pelo prestador do serviço';
    no931 : Result := '931 - Serviço imune, isento ou não tributado';
    no951 : Result := '951 - ISS retido ou sujeito à substituição tributária devido para Abelardo Luz (prestador optante pelo Simples Nacional)';
    no952 : Result := '952 - ISS retido ou sujeito à substituição tributária, devido para outro município (prestador optante pelo Simples';
    no971 : Result := '971 - ISS a ser recolhido pelo prestador do serviço (prestador optante pelo Simples Nacional)';
    no981 : Result := '981 - Serviço imune, isento ou não tributado (prestador optante pelo Simples Nacional)';
    no991 : Result := '991 - Nota Fiscal de Serviços Avulsa (ISS pago antecipadamente pelo prestador)';
  Else
    Result := '';
  end;  
end;

Motivo: ao dar esse comando abaixo no meu aplicativo para preencher um combobox está retornando descrição de codigo anterior:

procedure TFrm_NFePrincipal.Button1Click(Sender: TObject);
VAR
  i: Integer;
  natOpe : TnfseNaturezaOperacao;
  provedor: TnfseProvedor;
  sCodigo,sNome: string;
begin
  combobox1.Items.Clear ;
  memo1.Lines.Clear;
  For natOpe := Low(TnfseNaturezaOperacao) to High(TnfseNaturezaOperacao) do
  begin
    sCodigo := Copy(GetEnumName(TypeInfo(TnfseNaturezaOperacao), integer(natOpe) )+space(10),1,10);
    sNome   := NaturezaOperacaoDescricao(natOpe,proIssDSF);
    combobox1.Items.add(sCodigo + sNome);
    memo1.Lines.Add(sCodigo+sNome);
  end;
end;

 

no0       
no1       1 - Tributação no município
no2       2 - Tributação fora do município
no3       3 - Isenção
no4       4 - Imune
no5       5 - Exigibilidade susp. por decisão judicial
no6       6 - Exigibilidade susp. por proced. adm.
no7       6 - Exigibilidade susp. por proced. adm.
no8       6 - Exigibilidade susp. por proced. adm.
no9       6 - Exigibilidade susp. por proced. adm.
no10      6 - Exigibilidade susp. por proced. adm.
no11      6 - Exigibilidade susp. por proced. adm.
no12      6 - Exigibilidade susp. por proced. adm.
no13      6 - Exigibilidade susp. por proced. adm.
no14      6 - Exigibilidade susp. por proced. adm.
no15      6 - Exigibilidade susp. por proced. adm.
no50      6 - Exigibilidade susp. por proced. adm.
no51      5.1 - Tributacao No Municipio com retenção de ISS
no52      9 - Tributacao No Municipio Sem Retenção de ISS
no53      9 - Tributacao No Municipio Sem Retenção de ISS
.....

[Juliana Tamizou]

Bom dia Graça.

Você chegou a realizar alguma alteração nos fontes do ACBr? Se sim, por favor anexe a unit alterada.

Att.

[Gr@c@]

pnfsConversao.pas

só isso 

 Else
    Result := '';
  end;  

Editado 24 Maio, 2018 por Gr@c@

[Italo Giurizzato Junior]

Bom dia Graça,

Muito obrigado pela colaboração, aproveitei e fiz o mesmo em outros "case".

Já enviei para o repositório.