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.

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

AlteraPV(56599) //Informe o numero do Recno ou você pode informar SC5->(Recno())