User Function NomeFonte()	
	Private cPerguntas   := .F.
	Private oFont
	Private cPerg := "IMPGLO    " //nome da pergunta respeitando 10 campo
	
	ValidPerg()//GERA PARAMETROS
	Pergunte(cPerg,.t.)//CONFIRMACAO DOS PARAMETROS
	Processa( {|| GERADADOS()},"Processando", "Aguarde") //Chama o fonte principal
Return
	
Static Function ValidPerg()
// Objetivo: Criar as perguntas necessarias ao relatorios, caso nao existam
//-----------------------------------------------------------------------------
Local aRegs := {}, i, j, aAreaSX1 := SX1->(GetArea())
SX1->(dbSetOrder(1))

//Campos da Dialog
AADD(aRegs,{cPerg,"01","CBM: ",		"","",			"mv_ch1","C",03,0,0,"C","","","","","","","","","","","","","","","","","","","","","","","","","","",""})


For i := 1 To Len(aRegs)	
	If ! SX1->(dbSeek(cPerg+aRegs[i,2]))
		RecLock("SX1", .T.)
		For j :=1 to SX1->(FCount())
			If j <= Len(aRegs[i])
				SX1->(FieldPut(j,aRegs[i,j]))
			Endif
		Next
		SX1->(MsUnlock())
	Endif
Next

SX1->(RestArea(aAreaSX1))

Return