Cross Segmentos - Backoffice Protheus - FIS - Arq.Magnéticos - CONV115 - CAT79 - Erro de validação na utilização ou classificação do item

Ocorrência
Ao validar o arquivo do convenio 115 ou CAT79, ocorre o seguinte erro:

260 Erro Item 04 18 18 Tipo de Utilização do item é incompatível com o Código de classificação do item

Ambiente
Protheus - Livros fiscais  – A partir da versão 11.80]


Solução

O protheus realiza a seguinte validação para geração dos campos 04 - Fase ou Tipo de Utilização e 14 - Código de classificação do item do arquivo Item.

O protheus verifica primeiramente se a tabela SFX está preenchida. Se estiver, o conteúdo a ser levado no arquivo é o conteúdo da tabela, Se não estiver preenchido será verificado o conteúdo da tabela SA1 e SB5 respectivamente, de acordo com a configuração do parâmetro MV_D5ICMS.

Para o campo 4, a informação é pega do campo FX_TIPSERV, onde é realizado um CASE para cada situação pois o que grava de conteúdo no protheus não é exatamente o mesmo que deve ser levado no arquivo:

ITE->I_FASE  :=    Iif (!Empty(cCmpUti),cCmpUti,Iif(lCmpUti,SA1->(FieldGet (FieldPos (&(SuperGetMv ("MV_D5ICMS"))[2]))),"1"))    

If SFX->(FieldPos("FX_TIPSERV")) <> 0    .And.    lSFX

      If  substr(cCmpUti,2,len(cCmpUti)) <> (cAliasSFT)->(FT_NFISCAL+FT_SERIE+FT_ESPECIE)  

          Do Case

        Case  SFX->FX_TIPSERV == '0'

            cCmpUti    :=    '1'+(cAliasSFT)->(FT_NFISCAL+FT_SERIE+FT_ESPECIE) 

        Case  SFX->FX_TIPSERV == '1'

            cCmpUti    :=    '2'+(cAliasSFT)->(FT_NFISCAL+FT_SERIE+FT_ESPECIE) 

        Case  SFX->FX_TIPSERV == '2'

            cCmpUti    :=    '3'+(cAliasSFT)->(FT_NFISCAL+FT_SERIE+FT_ESPECIE) 

        Case  SFX->FX_TIPSERV == '3'

            cCmpUti    :=    '4'+(cAliasSFT)->(FT_NFISCAL+FT_SERIE+FT_ESPECIE) 

        Case  SFX->FX_TIPSERV == '4'

            cCmpUti    :=    '5'+(cAliasSFT)->(FT_NFISCAL+FT_SERIE+FT_ESPECIE) 

        Case  SFX->FX_TIPSERV == '9'

            cCmpUti    :=    '6'+(cAliasSFT)->(FT_NFISCAL+FT_SERIE+FT_ESPECIE) 

          EndCase    

Para geração do campo de Classificação do item é pego dos campos FX_GRPCLAS+FX_CLASSIF 

ITE->I_CODCLIT    :=    Iif (!Empty(cCmpClIt),cCmpClIt,Iif(lCmpClIt, SB5->(FieldGet (FieldPos (&(SuperGetMv ("MV_D5ICMS"))[5]))), Iif(cRotina == "CONV128","5099","0101")))

cCmpClIt    := SFX->( FX_GRPCLAS+FX_CLASSIF )