Bem Vindo, Visitante	Todos os Fórums   ADVPL		Imprimir  Enviar Para um Amigo Precisa estar Logado
Assunto: Modelo X MVC Versão: 12.1.8 Plataforma: Microsoft Complemento: DB: SQL Server Complemento:
Tweet

Mensagem do MJRCARRIEL em 03/10/2018, 16:54 h Local: SP  Registro: 03/10/2018  Postagens: 1 Boa tarde , Estou desenvolvendo uma Tela MVC Modelo X , a tela Funciona quando tenho o relacionamento entre Pai e Filho , porem quanto faço a Inclusao da Segunda Grid e o relacionamento com a tabela Neto, esta ocorrendo o seguinte erro !!! THREAD ERROR ([5896], mjrcarriel, SS00250801INF)   03/10/2018 16:49:10 variable does not exist MSGETDI on {|a,b,c| FWInitCpo(a,b,c),xRet:=(MSGETDI:ACOLS[MSGETDI:NAT][1]),FWCloseCpo(a,b,c,.T.),FwSetVarMem(a,b,xRet),xRet }(PROTHEUSFUNCTIONMVC.PRX) 24/08/2018 15:13:39 [TOTVS build: 7.00.131227A-20180712 NG] Called from {|a,b,c| FWInitCpo(a,b,c),xRet:=(MSGETDI:ACOLS[MSGETDI:NAT][1]),FWCloseCpo(a,b,c,.T.),FwSetVarMem(a,b,xRet),xRet }(PROTHEUSFUNCTIONMVC.PRX) 24/08/2018 15:13:39 Called from INITVALUE(FWFORMGRIDMODEL.PRX) 24/08/2018 15:13:38 line : 412 Called from INITLINE(FWFORMGRIDMODEL.PRX) 24/08/2018 15:13:38 line : 379 Called from FWFORMGRIDMODEL:INITLINE(FWFORMGRIDMODEL.PRX) 24/08/2018 15:13:38 line : 1690 Called from LOAD(FWFORMGRIDMODEL.PRX) 24/08/2018 15:13:38 line : 5248 Alguem tem ideia do que pode ser esse erro ? Abaixo o um trecho do Fonte !! Static Function ModelDef() Local oStruSZI := FWFormStruct(1,‘SZI‘) Local oStruSZB := FwFormStruct(1,‘SZB‘) Local oStrZP   := FwFormStruct(1,‘SZP‘) Local oModel oModel   := MPFormModel():New("ModelSZI") oModel:AddFields("SZIMASTER",/*cOwner*/,oStruSZI) //,bPre oModel:AddGrid ("SZBDETAIL","SZIMASTER",oStruSZB) oModel:AddGrid ("SZPSUBDET","SZBDETAIL",oStrZP) oModel:SetRelation("SZBDETAIL", {{"ZB_IDENTZI","ZI_MSIDENT"}},SZB->(IndexKey(1))) oModel:GetModel("SZBDETAIL"):SetUniqueLine({"ZB_MSIDENT"}) oModel:SetPrimaryKey({}) oModel:SetRelation("SZPSUBDET",{{"ZP_IDENTZB","ZB_MSIDENT"}},SZP->(IndexKey(1))) oModel:GetModel(‘SZPSUBDET‘):SetUniqueLine({"ZP_MSIDENT"}) oModel:SetPrimaryKey({}) oModel:SetDescription("Cadastro de D.I") oModel:GetModel("SZIMASTER"):SetDescription("Importacao") oModel:GetModel("SZBDETAIL"):SetDescription("Adicoes") oModel:GetModel("SZPSUBDET"):SetDescription("Sequencia") oModel:GetModel("SZPSUBDET"):SetUseOldGrid() Return oModel Static Function ViewDef() Local oModel     := FwLoadModel(‘EMC221‘) Local oStruSZI   := FWFormStruct(2,‘SZI‘) Local oStruSZB   := FWFormStruct(2,‘SZB‘) Local oStSZP     := FWFormStruct(2,‘SZP‘) Local oView // CRIANDO A VIEW oView := FWFormView():New() oView:SetModel(oModel) oStruSZI:AddFolder(‘FOLDER1‘,‘Dados da Importação‘) oStruSZI:AddFolder(‘FOLDER2‘,‘Cotaçao‘) oStruSZI:AddFolder(‘FOLDER3‘,‘Total da Importaçao‘) oStruSZI:AddGroup(‘GRFRET‘,‘Frete‘,‘FOLDER2‘,2) oStruSZI:AddGroup(‘GRSEGU‘,‘Seguro‘,‘FOLDER2‘,2) oStruSZI:AddGroup(‘GRDESP‘,‘Despesas‘,‘FOLDER2‘,2) oView:AddField(‘_SZI‘ , oStruSZI,‘SZIMASTER‘ ) oView:AddGrid (‘_SZB‘ , oStruSZB,‘SZBDETAIL‘) oView:AddGrid (‘_SZP‘ , oStSZP ,‘SZPSUBDET‘) oView:CreateHorizontalBox(‘SUPERIOR‘,38) oView:CreateHorizontalBox(‘INFERIOR‘,62) oView:CreateVerticalBox( ‘BOXFORM3‘, 100, ‘SUPERIOR‘) oView:CreateVerticalBox( ‘BOXFORM5‘, 50, ‘INFERIOR‘) oView:CreateVerticalBox( ‘BOXFORM7‘, 50, ‘INFERIOR‘) oView:SetOwnerView(‘_SZI‘,‘BOXFORM3‘) oView:SetOwnerView(‘_SZB‘,‘BOXFORM5‘) oView:SetOwnerView(‘_SZP‘,‘BOXFORM7‘) oView:SetViewProperty(‘_SZI‘ , ‘SETLAYOUT‘ , {FF_LAYOUT_VERT_DESCR_TOP,5} ) oView:SetViewProperty(‘_SZI‘ , ‘SETCOLUMNSEPARATOR‘, {10}) Return oView

Mensagem do ANDREWS.AL em 18/10/2018, 13:34 h Local: GO  Registro: 13/03/2014  Postagens: 1 Boa tarde. Acredito que esteja faltando o .T. dentro SetUseOldGrid. oModel:GetModel("SZPSUBDET"):SetUseOldGrid() oModel:GetModel("SZPSUBDET"):SetUseOldGrid(.T.)

Para postar no Fórum você precisa efetuar o seu login ou se registrar