Impressão de relatorio com duas tabelas Dbf

[Mineiro]

Caros Colegas,,,

Estou a muito tempo sem desenvolver nada em clipper devido a migração dos meus sistemas,,, porem encontrei uma forma de impressão em modo texto utilizando pequenos prgs com tabelas dbf auxiliares,, que me ajudam muito na minha nova linguagem,,,

Como naum mexo a muito tempo no Clipper,, estou com dificuldades com essa rotina,,,
-Preciso imprimir um relatorio onde consta: No cabeçalho os dados da tabela Arq001.Dbf, em seguida os associados que estão em Arq002.Dbf
estes são ligados pelos campos: arq001-ficha e arq002-codemp

Alguem pode me ajudar..
Segue o código...

--------------------------

clea
set date brit
set cent on
set talk off
*-----------------------------------------------------------------------------
clos all
fat_004:=savescreen(0,0,24,79)

sele 1
use arq001
inde on ficha to ificha

sele 2
use arq002
inde on codemp to iempr

clos data
sele 1
use arq001 inde ificha alias empre
*-----------------------------------------------------------------------------*
sele 2
use arq002 inde iempr alias assoc
*-----------------------------------------------------------------------------
sele 1
do while .not. eof()
sele 1
v_ficha1:=empre->ficha
v_ficha2:=assoc->codemp
set curs on

if .not. isprinter()
close all
retu
endif

sele 2
set filte to
seek v_ficha2
if .not. found()
tone(500,3)
skip
loop
else
set devi to prin
inkey(2)
sele 1
@ 00,00 say repl("=",80)
@ 02,10 say "SINDICATO DOS VIGILANTES DE CAMPINAS E REGIAO"
@ 02,70 say date()
@ 04,10 say "RELACAO DE ASSOCIADOS POR EMPRESA"
@ 04,72 say time()
@ 05,00 say repl("-",80)
@ 06,03 say alltrim(empre->razao)+ " - "+empre->ficha
@ 07,03 say alltrim(empre->endereco)+" - "+empre->bairro
@ 08,03 say alltrim(empre->cidade)+ " / " +empre->estado

@ 10,03 say "Periodo de Admissao: 01/01/1982 ate "+dtoc(date())
@ 11,00 say repl("-",80)
@ 12,00 say "MATR"
@ 12,06 say "NOME DO ASSOCIADO"
@ 12,40 say "FUNCAO"
@ 12,50 say "VALOR"
@ 12,61 say "SALARIO"
@ 12,72 say "ADMISSAO"
@ 13,00 say repl("-",80)
lin:=14

sele 2
set filte to codemp=v_ficha1
do while prow() < 65 .and. .not. eof()
@ prow()+01,00 say assoc->matricula
@ prow() ,06 say assoc->codemp
@ prow() ,11 say left(assoc->nome,30)
@ prow() ,40 say assoc->profissao
@ prow() ,48 say assoc->taxa
@ prow() ,58 say assoc->salario
@ prow() ,70 say assoc->admissao
skip
enddo
count to x
sum taxa to x1
@ prow()+03,06 say "No: DE FUNCIONARIOS: "+strZero(x,2)
@ prow() ,40 say "TOTAL:"
@ prow() ,45 say x1
ejec
*sele 1
*skip
endif
sele 1
skip +1
enddo
set devi to scre
clos all
---------------

[Mineiro]

Que triste

Ninguem respondeu,,,

Mesmo assim VALEU

JA CONSEGUI )

:xau