Function AusgabeMemo(_self, _cValue, _nFondsize, _nFonds, _nFondsattrib, _nTabLeft, _nZA)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// Beratungsprotokoll
// -----------------------------------------
local m
local x
local n
local nMemLines
local cTeil
local nMaxWidth
local cMemoLine
local nOccurs
local nCRPos
local aText
  
_SELF:waehle_stift( _self:_stift_durchgezogen(), 1 )
_SELF:waehle_farbe( _self:_farbe_schwarz() )
_SELF:waehle_schrift( "ARIAL", _nFondsize, _nFonds, _nFondsattrib )

// aus dem text ein array erzeugen
aText := _self:txt_prepair_tag(_cValue, _nFondsize, _nFonds, _nTabLeft)

if len(aText) > 0
 for n := 1 to len(aText)

	 _SELF:txt_absolut_tag(_nTabLeft,_SELF:wYTemp, aText[n])
  if n < len(aText)
   _SELF:wYTemp := _SELF:wYTemp + _self:nLF_tag		//_nZA
		endif

 	// Umbruch ?
  ExecuteScript(Umbruch,_self, _nFondsize, _nFonds, _nFondsattrib,.F.,_self:nLF_tag) 	// _nZA)
	next n
endif

RETURN	

