Página 1 de 1
CAMPO MEMO NO CLIPPER
Enviado: 05 Jan 2006 11:44
por gerjonan
Como declaro uma variavel para receber um campo memo definido em um arquivo dbf e como manda-lo imprimir ?
geraldo de bh
por favor me ajudem
gerjonan@yahoo.com.br
Nota de Moderação:por
Pablo César: Tópico movido da seção Sugestões, Críticas e Elogios sobre o Fórum
Enviado: 06 Jan 2006 09:33
por Clipper
Prezado Colega
Poste essa e futuras questões na seção Clipper pois é o local mais indicado, e também porque geralmente poucos acessam essa seção.
MARQ=MEMOWRIT("ARQUIVO.TXT",CAMPOMEMO)
TYPE ARQUIVO.TXT TO PRINT
Até logo.
Marcelo
CAMPO MEMO - Resposta a GerJonan
Enviado: 08 Jan 2006 02:57
por rochinha
Amiguinho
Voce postou:
"Como declarar campo memo num PRG do clipper e como manda-lo para a impressora ou tela este campo .... considerando que eu tenho um campo com nome obs dentro de um cadastro de cliente
Meu nome é geraldo e antecipo agradecimentos
obrigado a quem puder me ajudar
_________________
Quem puder me ajudar envie resposta pelo email ou pelo forum"
Para impressao de conteudos de campos memo voce deverá fazer uso de algumas funções para obter maior controle.
MemoEdit(), MLCoutn() e MemoLine(), exemplo:
Código: Selecionar todos
...
EditFile := [b]database->CampoMemo[/b]
EditLarg := 80 // Largura da linha
if .not. isprinter()
beep()
mensagem('Impressora esta desconectada ou desligada!',3)
return
endif
set print on
set device to print
m->tam_memo := [b]MLCOUNT[/b]( EditFile, EditLarg )
m->li_nha := 1
for i = 1 to m->tam_memo
@ m->li_nha,00 say [b]memoline[/b]( EditFile, EditLarg , i)
m->li_nha := m->li_nha + 1
if m->li_nha > m->rel_linhas
eject
m->li_nha := 1
setprc(0,0)
endif
next
SETPRC(0,0)
set device to screen
set print off
@bracos :?)