Dias atrás me perguntaram se é possível visualizar um pedido de vendas por uma customização usando função padrão da Totvs.
Segue um pequeno exemplo de como abrir seu pedido de vendas em modo de edição através de sua customização.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Static Function AlteraPV(nRecno) Local aArea := GetArea() Private Inclui := .F. Private Altera := .T. Private nOpca := 1 Private cCadastro := "Pedido de Vendas" Private aRotina := {} DbSelectArea("SC5") dbSetOrder(1) SC5->(DbGoTo(nRecno)) MatA410(Nil, Nil, Nil, Nil, "A410Altera") SC5->(DbCloseArea()) RestArea(aArea) Return |
Exemplo:
|
1 |
AlteraPV(56599) //Informe o numero do Recno ou você pode informar SC5->(Recno()) |