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