Exemplo do Ponto de Entrada F560VMOV.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*---------------------------------------------------------------------*
 | P.E.:  F560VMOV                                                     |
 | Desc:  Inclusão de Movimentação Caixinha                            |
 | Link:  http://tdn.totvs.com/display/public/mp/F560VMOV              |
 *---------------------------------------------------------------------*/

User Function F560VMOV()
	Local aArea:= GetArea()
	Local aAreaET:=SET->(GetArea())
	Local lRet := .T.
	Local cBco := ""
	Local cAge := ""
	Local cCnt := ""
	
	//Posicionando no caixinha
	DbSelectArea('SET')
	SET->(DbSetOrder(1))
	SET->(DbGoTop())
	If SET->(DbSeek(FWxFilial('SET') + M->EU_CAIXA))
		cBco := SET->ET_BANCO
		cAge := SET->ET_AGEBCO
		cCnt := SET->ET_CTABCO
	
		lRet := MsgYesNo("Continuar? Banco: "+cBco, "Atenção")
	EndIf
	
	RestArea(aAreaET)
	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