MATA089 - Rutina automática (ExecAuto)

CONTENIDO

Línea de producto:	Microsiga Protheus^®
Segmento:	Servicios
Módulo:	SIGAFIS - Libros fiscales
Función:	MATA089 - TES Inteligente
Alcance:	Microsiga Protheus 12
Versiones:	Microsiga Protheus 12
Sistemas operativos:	Todos
Compatible con las Bases de datos:	Todas
Nivel de acceso:	Nivel 1 (Acceso Clientes)
Idiomas:	Todos

Esta rutina tiene la finalidad de efectuar el registro automático de Registro de TES inteligente, por medio del mecanismo de rutina automática.

Rutina automática - MATA089 ( [xAutoCab], [nCallOpcx] ) --> Nil

Devolución:
Nil

ExecAuto - MATA089	Nombre	Tipo	Descripción	Default	Obligatorio	Referencia
	[xAutoCab],	Array of Record	Encabezado		X
	[nCallOpcx]	Array of Record	Opción Incluir,Modificar,Visualizar, etc.		X

ExecAuto - MATA089

#Include "RwMake.CH"
#include "tbiconn.ch"

User Function TMata089()
Local aCab := {}
private lMsErroAuto := .F.

PREPARE ENVIRONMENT EMPRESA "99" SUCURSAL "01" MÓDULO "FIS"

aCab:= { {"FM_TIPO" ,"01" ,Nil}}
// Código del tipo de operación o//movimiento del material. (TAbela DJ)
MSExecAuto({|x,y| Mata089(x,y)},aCab,3)

//Inclusión conout("Acabó de ejecutar la rutina automática del Registro de TES inteligente")

//-- Devolución de error en la ejecución de la rutinaIf lMsErroAuto
Conout("error") cErro:=MostraErro()
Else conout("Ok")
Endif
Return