PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  Diversos
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
imprimir campo memo
Versão:
10
Plataforma:
Microsoft
Complemento:
DB:
Oracle
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário ROGERIO_2010 ROGERIO_2010 em 28/10/2010, 12:53 h
Local: RJ  Registro: 16/06/2010  Postagens: 8
Pessoal,

Gostaria de obter uma ajuda sobre como imprimir campo memo tipo blob.
Configurei um relatorio no Microsiga adicionando um campo memo do tipo blob.
Ao gerar o relatorio, o campo fica em branco.
Já verifiquei na tabela e os campo está preenchido.

Alguem sabe dar uma dica sobre o que pode estar acontecendo???

Agradeço á todos...

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário MARCIO.INF MARCIO.INF em 28/10/2010, 12:59 h
Local: SP  Registro: 14/08/2008  Postagens: 703
tente usar uma variavel para receber o campo memo, na hora de imprimir mande imprimir a variavel, deve funcionar, use um substr para pegar somente o numero de digitos que vc deseja...


Marcio Santana dos Santos
Analista de Sistemas

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário ROALD ROALD em 28/10/2010, 13:30 h
Local: SP  Registro: 09/03/2007  Postagens: 48
No meu caso eu usei um posicione para pegar o texto de um campo blob, mas caso já tenha o campo disponivel é só jogar na variavel e mandar imprimir a variável, porem caso tenha mais de uma linha (entenda-se Enter), terá que tratar o texto para impressão, pois no meu caso ele juntava as duas linhas.

_escopoinc := Posicione("ZOR",1,xfilial("ZOR")+mv_par01,"ZOR_ESCINC")

ZOR_ESCINC - campo blob

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário PAIDOADVPL PAIDOADVPL em 28/10/2010, 16:07 h
Local: MG  Registro: 02/06/2010  Postagens: 58
Sei que vc deve quebrar o campo memo.
Mas não com uma marreta! rs!

Utilizando a idéia da função abaixo,

nLinhas := MLCount(SZ5->Z5_OBS,70)
For nXi:= 1 To nLinhas
        cTxtLinha := MemoLine(SZ5->Z5_OBS,70,nXi)
        If ! Empty(cTxtLinha)
               oPrint:Say(nLin+=50,nCol,("7) OBSERVACOES:"),oFont12n)
               oPrint:Say(nLin+=100,030,(cTxtLinha),oFont10)
        EndIf
Next nXi

Att,
paidoadvpl@gmail.com
http://advpl.4shared.com

paidoadvpl@gmail.com
http://advpl.4shared.com

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal