Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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:


NomeTipoDescriçãoDefaultObrigatórioReferência
nOpcaoNuméricoindica a operação: 1 - inclusão / 2 - alteração / 3 - exclusão
X


Retorno
Nil(nulo) Nil


Bloco de código
languagecpp
titleExemplo:
#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