#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