Exemplo de Documento

Exemplo de documento de diagrama.

#include "protheus.ch"// ***************************************************************************// TDGDocument// ***************************************************************************class TDGBpmDoc from TDGDocument	data aColors	data nColor	method New(oControl) CONSTRUCTOR		method EditInit()	method ViewInit()	method run()endclass method New(oControl) class TDGBpmDoc:New(oControl)	::cCaption := "Documento BPM"	::DocInit()returnmethod EditInit() class TDGBpmDoc	TDGBasicBox():New(self)	TDFDBox():New(self)returnmethod ViewInit() class TDGBpmDocreturnmethod run() class TDGBpmDoc	local aShapes := ::getShapes()		aShapes[1]:run()return