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;