Como abrir um determinado Pedido de Compras para edição

Blog Advpl - Share knowledge

Como abrir um determinado Pedido de Compras para edição

Olá, vai aí mais uma dica.

Você fez uma customização com os pedido de compra e quer abrir o pedido para alteração a partir de sua tela. Para isso usaremos a função MATA120.

O processo é bem simples, passa-se o recno e a opção desejada.

Exemplo:

Static Function AlteraPC(nRecno,nOpc)
    Local aArea		:= GetArea()
    Local aAreaSC7	:= SC7->(GetArea())
    dbSelectArea("SC7")
    MsGoto(nRecno)

    //Mata120(ExpN1,ExpA1,ExpA2,ExpN2,ExpA1)
    /*
    ExpN1 = 1-Pedido de compras ou 2-Autorizacao de entrega
    ExpA1 = Array Cabecalho para Rotina Automatica 
    ExpA2 = Array Itens para Rotina Automatica 
    ExpN2 = Opcao do aRotina para Rotina Automatica 
    ExpA1 = Apresenta a Dialog da Rotina em Rotina Automatica (.T. ou .F.)
    */
    Mata120(1,/*aCabec*/,/*aItens*/,nOpc,.T.) RestArea(aAreaSC7) RestArea(aArea) 
Return .T.

Exemplos:

AlteraPC(67081,2) //Visualizar
AlteraPC(67081,4) //Alterar
AlteraPC(67081,5) //Excluir

mata120

Português Português Español Español English English