Gostaria que me explicassem onde está o erro desta rotina
O erro que me dá diz que existe sintax error em dataa e sintax error em endif
Obrigado
Cumprimentos
Lapinhazzz
Código: Selecionar todos
proc main()
mv_c(1)
mv_c(2)
return
function mv_c()
para dia
sele 1
use vendas
rot="CAIXAA"
dataa=ctod(' / / ')
datab=ctod(' / / ')
cor(21)
IF dia=1
@ 13,15 say "Data da Caixa:" get dataa
read
elseif dia=2
@ 13,15 say "De:" get dataa
@ 13,39 say "at‚" get datab
read
endif
cp=0
cc=0
tp=0
tc=0
tt=0
tco=0
go top
dataa=ctod(dataa)
datab=ctod(datab)
do whil !eof()
if dataa=datactual .AND. dia=1
cp=cp+quantp
cc=cc+quantc
tp=tp+totalp
tc=tc+totalc
tt=tt+total
tco=tco+tcopias
elseif dataa=>datactual .AND. datactual<=datab .AND. dia=2
cp=cp+quantp
cc=cc+quantc
tp=tp+totalp
tc=tc+totalc
tt=tt+total
tco=tco+tcopias
endi
skip
enddo
cor(12)
@12,14 clea to 19,50
@12,14 to 20,50
@10,14 say "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
@11,14 say "³ ³"
@12,14 say "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
cor(51)
IF dia=1
@11,18 say dataa
elseif dia=2
cor(12)
@11,15 say "De:"
cor(51)
@11,18 say dataa
@11,40 say datab
cor(12)
@11,30 say "at‚:"
endif
cor(12)
cur(0)
@13,15 say "Copias a Preto "+str(cp)
@14,15 say "Copias a Cores "+str(cc)
@15,15 say "Total de Copias "+str(tco)
@16,15 say "Valor Copias a Preto "+str(tp)
@17,15 say "Valor Copias a Cores "+str(tc)
@18,15 say spac(35)
@19,15 say "Valor Caixa: "
cor(51)
@ 19,37 say str(tt)
wait ""
set cent on
rot="MAIN"
return
