Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#include "protheus.ch" #include "fwmvcdef.ch" //------------------------------------------------------------------- /*/{Protheus.doc} poc_mvc Exemplo de um modelo e view baseado em uma unica tabela com chamada de um relatório no treports pela função totvs.framework.treports.callTReports @author Vanessa Ruama @since 01/12/2022 @version 1.0 /*/ //------------------------------------------------------------------- User Function poc_mvc() Local oBrowse As Object oBrowse := FWMBrowse():New() oBrowse:SetAlias('SC7') oBrowse:SetDescription('Pedido de Compras') oBrowse:Activate() Return //------------------------------------------------------------------- /*/{Protheus.doc} MenuDef Função para carregamento do menu. @return aRotina, array, array com as opções de menu. @author Vanessa Ruama @since 01/12/2022 @version 1.0 /*/ //------------------------------------------------------------------- Static Function MenuDef() Local aRotina As Array Local aMedicao As Array aRotina := {} aMedicao := {} ADD OPTION aRotina TITLE 'Visualizar' ACTION 'VIEWDEF.poc_mvc' OPERATION 2 ACCESS 0 ADD OPTION aRotina TITLE 'Incluir' ACTION 'VIEWDEF.poc_mvc' OPERATION 3 ACCESS 0 ADD OPTION aRotina TITLE 'Alterar' ACTION 'VIEWDEF.poc_mvc' OPERATION 4 ACCESS 0 ADD OPTION aRotina TITLE 'Excluir' ACTION 'VIEWDEF.poc_mvc' OPERATION 5 ACCESS 0 ADD OPTION aRotina TITLE 'Imprimir Multi' ACTION 'callMulti' OPERATION 8 ACCESS 0 Return aRotina //------------------------------------------------------------------- /*/{Protheus.doc} ModelDef Definição do model referente aos pedidos @return oModel, objeto, objeto do modelo @author Vanessa Ruama @since 01/12/2022 @version 1.0 /*/ //------------------------------------------------------------------- Static Function ModelDef() Local oModel As Object Local oStruSC7 As Object oStruSC7 := FWFormStruct(1,"SC7") oModel := MPFormModel():New("PEDIDO") oModel:SetDescription("Pedido de Compras") oModel:addFields('MASTERSC7',,oStruSC7) oModel:getModel('MASTERSC7'):SetDescription('Pedido de Compras') Return oModel //------------------------------------------------------------------- /*{Protheus.doc} ViewDef Interface do modelo de dados @return oView , objeto, retorna a view do modelo @author Vanessa Ruama @since 01/12/2022 @version 1.0 */ //------------------------------------------------------------------- Static Function ViewDef() Local oModel := ModelDef() Local oView Local oStrSC7:= FWFormStruct(2, 'SC7') oView := FWFormView():New() oView:SetModel(oModel) oView:AddField('FORM_PROD' , oStrSC7,'MASTERSC7' ) oView:CreateHorizontalBox( 'BOX_FORM_PROD', 100) oView:SetOwnerView('FORM_PROD','BOX_FORM_PROD') Return oView //------------------------------------------------------------------- /*{Protheus.doc} callMulti Chamada de múltiplos recursos do Smart View @author Vanessa Ruama @since 15/09/2023 @version 1.0 */ //------------------------------------------------------------------- Function callMulti() Local lSuccess As logical Local cError as character //1º parâmetro = Relatório cadastrado na tabela de De/Para (Campo TR__IDREL) //2º parâmetro = Tipo do relatório ("reports" = relatório comum, "data-grid" = visão de dados, "pivot-table" = tabela dinâmica) //3º parâmetro = Tipo do impressão (Arquivo=1, Email=2) //4º parâmetro = Informações de impressão //5º parâmetro = Parâmetros do relatório //6º parâmetro = Indica se executa em job //7º parâmetro = Indica se exibe os parâmetros para preenchimento //8º parâmetro = Indica se exibe o wizard de configuração do Smart View //9º parâmetro = Erro da execução lSuccess := totvs.framework.treports.callTReports("framework.sv.framework.product",,,,,.F.,,.T., @cError) If !lSuccess Conout(cError) EndIf Return .T. |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas