...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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("erroerror") cErro:=MostraErro() Else conout("Ok") Endif Return |