If ExistBlock( "PCOA0503" )
//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//P_E³ Ponto de entrada utilizado para adicionar campos no cabecalho ³
//P_E³ Parametros : Nenhum ³
//P_E³ Retorno : Array contendo as os campos a serem adicionados ³
//P_E³ Ex. : User Function PCOA0503 ³
//P_E³ Return {"AKD_FIELD1","AKD_FIELD2"} ³
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ValType( aUsField := ExecBlock( "PCOA0503", .F., .F. ) ) == "A"
AEval( aUsField, { |x| AAdd( aCposEnch, x ) } )
EndIf
EndIf |