Imprimi Página | Fechar janela

imprimir campo memo

Impresso de: Helpfacil - Portal do conhecimento
Nome do Forum: Diversos
Descrição do Forum: Dúvidas sobre outros assuntos não especificados
URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=4&TopicID=24178
Data da Impressão: sexta-feira, 19 de abril de 2024 at 08:23


Topico: imprimir campo memo

Postado por: ROGERIO_2010
Assunto: imprimir campo memo
Data Postagem: quinta-feira, 28 de outubro de 2010 at 12:53

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...


Respostas:

Postado Por: MARCIO.INF
Data Postagem: quinta-feira, 28 de outubro de 2010 at 12:59

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



Postado Por: ROALD
Data Postagem: quinta-feira, 28 de outubro de 2010 at 13:30

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



Postado Por: PAIDOADVPL
Data Postagem: quinta-feira, 28 de outubro de 2010 at 16:07

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




Imprimir Página | Fechar Janela