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.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
//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!!!