Visualizar um Pedido de Vendas por uma customização

---

Dias atrás me perguntaram se é possível visualizar um pedido de vendas por uma customização usando função padrão da Totvs. E se nós poderíamos colocar um exemplo aqui no blog, sim é possível e é bem simples o processo. Para visualizar utilizarei a rotina padrão MatA410, no qual precisarei apenas dois parâmetros: O número do pedido de vendas e a opção A410Visual Supondo que tenho uma tela no qual tenho o número do pedido de vendas, irei criar um botão no qual irei chamar uma função passando como parâmetro o número do pedido que desejo visualizar.

//Exemplo: AcessaPV("096800")

Static Function AcessaPV(cPedido)
	Local aArea := GetArea() //Irei gravar a area atual
	Private Inclui    := .F. //defino que a inclusão é falsa
	Private Altera    := .T. //defino que a alteração é verdadeira
	Private nOpca     := 1   //obrigatoriamente passo a variavel nOpca com o conteudo 1
	Private cCadastro := "Pedido de Vendas" //obrigatoriamente preciso definir com private a variável cCadastro
	Private aRotina := {} //obrigatoriamente preciso definir a variavel aRotina como private

	DbSelectArea("SC5") //Abro a tabela SC5
	SC5->(dbSetOrder(1)) //Ordeno no índice 1
	SC5->(dbSeek(xFilial("SC5")+cPedido)) //Localizo o meu pedido
	If SC5->(!EOF()) //Se o pedido existe irei continuar
		SC5->(DbGoTo(Recno())) //Me posiciono no pedido
		MatA410(Nil, Nil, Nil, Nil, "A410Visual") //executo a função padrão MatA410
	Endif
	SC5->(DbCloseArea()) //quando eu sair da tela de visualizar pedido, fecho o meu alias
	RestArea(aArea) //restauro a area anterior.
Return

  Para abrir a janela como alterar o pedido de venda, troque o A41Visual por A410Altera. Qualquer dúvida, comente!!!