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