//TT.prg    - HIER nur als Platzhalter

FUNCTION SatzGet()
//  Dieses ist nur ein Dummy als Platzhalter
   LOCAL aData[ FCount() ]
   aData[1] := 1->auftrnr
RETURN aData

FUNCTION SatzPut()
//  Dieses ist nur ein Dummy als Platzhalter
RETURN .T.

FUNCTION SatzDiff()
//  Dieses ist nur ein Dummy als Platzhalter
   LOCAL aData[ FCount() ]
   aData[1] := 1->auftrnr
RETURN aData

FUNCTION Trckng()
//  Dieses ist nur ein Dummy als Platzhalter
RETURN .T.

FUNCTION TTCZUS()
//  Dieses ist nur ein Dummy als Platzhalter
RETURN .T.

FUNCTION TTCZUSV()
//  Dieses ist nur ein Dummy als Platzhalter
RETURN .T.

FUNCTION TTCZUSA()
//  Dieses ist nur ein Dummy als Platzhalter
RETURN .T.

FUNCTION TTCZUSVV()
//  Dieses ist nur ein Dummy als Platzhalter
RETURN .T.

// Transaktionen-Logbuch f�r cAc:
//16.09.2007 19:13
#include "Fileio.ch"
#include "Common.ch"

CLASS TLogWriter
   VAR lIsError
   VAR aMessage
   VAR cLogFile

 EXPORTED:

   INLINE METHOD init( cLogFile )
      ::cLogFile := cLogFile
      ::aMessage := {}
      ::lIsError := .F.
   RETURN


   INLINE METHOD write( cMsg )
      DEFAULT cMsg TO DtoC(DATE()) + " - " + Time() + " - " + ;
               PadR( ProcName(1) + "(" + LTrim(Str(ProcLine(1))) + ")", 40 ) + ;
               " - " + StrX(1->auftrnr,E) + IIf( "PERS"$Upper(ProcName(1)), 4->P_Perskz, "#" ) + ;
               "-" + 1->berater+" - " + 1->benutzer + " - " + cBK + "/"+cRS
      AAdd( ::aMessage, cMsg )
   RETURN self


   INLINE METHOD logError( cMsg )
      ::lIsError := .T.
      ::write( cMsg )
   RETURN self


   INLINE METHOD isError
   RETURN ::lIsError


   INLINE METHOD writeLogFile
      LOCAL nHandle

      IF .NOT. FExists( ::cLogFile )
         nHandle := FCreate( ::cLogFile )
      ELSE
         nHandle := FOpen( ::cLogFile, FO_READWRITE + FO_DENYWRITE ) //31.07.2007 18:13 ak
         FSeek( nHandle, 0, FS_END )
      ENDIF
//      FWrite( nHandle, "----------START: "+DtoC(DATE())+" - "+Time()+" ------------"+CRLF )  //31.07.2007 18:19 ak
      AEval( ::aMessage, {|cMsg| FWrite( nHandle, cMsg + CRLF ) } )
//      FWrite( nHandle, "----------END----------"+CRLF )   //31.07.2007 18:20 ak
      FClose( nHandle )
      ::aMessage := {}
   RETURN self

ENDCLASS

FUNCTION Quadrant()
// dieses ist nur ein Dummy als Platzhalter
RETURN .F.