1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Objeto TmsGraphic
× Linguagem de Programação ADVPL

Perguntas Objeto TmsGraphic

Mais
12 anos 3 meses atrás #4184 por Tony.totvs
Objeto TmsGraphic foi criado por Tony.totvs
Boa tarde, pessoal

Alguém ja fez um relatório utilizando TMSGRAPHIC e imprimiu?

Por favor Acessar ou Registrar para participar da conversa.

Mais
12 anos 3 meses atrás #4188 por lalberto
Respondido por lalberto no tópico Re: Objeto TmsGraphic
Static Function PrintGraph(cTitle)
Local cRaizServer := If(issrvunix(), "/", "\")
Local cDirTemp := GetTempPath()
Local cNameImg := CriaTrab(, .F.) + ".BMP"

If oNGGraphic:SaveToBMP(cNameImg,cRaizServer) .And. __CopyFile(cRaizServer + cNameImg, cDirTemp + cNameImg)

Ferase(cRaizServer + cNameImg)

oPrint := TMSPrinter():New(cTitle)
oPrint:Setup()
oPrint:SetLandscape()
oPrint:SayBitmap( 50, 25, cDirTemp+cNameImg,3050,2400)
oPrint:Preview()
Else
MsgStop(STR0182,STR0025) //"Não foi possível copiar a imagem para o servidor."##"ATENCAO"
EndIf

Return
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

  • ddsalvador
  • Visitante
  • Visitante
12 anos 3 meses atrás #4192 por ddsalvador
Respondido por ddsalvador no tópico Re: Objeto TmsGraphic
Boa tarde Luiz,

Desculpe a minha falta de conhecimento, mas onde coloco essa string para compilar?

Abs

Por favor Acessar ou Registrar para participar da conversa.

Mais
12 anos 3 meses atrás #4193 por lalberto
Respondido por lalberto no tópico Re: Objeto TmsGraphic
Vc Já tem o Fonte que gera o gráfico em Tela ?, compacta ele e anexa aqui, que insiro pra vc.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

  • ddsalvador
  • Visitante
  • Visitante
12 anos 3 meses atrás #4194 por ddsalvador
Respondido por ddsalvador no tópico Re: Objeto TmsGraphic
Infelizmente não tenho, é que muito me interessa essa parte gráfica e ao ver no forum me interessei. Obrigado de qq forma.

Por favor Acessar ou Registrar para participar da conversa.

Mais
12 anos 3 meses atrás #4196 por lalberto
Respondido por lalberto no tópico Re: Objeto TmsGraphic
pEGA ESSE EXEMPLO AQUI, BOM DIVERTIMENTO RSRS :woohoo:



Arquivo Anexo:

Nome do Arquivo: GRF002.rar
Tamanho do Arquivo:4 KB
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Objeto TmsGraphic
Tempo para a criação da página:0.151 segundos
Joomla templates by a4joomla