Perguntas Ponto de Entrada pra OBS de Frete Negociado do P10 nao funciona no P11

Bom dia pessoal,

Eu tenho um ponto de entrada que abre um campo para colocar observação de frete quando o um campo de Frete Negociado é = SIM no campo C5_FRETNEG, funciona no P10, mas no P11 parou de funcionar.

Segue fonte do PE, se alguém puder me ajudar a ajustar, agradeço:

#INCLUDE "RWMAKE.CH"

User function Mta410T

Local cObs := SPACE(50)
private _aArea := GetArea()
private _bResult := .T.
private _cGrpCli := Space(6)
private _cCodPro := Space(15)
private _cGrpPro := Space(6)
private _nDesc := 0.00
private _cNomPro := Space(60)
private _nColPD := 0
private _nColPTa := 0
private _nColPUn := 0
private _nVlrPed := 0
private _bBlFrete := .F.
private nRecSC5 := SC5->(RecNo())
private nIndSC5 := SC5->(IndexOrd())
private nRecSC6 := SC6->(RecNo())
private nIndSC6 := SC6->(IndexOrd())

If AllTrim(Upper(CCadastro)) == "LIBERACAO DE PEDIDOS DE VENDA"
If SC5->C5_FRETNEG == "S"
SC9->(DbSetOrder(1))
SC9->(DbSeek(xFilial("SC9")+SC5->C5_NUM))
If SC9->(Found())
While !SC9->(EOF()) .AND. SC9->C9_FILIAL+SC9->C9_PEDIDO == xFilial("SC9")+SC5->C5_NUM
RecLock("SC9",.F.)
SC9->C9_HORALIB := time()
SC9->C9_USER := SUBSTR(cUsuario,7,15)
SC9->(MsUnlock())
SC9->(DbSkip())
EndDo
Endif
//Grava observação de liberação do frete.
cObs := ObsFrete()
RecLock("SC5",.F.)
SC5->C5_OBSFRET := cObs
SC5->(MsUnlock())
Else
RecLock("SC5",.F.)
SC5->C5_OBSFRET := ""
SC5->(MsUnlock())
EndIf

SC5->(DbSetOrder(nIndSC5))
SC5->(DbGoTo(nRecSC5))

SC6->(DbSetOrder(nIndSC6))
SC6->(DbGoTo(nRecSC6))

RestArea(_aArea)
Endif

Return(_bResult)


Static Function ObsFrete()

Local oObs
Local cObs := SC5->C5_OBSFRET

@ 180,215 To 287,726 Dialog oObs Title OemToAnsi("Frete Negociado")

@ 2,5 To 29,249 Title OemToAnsi(" Observações: ")
@ 13,7 Get cObs Size 237,10 Valid !empty(cObs)

@ 34,100 BmpButton Type 1 Action (Close(oObs))

Activate Dialog oObs Centered Valid !empty(cObs)

Return(cObs)