Perguntas Campos C6_CF e D2_CF ficam em branco

Tiago boa noite, o ideal é montar um programa em advpl mesmo, segue um exemplo:

Bom cara é só um exemplo, espero que ajude ok;


SD2->(dbGoTop())
While SD2->(!Eof())
If Empty(SD2->D2_CF)
If SF4->(dbSetOrder(1), dbSeek(xFilial("SF4")+SD2->D2_TES))
If RecLock("SD2",.f.)
If SD2->D2_EST == "EX"
SD2->D2_CF := "7"+SubStr(SF4->F4_CF,2,3)
ElseIf SD2->D2_EST <> 'SP'
SD2->D2_CF := "6"+SubStr(SF4->F4_CF,2,3)
Else
SD2->D2_CF := SF4->F4_CF
Endif
MSUnlock()
Endif
Endif
Endif
SD2->(dbSkip(1))
Enddo