Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Raquel Hager Lopes de Andrade

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Raquel Hager Lopes de Andrade

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:SIGAGPE - Gestão de Pessoal
Função:PONA340 - Pedido de VendaVisitas
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

...

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)

...

NomeTipoDescriçãoDefaultObrigatórioReferência
aVisitaArray de registrosArray contendo os campos do cabeçalho (SPY)
Sim
nOpcXnOpcNumérico (opção de execução)3 = Inclusão; 4 = Alteração; 5 = Exclusão
Sim

...

Totvs custom tabs box
tabsExemplo 01, Exemplo 02, Exemplo 03, Exemplo 04
idsExemplo01,Exemplo02
Totvs custom tabs box items
defaultyes
referenciaExemplo 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



...