Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (yuri.gimenes) em 24 ago, 2022


01. VISÃO GERAL

Esta rotina tem a finalidade de efetuar o lançamento automático do Cadastro de Serviços através do mecanismo de rotina automática.

02. EXEMPLO DE UTILIZAÇÃO

MATA540 - Rotina Automática de Cadastro de Exceção Fiscal - Inclusão
#Include "RwMake.CH"
#include "tbiconn.ch"

User Function TMata943()

Local aCab := {}
private lMsErroAuto := .F.

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "XIFIS26" MODULO "FIS"

aCab:= {{"CCQ_CODIGO"  ,"1234"  ,Nil}}	
// Codigo do Servico		

MSExecAuto({|x,y| Mata943(x,y)},aCab,3) 
//Inclusao    

conout("Acabou de executar a rotina automatica do Cadastro de Codigo de Servico")
//-- Retorno de erro na execucao da rotina

If lMsErroAuto	
	conout("erro")	
	cErro:=MostraErro()
Else	
	conout("Ok")
Endif 

Return