DT_VCA100VAO_Gravacao_da_tabela_VAO_apos_a_Pesquisa_de_Satisfacao.

Descrição:

Este Ponto de Entrada tem como finalidade gravar a tabela VAO (Reg Satisfação/Insatisfação) depois que a Pesquisa de Satisfação for realizada.

Eventos:

VAO->VAO_USUREC := __CUSERID // Usuario que criou a reclamacao

VAO->VAO_USURES := cRAICUR // Usuario responsavel

VAO->VAO_DEPART := cRAICDP // Departamento

VAO->VAO_TIPREC := cRAICTR // Tipo de reclamacao

VAO->VAO_SITUAC := "0" // Reclamacao aberta

If lOrigem

VAO->VAO_TIPORI := cTipOri // Tipo de Origem

VAO->VAO_FILORI := cFilOri // Filial da Origem

VAO->VAO_ORIGEM := cCodOri // Codigo da Origem

VAO->VAO_TIPTEM := cTipTem // Tipo de Tempo

VAO->VAO_CODPRO := cCodPro // Codigo do Produtivo

EndIf

MsUnlock()

ConfirmSX8()

M->VAO_RECLAM := cRAICOBS

MSMM(VAO->VAO_RECLAO,TamSx3("VAO_RECLAM")[1],,&("VAO_RECLAM"),1,,,"VAO","VAO_RECLAO")

//Ponto de entrada após gravar VAO depois que fez a Pesquisa de Satisfação.

if ExistBlock("VCA100VAO")

ExecBlock("VCA100VAO",.f.,.f.)

Endif

Função: