Report com comandos de impressão @ SAY

[Julio]

Novamente aqui, para esclarecer uma duvida.

Tenho um report que serve como formulario, tipo "nota fiscal".

Pergunto existe alguma forma de utilizar o report com comandos de impressão @ SAY 10,20...

Hoje tenho que imprimir varios destes reports em branco, e depois colocar novamente na impressora para emitir o relatorio feito pelo PRG com os comandos @ SAY.

Gostaria que se possivel simultaneamente fosse impresso o report e os preenchimentos pelo PRG.

julio

[Julio]

Fiz uma imagem para ver se ajuda no que preciso.

[Você precisa estar registrado e conectado para ver este link.]

[marcelofazan]

Geralmente usa-se @prow para formulario continuo

[hugo]

prow() && linha
pcol() && coluna

isto ne?

[marcelofazan]

tenho um exemplo do meu sistema de impressao de boleto em prow

Prow + Say - pelo menos é o que usei na versao 7

[marcelofazan]

se for ver acho que o Julio que fazer Etiqueta q é Label pelo desenho dele
??
se for Etiqueta usa Label ... é auto adesivo isso que vc quer fazer ?

.
Julio tem como voce nos falar sua idade ???? queria saber se é menos de 25 ?
Abs
Marcelo Fazan

[Julio]

Tenho 43.

Nao é etiqueta.

So foi um exemplo do que preciso.
Vou tentar explicar melhor.
Tenho no sistema algums report que funcionam como impressos em branco para o usuário preencher conforme sua necessidade, mas em determinados momento o proprio sistema pode preencher este formulario, tipo nome, endereço,etc.
Hoje o usuário tem que imprimir primeiro o formulario/report em branco e depois recoloca-lo na impressora para imprimir o preenchimento.
Gostaria de saber se o VFP consegui ao mesmo tempo imprimir o report e preencher os campos tipo aonde tem os numeros e cores no modelo citado acima.

Se possivel gostaria de saber se automaticamente quando o report esta sendo impresso posso ir preenchendo os dados.
Em um mesmo formulario terei varios registros diferentes.
Se colocar no report os FIELD´s da tabela sai sempre o mesmo, tipo dar um SKIP para o proximo registro. Se colocar o fild no report sai sempre 1 AZUL, 1 AZUL, 1 AZUL, 1 AZUL, sendo que tem que sair como na imagem postada.

Pergunto dentro do report tem como dar um skip??


julio

[Julio]

Sei que pode usar este comando

@ L,0 SAY codigo PICT '#####'
@ L,PCOL()+1 SAY NOMESOCIO

[marcelofazan]

olá obrigado por responder sua idade , queria entender ql o seu esquema rsrs
agora fico mais claro .......

acho que essas execucao voce tem primordiar ela
um command imprimi um reporter em branco ou mesmo selecionado o codigo vazio da certo

depois voce seleciona ex ficha 15
e imprimi o que foi digitado na ficha 15

a questao de repetir pra todos ao mesmo tempo ai ja é problema no codigo ou no cursor .... onde voce esta colocando alguem alias diferente do pedido

acho que inicialmente voce tem que falar qts tabelas sao
e se precisa precisa imprimir 1 detalhes ou 2 detalhes

qdo voce fala simultaneo automatico , parece que a linha de impressao nao para .... acho que essa parte nao fico nitido

como disse anteriormente , @say voce usa qdo precisa de tabulacao que nao é seu caso ,

se precisa atualizar a impressao de 10 em 10 segundos ai precisa colocar um timer e select

[Julio]

Somente uma tabela.

Preciso imprimir na verdade 6 campos desta tabela, o normal em um relatorio seria:

nome1 endereço1
nome2 endereço2
nome3 endereço3
nome4 endereço4
nome5 endereço5
nome6 endereço6... e assim por diante tudo isto dentro da guia detail dfo report.

Neste caso penso eu que teria que ser como se fosse imprimir etiqueta em clipper em mais de uma coluna algo do tipo.

tem que ser impresso assim:

no primero quadro
nome1 endereço1

segundo quadro
nome2 endereço2

proximo quadro abaixo do primeiro quadro
nome3 endereço 3...

Simultaneo quero dizer a impressora faz a maldura e preenche com os registros da tabela.

confundi mais?!

Algo do tipo quando fazia etiqueta de mais de uma coluna no clipper.

SET DEVI TO SCREEN
SET PRINT ON
*?? CHR(15)
?? CHR(14)
SET DELE ON
SET DEVI TO PRINT
STORE 0 TO P
SELECT 1
DO WHILE .NOT. EOF()
SET PRINT OFF
A1=GAIOLA
A2=NROANEL
A3=CODCOR
A4=NOMECOR
A5=TIPOIQ
SKIP
B1=GAIOLA
B2=NROANEL
B3=CODCOR
B4=NOMECOR
B5=TIPOIQ
SKIP
C1=GAIOLA
C2=NROANEL
C3=CODCOR
C4=NOMECOR
C5=TIPOIQ
SKIP
D1=GAIOLA
D2=NROANEL
D3=CODCOR
D4=NOMECOR
D5=TIPOIQ
SKIP
E1=GAIOLA
E2=NROANEL
E3=CODCOR
E4=NOMECOR
E5=TIPOIQ
SKIP
@ L,00 SAY CHR(15)+CHR(14)
@ L,00 SAY A1 PICT '#####'
@ L,10 SAY B1 PICT '#####'
@ L,20 SAY C1 PICT '#####'
@ L,30 SAY D1 PICT '#####'
@ L,40 SAY E1 PICT '#####'
L=L+1
SELE 2
SEEK A3
A31=ABREVIATU
SEEK B3
B31=ABREVIATU
SEEK C3
C31=ABREVIATU
SEEK D3
D31=ABREVIATU
SEEK E3
E31=ABREVIATU
@ L,00 SAY LEFT(A31,14)
@ L,18 SAY LEFT(B31,15)
@ L,38 SAY LEFT(C31,15)
@ L,58 SAY LEFT(D31,15)
@ L,78 SAY LEFT(E31,15)
L=L+1
SELECT 1
L=L+2
LOOP
ENDDO
?? CHR(18)
CLOS DATA
SET DEVI TO SCRE
CLOS DATA
RETURN

[alceu11]

Julio vou te ajudar pegar o FONTE DO LIVRO CAIXA, QUE POSTEI EM CODIGOS FONTES,

LA TERA UMA situacao que crie , que gero o livro caixa em txt
e importo ele dentro de um report ele podera servir para qualquer.txt
Agora so voce testar o codigo....
link
[Você precisa estar registrado e conectado para ver este link.][Você precisa estar registrado e conectado para ver esta imagem.]

[marcelofazan]

agora parece que fico mais claro sua duvida

Código:

cNamePrinter = GetPrinter() && Seleciona a Impressora
If Empty(cNamePrinter)
Return .F.
ENDIF

SELECT cadlista
   go top
   do while !eof()
 
        SELECT cadlista
   
Set Device To Printer
Set Printer To Name Trim(cNamePrinter)
??? Chr(18)
***********************
seu conteudo Prow
**********************

      SELECT cadlista         
     SKIP
   ENDDO

 set printer to

esse codigo acima seu é em clipper ???

ve se consegue estruturar caso nao conseguir colo a procedure inteira ....

[marcelofazan]

no foxpro eu uso assim

Código:

@prow()+0,52 say rec_venc
@prow()+3,00 say rec_dataem
@PROW()+2,52 say rec_vlr

[Julio]

Obrigado pessoal

vou dar uma olhada nos links e fazer unstes com as dicas passadas aqui.


julio

[Julio]

Com as dicas e modelos, e seguindo alguma coisa do livro caixa que o Alceu postou, resolvi criar um novo cursor para receber os dados e depois mandar imprimir.

No caso de importar o txt como o Alceu faz no livro caixa, para mim não da pois não é uma linha unica a ser impressa e sim em varios locais diferentes do report.

Fis este codigo

Código:

 
*!* aqui filtro o ano desejado
x="2010"
y="2010"
 select * from casal_c into cursor Pesquisa ;
        where BETWEEN(temporada,x,y) &&ORDER BY anoc_c

SELECT pesquisa
GO TOP
DO WHILE NOT EOF()
  A1=NROGAIOLA
  A2=IDENTCASAL
  A3=ANILHAM
  A4=CORM
  A5=ANILHAF
  A6=CORF
  A7=DTCASALA
  SKIP
  B1=NROGAIOLA
  B2=IDENTCASAL
  B3=ANILHAM
  B4=CORM
  B5=ANILHAF
  B6=CORF
  B7=DTCASALA
  SKIP
  C1=NROGAIOLA
  C2=IDENTCASAL
  C3=ANILHAM
  C4=CORM
  C5=ANILHAF
  C6=CORF
  C7=DTCASALA
  SKIP 

&& neste skip da erro de fim de arquivo encontrado

  D1=NROGAIOLA
  D2=IDENTCASAL
  D3=ANILHAM
  D4=CORM
  D5=ANILHAF
  D6=CORF
  D7=DTCASALA
  SKIP
  E1=NROGAIOLA
  E2=IDENTCASAL
  E3=ANILHAM
  E4=CORM
  E5=ANILHAF
  E6=CORF
  E7=DTCASALA
  SKIP
  F1=NROGAIOLA
  F2=IDENTCASAL
  F3=ANILHAM
  F4=CORM
  F5=ANILHAF
  F6=CORF
  F7=DTCASALA
  SKIP
  *
  SELECT COROBJO
  SET ORDER TO cod_cor
  GO TOP
  SEEK A4
  A41=ABREVIATU
  GO TOP
  SEEK A6
  B61=ABREVIATU
  GO TOP
  SEEK B4
  A41=ABREVIATU
  GO TOP
  SEEK B6
  B61=ABREVIATU
  GO TOP
  SEEK C4
  C41=ABREVIATU
  GO TOP
  SEEK C6
  C61=ABREVIATU
  GO TOP
  SEEK D4
  D41=ABREVIATU
  GO TOP
  SEEK D6
  D61=ABREVIATU
  GO TOP
  SEEK E4
  AE1=ABREVIATU
  GO TOP
  SEEK E6
  BE1=ABREVIATU
  GO TOP
  SEEK F4
  F41=ABREVIATU
  GO TOP
  SEEK F6
  F61=ABREVIATU
  *
  SELECT r_fich_p_p_vp
  APPEND BLANK
  replace nrogaiola1 WITH a1, casalnro1 WITH a2, dtcasala1 WITH a7,;
  macho1 WITH a3, femea1 WITH a5, corm1 WITH a4, corf1 WITH a6
  replace nrogaiola2 WITH b1, casalnro2 WITH b2, dtcasala2 WITH b7,;
  macho2 WITH b3, femea2 WITH b5, corm2 WITH b4, corf2 WITH b6
  replace nrogaiola3 WITH c1, casalnro3 WITH c2, dtcasala3 WITH c7,;
  macho3 WITH c3, femea3 WITH c5, corm3 WITH c4, corf3 WITH c6
  replace nrogaiola4 WITH d1, casalnro4 WITH d2, dtcasala4 WITH d7,;
  macho4 WITH d3, femea4 WITH d5, corm4 WITH d4, corf4 WITH d6
  replace nrogaiola5 WITH e1, casalnro5 WITH e2, dtcasala5 WITH e7,;
  macho5 WITH e3, femea5 WITH e5, corm5 WITH e4, corf5 WITH e6
  replace nrogaiola6 WITH f1, casalnro6 WITH f2, dtcasala6 WITH f7,;
  macho6 WITH f3, femea6 WITH f5, corm6 WITH f4, corf6 WITH f6
  SELECT pesquisa
  LOOP
ENDDO

    SELECT r_fich_p_p_vp
    GO TOP
    if _tally > 0
      *wait window _tally &&time 2    && aqui sabera qtos registros serao impressos
      report form r_fich_p_p_v to printer prompt preview
    else
      *wait window 'a sua selecao nao resultou informacoes' time 3
      MESSAGEBOX("Ano informado não encontrado nos arquivos.",;
      16+0+0,"Fim Do Processamento ...",200)
    endif

Esta dando erro de fim de arquivo.