Histórico da Página
...
Produto: | Microsiga Protheus | |||||||||||||||||||||||||||||||||||||||||||||
Versões: | A partir da Versão 12 | |||||||||||||||||||||||||||||||||||||||||||||
Ocorrência: | Rotina Automática - MATA094 (Execauto) | |||||||||||||||||||||||||||||||||||||||||||||
Ambiente: | SIGACOM - Compras | |||||||||||||||||||||||||||||||||||||||||||||
Descrição: | Rotina automática no modelo MVC | |||||||||||||||||||||||||||||||||||||||||||||
Passo a passo: |
Local cNum := "PMSA02" Local cTipo := "PC" Local cAprov := "000003" Local nLenSCR := 0 Local lErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" USER "Administrador" PASSWORD "*" MODULO "COM" nLenSCR :=
A094SetOp
oModel094 :=
oModel094
oModel094
//Se conseguir validar as informações If oModel094:VldData() oModel094:CommitData() lErroAuto := .T. EndIf If !lErroAuto. //Busca o Erro do Modelo de Dados aErro := oModel094:GetErrorMessage() //Monta o Texto que será mostrado na tela AutoGrLog("Id do formulário de origem:" + ' [' +
AutoGrLog
AutoGrLog
AutoGrLog
AutoGrLog
AutoGrLog
AutoGrLog
AutoGrLog
AutoGrLog
MostraErro() EndIf EndIf//Desativa o modelo de dados oModel094:DeActivate()return
| |||||||||||||||||||||||||||||||||||||||||||||
Observação: | Para maiores informações consultar as informações contidas no documento "ADVPL utilizando MVC" |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas