Perguntas MsMGET

dbSelectArea("SZ5")
DbSetOrder(1)

DbSeek(cFilOs+cNumOs)

Reclock("SZ5",.F.) // se nao der esse lock, dá erro 

AvReplace(cAlias,"M")

oEnchoice := MsMGet():New("SZ5",SZ5->(RECNO()),nOpc,,,,aCpoEnch,{aPObjs[1, 1],aPObjs[1, 2],aPObjs[1, 3],aPObjs[1, 4]},aCpoEnch,1,,,,oPanelSup,,.T.,.F.,,.F.,.F.,,,.F.,.T.,,.F.)
//oEnchoice:Align := CONTROL_ALIGN_ALLCLIENT
oEnchoice:Refresh()

dbSelectArea("SZ5")
DbSetOrder(1)

DbSeek(cFilOs+cNumOs)


SX3->(dbSeek("SZ5"))
While SX3->(!Eof()) .AND. SX3->X3_ARQUIVO == "SZ5"
   
   If SX3->X3_NIVEL <= cNivel .AND. X3USO(SX3->X3_USADO)
      M->&(SX3->X3_CAMPO) := SZ5->&(SX3->X3_CAMPO)
   EndIf
   SX3->(dbSkip())
EndDo


oEnchoice := MsMGet():New("SZ5",SZ5->(RECNO()),nOpc,,,,aCpoEnch,{aPObjs[1, 1],aPObjs[1, 2],aPObjs[1, 3],aPObjs[1, 4]},aCpoEnch,1,,,,oPanelSup,,.T.,.F.,,.F.,.F.,,,.F.,.T.,,.F.)
//oEnchoice:Align := CONTROL_ALIGN_ALLCLIENT
oEnchoice:Refresh()