Perguntas Complemento nota de exportação

User Function M460FIM()
Local aArea := GetArea()
Local aAreaE1 := SE1->(GetArea())
Local cCliEx := ""

cCliEx := Posicione("SA1",1,xfilial("SA1")+SC5->C5_CLIENTE+SC5->C5_LOJACLI,"A1_EST")

dbSelectArea("SD2") // posiciona no item da nf
dbGoTop()
dbSetorder(3)
If dbSeek(SF2->F2_FILIAL + SF2->F2_DOC + SF2->F2_SERIE + SF2->F2_CLIENTE + SF2->F2_LOJA)
While !sd2->(Eof()) .and. sd2->d2_filial == sf2->f2_filial .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

//incluir registro na tabela CDL complemento de exportação caso no cadastro do cliente o campo A1_EST = 'EX'
If cCliEx == 'EX'
DbSelectArea("CDL")
RecLock("CDL",.T.)

CDL->CDL_FILIAL := SD2->D2_FILIAL
CDL->CDL_DOC := SD2->D2_DOC
CDL->CDL_SERIE := SD2->D2_SERIE
CDL->CDL_ESPEC := 'SPED'
CDL->CDL_CLIENT := SD2->D2_CLIENTE
CDL->CDL_LOJA := SD2->D2_LOJA
CDL->CDL_INDDOC := '0'
CDL->CDL_NUMDE := '1'
CDL->CDL_DTDE := SD2->D2_EMISSAO
CDL->CDL_NATEXP := '0'
CDL->CDL_DTREG := SD2->D2_EMISSAO
CDL->CDL_CHCEMB := '01'
CDL->CDL_DTCHC := SD2->D2_EMISSAO
CDL->CDL_DTAVB := SD2->D2_EMISSAO
CDL->CDL_TPCHC := '01'
CDL->CDL_PAIS := Posicione("SA1",1,xfilial("SA1")+SD2->D2_CLIENTE+SD2->D2_LOJA,"A1_CODPAIS")
CDL->CDL_NRMEMO := SD2->D2_ITEM
CDL->CDL_EMIEXP := SD2->D2_EMISSAO
CDL->CDL_QTDEXP := 0
CDL->CDL_UFEMB := 'SP'
CDL->CDL_LOCEMB := 'SAO PAULO'
CDL->CDL_ITEMNF := SD2->D2_ITEM
CDL->CDL_PRODNF := SD2->D2_COD
CDL->CDL_VLREXP := 0
CDL->(MsUnLock())
EndIf

SD2->(dbSkip(1))
Enddo // FALTOU ESTE CARA AQUI
Endif
restArea(aArea)
Return

Brother esse erro ai é em outro ponto de entrada seu SF2460I, verifica ai.

Esta acusando que o campo C6_INFAD Não existe na sua base de dados, ou seja, não foi criado.

Abraços

Não cria o campo ?, entra no configurador e veja no dicionario de dados da tabeal SC6 se este campo esta marcado com Usado.

Ou então na boa velho, exclui ele do dicionario atual e cria na mão.