Bom seguinte, troquei o clipper para 5.2, fiz as concatenaçoes, mas na hora de compilar nao sei o que acontece, da esses erros:
Warnig wcl0001: Linking Clipper Summer 87 module ´ERRORSYS' with Clipper 5.0 Linker
Warnig wcl0001: Linking Clipper Summer 87 module ´EXAMPLEP' with Clipper 5.0 Linker
Warnig wrt0022: .exe may not execute properly.......
o fonte esta aqui:
! cls
set exclusive off
set date british
set century on
codcupom=space(06)
clicod=space(06)
prodcod=space(06)
vrazaoso=space(40)
vcodcli=space(6)
vcgc=space(18)
venderec=space(35)
vbairro=space(20)
vcep=space(8)
vcidade=space(20)
vetelfon=space(11)
vestado=space(2)
vinscrica=space(14)
wdata=date()
wtime=time()
do while .t.
select 1
use stkmovv
set index to stkmov3
select 2
use crcli
set index to ntxcli
select 3
use stkparam
select 4
use stkmaste
set index to stkmaste
select 5
use crdup
set index to ntxcr
select 6
use regsai
set index to ntxrs
nnf=space(06)
select 3
nnf=seqnf
codcupom=space(06)
condpag=space(01)
@ 01,01 clear to 24,79
@ 10,15 say "DIGITE O CUPOM FISCAL: " get codcupom pict "999999"
read
if lastkey () = 27
clear
exit
endif
@ 12,15 say "VISTA(V) / PRAZO (N.P): " get condpag pict "9"
read
select 1
find (codcupom)
clicod=codcli
select 2
find (clicod)
vrazaoso=razaosoc
vcgc=cgc
venderec=endereco
vbairro=bairro
vcep=cep
vcidade=cidade
vtelefon=telefone
vestado=estado
vinscrica=inscricao
nnf=nnf+1
select 3
lock()
replace seqnf with nnf
unlock
clear
set device to printer
CABECALH()
do case
case condpag="1"
@ prow() ,10 say "A VISTA"
@ prow() ,pcol() say chr(10)
case condpag="2"
select 5
seek (codcupom)
do while ntitulo=codcupom
@ prow(), 00 say datavenc
@ prow(), 10 say valor pict "999999.99"
skip
if ntitulo=codcupom
@ prow(), 20 say datavenc
@ prow(), 30 say valor pict "999999.99"
skip
if ntitulo=codcupom
@ prow(), 40 say datavenc
@ prow(), 50 say valor pict "999999.99"
skip
if ntitulo=codcupom
@ prow(), 60 say datavenc
@ prow(), 70 say valor pict "999999.99"
skip
if ntitulo=codcupom
@ prow(), 80 say datavenc
@ prow(), 90 say valor pict "999999.99"
skip
@ prow(), pcol() say chr(10)
if ntitulo=codcupom
@ prow(), 00 say datavenc
@ prow(), 10 say valor pict "999999.99"
skip
if ntitulo=codcupom
@ prow(), 20 say datavenc
@ prow(), 30 say valor pict "999999.99"
skip
if ntitulo=codcupom
@ prow(), 40 say datavenc
@ prow(), 50 say valor pict "999999.99"
skip
if ntitulo=codcupom
@ prow(), 60 say datavenc
@ prow(), 70 say valor pict "999999.99"
skip
if ntitulo=codcupom
@ prow(), 80 say datavenc
@ prow(), 90 say valor pict "999999.99"
skip
endif
endif
endif
endif
endif
endif
endif
endif
endif
enddo
endcase
@ prow() ,pcol() say chr(10)+chr(10)+chr(10)+chr(10)
select 1
seek (codcupom)
NUM_ITENS = 1
FOLHA = 1
do while n_doc=codcupom
codprod=codigoprod
// @ prow() ,00 say descricao
aLinha={}
select 4
seek (codprod)
if found()
cLinha=(1->descricao)+" "+(4->cod_trib)+" "+(4->unidestoq)+" "+transform((1->qtdsaida),"9999999.9")+" "+transform(((1->vlvencruz)/(1->qtdsaida)),"9999.9999")+" "+transform((1->vlvencruz),"99999999.99")+" "+transform((4->alicmest),"99")
// @ prow(), 53 say cod_trib
// @ prow(), 58 say unidestoq
// @ prow(), 104 say alicmest pict "99"
endif
@ prow,00 say cLinha+chr(10)
AADD(aLinha,cLinha)
cLinha=""
// select 1
// @ prow(), 63 say qtdsaida pict "9999999.9"
// @ prow(), 72 say vlvencruz/qtdsaida pict "9999.9999"
// @ prow(), 89 say vlvencruz pict "99999999.99"
// @ prow(), pcol() say chr(10)
skip
NUM_ITENS = NUM_ITENS + 1
IF NUM_ITENS > 15
CABECALH()
FOLHA = FOLHA + 1
NUM_ITENS = 1
ENDIF
enddo
RODAPE()
@ PROW(), 04 SAY FOLHA
set printer to lpt1
set device to screen
ENDDO
FUNCTION CABECALH()
@ prow(),pcol() say chr(27)+chr(64)
setprc(0,0)
@ prow(),pcol() say chr(27)+chr(48)
@ prow(),pcol() say chr(27)+"C"+chr(68)
@ prow(),pcol() say chr(27)+"M"+chr(15)
@ prow(),pcol() say chr(27)+"Q"+chr(120)
@ prow() ,00 say " "
@ prow() ,69 say "XX"
@ prow() ,94 say strzero(nnf,6,0)+chr(10)+chr(10)+chr(10)+chr(10)+chr(10)
@ prow() ,02 say "VENDA"
@ prow() ,35 say "5102"+chr(10)+chr(10)+chr(10)
@ prow() ,00 say vrazaoso+" "+left(clicod,5)+"-"+right(clicod,1)
@ prow() ,68 say vcgc
@ prow() ,95 say dtoc(wdata) +CHR(10)+CHR(10)
@ prow() ,00 say venderec
@ prow() ,58 say vbairro
@ prow() ,79 say vcep
@ prow() ,95 say dtoc(wdata)+chr(10)+chr(10)
@ prow() ,00 say vcidade
@ prow() ,45 say vtelefon
@ prow() ,63 say vestado
@ prow() ,70 say vinscrica
@ prow() ,95 say time()+chr(10)+chr(10)+chr(10)
RETURN (.T.)
FUNCTION RODAPE()
select 6
vbicm=0
vvlicm=0
vvlcont=0
seek (codcupom)
do while nfiscal=codcupom
vbicm=bicm+vbicm
vvlicm=vlicm+vvlicm
vvlcont=vlcont+vvlcont
skip
enddo
@ prow(), 04 say vbicm pict "@E 999,999,999.99"
@ prow(), 27 say vvlicm pict "@E 999,999,999.99"
@ prow(), 91 say vvlcont pict "@E 999,999,999.99" + CHR(10)
RETURN (.T.)
Por favor me ajudem...