Linha Microsiga Protheus

Árvore de páginas

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

NomeTipoDescriçãoDefaultObrigatórioReferência
aVisitaArray de registrosArray contendo os campos do cabeçalho (SPY)
Sim
nOpcNumé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á.