01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Serviços |
Módulo: | SIGAGPE - Gestão de Pessoal |
Função: | PONA340 - Visitas |
Abrangências: | Microsiga Protheus 12 |
Versões: | Microsiga Protheus 12 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível com as Bases de Dados: | Todos |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Idiomas: | Todos |
02. DESCRIÇÃO
Função utilizada para gravação de Visita em andamento/em visitação/visita realizada via rotina automática (ExecAuto).
Documentação relevante:
03. SINTAXE
MSExecAuto( {|aVetor, nOpc| pona340(aVetor,nOpc) },aVisita, 3)
04. PARÂMETROS
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
---|---|---|---|---|---|
aVisita | Array de registros | Array contendo os campos do cabeçalho (SPY) | Sim | ||
nOpc | Numérico (opção de execução) | 3 = Inclusão; 4 = Alteração; 5 = Exclusão | Sim |
05. RETORNO
{}
06. EXEMPLOS
Escolha o modelo desejado abaixo de acordo com a sua necessidade de execução:
#include "Totvs.Ch"
User Function MyPONA340()
Local aVisita := {}
Private lMsErroAuto := .F.
aVisita := { { "PY_FILIAL" , "D MG 01" ,NIL },; // Filial
{ "PY_NUMERO" , "000000001" ,NIL },; // Número
{ "PY_VISITA" , "000001" ,NIL },; // Código do Visitante
{ "PY_CC" , "000000001" , NIL },; // Centro de Custo (ou matrícula)
{ "PY_CRACHA" , "12345" ,NIL },; // Crachá
{ "PY_DTVISIT" , ddatabase ,NIL },; // Data da Visita
{ "PY_DATAE" , ddatabase ,NIL },; // Data Entrada
{ "PY_ENTRADA" , 16.00 ,NIL },; // Horário da Entrada
{ "PY_TIPOVIS" , "1" ,NIL },; // Tipo de Visita, 1=Negócios;2=Particular
{ "PY_CLASSIF" , "1" ,NIL }} // Classificação, 1=Agendada;2=Não Agendada
MsAguarde({|| MSExecAuto( {|aVetor, nOpc| pona340(aVetor,nOpc) },aVisita, 3) }, "Gravando visita...")
If lMsErroAuto
MostraErro()
Else
MsgInfo("Visita gravada com sucesso!", "Aviso")
EndIf
Return !lMsErroAuto
04. DEMAIS INFORMAÇÕES
Não há.
05. ASSUNTOS RELACIONADOS
- Não há.