Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

cText = Trim(<ART."gruppe">)
showMessage("Ausgabe wird gestartet!")
  
sub MasterData1OnBeforePrint(Sender)

   CR = ""  
   if cText <> Trim(<ART."gruppe">) then
       CR = chr(13) + chr(13)                                                                            
       cText = Trim(<ART."gruppe">)       
   end if
  
end sub