29 de mai de 2011

Desenvolvimento de Software 1, aula 20


Aula 20
6/10/2003

Produtos.dbf

codbar
C
13


despro
C
30


preven
N
9
2

precus
N
9
2

qtdatu
N
4

Quantidade atual
ultcom
D


Última compra
altpre
D


Data última alteração de preço
qtdmin
N
4



[Com base na tabela acima,] Analisar o código e indicar o que está fazendo:

1.
go top
do while .not. eof()
    if QTDATU <= QTDMIN
       ? CODBAR, DESPRO, QTDATU
    endif
skip
enddo


a) .NOT.: não
b) eof(): fim de arquivo
c)
if
condicao verdadeira
else
condicao falsa
endif

d)
do while
repete
enddo

O que o programa faz: posiciona no primeiro registro da tabela (go top); percorre os registros da tabela até chegar a seu fim (do while ! Eof(); skip; enddo); em cada registro, verifica se a quantidade atual é menor ou igual à mínima (if QTDATU <= QTDMIN). Se for, exibe o código, a descrição e a quantidade atual na tela (? CODBAR, DESPRO, QTDATU).
Resumo: exibe os produtos que estão com quantidade menor ou igual ao mínimo no estoque.

2.
go topologias
do while .not. eof()
    WPRECUS = PRECUS
    WPREVEN = PREVEN
    WPRECUS = WPRECUS * 1.05
    WPREVEN = WPREVEN * 1.05
    replace PRECUS with WPRECUS;
                        PREVEN with WPREVEN;
                        ALTPRE with date()
    skip
enddo

O que faz o programa? (resumo): reajusta o preço de custo e de venda dos produtos em 5%.

3.
WTOT = 0

do while .not. Eof()

    if QTDATU > 0
       WTOT = WTOT + QTDATU*PRECUS
    endif
    skip
enddo

? WTOT

O que faz? Exibe na tela o valor total do estoque.

Exercícios:
  1. Listar os produtos com estoque negativo ou zerado.
  2. Informar o total de itens do estoque

Nenhum comentário: