MVC sem metadados

Boa tarde, é possível criar diálogos com o MVC, isto é, sem o metadados apenas com variáveis de memória? Alguém teria algum exemplo?

criado 15 de Jul de 2020
Marcos Bispo Abrahão
281 pontos
editado 15 de Jul de 2020

0

Sim, é possível, mas você presente fazer isso para uma tabela que não está no dicionário? Como deseja fazer?
— Daniel Mendes 15 de Jul de 2020

0

Preciso apenas um diálogo com campos de memória, em substituição ao. uso do diálogo. Não sei se é recomendável
— Marcos Bispo Abrahão 15 de Jul de 2020

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.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
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.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

Marcos,

Criei um exemplo de MVC sem a utilização de dicionário de dados e tabelas:

#include "protheus.ch"
#include "fwmvcdef.ch"

//Variável estática que salva os dados do modelo após o commit
//Necessário limpeza manual após utilização
static __cJsonMemory as char

//-------------------------------------------------------------------
/*/{Protheus.doc} DnlMvcMemory
Função de usuário, acessa o modelo e view que são criados somente em
memória, essa função poderia e deveria estar em outro fonte para uma
melhor organização! :D

@author Daniel Mendes
@since 17/07/2020
@version 1.0
/*/
//-------------------------------------------------------------------
user function DnlMvcMemory()
local oExecView as object
local cBreakLine as char
local cData as char
local jData

DnlMvcMemoryData():cleanJsonFromModelInMemory()

oExecView := FWViewExec():New()

oExecView:setTitle("Dados pessois - Somente maiores de 18 anos")
oExecView:setSource("DnlMvcMem")
oExecView:setModal(.T.)
oExecView:setOperation(MODEL_OPERATION_INSERT)
oExecView:openView()

FreeObj(oExecView)

oExecView := nil

cData := DnlMvcMemoryData():getJsonFromModelInMemory()

if !Empty(cData)
    ConOut(cData)

    jData := JsonObject():New()
    jData:fromJson(cData)

    cBreakLine := Chr(13) + Chr(10)

    cData := "Dados cadastrados" + cBreakLine + cBreakLine
    cData += "Nome : " + jData["models"][1]["fields"][1]["value"] + cBreakLine
    cData += "Nascimento : " + DtoC(StoD(jData["models"][1]["fields"][2]["value"])) + cBreakLine
    cData += "E-mail : " + jData["models"][1]["fields"][3]["value"]

    MsgInfo(cData, "TOTVS - Protheus")

    jData := nil
endif

return

//-------------------------------------------------------------------
/*/{Protheus.doc} modelDef
Definição do modelo de dados

@return oModel - Objeto do modelo de dados

@author Daniel Mendes
@since 17/07/2020
@version 1.0
/*/
//-------------------------------------------------------------------
static function modelDef() as object
local oModel as object

oModel := FWFormModel():New("DNL_MVC_IN_MEMORY", /*bPre*/, /*bPost*/, {|oMdl| myCommit(oMdl)}, {|| .T.})

oModel:setDescription("MVC - Sem tabela ou dicionário de dados")
oModel:addFields("DNL_MEMORY_MODEL_FIELDS", /*cOwner*/, modelStruct(), /*bPre*/, /*bPost*/, /*bLoad*/)

return oModel

//-------------------------------------------------------------------
/*/{Protheus.doc} modelStruct
Definição da estrutura do modelo

@return oStruct - Objeto com a estrutura de dados

@author Daniel Mendes
@since 17/07/2020
@version 1.0
/*/
//-------------------------------------------------------------------
static function modelStruct() as object
local oStruct as object

oStruct := FWFormModelStruct():New()

oStruct:addTable("", {"Name"}, "Pessoa", /*bRealName*/)
oStruct:addField("Nome", "Nome completo", "Name", "C", 75, /*nDecimal*/, /*bValid*/, /*bWhen*/, /*aValues*/, .T., /*bInit*/, .T., /*lNoUpd*/, /*lVirtual*/, /*cValid*/)
oStruct:addField("Nascimento", "Data de nascimento", "Birth", "D", 8, /*nDecimal*/, {|oModel| adultsOnly(oModel)}, /*bWhen*/, /*aValues*/, .T., /*bInit*/, /*lKey*/, /*lNoUpd*/, /*lVirtual*/, /*cValid*/)
oStruct:addField("E-mail", "Endereço de e-mail", "Email", "C", 30, /*nDecimal*/, /*bValid*/, /*bWhen*/, /*aValues*/, .T., /*bInit*/, /*lKey*/, /*lNoUpd*/, /*lVirtual*/, /*cValid*/)

return oStruct

//-------------------------------------------------------------------
/*/{Protheus.doc} viewDef
Definição da visualização de dados

@return oView - Objeto para a visualização dos dados

@author Daniel Mendes
@since 17/07/2020
@version 1.0
/*/
//-------------------------------------------------------------------
static function viewDef() as object
local oView as object

oView := FWFormView():New()

oView:setModel(FWLoadModel("DnlMvcMem"))
oView:addField("DNL_MEMORY_VIEW_FIELDS", viewStruct(), "DNL_MEMORY_MODEL_FIELDS", /*bValid*/)
oView:createHorizontalBox("ALL_CLIENT", 100)
oView:setOwnerView("DNL_MEMORY_VIEW_FIELDS","ALL_CLIENT")

return oView

//-------------------------------------------------------------------
/*/{Protheus.doc} viewStruct
Definição da estrutura de visualização de dados

@return oStruct - Objeto com a estrutura da visualização dos dados

@author Daniel Mendes
@since 17/07/2020
@version 1.0
/*/
//-------------------------------------------------------------------
static function viewStruct() as object
local oStruct as object

oStruct := FWFormViewStruct():New()

oStruct:addField("Name", "01", "Nome", "Nome completo", /*aHelp*/, "C", /*cPicture*/, /*bPictVar*/, /*cLookUp*/, /*lCanChange*/, /*cFolder*/, /*cGroup*/, /*aComboValues*/, /*nMaxLenCombo*/, /*cIniBrow*/, /*lVirtual*/, /*cPictVar*/, /*lInsertLine*/, /*nWidth*/, /*lModal*/, /*cPICBRV*/, /*lObfuscated*/)
oStruct:addField("Birth", "02", "Nascimento", "Data de nascimento", /*aHelp*/, "D", /*cPicture*/, /*bPictVar*/, /*cLookUp*/, /*lCanChange*/, /*cFolder*/, /*cGroup*/, /*aComboValues*/, /*nMaxLenCombo*/, /*cIniBrow*/, /*lVirtual*/, /*cPictVar*/, /*lInsertLine*/, /*nWidth*/, /*lModal*/, /*cPICBRV*/, /*lObfuscated*/)
oStruct:addField("Email", "03", "E-mail", "Endereço de e-mail", /*aHelp*/, "C", /*cPicture*/, /*bPictVar*/, /*cLookUp*/, /*lCanChange*/, /*cFolder*/, /*cGroup*/, /*aComboValues*/, /*nMaxLenCombo*/, /*cIniBrow*/, /*lVirtual*/, /*cPictVar*/, /*lInsertLine*/, /*nWidth*/, /*lModal*/, /*cPICBRV*/, /*lObfuscated*/)

return oStruct

//-------------------------------------------------------------------
/*/{Protheus.doc} adultsOnly
Validação de maiores de 18 anos
[Apenas o ano é validado]

@param oModel - Objeto do modelo, não utilizado

@return Boolean - .T.

@author Daniel Mendes
@since 17/07/2020
@version 1.0
/*/
//-------------------------------------------------------------------
static function adultsOnly(oFormFields) as logical
return Year(Date()) - Year(oFormFields:getValue("Birth")) >= 18

//-------------------------------------------------------------------
/*/{Protheus.doc} myCommit
Commit do modelo, apenas salva o json em uma variavel estática,
sempre retornando .T., pois não existe persistência

@param oModel - Objeto do modelo, não utilizado

@return Boolean - .T.

@author Daniel Mendes
@since 17/07/2020
@version 1.0
/*/
//-------------------------------------------------------------------
static function myCommit(oModel) as logical
__cJsonMemory := oModel:getJsonData()
return .T.

//-------------------------------------------------------------------
/*/{Protheus.doc} DnlMvcMemoryData
Classe auxiliar com métodos estáticos para acessar os dados do modelo

@author Daniel Mendes
@since 17/07/2020
@version 1.0
/*/
//-------------------------------------------------------------------
class DnlMvcMemoryData from longnameclass
    static method getJsonFromModelInMemory()
    static method cleanJsonFromModelInMemory()
endclass

//-------------------------------------------------------------------
/*/{Protheus.doc} getJsonFromModelInMemory
Método para retornar o conteúdo atual do json

@return __cJsonMemory - String contendo o JSON, podendo estar vazia ou nula

@author Daniel Mendes
@since 17/07/2020
@version 1.0
/*/
//-------------------------------------------------------------------
method getJsonFromModelInMemory() class DnlMvcMemoryData
return __cJsonMemory

//-------------------------------------------------------------------
/*/{Protheus.doc} cleanJsonFromModelInMemory
Método para limpar o conteúdo do json

@author Daniel Mendes
@since 17/07/2020
@version 1.0
/*/
//-------------------------------------------------------------------
method cleanJsonFromModelInMemory() class DnlMvcMemoryData
__cJsonMemory := ""
return

Espero que lhe ajude, dando ao menos um norte de como pode ser feito.

editar
- x
grosseiro ou ofensivo pouco construtivo obsoleto outro...
Motivo

criado 17 de Jul de 2020
Daniel Mendes
15419 pontos

0

Obrigado Daniel!! Vou testar e reporto o que aconteceu.
— Marcos Bispo Abrahão 18 de Jul de 2020

0

Daniel, como não vi resposta sobre o assunto e o programa que voce envio, então usei o seu fonte e compilei na versão 33 e fui testar. Quando faço a chamada no programa a rotina retorna essa mensagem: Problema: Undefined View for DnlMvcMen
— Sandro Alves 05 de Oct de 2022

0

Qual o nome do código fonte que você salvou esse exemplo?
— Daniel Mendes 05 de Oct de 2022

0

Salvei o código com esse nome DnlMvcMemory.prw
— Sandro Alves 06 de Oct de 2022

0

Hum... Eu não consegui reproduzir dessa forma, o nome do fonte para MVC é bem importante, mas eu uso esse exemplo até hoje como POC para diversas questões envolvendo o MVC.
— Daniel Mendes 06 de Oct de 2022

up 0 down
Daniel, como não vi resposta sobre o assunto e o programa que voce envio, então usei o seu fonte e compilei na versão 33 e fui testar. Quando faço a chamada no programa a rotina retorna essa mensagem: Problema: Undefined View for DnlMvcMen
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 05 de Oct de 2022
  Sandro Alves
  27 pontos
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

MVC sem metadados

Comentário

2 respostas

Comentário

Comentário

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