Perguntas Ajuda - relatorio de pedido de compra e autorização de entrega

Não consigo mostra o status da ordem, não consigo selecionar o pedido na tabela SCR

>>>>>> dbSeek(xFilial("SCR")+cTipoSC7+SC7->C7_NUM)


If !Empty(SC7->C7_APROV)

cTipoSC7:= IIF((SC7->C7_TIPO == 1 .OR. SC7->C7_TIPO == 3),"PC","AE")
lNewAlc := .T.
cComprador := UsrRetName(SC7->C7_USER)



If SC7->C7_CONAPRO != "B"
lLiber := .T.
EndIf

dbSelectArea("SCR")
dbSetOrder(1)



dbSeek(xFilial("SCR")+cTipoSC7+SC7->C7_NUM)

alert(SCR->CR_NUM)


While !Eof() .And. SCR->CR_FILIAL + Alltrim(SCR->CR_NUM) == xFilial("SCR") + Alltrim(SC7->C7_NUM) .And. SCR->CR_TIPO == cTipoSC7

alert(cAprov)

cAprov += AllTrim(SCR->CR_USER)+" ["
Do Case
Case SCR->CR_STATUS=="03" //Liberado
cAprov += "Ok"
Case SCR->CR_STATUS=="04" //Bloqueado
cAprov += "BLQ"
Case SCR->CR_STATUS=="05" //Nivel Liberado
cAprov += "##"
OtherWise //Aguar.Lib
cAprov += "??"
EndCase
cAprov += "] - "
dbSelectArea("SCR")
dbSkip()
Enddo
If !Empty(SC7->C7_GRUPCOM)
dbSelectArea("SAJ")
dbSetOrder(1)
dbSeek(xFilial("SAJ")+SC7->C7_GRUPCOM)
While !Eof() .And. SAJ->AJ_FILIAL+SAJ->AJ_GRCOM == xFilial("SAJ")+SC7->C7_GRUPCOM
If SAJ->AJ_USER != SC7->C7_USER
cAlter += AllTrim(UsrRetName(SAJ->AJ_USER))+"/"
EndIf
dbSelectArea("SAJ")
dbSkip()
EndDo
EndIf
EndIf