Exemplo do Ponto de Entrada F560BLOCK.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*---------------------------------------------------------------------*
 | P.E.:  F560BLOCK                                                    |
 | Desc:  Valida Exclusão de Movimentação Caixinha                     |
 *---------------------------------------------------------------------*/

User Function F560BLOCK()
	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