Linha Microsiga Protheus

Árvore de páginas

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:


NomeTipoDescriçãoDefaultObrigatórioReferência
nOpcaoNuméricoindica 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