Perguntas Colocar pergunta no While

Bom dia a todos,

Estou me empenhando em aprender o ADVPL na raça e essa comunidade tem feito parte disso.

Agora me deparei com um problema que não encontrei a solução certa.

Esse script abaixo faz traz a tabela DTC e importa para um txt, mas preciso colocar uma pergunta de data inicial ate a data final DTC_DATENT sem / / . Obrigado

While (cAlias)->(!EOF())
//Incrementa a régua
IncProc()


cLin := "01544007601001UNICAC"
cLin += STRZERO(Val((cAlias)->DTC_DOC),
cLin += (cAlias)->DTC_X_EST1
cLin += (cAlias)->DTC_X_EST2
cLin += "AAA9999"
cLin += GRAVADATA((cAlias)->DTC_DATENT,.F.,5)
cLin += STRZERO(((cAlias)->DTC_VALOR),17,2)
cLin += "NSS"
cLin += CRLF

(cAlias)->(dbSkip())
EndDo

Boa tarde, você deverá criar as perguntas.
Static Function criaSx1(cPerg)


putSx1(cPerg, '01', 'Natureza de?', '', '', 'mv_ch1', 'C', TAMSX3("ED_CODIGO")[1], 0, 0, 'G', '','SED', '', '', 'mv_par01')
putSx1(cPerg, '02', 'Natureza até?', '', '', 'mv_ch2', 'C', TAMSX3("ED_CODIGO")[1], 0, 0, 'G', '','SED', '', '', 'mv_par02')
putSx1(cPerg, '03', 'Data de?', '', '', 'mv_ch3', 'D',, 0, 0, 'G', '',, '', '', 'mv_par03')
putSx1(cPerg, '04', 'Data ate?', '', '', 'mv_ch4', 'D',, 0, 0, 'G', '',, '', '', 'mv_par04')
putSx1(cPerg, '05', 'Projeto de?', '', '', 'mv_ch5', 'C', TAMSX3("D1_PROJR")[1], 0, 0, 'G', '',, '', '', 'mv_par05')
putSx1(cPerg, '06', 'Projeto até?', '', '', 'mv_ch6', 'C', TAMSX3("D1_PROJR")[1], 0, 0, 'G', '','', '', '', 'mv_par06')

Return
Cada uma delas MV_PAR gerá um valorr que você irá colocar como parametro.
Depois das perguntas criadas, faça: Pergunte("Nome_pergunta_criada" .T.)

Em primeiro lugar obrigado Ronaldo, mas não me expliquei direito.

A parte de criar a pergunta putSx1 blz, mas a questao é de que forma colocar o MV_PAR em um dbselect ..while ...enddo...se fosse via query SQl sabria como fazer, mas nesse caso eu não sei como colocar a pergunta data de e data ate...

Obrigado

If (cAlias)->DTC_DATENT >= 20140101 .AND. (cAlias)->DTC_DATENT <= 20141231