| Linha de Produto: | Microsiga Protheus® |
| Segmento: | Serviços |
| Módulo: | SIGAFIS - Livros Fiscais |
| Função: | MATA089 - TES Inteligente |
| Abrangências: | Microsiga Protheus 12 |
| Versões: | Microsiga Protheus 12 |
| Sistemas Operacionais: | Todos |
| Compatível com as Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Todos |
Esta rotina tem a finalidade de efetuar o lançamento automático de Cadastro de TES Inteligente, através do mecanismo de rotina automática.
Rotina Automática - MATA089 ( [xAutoCab], [nCallOpcx] ) --> Nil
Retorno:
Nil
| ExecAuto - MATA089 | Nome | Tipo | Descrição | Default | Obrigatório | Referência |
|---|---|---|---|---|---|---|
| [xAutoCab], | Array of Record | Cabeçalho | X | |||
| [nCallOpcx] | Array of Record | Opção Incluir,Alterar,Visualizar e etc | X |
#Include "RwMake.CH"
#include "tbiconn.ch"
User Function TMata089()
Local aCab := {}
private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FIS"
aCab:= { {"FM_TIPO" ,"01" ,Nil}}
// Codigo do Tipo de operacao ou
// movimentacao do material. (TAbela DJ)
MSExecAuto({|x,y| Mata089(x,y)},aCab,3)
//Inclusao
conout("Acabou de executar a rotina automatica do Cadastro de TES Inteligente")
//-- Retorno de erro na execucao da rotina
If lMsErroAuto
conout("erro") cErro:=MostraErro()
Else
conout("Ok")
Endif
Return |
<!-- esconder o menu -->
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style>
|