Ponto-de-Entrada: TM360TOK - Valida o Apontamento/Estorno de Ocorrências
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Este Ponto de Entrada, localizado no TMSA360 (Registro de Ocorrências), é executado na função tudo OK validando o Apontamento/Estorno de ocorrências.
Eventos
Programa Fonte
TMSA360.PRW
Sintaxe
TM360TOK - Valida o Apontamento/Estorno de Ocorrências ( [ nOpcx ] ) --> lRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| nOpcx | Array of Record |
Retorno
-
lRet(logico)
- Caso o retorno esteja (.F.) você não consegue apontar/estornar uma ocorrência.
Exemplos
User Function TM360TOK()Local lRet := .T.Local cCodOco := Alltrim (GDFieldGet('DUA_CODOCO',n))If cCodOco == '310' lRet := .F. MsgAlert('Não é permitido lançar este tipo de ocorrência')Endif Return lRet