Perguntas Rotina para finalizar a Ordem de Separação

Tranquilo, eu irei tentando aqui.

Obrigado !

Cara, não sei se é exatamente isso que você quer, mas da uma olhada.
Eu alterei alguns pontos e tratei o problema que você falou.
Ainda não testei, ve ai e da um retorno pra gente.
Valeu!

Cara deu certo, mais através do seu ajuste encontrei os erros estava dando o seguinte erro, não saia do processo, esse você concertou para mim, e toda vez que eu abria uma ordem de separação para finalizar ele criava outro campo conferente, esse erro era porque eu coloquei o cPerg como variavel Local o correto era Private e la no final do validperg estava com a tabela errada lá esta CB7 o correto era CBN que é a tabela dos conferentes. Então era isso, obrigado pela ajuda, agora estou tentando criar uma legenda para quando for finalizado ele mude de cor.

Cara eu estou com problema para desenvolver a legenda, quando finalizo a ordem de separação gostaria que mudasse de cor identificando que foi finalizada. Eu fiz o seguinte dentro do ponto de entrada "ACD100M" fiz como está abaixo ele traz a legenda conforme eu fiz, mais ele não está mudando de cor, eu criei uma rotina chamada "LEGENDA" onde essa rotina eu chamo ela dentro do ponto de entrada, fiz assim:

User Function LEGENDA()

Local aRet := {}
Private aCores := {}

aAdd( aCores, {"CB7->CB7_STATUS == '1'", "BR_AZUL" })
aAdd( aCores, {"CB7->CB7_STATUS == '2'", "BR_VERDE"})

aAdd(aRet,{"BR_AZUL","Separação em Andamento"})
aAdd(aRet,{"BR_VERDE","Separação Encerrada" })

BrwLegenda("Legenda","Status",aRet)

Return(aRet)

---

User Function ACD100M() //Ponto de entrada

aRotina := { {"Pesquisar" ,"AxPesqui" ,0,1 },;
{"Visualizar" ,"ACDA100Vs" ,0,2 },;
{"Alterar" ,"ACDA100Al" ,0,3 },;
{"Estornar" ,"ACDA100Et" ,0,5,5},;
{"Gerar" ,"ACDA100Gr" ,0,3 },;
{"Impressao" ,"U_RFATR004()" ,0,4 },;
{"Finalizar" ,"U_RFATC001()" ,0,2 },;
{"Legenda" ,"U_LEGENDA()" ,0,3 } }
//{"Legenda" ,"ACDA100Lg" ,0,3 } }

Return(aRotina)