Perguntas Utilizacao de variavel memoria Relatorio

Bom dia!
Estou customizando um relatório do Orçamento, na qual após a inclusão do orçamento, é executado um ponto de entrada na qual executa minha rotina de relatório customizada, esta rotina consiste em imprimir um relatorio com as informações do orçamento incluso.
Porem eu nao quero utilizar a funcão de Pergunta, para isso preciso que quando executar a minha rotina ele memorize o numero do orçamento que eu acabei de gerar ou seja do campo CJ_NUM, e carregue o meu relatorio buscando a informação do orçamento que eu acabei de criar, segue abaixo um trecho do fonte, onde e qual função eu posso utilizar para que ele entenda que é para aparecer no relatorio as infoprmações do orçamento que eu acabei de incluir?

Obrigado.


User Function RELORC()

Local oTELA //INICIALIZA VARIAVEIS
Local aALIAS := GetArea()
Local aDESC := {"Este programa irá imprimir o Orcamento conforme","definido no parametro."}
Local cPERG := "PEDORC"
Private nAJUSTE := 0
Private nLIN := 0
Private oPrn := TMSPrinter():New("Marketronics")
Private oFont1,oFont2,oFont3,oFont4,oFont5,oFont6

Define Font oFont1 Name "Arial" Size 0,11 Of oPrn Bold
Define Font oFont2 Name "Arial" Size 0,08 Of oPrn
Define Font oFont3 Name "Courier New" Size 0,10 Of oPrn Bold
Define Font oFont4 Name "Courier New" Size 0,10 Of oPrn
Define Font oFont5 Name "Arial" Size 0,14 Of oPrn
Define Font oFont6 Name "Courier New" Size 0,14 Of oPrn Bold

//Pergunte(cPERG,.T.)
@200,001 To 345,350 Dialog oTELA Title "Orcamento - AGORA Telecom"
For I := 1 To Len(aDESC)
@005+(I*10),020 Say aDESC
Next I
@008,013 To 060,165
@042,020 BmpButton Type 06 Action (Processa({|lEnd|Carrega_ORC()}),oPrn:Print(),Close(oTELA))
@042,056 BmpButton Type 15 Action (Processa({|lEnd|Carrega_ORC()}),oPrn:Preview(),Close(oTELA))
//@042,094 BmpButton Type 05 Action Pergunte(cPERG,.T.)
@042,130 BmpButton Type 02 Action Close(oTELA)
Activate Dialog oTELA Centered


Return()


//////////
//CARREGA DADOS DO ORCAMENTO
//////////
Static Function CARREGA_ORC()

//Alert(SCJ->CJ_NUM)

DbSelectArea("SCJ") //POSICIONA NO PEDIDO
DbSetOrder(1)
//SCJ->(DbGoTop())
DbSeek(xFilial("SCJ") + SCJ->CJ_NUM,.T.) //MV_PAR01,.T.)
Do While SCJ->(!Eof()) .And. SCJ->CJ_NUM == MV_PAR01
//////////
//ORCAMENTO
//////////
cOrcamento := SCJ->CJ_NUM
cDesc1 := SCJ->CJ_DESC1
cDesc2 := SCJ->CJ_DESC2
cDesc3 := SCJ->CJ_DESC3
cDesc4 := SCJ->CJ_DESC4
cEmissao := DtoC(SCJ->CJ_EMISSAO)
cMKFRETE := CvalToChar(SCJ->CJ_FRETE)
// cMKMOEDA := CvalToChar(SCJ->CJ_MOEDA)
cMKMOEDA := Iif(SCJ->CJ_MOEDA==1,"R$-REAL","US$-DOLAR")