Mvc - pai + filho + neto

mjoner · Setembro 1, 2023, 4:05pm

Olá, tudo bem?

Estou implementando uma rotina personalizada, que utiliza duas tabelas (SY9 e ZC3).

A rotina, possui Cabeçalho (SY9 - PAI) e dois grids (ZC3 - FILHO e NETO).

Cada um dos grids, utilizam-se de campos específicos da tabela personalizada ZC3.

Ao realizar à inclusão\alteração de registros nesta rotina customizada, caso sejam inclusos um ou "n" registros no grid FILHO (sem existência de registros no grid NETO), à execução ocorre sem inconsistências.

No entanto, ao inserir qualquer registro no grid NETO, ao confirmar à interface, é apresentado error.log conforme abaixo:

THREAD ERROR ([1556], joner, MARCELO) 14/07/2021 17:57:20 argument #0 error, expected C->A, function fieldpos on EXFORMCOMMIT(PROTHEUSFUNCTIONMVC.PRX) 01/04/2021 19:01:09 line : 2282

Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.

jorge.alberto · Setembro 1, 2023, 4:05pm

Oi Marcelo,

Segue um exemplo.

Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.

mjoner · Setembro 1, 2023, 4:05pm

Olá Jorge, tudo bem?

Agradeço pela sua ajuda, no entanto vosso exemplo não atende minha necessidade.

No meu caso, os grids FILHO e NETO, referem-se à uma mesma entidade no banco de dados, ou seja, no total, tenho apenas 2 tabelas envolvidas e não três tabelas.

jorge.alberto · Setembro 1, 2023, 4:05pm

Então terá que criar o grid Neto com dados de uma tabela temporária… que será montada em tempo de execução com base em uma consulta dos registros… será um pouco complexo isso, mas sim é possível de ser feito. Infelizmente exemplo assim eu não tenho pois isso é bem específico.

viniciusgati · Setembro 1, 2023, 4:05pm

tentou criar um model novo usando a mesma tabela com um filtro padrão? acredito que funcione mas na verdade nunca fiz

eduardo.system96 · Setembro 1, 2023, 4:05pm

Olá, conforme analise nesse caso será necessário tratar o Commit das informações de forma manual, exemplo:

oModel := MPFormModel():New('MYMODEL',nil,nil,{ | oModel | GrvModel( oModel ) } )

//NESSA FUNÇÃO REALIZAR SUAS TRATATIVAS PARA A GRAVACAO

Static Function GrvModel()

Local lRetorno := .T.

Return( lRetorno )

lemos.leandro · Setembro 1, 2023, 4:05pm

Desenterrando esse post.

Peguei o mesmo problema com uma tele Pai+Filho+Neto mas somente com duas tabelas (Filho e Neto são a mesma), consegui gravar sem problema após adicionar o relacionamento entre Filho e Neto


oModel:SetRelation('ZZ9REMRET', {{'ZZ9_FILIAL' ,'xFilial("ZZ9")'},{'ZZ9_NUM' ,'ZZ9_NUM'},{'ZZ9_ITEM' ,'ZZ9_ITEM'}}, ZZ9->(IndexKey(2)))

gverissimo · Setembro 1, 2023, 4:05pm

Leandro, seria possível inserir trecho do modelDef do seu código por favor? Estou com o mesmo problema reportado e mesmo fazendo o relacionamento entre filho e neto, o error log continua aparecendo. Obrigado!

jcstorino · Março 27, 2025, 8:24pm

@gverissimo Desculpe ressuciitar o tópico depois de tanto tempo… mas vc conseguiu resolver esse tema ? estou com este problema numa estrutura de pai x filho x neto x bisneto tudo sobre uma mesma tabela ! Coisa doida kkkk Obrigado.

guilhermebarreto · Maio 13, 2025, 1:30pm

Bom dia, Leandro

Estou enfrentando o mesmo problema. Você poderia compartilhar o código? Estou tendo dificuldades no relacionamento entre os submodelos ‘Z10_TAB’ e ‘Z10_PRO’, que estão sendo relacionados, mas pertencem à mesma tabela.

//Atribuindo formulários para o modelo
oModel:AddFields("SF1_CAB",/*cOwner*/,oStSF1)

oModel:AddGrid("Z08_CUS"  ,"SF1_CAB" ,oStZ08  ,,,)
oModel:AddGrid("Z09_MEM"  ,"Z08_CUS" ,oStZ09  ,,,)

oModel:AddGrid("Z10_PRO" ,"SF1_CAB",oStZ10Pro,,,)
oModel:AddGrid("Z10_TAB" ,"Z10_PRO",oStZ10Tab,bPreZ10Tab,,)

//Fazendo o relacionamento entre Documento e Itens - Custo Gerencial
Aadd(aRelZ08,{‘Z08_FILIAL’ , ‘xFilial(“Z08”)’})
Aadd(aRelZ08,{‘Z08_FILDOC’ , ‘F1_FILIAL’ })
Aadd(aRelZ08,{‘Z08_FORNEC’ , ‘F1_FORNECE’})
Aadd(aRelZ08,{‘Z08_LOJA’ , ‘F1_LOJA’ })
Aadd(aRelZ08,{‘Z08_DOC’ , ‘F1_DOC’ })
Aadd(aRelZ08,{‘Z08_SERIE’ , ‘F1_SERIE’ })
oModel:SetRelation(“Z08_CUS”, aRelZ08, Z08->(IndexKey(1)))

//Fazendo o relacionamento entre Itens e Memória de Cálculo Custo
Aadd(aRelZ09,{'Z09_FILIAL' , 'xFilial("Z09")'})
Aadd(aRelZ09,{'Z09_FILDOC' , 'F1_FILIAL' }) 
Aadd(aRelZ09,{'Z09_FORNEC' , 'F1_FORNECE' })
Aadd(aRelZ09,{'Z09_LOJA'   , 'F1_LOJA'   })
Aadd(aRelZ09,{'Z09_DOC'    , 'F1_DOC'    })
Aadd(aRelZ09,{'Z09_SERIE'  , 'F1_SERIE'  })
Aadd(aRelZ09,{'Z09_CODPRO' , 'Z08_CODPRO' })
oModel:SetRelation("Z09_MEM", aRelZ09, Z09->(IndexKey(1)))

//Fazendo o relacionamento entre Documento e Itens - Preço
Aadd(aRelZ10Pro,{'Z10_FILIAL' , 'xFilial("Z10")'})
Aadd(aRelZ10Pro,{'Z10_FILDOC' , 'F1_FILIAL' }) 
Aadd(aRelZ10Pro,{'Z10_FORNEC' , 'F1_FORNECE'})
Aadd(aRelZ10Pro,{'Z10_LOJA'   , 'F1_LOJA'   })
Aadd(aRelZ10Pro,{'Z10_DOC'    , 'F1_DOC'    })
Aadd(aRelZ10Pro,{'Z10_SERIE'  , 'F1_SERIE'  })
oModel:SetRelation("Z10_PRO", aRelZ10Pro, Z10->(IndexKey(1)))

// //Fazendo o relacionamento entre Itens e Tabela de Preço
Aadd(aRelZ10Tab,{'Z10_FILIAL' , 'xFilial("Z10")'})
Aadd(aRelZ10Tab,{'Z10_FILDOC' , 'Z10_FILDOC' }) 
Aadd(aRelZ10Tab,{'Z10_FORNEC' , 'Z10_FORNEC'})
Aadd(aRelZ10Tab,{'Z10_LOJA'   , 'Z10_LOJA'   })
Aadd(aRelZ10Tab,{'Z10_DOC'    , 'Z10_DOC'    })
Aadd(aRelZ10Tab,{'Z10_SERIE'  , 'Z10_SERIE'  })
Aadd(aRelZ10Tab,{'Z10_CODPRO' , 'Z10_CODPRO'})
oModel:SetRelation("Z10_TAB", aRelZ10Tab, Z10->(IndexKey(1)))