Eu sei que essa todos sabem e, além disso, ouvi dizer que será continuada. Não sei se é boato. Mas por enquanto ainda funciona no Protheus 12. Então vou deixar registrado aqui esse exemplo para consulta de referência com campos Data De, Data Até, Código de Produto e uma Combobox.
// Função para validar se a pergunta existe, caso contrario o sistema irá cria-lá ***************************************** Static Function fPergunta(cPerg) ***************************************** //PutSx1(cGrupo,cOrdem,cPergunt ,cPerSpa,cPerEng,cVar ,cTipo,nTamanho,nDecimal,nPresel,cGSC,cValid ,cF3 ,cGrpSxg ,cPyme,cVar01 ,cDef01 ,cDefSpa1,cDefEng1,cCnt01,cDef02 ,cDefSpa2,cDefEng2,cDef03 ,cDefSpa3 ,cDefEng3 ,cDef04 ,cDefSpa4,cDefEng4,cDef05,cDefSpa5,cDefEng5,aHelpPor,aHelpEng,aHelpSpa,cHelp) PutSx1(cPerg ,"01" ,"Data Inicial ?","" ,"" ,"mv_ch1" ,"D" ,08 ,00 ,0 ,"G" ,"" ,"" ,"" ,"" ,"mv_par01","" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"") PutSx1(cPerg ,"02" ,"Data Final ?","" ,"" ,"mv_ch2" ,"D" ,08 ,00 ,0 ,"G" ,"NaoVazio","" ,"" ,"" ,"mv_par02","" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"") PutSx1(cPerg ,"03" ,"Produto ?","" ,"" ,"mv_ch3" ,"D" ,08 ,00 ,0 ,"G" ,"NaoVazio","SB1","" ,"" ,"mv_par03","" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"") PutSx1(cPerg ,"04" ,"Bloqueados ?","" ,"" ,"mv_ch4" ,"N" ,01 ,00 ,0 ,"C" ,"" ,"" ,"" ,"" ,"mv_par04","Todos" ,"Todos" ,"Todos" ,"" ,"Ativos" ,"Ativos","Ativos","Bloqueados","Bloqueados","Bloqueados","" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,"") Return
Thiago Coimbra 