Exemplo do Ponto de Entrada TM540GRV.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*---------------------------------------------------------------------*
| P.E.: TM540GRV |
| Desc: No momento do encerramento, altera o status de armazenagem |
| Link: http://tdn.totvs.com/pages/releaseview.actionçpageId=6093262 |
*---------------------------------------------------------------------*/
User Function TM540GRV()
Local aArea := GetArea()
Local aAreaDUU := DUU->(GetArea())
Local nOpcx := PARAMIXB[1]
Local lRet := .T.
//Se for Encerramento
If nOpcx == 6
DbSelectArea("DT6")
DT6->(DbSetOrder(1)) //DT6_FILIAL+DT6_FILDOC+DT6_DOC+DT6_SERIE
DT6->(DbGoTop())
//Se conseguir posicionar no registro
If DT6->(DbSeek(xFilial('DT6') + DUU->DUU_FILDOC + DUU->DUU_DOC + DUU->DUU_SERIE))
Alert(DT6->DT6_DOC)
EndIf
Endif
RestArea(aAreaDUU)
RestArea(aArea)
Return lRet
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;