Exemplo do Ponto de Entrada MT241LOK.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*--------------------------------------------------------------------------------------------------------------*
| P.E.: MT241LOK |
| Desc: Ponto de Entrada na validação da linha do movimento interno mod 2 |
| Link: http://tdn.totvs.com/pages/releaseview.action?pageId=6087850 |
*--------------------------------------------------------------------------------------------------------------*/
User Function MT241LOK()
Local lRet := .T.
Local aArea := GetArea()
Local aAreaD3 := SD3->(GetArea())
Local nPosCont := 0
Local cConteudo := ""
//Pegando a posição e o contéudo do campo
nPosCont := aScan(aHeader, {|x| AllTrim(Upper(x[2])) == "D3_X_CAMPO"})
cConteudo := aCols[n][nPosCont]
//Se o Campo estiver em branco
If Empty(cConteudo)
lRet := MsgYesNo("O CAMPO está em branco, deseja prosseguir?", "Atenção")
EndIf
RestArea(aAreaD3)
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;