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