Índice exclude
...
CONTENTS
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 |
]]></ac:plain-text-body></ac:structured-macro>
[nCallOpcx] | Array of Record | Options Add, Edit, View, etc. | X |
...
Bloco de código |
---|
...
|
...
...
]]></ac:plain-text-body></ac:structured-macro>
|
...
| ||
#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 |
...