Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Elisabete Magalhaes dos Santos Silva

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
TM360TOK - Valida o ApontamentoEstorno de Ocorrências
TM360TOK - Valida o ApontamentoEstorno de Ocorrências

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
nOpcxArray 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