| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Tela em MVC modelo 3 |
|
Versão: |
12.1.25 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
Oracle |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
GUDEFENDI
em 07/04/2020, 08:53 h
Local: SP Registro: 10/07/2018 Postagens: 52 |
Bom dia a todos,
Estou montando uma tela em MVC (Modelo 3) e ao executar a tela, é apresentado o erro abaixo e o sistema fecha.
THREAD ERROR ([3020], josed, DELL83) 07/04/2020 08:47:38
Alias does not exist Z32 on FWBRWTABLE:SETALIAS(FWBRWTABLE.PRW) 03/03/2020 18:14:56 line : 1657
****************************************************************************
Fonte
//Bibliotecas
#Include ‘Protheus.ch‘
#Include ‘FWMVCDef.ch‘
//Variáveis Estáticas
Static cTitulo := "SDDs"
User Function Sdd()
Local aArea := GetArea()
Local oBrowse
//Instânciando FWMBrowse - Somente com dicionário de dados
oBrowse := FWMBrowse():New()
//Setando a tabela de cadastro de Autor/Interprete
oBrowse:SetAlias("Z32")
//Setando a descrição da rotina
oBrowse:SetDescription(cTitulo)
//Legendas
//Ativa a Browse
oBrowse:Activate()
RestArea(aArea)
Return Nil
Static Function MenuDef()
Local aRot := {}
//Adicionando opções
ADD OPTION aRot TITLE ‘Visualizar‘ ACTION ‘VIEWDEF.Sdd‘ OPERATION MODEL_OPERATION_VIEW ACCESS 0 //OPERATION 1
//ADD OPTION aRot TITLE ‘Incluir‘ ACTION ‘VIEWDEF.Sdd‘ OPERATION MODEL_OPERATION_INSERT ACCESS 0 //OPERATION 3
//ADD OPTION aRot TITLE ‘Alterar‘ ACTION ‘VIEWDEF.Sdd‘ OPERATION MODEL_OPERATION_UPDATE ACCESS 0 //OPERATION 4
//ADD OPTION aRot TITLE ‘Excluir‘ ACTION ‘VIEWDEF.Sdd‘ OPERATION MODEL_OPERATION_DELETE ACCESS 0 //OPERATION 5
Return aRot
Static Function ModelDef()
Local oModel := Nil
Local oStPai := FWFormStruct(1, ‘Z32‘)
Local oStFilho := FWFormStruct(1, ‘Z33‘)
Local aZ33Rel := {}
//Criando o modelo e os relacionamentos
oModel := MPFormModel():New(‘Sdd‘)
oModel:AddFields(‘Z32MASTER‘,/*cOwner*/,oStPai)
oModel:AddGrid(‘Z33DETAIL‘,‘Z32MASTER‘,oStFilho,/*bLinePre*/, /*bLinePost*/,/*bPre - Grid Inteiro*/,/*bPos - Grid Inteiro*/,/*bLoad - Carga do modelo manualmente*/) //cOwner é para quem pertence
//Fazendo o relacionamento entre o Pai e Filho
aAdd(aZ33Rel, {‘Z33_FILIAL‘, ‘Z32_FILIAL‘})
aAdd(aZ33Rel, {‘Z33_IDSDD‘ , ‘Z32_IDSDD‘ })
oModel:SetRelation(‘Z33DETAIL‘, aZ33Rel, Z33->(IndexKey(1))) //IndexKey -> quero a ordenação e depois filtrado
oModel:GetModel(‘Z33DETAIL‘):SetUniqueLine({"Z33_FILIAL","Z33_IDSDD"}) //Não repetir informações ou combinações {"CAMPO1","CAMPO2","CAMPOX"}
oModel:SetPrimaryKey({})
//Setando as descrições
oModel:SetDescription("Sdds - Modelo 3")
oModel:GetModel(‘Z32MASTER‘):SetDescription(‘Sdd‘)
oModel:GetModel(‘Z33DETAIL‘):SetDescription(‘Aprovadores‘)
Return oModel
Static Function ViewDef()
Local oView := Nil
Local oModel := FWLoadModel(‘Sdd‘)
Local oStPai := FWFormStruct(2, ‘Z32‘)
Local oStFilho := FWFormStruct(2, ‘Z33‘)
//Criando a View
oView := FWFormView():New()
oView:SetModel(oModel)
//Adicionando os campos do cabeçalho e o grid dos filhos
oView:AddField(‘VIEW_Z32‘,oStPai,‘Z32MASTER‘)
oView:AddGrid(‘VIEW_Z33‘,oStFilho,‘Z33DETAIL‘)
//Setando o dimensionamento de tamanho
oView:CreateHorizontalBox(‘CABEC‘,30)
oView:CreateHorizontalBox(‘GRID‘,70)
//Amarrando a view com as box
oView:SetOwnerView(‘VIEW_Z32‘,‘CABEC‘)
oView:SetOwnerView(‘VIEW_Z33‘,‘GRID‘)
//Habilitando título
oView:EnableTitleView(‘VIEW_Z32‘,‘Grupo‘)
oView:EnableTitleView(‘VIEW_Z33‘,‘Produtos‘)
Return oView |
|
|
|
Mensagem do
LHC
em 07/04/2020, 11:47 h
Local: ES Registro: 11/05/2013 Postagens: 49 |
bom dia pelo erro é algo relacionado ao ALIAS, existe essa tabela? confira as SXs da vida no configurador. E verifique também se o nome dos campos estão certos.
Tente colocar o nome completo da sua tabela pra vê se roda.
Ex: se for a SB1 coloque o nome completo da tabela SB1010 ja que sua tabela não é a padrão do sistema pode ser esse detalhe.
Atenciosamente,
Luis Henrique |
|
|
|
Mensagem do
TBERALDI
em 07/04/2020, 12:20 h
Local: SP Registro: 30/08/2006 Postagens: 43 |
Olá!
Antes da chamado FWMBrowse():New() execute dbSelectArea("Z32") e dbSelectArea("Z33").
Abraços!
Tiago Beraldi
------------------------------------
Fone.....: +55 11 99493-5465
Email....: tiago.beraldi@gtin.inf.br
LinkedIn.: linkedin/in/tiagoberaldi
Website..: https://gtin.inf.br/ |
|
|
|
Mensagem do
GUDEFENDI
em 07/04/2020, 14:28 h
Local: SP Registro: 10/07/2018 Postagens: 52 |
LHC,
Fize esse teste e não funcionou. Mesmo erro. |
|
|
|
Mensagem do
GUDEFENDI
em 07/04/2020, 14:28 h
Local: SP Registro: 10/07/2018 Postagens: 52 |
TBERALDI,
Fiz isso tambem, e não funcionou. Mesmo erro. |
|
|
|
Mensagem do
LHC
em 07/04/2020, 16:22 h
Local: ES Registro: 11/05/2013 Postagens: 49 |
https://tdn.totvs.com/pages/viewpage.action?pageId=24346925
No seu caso ai acho que deveria ajustar para isso:
LOCAL aArea := GETAREA()
dbSelectArea("Z32")
dbSetOrder(1)
dbSelectArea("Z33")
dbSetOrder(1)
Atenciosamente,
Luis Henrique |
|
|
|
Mensagem do
LHC
em 07/04/2020, 16:34 h
Local: ES Registro: 11/05/2013 Postagens: 49 |
User Function Sdd()
Local aArea := GetArea()
Local oBrowse := FwMBrowse():New()
oBrowse:SetAlias("Z32")
oBrowse:SetDescription(cTitulo)
//LEGENDAS SE HOUVER
//EXEMPLO: oBrowse:AddLegend("XXX->XXX_TIPO == ‘2‘","BLUE", "XXXXX") //azul
oBrowse:Activate()
RestArea(aArea)
Return Nil
Atenciosamente,
Luis Henrique |
|
|
|
Mensagem do
LHC
em 07/04/2020, 16:36 h
Local: ES Registro: 11/05/2013 Postagens: 49 |
Local oStPai := FWFormStruct(1, 'Z32')
Local oStFilho := FWFormStruct(1, 'Z33')
MUDA PARA
Local oStPai := FWFormStruct(1,"Z32")
Local oStFilho := FWFormStruct(1,"Z33")
Atenciosamente,
Luis Henrique |
|
|
|
Mensagem do
MJCUNHA
em 07/04/2020, 17:27 h
Local: SC Registro: 13/08/2019 Postagens: 9 |
Esta tabela foi criado recentemente? Ela aparece no MPSDU?
Tente utilizar esta função CHKFILE("Z32") antes de executar a função de setAlias do objeto.
Atenciosamente,
Matheus Cunha |
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
