Perguntas Objeto TmsGraphic

Obrigado Luiz,
Muito satisfeito com esse forum administrado por vc, é realmente incrível a dedicação e respeito pelo usuário. abs

Boa Tarde Luiz,
Estou com um problema na hora de salvar um gráfico e anexá-lo em um workflow.
O que e ocorre é que estou com um código para geração de um gráfico, porém quando mando salvar esse gráfico, ele salva apenas um pedaço do gráfico, não consegue salvar a imagem completa. Se eu comento a linha --> DEFINE DIALOG oDlg TITLE "Grafico" FROM 0, 180 TO 550,700 PIXEL ele salva corretamente, mas dá erro no código do workflow. Ele Obriga a inserção do gráfico no dialog.
Tens alguma ideia para resolver esse impasse?

Desde já agradeço


User Function geraGrafico(aLabel, aValor)

DEFINE DIALOG oDlg TITLE "Grafico" FROM 0, 180 TO 550,700 PIXEL

// Cria o grafico
oGraphic := TMSGraphic():New( 01, 01,oDlg , , ,RGB(239, 239, 239), 300, 184)//800, 600)
@ 01,01 MSGRAPHIC oGraphic SIZE 300, 184 OF oDlg
oGraphic:SetMargins(2,2,2,2)


nSerie := oGraphic:CreateSerie( 7 ) // GRP_PIE=10

nTotal := len(aLabel)
for nI := 1 to nTotal

if aValor[nI] == NIL
aValor[nI] := 0
endIf

oGraphic:Add(nSerie, aValor[nI], aLabel[nI], CLR_HBLUE)
Next
oGraphic:SaveToBMP("grafico.jpg", "\WORKFLOW\HTML\GRAFICOS")
//ACTIVATE DIALOG oDlg CENTERED
Return

Olá, resolvi meu problema.
Deixo abaixo o código para ajuda caso alguém tenha a mesma dúvida:

User Function geraGraf(aLabel, aValor)

DEFINE DIALOG oDlg TITLE "Grafico" FROM 0, 180 TO 550,700 PIXEL

// Cria o grafico
oGraphic := TMSGraphic():New( 01, 01, , , ,RGB(239, 239, 239), 300, 184)//800, 600)
oGraphic:SetMargins(2,2,2,2)

// Itens do Grafico
nSerie := oGraphic:CreateSerie( 7 ) // GRP_PIE=10

nTotal := len(aLabel)
for nI := 1 to nTotal

if aValor[nI] == NIL
aValor[nI] := 0
endIf

oGraphic:Add(nSerie, aValor[nI], aLabel[nI], CLR_HBLUE)
Next

ACTIVATE DIALOG oDlg CENTERED ON INIT MySaveBmp(oGraphic,oDlg)
Return


Static Function MySaveBmp( oGraphic,oDlg )
oGraphic:SaveToBMP("grafico.jpg", "\WORKFLOW\HTML\GRAFICOS")
oGraphic:End()
oDlg:End()

Return