Criação de Objetos de Negócios

Estou criando um objeto de negócios usando uma query na SF2 com INNER JOIN em outras tabelas e preciso criar um campo calculado que não está no dicionário de dados.

Mas dá erro, estou tentando adicionar o campo usando o self:addProperty no Metodo Schema() da classe, conforme abaixo.

method getSchema() as object class qkComissTReportsBusinessObject

local aFieldsSF2 as array local aFieldsSD2 as array local aFieldsSC6 as array local aFieldsSB1 as array local aFieldsSC5 as array local aFieldsSE4 as array local aFieldsSZT as array Local aFieldsSA3 as array

aFieldsSF2 := { "F2_DOC" , "F2_SERIE" , "F2_VEND2" } aFieldsSA3 := { "A3_NOME"} aFieldsSC5 := { "C5_TPVENDA","C5_CONDPAG"} aFieldsSE4 := { "E4_TIPO" } aFieldsSD2 := { "D2_PEDIDO", "D2_COD" ,"D2_QUANT" ,"D2_PRCVEN" } aFieldsSC6 := { "C6_TABPREC","C6_REPDIR" } aFieldsSB1 := { "B1_CLASSIF","B1_GRUPO" } aFieldsSZT := { "ZT_TIPCOM" ,"ZT_PRCVEN" ,"ZT_PRC60D" }

self:addProperty("Preco ER","Valor ER","number","Preco ER","PRECOER")

self:oSchema:aliasToSchema("SF2", aFieldsSF2) self:oSchema:aliasToSchema("SC5", aFieldsSC5) self:oSchema:aliasToSchema("SE4", aFieldsSE4) self:oSchema:aliasToSchema("SD2", aFieldsSD2) self:oSchema:aliasToSchema("SC6", aFieldsSC6) self:oSchema:aliasToSchema("SB1", aFieldsSB1) self:oSchema:aliasToSchema("SZT", aFieldsSZT)

return self:oSchema

Alguém saberia informar como fazer isso ou tem um exemplo ?