Product Line: | Microsiga Protheus® |
Industry: | Services |
Module: | SIGAFIS - Tax Records |
Function: | MATA089 - Smart TIO |
Scope: | Microsiga Protheus 12 |
Versions: | Microsiga Protheus 12 |
Operating Systems: | All |
Compatible with the following databases: | All |
Access Level: | Level 1 (Customer Access) |
Languages: | All |
This routine is intended to perform the automatic entering of Smart TIO Registration using the automatic routine mechanism.
Automatic routine - MATA089 ( \[xAutoCab\], \[nCallOpcx\] ) --> Nil
Return:
Nil
ExecAuto - MATA089 | Name | Type | Description | Default | Mandatory | Reference |
[xAutoCab], | Array of Record | Header | X | |||
[nCallOpcx] | Array of Record | Options Add, Edit, View, 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}}
// Code of operation type or
// material transaction. (DJ Table)
MSExecAuto({|x,y| Mata089(x,y)},aCab,3)
// Inclusion
conout("Just performed the automatic routine of the Smart TIO Registration")
//-- Return of error in routine execution
If lMsErroAuto
conout("error") cErro:=MostraErro()
Else
conout("Ok")
Endif
Return