Histórico da Página

...

Portuguese

Pagetitle

	M415GRV - Gravação de orçamento
	M415GRV - Gravação de orçamento

Ponto-de-Entrada: M415GRV - Gravação de orçamento

Versões:	Microsiga Protheus 8.11 , Microsiga Protheus 10
Idiomas:	Espanhol , Inglês

Descrição:

GRAVAÇÃO DO ORÇAMENTO (APÓS GRAVAÇÃO)
Após a gravação em todas as opções (inclusão, alteração e exclusão)

Observação: Este ponto de entrada é executado dentro do Controle de Transações da rotina de Orçamentos.

O ParamIxb estará com o número da opção (1, 2 ou 3).

Programa Fonte

.PRW

Sintaxe

M415GRV - Gravação de orçamento ( < UPAR> ) --> URET

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

UPAR

Qualquer

Número da Opção, sendo : 1 - Inclusão / 2 - Alteração / 3 - Exclusão

X

Retorno

URET

Nenhum

Bloco de código

language	cpp
theme	Midnight
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 5

Nova versão 6

Chave