Post Anteriores:
1-Escopo do projeto aqui.
2-Introdução ao MVC aqui.
3-Criar update aqui.
Nos posts anteriores criamos toda a estrutura necessária para começarmos nosso projeto, nesse post criaremos a primeira rotina em MVC, essa rotina será responsável por disponibilizar os códigos de Despesas e Receitas para nós.
Prescisaremos incluir no nosso menu a rotina SPFIN01 – Cad. Despesa e Receita
O código está documentado para ajudar o entendimento da rotina, abaixo o código utilizado
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | #INCLUDE "PROTHEUS.CH"#INCLUDE "FWMBROWSE.CH"#INCLUDE "FWMVCDEF.CH"/*/{Protheus.doc} SPFIN01Tela de cadastro de despesa@author@since@version 1.0@project/*/User Function SPFIN01()Local oBrowse as ObjectPrivate aRotina as ARRAY// Instanciamento da Classe de BrowseoBrowse := FWMBrowse():New()// Definição da tabela do BrowseoBrowse:SetAlias('ZRA')// Titulo da BrowseoBrowse:SetDescription('Cadastro de Despesa ou Receita')// Ativação da ClasseoBrowse:Activate()Return Nil/*/{Protheus.doc}MenuDef definition@author@since@version 1.0@project*/Static Function MenuDef()Local aRotina as arrayaRotina := {}ADD OPTION aRotina Title "Vizualizar" Action 'VIEWDEF.SPFIN01' OPERATION MODEL_OPERATION_VIEW ACCESS 0 //ViewADD OPTION aRotina Title "Incluir" Action 'VIEWDEF.SPFIN01' OPERATION MODEL_OPERATION_INSERT ACCESS 0 //AddADD OPTION aRotina Title "Alterar" Action 'VIEWDEF.SPFIN01' OPERATION MODEL_OPERATION_UPDATE ACCESS 0 //ChangeADD OPTION aRotina Title "Deletar" Action 'VIEWDEF.SPFIN01' OPERATION MODEL_OPERATION_DELETE ACCESS 0 //Delete/*maneira simplificadaSerá criado um menu padrão com as opções: Visualizar, Incluir, Alterar, Excluir, Imprimir e CopiarStatic Function MenuDef()Return FWMVCMenu( 'SPFIN01' ))*/Return aRotina/*/{Protheus.doc}ModelDef definition@author@since@version 1.0@project/*/Static Function ModelDef()Local oStrZRA as ObjectLocal oModel as Object // Modelo de dados que será construídooModel := MPFormModel():New("_SPFIN01") // Cria o objeto do Modelo de DadosoStrZRA := FWFormStruct(1, "ZRA") // Cria a estrutura a ser usada no Modelo de DadosoModel:AddFields("ZRAMASTER",, oStrZRA)// Adiciona ao modelo um componente de formulário// Adiciona a descrição do Modelo de DadosoModel:SetDescription( 'Cadastro despesa ou receita' )// Retorna o Modelo de dadosReturn oModel/*/{Protheus.doc}ViewDef definition@author@since@version 1.0@project/*/Static Function ViewDef()// Cria um objeto de Modelo de dados baseado no ModelDef() do fonte informadoLocal oModel := FWLoadModel( 'SPFIN01' )// Cria a estrutura a ser usada na ViewLocal oStruZRA := FWFormStruct( 2, 'ZRA')// Interface de visualização construídaLocal oView// Cria o objeto de ViewoView := FWFormView():New()// Define qual o Modelo de dados será utilizado na ViewoView:SetModel( oModel )// Adiciona no nosso View um controle do tipo formulário // (antiga Enchoice)oView:AddField( 'VIEW_ZRA', oStruZRA, 'ZRAMASTER' )// Criar um "box" horizontal para receber algum elemento da viewoView:CreateHorizontalBox( 'TELA' , 100 )// Relaciona o identificador (ID) da View com o "box" para exibiçãooView:SetOwnerView( 'ZRAMASTER', 'TELA' )Return oView |
Não deixe de assinar a nossa newsletter e fica por dentro de todos os post.
O código fonte desse e outros exemplos podem ser encontrados em nosso git.
Post interessantes:
Aprenda a instalar o Protheus aqui.
Retornar datas por extenso aqui.
Barras de progresso aqui.
Dúvidas e sugestões, entre em contato.
Obrigado e até a próxima!
0 comentário