Histórico da Página

#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