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:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
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:
1 2 3 |
AlteraPC(67081,2) //Visualizar AlteraPC(67081,4) //Alterar AlteraPC(67081,5) //Excluir |