Tenho uma rotina customizada, assim um campo customizado sendo de prioridade, nele é alterado manualmente, 01,02,03, preciso de uma userfunction que quando eu alterar, altere automaticamente os outros registros de acordo com a ordem sucessivamente.
Eu comecei uma userfunction, entretanto não está funcionando 100%
Se alguém puder dar uma ajuda
————————————————————————————
USER FUNCTION CF047FAT()
LOCAL cPrior := ZZH->ZZH_PRIORI
LOCAL cPrioM := M->ZZH_PRIORI
LOCAL cSom1 := ‘1’
LOCAL cSoma := somastr(cPrior, cSom1)
DbSelectArea(“ZZH”)
ZZH->(dbGoTop())
DbSetOrder(1) // filial+prioridade
//dbSeek(xFilial(“ZZH”)+ZZH->ZZH_PRIORI)
If MsgNoYes(‘Atualiza Prioridades’,” Deseja atualizar todas as prioridades ? “)
While !Eof() .And. ZZH->ZZH_PRIORI <> “99” //.And. ZZH->ZZH_PRIORI >= M->ZZH_PRIORI
RecLock(“ZZH”, .F.)
ZZH->ZZH_PRIORI := cSoma
ZZH->(DbSkip())
ZZH->(msUnLock())
Enddo
Else
Return .F.
Endif
ZZH->(DbCloseArea())
Return
————————————————————————————-