! 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
@ 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)
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)
do while n_doc=codcupom
codprod=codigoprod
@ prow() ,00 say descricao
select 4
seek (codprod)
if found()
@ prow(), 53 say cod_trib
@ prow(), 58 say unidestoq
@ prow(), 104 say alicmest pict "99"
endif
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
enddo
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"
set printer to lpt1
set device to screen
enddo
Nota de Moderação:
por Maligno: O tÃtulo do tópico foi alterado. O anterior, "Ajuda...", em nada ajuda na identificação do tópico, o que contraria as regras do fórum, que pedem um tÃtulo objetivo. Leia as regras aqui. Dê especial atenção ao artigo 8.
por Maligno: O tÃtulo do tópico foi alterado. O anterior, "Ajuda...", em nada ajuda na identificação do tópico, o que contraria as regras do fórum, que pedem um tÃtulo objetivo. Leia as regras aqui. Dê especial atenção ao artigo 8.