Cross Segmentos - Backoffice Protheus - FIS - Arq.Magnéticos - EFD Contribuições - Preenchimento do campo 6- COD_REC no registro F600

Dúvida
Como preencher o campo COD_REC no registro F600 ao gerar a EFD contribuições?

Ambiente
Protheus – Fiscal – A partir da versão 11.80

Solução
Para carregar o código da receita no campo COD_REC do registro F600 é necessário utilizar o Ponto de Entrada SPDF6004 .
O ponto de entrada será executado para cada registro a ser considerado no bloco F600, permitindo que sejam definidas regras para determinar o código de receita para cada registro.
Para definição das regras poderá ser utilizado o conteúdo do array aF600, que será passado por parâmetro para o ponto de entrada.
Exemplo:

User function SPDF6004()

Local aF600 := ParamIxb[1]
Local cArq := ""
Local nRecSe5 := 0
Local cCodRec := ""

If Len(aF600) > 0
    cArq := aF600[10]
         If cArq == "SE5"
               aAreaSE5 := SE5->(GetArea())
               nRecSe5:= aF600[11]
               DbSelectArea(cArq)
               SE5->(dbGoto(nRecSe5))
               If Alltrim(SE5->E5_NATUREZ) == "NATF600" .And. Alltrim(SE5->E5_CLIFOR)== "F600"
                     cCodRec := "1234"
                Else
                     cCodRec := "9999"
               EndIf
               RestArea(aAreaSE5)
         EndIf
EndIf
Return cCodRec

Documento técnico completo contendo orientações sobre a utilização do ponto de entrada:
https://tdn.totvs.com/display/public/PROT/4232725+DSERFINR-19192+DT+Ponto+de+Entrada+SPDF6004+no+bloco+F600