ADVPL - tReport - Ajuste Simples - Parambox

Necessito que seja ajustado o código que está postado (serve apenas de matriz e agilizar o processo de manutenção/desenvolvimento. O orçamento para esse ajuste é de no máximo R$ 100,00.

Nó código abaixo deve-se:
A.
Ter apenas dois parâmetros:
- Um intervalo de data (de/até) que servirá de critério para o campo F2_HORA
E ao carregar a tela para o usuário, trazer os dois parâmetros preenchidos com a data atual.
Campo obrigatório de preenchimento

- um Parambox (ou outro que achar melhor), que possibilite o usuário pesquisar/selecionar um Cliente (não deletado).
Campo Não Obrigatorio


B.
- Usar esse select como resultado do relatório
SELECT
fat.F2_FILIAL filial
, fat.F2_EMISSAO data
, fat.F2_HORA hora
, fat.F2_CLIENTE cliente_id
, cli.A1_NOME cliente_nome
FROM
SF2010 fat
, SA1010 cli
where
fat.F2_CLIENTE = cli.A1_COD
and fat.F2_LOJA = cli.A1_LOJA
Ajustar os respectivos campos no código (Ex.: TRSection, TRCell, etc)











#include '************'
#include '************'

User function FSCOMR02()

Local oReport

//Criando o grupo de pergunta
CriaPerg()

//Carregando os dados da pergunta
Pergunte("XCLIVEND",.T.)

//Chando a Função para criar a estrutura do relatorio
oReport := ReportDef()

//Imprimindo o Relatorio
oReport:PrintDialog()


Return( Nil )


Static Function ReportDef()

Local oReport
Local oSection
Local oBreak

// Criando a o Objeto

oReport := TReport():New("ClinteXVendedor","Relatorio de Clientes X Vendedor","XCLIVEND",{|oReport| PrintReport(oReport)},"Relatorio de visitas de vendedores nos clientes")

oSection := TRSection():New(oReport,"Dados dos Clientes",{"SA1"} )

TRCell():New(oSection,"A1_VEND" , "SA1")
TRCell():New(oSection,"A1_COD" , "SA1","Cliente")
TRCell():New(oSection,"A1_LOJA" , "SA1")
TRCell():New(oSection,"A1_NOME" , "SA1")
TRCell():New(oSection,"A1_END" , "SA1")
TRCell():New(oSection,"A1_CEP" , "SA1")
TRCell():New(oSection,"A1_CONTATO", "SA1")
TRCell():New(oSection,"A1_TEL" , "SA1")
TRCell():New(oSection,"A1_EST" , "SA1")


//Fazendo a contagem por codigo
TRFunction():New(oSection:Cell("A1_COD" ), NIL, "COUNT", oBreak)


Return ( oReport )



Static Function PrintReport(oReport)

Local oSection := oReport:Section(1)
Local cPart := ""

oSection:BeginQuery()

cPart := "% AND A1_COD >= '" + MV_PAR01 + "' "
cPart += " AND A1_COD