Histórico da Página

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:

Validação dos campos obrigatórios utilizados nas rotinas automáticas MSROTAUTO - Parâmetro MV_VLDOBRI

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:

Totvs custom tabs box

tabs	Exemplo 01,
ids	Exemplo01

Totvs custom tabs box items

default	yes
referencia	Exemplo 01 Visita em andamento

#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á.

Templatedocumentos

HTML

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão Atual

Chave