Ponto-de-Entrada: M410AGRV - Gravação das alterações
Versões: | Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Idiomas: | Espanhol , Inglês |
Descrição:
Este ponto de entrada pertence à rotina de pedidos de venda, MATA410(). Está localizado na rotina de gravação do pedido, A410GRAVA(). É executado antes da gravação das alterações.
Programa Fonte
.PRW
Sintaxe
M410AGRV - Gravação das alterações ( < nOpcao> ) --> Nil
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
nOpcao | Numérico | indica a operação: 1 - inclusão / 2 - alteração / 3 - exclusão | X |
Retorno
Nil
Exemplo:
#INCLUDE 'PROTHEUS.CH' #INCLUDE "FWMVCDEF.CH" User Function M410AGRV() Local aArea := GetArea() //Armazena o ambiente ativo para restaurar ao fim do processo Local nOpcao := PARAMIXB[1] Local nContI := 0 Local nTotItens := 1 Local cProd := aScan(aHeader,{|x| Alltrim(x[2])== "C6_PRODUTO"}) //aCols - Variável Private que contém os itens da SC6 antes de iniciar a gravação //aHeader - Variável Private que contém as estruturas dos campos da SC6 antes de iniciar a gravação If nOpcao == 1 For nContI := 1 To nTotItens If aCols[nContI][cProd] == "000001" Alert("Encontrado o Produto 000001") EndIf Next nContI EndIf RestArea(aArea) //Restaura o ambiente ativo no início da chamada Return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas