Histórico da Página
CT080GRV - Após gravar o lançamento padrão
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | SIGACTB | ||||
Rotina: |
|
Descrição
executaPonto de Entrada executado após a inclusão ou validaçãoalteração dedo lançamentoslançamento padrõespadrão.
CT080GRV - Após gravar o lançamento padrão -- 90628
Ponto-de-Entrada: CT080GRV - Após gravar o lançamento padrão
Abrangências: | Microsiga Protheus 10 |
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Descrição:
Ponto de Entrada executado após a inclusão ou alteração do lançamento padrão.
Programa Fonte
CTBA080.PRW
Sintaxe
CT080GRV - Após gravar o lançamento padrão ( [ nOpc ] )
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
nOpc | Array of Record | Parâmetro com a opção de inclusão e/ou alteração. |
Retorno
()
Observações
Ponto de Entrada válido para versão 11.
Exemplos
User Function CT080GRV() MsgAlert("Ponto de Entrada CT080GRV")Return
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |
Ponto de Entrada
Descrição: | Lançamento Padrão | ||||||||
Localização: | Atualizações / Entidades | ||||||||
Eventos:Incluir / Alterar / Excluir | Gravação do cadastro | ||||||||
Programa Fonte: | CTBA080 | ||||||||
Função: | Todos | ||||||||
Retorno: |
|
Exemplo:
#INCLUDE "PROTHEUS.CH"
User Function CTA080TOKCT080GRV()
PRIVATE lVld := .T.
PRIVATE cDesc
if ParamIXB[1] = 3
cDesc = "Inclusao"
elseif ParamIXB[1] = 4
cDesc = "Alteracao"
elseif ParamIXB[1] = 5
cDesc = "Exclusão"
end if
IF _NOMEEXEC != "SIGACTB.EXE"
msgalert("A Operação " + cDesc + " de lancamento Padrão so podera ser feita atravez do modulo SIGACTB ")
lVld := .F.
END IF
return lVldMsgAlert("Ponto de Entrada CT080GRV")
If CT5->(FieldPos("CT5_USUARI")) > 0
RecLock("CT5", .F.)
CT5->CT5_USUARI := "Paulo da Silva Nunes"
MsUnlock()
EndIf
Return