Linha Microsiga Protheus

Árvore de páginas


CONTEÚDO

  1. Visão Geral
  2. Descrição
  3. Informações Técnicas
  4. Exemplo

01. VISÃO GERAL

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

02. DESCRIÇÃO

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.

03. INFORMAÇÕES TÉCNICAS


Rotina Automática - MATA089 ( [xAutoCab], [nCallOpcx] ) --> Nil

Retorno:
Nil

ExecAuto - MATA089NomeTipoDescriçãoDefaultObrigatórioReferência

[xAutoCab],Array of RecordCabeçalho
X

[nCallOpcx]Array of RecordOpção Incluir,Alterar,Visualizar e etc
X

04. EXEMPLO


ExecAuto - MATA089
#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