FiveTech Software tech support forums

... cMsg += "MO: " + cMon + cEol cMsg += "DY: " + cDay + cEol cMsg += "TM: " + cTime + cEol //IF MsgNoYes( cMsg ) // DbCloseAll() // oWnd[01]:End() // QUIT //ENDIF // Init... cEname := _Event( cEvent ) dDate := CTOD( cMon + "/" + cDay + "/" + cYear ) SELECT impctnr SET ORDER TO TAG S1 GO TOP SEEK '001' ...

... ... sua rotina if nPortA > 0 // COMM aberta CloseComm( nPortA ) endif if nPortB > 0 // COMM aberta CloseComm( nPortB ) endif ... sua rotina QUIT */ //////////////////////////////////////////////// // InitComm( c_Porta_Comm, cProperties ) //Ex: InitiComm( "COM1", "4800,n,8,1" ) //////////////////////////////////////////////// ...

Try to not showing Word:

oWord = CREATEOBJECT( "Word.Application" )

// your code here

oWord:Quit()

EMG