Ponto de Entrada – TM540GRV

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;

Links:

– Pesquisa no TDN