Campo Customizado

Principal Fóruns Protheus AdvPL Campo Customizado

Marcado: 

Visualizando 1 post (de 1 do total)
  • Autor
    Posts
  • #5766
    gustavo.jacob
    Participante

    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

    ————————————————————————————-

Visualizando 1 post (de 1 do total)
  • Você deve fazer login para responder a este tópico.
Dúvida?