Perguntas SX1

Wellington bom dia, não aconselho vc a fazer isso, se é uma customização crie uma tela de perguntas customizadas, se precisar te mando algum exemplo, só me informa o que vc está precisando ok.

Aadd(aRegs,{cPerg,"07","Status ?","mv_ch7","C",60,0,0,"G","","mv_par07","","","","","","","","","","","","","","","",'U_FSTAT2()'})



/*/
複複複複複複複複複複複複複複複複複複複複複複複複複複複複複複複複複複複複複複?
굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇?
굇旼컴컴컴컴컫컴컴컴컴컴쩡컴컴컴쩡컴컴컴컴컴컴컴컴컴컴컴쩡컴컴컫컴컴컴컴컴엽?
굇?un‡…o ?ReqEPI ?Autor ?Luiz Alberto ?Data ?3/10/2006낢?
굇쳐컴컴컴컴컵컴컴컴컴컴좔컴컴컴좔컴컴컴컴컴컴컴컴컴컴컴좔컴컴컨컴컴컴컴컴눙?
굇?escri‡…o ?elecionar Requisitos do EPI 낢?
굇쳐컴컴컴컴컵컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴눙?
굇?intaxe ?fStat2() 낢?
굇쳐컴컴컴컴컵컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴눙?
굇?Uso ?Generico 낢?
굇읕컴컴컴컴컨컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴袂?
굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇굇?
賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽賽?*/
User Function fStat2()

Local cTitulo:=""
Local MvPar
Local MvParDef:=""
Local i := 1

Private aReq:={}

cAlias := Alias() // Salva Alias Anterior
MvPar:=&(Alltrim(ReadVar())) // Carrega Nome da Variavel do Get em Questao
mvRet:=Alltrim(ReadVar()) // Iguala Nome da Variavel ao Nome variavel de Retorno

// 1 - Pendente - 2 - Executada - 3 - Falta - 4 - Cancelada - 5 - Adiada - 6 - Taxa
aReq := { 'A - Agendas' ,; //"Foram observadas as condicoes de funcionamento e do uso ininterrupto do EPI ao longo do tempo, conforme especificacao tecnica do fabricante, ajustada as condicoes de campo."
'P - Pendentes' ,; //"Foram observadas as condicoes de funcionamento e do uso ininterrupto do EPI ao longo do tempo, conforme especificacao tecnica do fabricante, ajustada as condicoes de campo."
'E - Executados' ,; //"Foi observado o prazo de validade, conforme Certificado de Aprovacao-CA do MTE."
'F - Faltas' ,; //"Foi observada a periodicidade de troca definida pelos programas ambientais, comprovada mediante recibo assinado pelo usuario em epoca propria."
'C - Cancealdas',;
'R - Remarcada',;
'T - Taxadas',;
'D - Adiadas',;
'@ - Adiantamentos',;
'?- Taxadas Vendas' } //"Foi observada a higienizacao."

MvParDef:= "APEFCRTD@?
cTitulo := 'Selecione os Status Desejados para o Filtro' //"Atendimento aos requisitos pelos EPIS informados"

IF f_Opcoes(@MvPar,cTitulo,aReq,MvParDef,12,49,.F.) // Chama funcao f_Opcoes
&MvRet := mvpar
EndIF

dbSelectArea(cAlias) // Retorna Alias

Return( .T. )

Se precisar de ajuda chama nóis