Histórico da Página
Ponto de Entrada
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. |
Localização:Informe o Submenu em que estará localizada a rotina | Atualizações / Cad C e V / Perg Pesq Satisfac |
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
|
Programa Fonte: | VEICA100.PRW |
Função:Informe o Nome do(s) produto(s) a ser utilizado ou “Todos” | |
Retorno: | N/A |
Exemplo:
User Function VCA100VAO()
MsgInfo("Ponto de entrada VCA100VAO com sucesso!")
Return