Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • MDT160ASO - Atestado ASO -- 10387
  • Criado por Usuário desconhecido (sueli.gomides), última alteração por admin em 25 jun, 2012

Ponto-de-Entrada: MDT160ASO - Atestado ASO
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: 
Na rotina Atendimento Médico, ao confirmar a tela de inclusão, alteração ou exclusão do Atestado (ASO) o ponto de entrada será chamado antes gravar a tabela Atestado (ASO).
Programa Fonte
Sintaxe

MDT160ASO - Atestado ASO ( ) --> lRet

Retorno
    lRet(logico)
  • Se o retorno for .T., a gravação será efetuada, caso contrário, a gravação será cancelada.
Exemplos 
#Include "Protheus.ch"User Function MDT160ASO()Local lRet := .t.//Se for inclusãoIf Inclui   dbSelectArea("TM5")   dbSetOrder(1)   If !dbSeek( xFilial("TM5") + M->TMY_NUMFIC + DTOS(M->TMY_DTPROG) + "NR7" )      MsgStop("O ASO somente poderá ser cadastrado se existir Exame NR7 para a mesma data.")      lRet := .f.   EndifEndifReturn lRet