Árvore de páginas

Versões comparadas

Chave

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

 

 

 

 

 

 

 

 

Ponto de Entrada

 

Descrição:Informe o Menu em que estará localizada a rotina

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

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 :

Informe o Título da rotina

Programa Fonte:

Informe o Fonte da rotina

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

= 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

Retorno:

Nome

Tipo

Descrição

Obrigatório

 

 

 

 

 

 

 

 

 

 

 

 

Exemplo:

User Function VCA100VAO()

 

MsgInfo("Ponto de entrada VCA100VAO com sucesso!")

 

Return