| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | PCOA050 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada PCO50GRV é utilizado para gravar informações complementares relacionadas ao movimento orçamentário no módulo SIGAPCO. Ele permite a inclusão de dados adicionais que não estão contemplados no padrão do sistema, oferecendo flexibilidade para atender a requisitos específicos do cliente ou do processo orçamentário.
ExecBlock("PCO50GRV",.f.,.f.,{nCallOpcx}) |
#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 |
|