- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Abrir PDF com TOLEContainer
×
Linguagem de Programação ADVPL
Perguntas Abrir PDF com TOLEContainer
- svincenzo
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 11
- Obrigados Recebidos: 0
10 anos 2 meses atrás #24800
por svincenzo
Abrir PDF com TOLEContainer foi criado por svincenzo
Bom dia Pessoal
Estou tentando abrir arquivos .PDF pelo protheus, porém não funciona!
Estou usando o método TOleContainer, ma na hora de exibir não aparece nada!
Aguem pode me ajudar, estou postando o codigo.
Static Function visuapdf(arq1,arq2)
Local FArquivo := ""
Local oDlg1
CpyS2T( arq2 , GETMV("MV_DIR") ) //copia do servidor para pasta no c:\
FArquivo := GETMV("MV_DIR")+arq1 //pega o caminho do arquivo
DEFINE DIALOG oDlg1 TITLE "Visualizador PDF" FROM 180,180 TO 550,700 PIXEL
oTOleContainer := TOleContainer():New(01, 01, 260, 184, oDlg1, .T., FArquivo )
oTOleContainer := TOleContainer():DoVerbDefault()
ACTIVATE DIALOG oDlg1 CENTERED
Return
Obrigado!
Abraços
Samuelvincenzo
Estou tentando abrir arquivos .PDF pelo protheus, porém não funciona!
Estou usando o método TOleContainer, ma na hora de exibir não aparece nada!
Aguem pode me ajudar, estou postando o codigo.
Static Function visuapdf(arq1,arq2)
Local FArquivo := ""
Local oDlg1
CpyS2T( arq2 , GETMV("MV_DIR") ) //copia do servidor para pasta no c:\
FArquivo := GETMV("MV_DIR")+arq1 //pega o caminho do arquivo
DEFINE DIALOG oDlg1 TITLE "Visualizador PDF" FROM 180,180 TO 550,700 PIXEL
oTOleContainer := TOleContainer():New(01, 01, 260, 184, oDlg1, .T., FArquivo )
oTOleContainer := TOleContainer():DoVerbDefault()
ACTIVATE DIALOG oDlg1 CENTERED
Return
Obrigado!
Abraços
Samuelvincenzo
Por favor Acessar ou Registrar para participar da conversa.
- dexter
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 78
- Obrigados Recebidos: 0
10 anos 2 meses atrás - 10 anos 2 meses atrás #24810
por dexter
Respondido por dexter no tópico Abrir PDF com TOLEContainer
Tudo bom samuel!
Pelo que vi o (TOleContainer) esta correto!
Vc viu se o arquivo foi mesmo copiado ??
Se não faça um teste
Tem também a opção
Veja ai e retorna!
Pelo que vi o (TOleContainer) esta correto!
Vc viu se o arquivo foi mesmo copiado ??
Se não faça um teste
oTOleContainer := TOleContainer():New(01, 01, 260, 184, oDlg1, .T., 'c:\arquivo.pdf' )
oTOleContainer := TOleContainer():DoVerbDefault()Tem também a opção
oTOleContainer:OpenFromFile('c:\arquivo.pdf',.F.)Veja ai e retorna!
Ultima edição: 10 anos 2 meses atrás por dexter.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Abrir PDF com TOLEContainer
Tempo para a criação da página:0.059 segundos