Histórico da Página

...

Portuguese

Pagetitle

	M410AGRV - Gravação das alterações
	M410AGRV - Gravação das alterações

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(nulo) Nil

Bloco de código

language	cpp
title	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

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave