nomeprog := cPerg := "LAURL01"
	aDriver  := ReadDriver() 

	Rl01Perg()
	
	Pergunte(cPerg,.F.)
	
	wnrel:=SetPrint(cString,wnrel,cPerg,Titulo,cDesc1,cDesc2,"",.F.,"",,Tamanho)






    Static Function Rl01Perg()
        DbSelectArea("SX1")
        DbSetOrder(1)

	    If ! DbSeek(cPerg+"01",.t.)
		    Reclock("SX1",.t.)
    		SX1->X1_GRUPO   := cPerg
    		SX1->X1_ORDEM   := "01"
    		SX1->X1_PERGUNT := "Do Produto ?                  "
    		SX1->X1_VARIAVL := "Mv_ch1"
    		SX1->X1_TIPO    := "C"
    		SX1->X1_TAMANHO := 15
	    	SX1->X1_DECIMAL := 0
		    SX1->X1_PRESEL  := 0
    		SX1->X1_GSC     := "G"
    		SX1->X1_VALID   := ""
	    	SX1->X1_VAR01   := "MV_PAR01"
    	EndIf

	    If !DbSeek(cPerg+"02",.t.)
		    Reclock("SX1",.t.)
    		SX1->X1_GRUPO   := cPerg
	    	SX1->X1_ORDEM   := "02"
    		SX1->X1_PERGUNT := "Ate o Produto ?               "
    		SX1->X1_VARIAVL := "Mv_ch2"
    		SX1->X1_TIPO    := "C"
    		SX1->X1_TAMANHO := 15
    		SX1->X1_DECIMAL := 0
    		SX1->X1_PRESEL  := 0
    		SX1->X1_GSC     := "G"
    		SX1->X1_VALID   := ""
    		SX1->X1_VAR01   := "MV_PAR02"

	    EndIf
            dbSelectArea("SX1")
            dbCloseArea()

    RETURN