Erro ao salvar tela em mvc

Bom Dia, alguem tem ideia do que pode ser o erro abaixo? Ocorre no momento de salvar a tela.

argument #1, parameter cIDField error, expected C->U on MPFORMMODEL:GETVALUE(FWFORMMODEL.PRX) 11/03/2016 09:23:43 line : 2317

[TOTVS build: 7.00.131227A-20160525 NG] Called from MPFORMMODEL:GETVALUE(FWFORMMODEL.PRX) 11/03/2016 09:23:43 line : 2317

// Adiciona ao modelo uma estrutura de formulário de edição por campo
oModel:AddFields( 'ZZOMASTER', /*cOwner*/, oZZO )

// Adiciona ao modelo uma estrutura de formulário de edição por grid
oModel:AddGrid( 'ZD1_V'  , 'ZZOMASTER', oZD1V, /*bLinePre*/, /*bLinePost*/, /*bPreVal*/, /*bPosVal*/, {|oGrid| LoadVigZD1(oGrid,1)}/*BLoad*/ )
oModel:AddGrid( 'ZD1_N'  , 'ZZOMASTER', oZD1N, /*bLinePre*/, /*bLinePost*/, /*bPreVal*/, /*bPosVal*/, {|oGrid| LoadVigZD1(oGrid,2)}/*BLoad*/ )

oModel:AddGrid( 'ZD2_1V' , 'ZD1_V' /*cOwner*/, oZD21V,/*bLinePre*/,/*bLinePost*/,/*bPre*/,/*bPost*/, {|oGrid| LoadVig(oGrid,1)} )
oModel:AddGrid( 'ZD2_1N' , 'ZD1_V' /*cOwner*/, oZD21N,/*bLinePre*/,/*bLinePost*/,/*bPre*/,/*bPost*/, {|oGrid| LoadVig(oGrid,2)} )
oModel:AddGrid( 'ZD2_2V' , 'ZD1_N' /*cOwner*/, oZD22V,/*bLinePre*/,/*bLinePost*/,/*bPre*/,/*bPost*/, {|oGrid| LoadVig(oGrid,1)} )
oModel:AddGrid( 'ZD2_2N' , 'ZD1_N' /*cOwner*/, oZD22N,/*bLinePre*/,/*bLinePost*/,/*bPre*/,/*bPost*/, {|oGrid| LoadVig(oGrid,2)} )

//Efetua a filtragem do Grid conforme regra repassada pela equipe de comissoes:
//********* ESTE METODO SOH IRA FUNCIONAR EM LIB MAIOR QUE 24/07/2013 **************
//oModel:GetModel( 'ZD2DETAIL_V' ):SetLoadFilter( NIL , " ( ZD2_VIGDE <= dDataBase .And. ZD2_VIGATE >= dDataBase) " , NIL )
//oModel:GetModel( 'ZD2DETAIL_A' ):SetLoadFilter( NIL , " ( dDataBase < ZD2_VIGDE .Or. dDataBase > ZD2_VIGATE ) " , NIL )

//Criando os relacionamentos dos pais e filhos
aAdd(aZD1V, {'ZD1_FILIAL',  'xFilial( "ZD1" )'})
aAdd(aZD1V, {'ZD1_GRPINI', 'ZZO_GRPINI'})
aAdd(aZD1N, {'ZD1_FILIAL',  'xFilial( "ZD1" )'})
aAdd(aZD1N, {'ZD1_GRPINI', 'ZZO_GRPINI'})


//Criando os relacionamentos dos netos com os filhos
aAdd(aZD21V, {'ZD2_FILIAL','xFilial( "ZD2" )'})
aAdd(aZD21V, {'ZD2_AGN'   ,"oModel:GetModel('ZD1_V'):GetValue('ZD1_AGN'   )"})
aAdd(aZD21V, {'ZD2_GC'    ,"oModel:GetModel('ZD1_V'):GetValue('ZD1_GRPINI')"}) 
aAdd(aZD21V, {'ZD2_CODPAP',"oModel:GetModel('ZD1_V'):GetValue('ZD1_CODPAP')"})
aAdd(aZD21V, {'ZD2_SEQ'   ,"oModel:GetModel('ZD1_V'):GetValue('ZD1_SEQ'   )"})

aAdd(aZD21N, {'ZD2_FILIAL','xFilial( "ZD2" )'})
aAdd(aZD21N, {'ZD2_AGN',   "oModel:GetModel('ZD1_V'):GetValue('ZD1_AGN' )"  })
aAdd(aZD21N, {'ZD2_GC' ,   "oModel:GetModel('ZD1_V'):GetValue('ZD1_GRPINI')"})
aAdd(aZD21N, {'ZD2_CODPAP',"oModel:GetModel('ZD1_V'):GetValue('ZD1_CODPAP')"})
aAdd(aZD21N, {'ZD2_SEQ'   ,"oModel:GetModel('ZD1_V'):GetValue('ZD1_SEQ'   )"})

aAdd(aZD22V, {'ZD2_FILIAL','xFilial( "ZD2" )'})
aAdd(aZD22V, {'ZD2_AGN',   "oModel:GetModel('ZD1_N'):GetValue('ZD1_AGN' )"  })
aAdd(aZD22V, {'ZD2_GC' ,   "oModel:GetModel('ZD1_N'):GetValue('ZD1_GRPINI')"})
aAdd(aZD22V, {'ZD2_CODPAP',"oModel:GetModel('ZD1_N'):GetValue('ZD1_CODPAP')"})
aAdd(aZD22V, {'ZD2_SEQ'   ,"oModel:GetModel('ZD1_N'):GetValue('ZD1_SEQ'   )"})

aAdd(aZD22N, {'ZD2_FILIAL','xFilial( "ZD2" )'})
aAdd(aZD22N, {'ZD2_AGN',   "oModel:GetModel('ZD1_N'):GetValue('ZD1_AGN'   )"})
aAdd(aZD22N, {'ZD2_GC' ,   "oModel:GetModel('ZD1_N'):GetValue('ZD1_GRPINI')"})
aAdd(aZD22N, {'ZD2_CODPAP',"oModel:GetModel('ZD1_N'):GetValue('ZD1_CODPAP')"})
aAdd(aZD22N, {'ZD2_SEQ'   ,"oModel:GetModel('ZD1_N'):GetValue('ZD1_SEQ'   )"})

// Faz relaciomaneto entre os compomentes do model
If lFiltro
   oModel:SetRelation( 'ZD1_V', { { 'ZD1_FILIAL', 'xFilial( "ZD1" )' },{ 'ZD1_AGN' , 'ZXO->ZXO_TIPAGN'  } ,  { 'ZD1_GRPINI' , 'ZZO_GRPINI'  } } , ZD1->( IndexKey( 1 ) )  )
   oModel:SetRelation( 'ZD1_N', { { 'ZD1_FILIAL', 'xFilial( "ZD1" )' },{ 'ZD1_AGN' , 'ZXO->ZXO_TIPAGN'  } ,  { 'ZD1_GRPINI' , 'ZZO_GRPINI'  } } , ZD1->( IndexKey( 1 ) )  )
Else
   oModel:SetRelation( 'ZD1_V', aZD1V, ZD1->( IndexKey( 2 ) )  ) 
   oModel:SetRelation( 'ZD1_N', aZD1N, ZD1->( IndexKey( 2 ) )  )
EndIf

//Criando o relacionamento dos netos do Filho 1
oModel:SetRelation('ZD2_1V', aZD21V, ZD2->(IndexKey(2)))
oModel:SetRelation('ZD2_1N', aZD21N, ZD2->(IndexKey(2)))

oModel:SetRelation('ZD2_2V', aZD22V, ZD2->(IndexKey(2)))
oModel:SetRelation('ZD2_2N', aZD22N, ZD2->(IndexKey(2)))


// Liga o controle de nao repeticao de linha
//oModel:GetModel( 'ZD1DETAIL' ):SetUniqueLine( { 'ZD1_GRPINI' } )
//oModel:GetModel( 'ZD2DETAIL_V' ):SetUniqueLine( { 'ZD2_AGN' , 'ZD2_GC' , 'ZD2_CODPAP'  } )
//oModel:GetModel( 'ZD2DETAIL_A' ):SetUniqueLine( { 'ZD2_AGN' , 'ZD2_GC' , 'ZD2_CODPAP'  } )

// Adiciona a descricao do Modelo de Dados
oModel:SetDescription( 'Cadastro de Grupo de Comissão' )

// Adiciona a descricao do Componente do Modelo de Dados
oModel:GetModel( 'ZZOMASTER' ):SetDescription( 'Cabeçalho do Grupo de Comissão' )
oModel:GetModel( 'ZD1_V' ):SetDescription( 'Grupos x Percentuais'  )
oModel:GetModel( 'ZD1_N' ):SetDescription( 'Grupos x Percentuais'  )

//Retirar a obrigatoriedade das grades
oModel:GetModel( 'ZD1_N'  ):SetOptional( .T. )
oModel:GetModel( 'ZD2_1V' ):SetOptional( .T. )
oModel:GetModel( 'ZD2_1N' ):SetOptional( .T. )
oModel:GetModel( 'ZD2_2V' ):SetOptional( .T. )
oModel:GetModel( 'ZD2_2N' ):SetOptional( .T. )

oModel:SetPrimaryKey({'ZZO_FILIAL'},{'ZZO_GRPINI'})

// Nao Permite Incluir, Alterar ou Excluir linhas na formgrid
// Foi criado um parametro para o caso da necessidade de se alterar registros antigos.
If GetNewPar("CMS_HBALTA",.F.)

    oModel:GetModel( 'ZD2_1N' ):SetNoInsertLine()
    oModel:GetModel( 'ZD2_1N' ):SetNoUpdateLine()
    oModel:GetModel( 'ZD2_1N' ):SetNoDeleteLine()

    oModel:GetModel( 'ZD2_2N' ):SetNoInsertLine()
    oModel:GetModel( 'ZD2_2N' ):SetNoUpdateLine()
    oModel:GetModel( 'ZD2_2N' ):SetNoDeleteLine()
EndIf
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do SigaOAdvpl!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags ou faça a sua própria pergunta.