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.
#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 |