| Produto: |
| ||||||||
|---|---|---|---|---|---|---|---|---|---|
| Linha de Produto: |
| ||||||||
| Segmento: |
| ||||||||
| Módulo: | Gestão de Contratos | ||||||||
| Função: | CNTA121 - Medições MATA410 - Pedidos de Venda | ||||||||
| Ponto de Entrada: | GCTPEDCPO |
| 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: |
|
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#INCLUDE "Protheus.ch"
/*{Protheus.doc} GCTPEDCPO()
Possibilita ao desenvolvedor determinar quais campos podem ser modificados pelo usuário quando um pedido de venda é oriundo do SIGAGCT.
*/
User Function GCTPEDCPO()
Local aResult := Array(2)
If (FindFunction('GCTPVCpos'))
aResult := GCTPVCpos() //Função retorna os campos liberados pelo padrão(incluindo os campos de usuário)
Else
/*Também é possível inicializar o vetor inteiramente:*/
aResult[1] := {"C5_NATUREZ", "C5_CONDPAG"}
aResult[2] := {"C6_ENTREG"}
EndIf
aAdd(aResult[1], "C5_TRANSP")//Adiciona campo a ser liberado no cabeçalho(SC5)
aAdd(aResult[2], "C6_TES")//Adiciona campo a ser liberado nos detalhes(SC6)
Return aResult
|
