Exemplo de como abrir um Pedido de Vendas em modo de edição via customização
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()) |