01. GCTPEDCPO- Liberar campos para alteração de pedidos de venda oriundos pelo SIGAGCT
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | Gestão de Contratos |
| Função: | CNTA121 - Medições MATA410 - Pedidos de Venda |
| Ponto de Entrada: | GCTPEDCPO |
02. DETALHES
| Descrição: | Possibilita ao desenvolvedor determinar quais campos podem ser modificados pelo usuário quando um pedido de venda é oriundo do SIGAGCT | |||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Eventos: | Executado antes da abertura da tela de alteração dos pedidos de venda | |||||||||||||||
| Programa Fonte: | MATA410.PRW | |||||||||||||||
| Função: | A410Altera | |||||||||||||||
| Parâmetros: | Não há | |||||||||||||||
| Retorno: |
|
#INCLUDE "Protheus.ch"
/*{Protheus.doc} CN121ENC()
Possibilita ao desenvolvedor realizar operações após o encerramento da medição.
*/
User Function CN121ENC()
Local lInTrans:= PARAMIXB[1] //Verdadeiro caso seja dentro da transação, Falso fora da transação
Local lResult := PARAMIXB[2] //Verdadeiro caso encerramento tenha ocorrido com sucesso, falso caso tenha falhado por algum motivo.
If lInTrans
MsgInfo("Chamada dentro da transação." ,"U_CN121ENC")
Else
MsgInfo("Chamada fora da transação." ,"U_CN121ENC")
EndIf
If lResult
MsgInfo("Encerramento OK." ,"U_CN121ENC")
Else
MsgInfo("Encerramento Falhou." ,"U_CN121ENC")
EndIf
Return
|