Perguntas Sobrepondo por que ?como corrigir ?

#include "rwmake.ch"
#IFNDEF WINDOWS
#DEFINE PSAY SAY
#ENDIF

User Function C_ORC10()


SetPrvt("CSTRING,CDESC1,CDESC2,CDESC3,TAMANHO,ARETURN")
SetPrvt("NOMEPROG,ALINHA,NLASTKEY,TITULO,CABEC1,CABEC2")
SetPrvt("CCANCEL,M_PAG,LI,MTIT1,MTIT2,MPAG")
SetPrvt("MLINHA,CPERG,WNREL,MNRREG,MREG,MCODIGO")
SetPrvt("MGRUPO,MGRUPO_A,MTIPO,")

*******************************************************************
* *
* PROGRAMA C_ORC10.PRW *
* *
*******************************************************************
* AUTOR : Margarete
* DATA : 11/08/09
* FUNCAO: Relatorio de Mao de Obra Pendente
*
*****************************************************************************
#IFNDEF WINDOWS
#ENDIF

cString:="SCK"
cDesc1:=OemToAnsi("Relat.de Mao de Obra Pendente")
cDesc2:=""
cDesc3:=""
tamanho:="P"
aReturn:={"Zebrado",1,"Administracao",1,2,1,"",1}
nomeprog:="C_ORC10"
aLinha:={}
nLastkey:=0

titulo:="Relat.de Mao de Obra Pendente"
cabec2:="CONJUNTO POSICAO CJ CODPECA"
cabec3:=""
cCancel:="***** CANCELADO PELO OPERADOR *****"
m_pag:=1
li:=80
mTIT1:=""
mTIT2:=""
cPerg :="CORC05"
**********************************************************************
* Verifica as perguntas selecionadas
**********************************************************************
pergunte("CORC05",.F.)
**********************************************************************
* Variaveis utiLizadas para parametros
* mv_par01 // Orcamento
**********************************************************************
*
* Envia controle para a funcao SETPRINT
**********************************************************************
wnrel:="C_ORC10"

SetPrint(cString,wnrel,cPERG,titulo,cDesc1,cDesc2,cDesc3,.F.,"",.F.,tamanho)

If nLastKey==27
Return
Endif

SetDefault(aReturn,cString)
If nLastKey==27
Return
Endif

Processa({||Proc_ORC10()})
RptStatus({||ORC10()})

Return

Static Function Proc_ORC10()
***************************

mDIR:="\DATA\ORCA\"
IF FILE(mDIR+"CORC09.DBF")
dbUseArea(.T.,,(mDIR+"CORC09"),"CORC09",.F.)
ELSE
MsgBox("Arquivo CORC09.DBF nao encontrado no Disco!","ALERT")
Return
ENDIF
DBSELECTAREA("CORC09")
ZAP
INDEX ON PRODUTO+STR(POSCJ,3,0)+STR(POSPC,2,0) TO (mDIR+"CORC09")

DBSELECTAREA( "SCK" )
DBSEEK(" "+mv_par01)
IF !FOUND()
MsgBox("Orcamento: "+mv_par01+"nao encontrado no Arq.Itens do Orcamento!","ALERT")
Return
ENDIF
DO WHILE " "+SCK->CK_NUM==" "+mv_par01 .AND. .NOT. EOF()
mPRODUTO:=CK_PRODUTO
mPOSCJ:=SCK->CK_POSCJ
mMAODEOBRA:=0
DO WHILE " "+SCK->CK_NUM+SCK->CK_PRODUTO+STR(SCK->CK_POSCJ,3,0)==" "+mv_par01+mPRODUTO+mPOSCJ .AND..NOT. EOF()
IF SCK->CK_TIPO=="P"
mCODCOMP:=SCK->CK_CODCOMP
ENDIF
IF SCK->CK_TIPO=="M"
mMAODEOBRA:=1
ENDIF
DBSKIP()
ENDDO
IF mMAODEOBRA==0
IF CORC09->(Reclock("CORC09", .T.))
PRODUTO := mPRODUTO
POSCJ := mPOSCJ
CODCOMP := mCODCOMP
COORC09->(dbunlock())
ENDIF
ENDIF
DBSELECTAREA( "SCK" )
ENDDO
RETURN

Static Function ORC10()
************************
mDESCRICAO := SCJ->(dbseek(" "+mv_par01),CJ_DESCRI)
cabec1:="ORCAMENTO Nr.: "+TRANSFORM(mv_par01,"@R 99-99.999") +SPACE(17)+"DENOMINACAO: "+mDESCRICAO

DbSelectArea("CORC09")
DBGOTOP()
DO WHILE .NOT. EOF()
LI:=LI+1
If LI>58
Cabec(titulo,cabec1,cabec2,nomeprog,tamanho)
ENDIF
@ LI,00 pSAY PRODUTO PICTURE "@R 999.99.999-9"
@ LI,15 pSAY POSCJ
@ LI,27 pSAY CODCOMP PICTURE "@R 999.99.999-9"
DBSELECTAREA( "CORC09" )
DBSKIP()
ENDDO

Roda(0,"","P")
If aReturn[5]==1
Set Printer To
Commit
ourspool(wnrel)
Endif
MS_FLUSH()

RETURN

*Eof.: Proc.: C_ORC10.PRW
***************************
***************************************************************************