Rejeição 660: Codigo_ANP_Combustivel - Protheus

Bom dia,

Quando houver devolução de combustível, CFOP 5662/6662, será obrigatório informar o código da ANP - Agência Nacional de Petróleo. Caso não seja informado ocorrerá a rejeição acima.

Correção:

1- Incluir um grupo de produto (Combustíveis)
2- Alterar o cadastro do produto e vincular o grupo no campo B1_GRUPO.
3- Informar o grupo no parâmetro MV_COMBUS
4- Após gerar a nota, acesse: Livros Fiscais > Atualizações > Movimentos > NF-e Manual de Entrada / Saída > Complementos:

*Na opção Combustível, fazer o complemento da nota informando o código do combustível(CD6_CODANP), conforme tabela publicada pela SEFAZ.

Ou

1- Incluir um grupo de produto (Combustíveis)
2- Alterar o cadastro do produto e vincular o grupo no campo B1_GRUPO.
3- Informar o grupo no parâmetro MV_COMBUS
4- Criar campo no cadastro do produto para informar código da ANP: SB1->B1_XANP
5- Compilar ponto de entrada abaixo. Com o ponto de entrada abaixo compilado o sistema preencherá automaticamente a tabela CD6 "Complementos NF"

USER FUNCTION SF2460I

Local aArea := GetArea()
Local aAreaD2 := {}
Local cQry := "”

IF(SF2->F2_TIPO)=='D'.AND. SB1->B1_GRUPO $ GETMV("MV_COMBUS")


DBSELECTAREA("SD2")
DBSETORDER(3)
DBGOTOP()
DBSEEK(XFILIAL("SD2")+SF2->F2_DOC+SF2->F2_SERIE+SF2->F2_CLIENTE+SF2->F2_LOJA)
While SD2->D2_FILIAL==XFILIAL("SD2") .AND. SD2->D2_DOC == SF2->F2_DOC .AND. SD2->D2_SERIE==SF2->F2_SERIE .AND. SD2->D2_CLIENTE == SF2->F2_CLIENTE .AND. SD2->D2_LOJA == SF2->F2_LOJA
aAreaD2 := GetArea()
DBSELECTAREA("CD6")

RECLOCK("CD6",.T.)
CD6_FILIAL := XFILIAL("CD6")
CD6_TPMOV := "S”
CD6_DOC := SD2->D2_DOC
CD6_TRANSP := SF2->F2_TRANSP
CD6_SERIE := SD2->D2_SERIE
CD6_CLIFOR := SD2->D2_CLIENTE
CD6_LOJA := SD2->D2_LOJA
CD6_ITEM := SD2->D2_ITEM
CD6_COD := SD2->D2_COD
CD6_CODANP := SB1->B1_XANP
CD6_UFCONS := SF2->F2_EST
MSUNLOCK()
DbCloseArea("CD6")

RestArea(aAreaD2)
SD2->(DBSKIP())
END
RestArea(aArea)
ENDIF

RETURN()