Linha Microsiga Protheus

Árvore de páginas

TTKYYM_DT_PCO50GRV_Grava_Inf_Compl_Movto_Orcamentario

 

Características do Requisito

 

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Planejamento e Controle Orcamentário

Rotina:

Rotina

Nome Técnico

PCOA050.PRW

Movimento Orçamentário

Ponto de Entrada:

PCO50GRV

Chamados Relacionados

TTKYYM

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

SNI/SNJ

Sistema(s) Operacional(is):

Todos

Versões/Release:

12.1.7

Descrição

O ponto de entrada PCO50GRV permite gravar informações complementares no movimento orçamentário.

 

Ponto de Entrada

 

Descrição:

O ponto de entrada PCO50GRV permite gravar informações complementares no movimento orçamentário.

Eventos:

PCO50GRV

Programa Fonte:

PCOA050.PRW

Função:

A050Ok)

Parametro:

Nome

Tipo

Descrição

Obrigatório

 nCallOpcx

 N

 3-Incluir

4-Alterar

6-Estornar

 

Exemplo:

#Include 'Protheus.ch'

User Function PCO50GRV()
Local nOpcAux := PARAMIXB[1]

If nOpcAux == 3 .OR. nOpcAux == 4 //inclusao ou alteracao
MsgAlert("Evidencia de Ponto de Entrada : PCO50GRV")
RecLock("AKD", .F.) //.F. pq neste momento registro na AKD ja esta gravado
//campo de usuario AKD_CPOUSU (C) 10 criado via configurador
AKD->AKD_CPOUSU := If(nOpcAux==3,"MOV.INCL.", "MOV.ALTER.")
MsUnlock()
EndIf

Return