Vídeo Aula – AdvPL 024 – Rotinas Automáticas em MVC

Olá pessoal…

Na aula de hoje vou mostrar como executar rotinas automáticas em MVC com FWExecView e FWMVCRotAuto.

Abaixo o código fonte de exemplo da FWExecView.

+ Expandir Código (Duplo Clique para Selecionar tudo)
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	`//Bibliotecas` `#Include 'Protheus.ch'` `#Include 'FWMVCDef.ch'` `//{Protheus.doc} zExecView` `Função de teste que demonstra o funcionamento da FWExecView` `@type function` `@author Atilio` `@since 24/10/2016` `@version 1.0` `@example` `u_zExecView()` `@obs Se a rotina tiver grid, provavelmente será necessário declarar a variável "n" como private` `//` `User Function zExecView()` `Local aArea := GetArea()` `Local cFunBkp := FunName()` `DbSelectArea('ZZ1')` `ZZ1->(DbSetOrder(1))` `//Filial + Código` `//Se conseguir posicionar` `If ZZ1->(DbSeek(FWxFilial('ZZ1') +` `"000002"))` `SetFunName("zModel1")` `FWExecView('Visualizacao Teste',` `'zModel1', MODEL_OPERATION_VIEW)` `SetFunName(cFunBkp)` `EndIf` `RestArea(aArea)` `Return`

Abaixo o código fonte de exemplo da FWMVCRotAuto.

+ Expandir Código (Duplo Clique para Selecionar tudo)
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	`//Bibliotecas` `#Include 'Protheus.ch'` `#Include 'FWMVCDef.ch'` `//{Protheus.doc} zRotAuto` `Exemplo de ExecAuto utilizando MVC (inclusão na ZZ1)` `@type function` `@author Atilio` `@since 24/10/2016` `@version 1.0` `@example` `u_zRotAuto()` `//` `User Function zRotAuto()` `Local aArea := GetArea()` `Local aDados := {}` `Private aRotina := StaticCall(zModel1, MenuDef)` `Private oModel := StaticCall(zModel1, ModelDef)` `Private lMsErroAuto := .F.` `//Adicionando os dados do ExecAuto` `aAdd(aDados, {"ZZ1_DESC",` `"ROT AUTO", Nil})` `//Chamando a inclusão - Modelo 1` `lMsErroAuto := .F.` `FWMVCRotAuto( oModel,;` `//Model` `"ZZ1",;` `//Alias` `MODEL_OPERATION_INSERT,;` `//Operacao` `{{"FORMZZ1", aDados}})` `//Dados` `//Se tiver mais de um Form, deve se passar dessa forma:` `// {{"ZZ2MASTER", aAutoCab}, {"ZZ3DETAIL", aAutoItens}})` `//Se houve erro no ExecAuto, mostra mensagem` `If lMsErroAuto` `MostraErro()` `//Senão, mostra uma mensagem de inclusão` `Else` `MsgInfo("Registro incluido!",` `"Atenção")` `EndIf` `RestArea(aArea)` `Return`

Bom pessoal, por hoje é só.
Abraços e até a próxima.