Página 1 de 1
Relatorio em clipper
Enviado: 10 Jul 2010 15:15
por carlosgustavo
Olá, quero saber como faço para fazer o relatorio ser exibido conforme o usuario for pressionando a setinha para baixo, pois o meu relatorio exibe um parte do relatorio e depois para de mostar os registros quando chega ao final da tela do dos.
Uploaded with
ImageShack.us
Código: Selecionar todos
USE CLIENTES
IF !FILE("INDCLI.NTX")
INDEX ON CODIGO TO INDCLI
ENDIF
SET INDEX TO INDCLI
SET COLOR TO "GR+/B"
CLEAR
@ 1,1 TO 24,78 DOUBLE
@ 1,1 SAY "TORA NOBRE COMERCIO DE MADEIRAS LTDA"
@ 1,58 SAY "RELATORIO DE CLIENTES"
GO TOP
SEEK 1
IF !FOUND()
ALERT("SEM CADASTROS")
RETURN
ENDIF
@ 3,4 SAY "CODIGO NOME "
@ 4,4 SAY REPLICATE("-",58)
DO WHILE !EOF()
@ ROW()+1,4 SAY CODIGO
@ ROW(),15 SAY NOME
@ ROW()+1,4 SAY REPLICATE("-",58)
SKIP
ENDDO
DO WHILE .T.
INKEY(0)
IF LASTKEY()=27
EXIT
ENDIF
ENDDO
Re: Relatorio em clipper
Enviado: 11 Jul 2010 00:06
por alaminojunior
Uma possibilidade sería enviar este conteúdo para um arquivo texto e em seguida abrí-lo com memoedit().
Código: Selecionar todos
set printer to "relat.txt"
set device to printer
USE CLIENTES
IF !FILE("INDCLI.NTX")
INDEX ON CODIGO TO INDCLI
ENDIF
SET INDEX TO INDCLI
@ 1,1 SAY "TORA NOBRE COMERCIO DE MADEIRAS LTDA"
@ 1,58 SAY "RELATORIO DE CLIENTES"
GO TOP
SEEK 1
IF !FOUND()
ALERT("SEM CADASTROS")
RETURN
ENDIF
@ 3,4 SAY "CODIGO NOME "
@ 4,4 SAY REPLICATE("-",58)
DO WHILE !EOF()
@ ROW()+1,4 SAY CODIGO
@ ROW(),15 SAY NOME
@ ROW()+1,4 SAY REPLICATE("-",58)
SKIP
ENDDO
set printer to
set device to screen
memoedit("relat.txt")
Re: Relatorio em clipper
Enviado: 11 Jul 2010 16:31
por carlosgustavo
Não deu certo!!
Ele simplesmente mostra o texto entre aspas, ou seja, o nome do arquivo em txt.
Re: Relatorio em clipper
Enviado: 11 Jul 2010 19:29
por alaminojunior
Opa ! Falha nostra !
Ou se o colega preferir, depois de terminada a impressão no arquivo, pode abrí-lo com o Notepad do Windows.
Código: Selecionar todos
! CMD /C START /MAX /HIGH c:\windows\notepad.exe relat.txt
