31 de mai de 2011

Desenvolvimento de Software 1, aula 22


Aula 22
13/10/2003

Trabalho: Criar um sistema para papelaria

  1. Criar a papelaria – idealizar a empresa
  2. Criar o menu
  3. Definir tudo o que vai na papelaria
  4. O que vai ser programado
  5. Definir tabelas, telas e relatórios impressos

Índices

Exemplo: Itens na tabela PRODUTO.DBF

1 Lápis
2 Caneta
3 Borracha
4 Sulfite
5 Caderno
6 Clips
7 Estojo
8 Agenda

prod1.ntx

1 Agenda 8
2 Borracha 3
3 Caderno 5
4 Caneta 2
5 Clips 6
6 Estojo 7
7 Lápis 1
8 Sulfite 4

Busca pelo número no índice; quando achar, usa o número do


use PRODUTO

index on DESPRO to PROD1

set index to


use C:\ESTOQUE\PROD

if .not.(file(“C:\ESTOQUE\PROD1.NTX”)) .and. file(“C:\ESTOQUE\PROD2.NTX”)
index on DESPRO to C:\ESTOQUE\PROD1.NTX
index on CODBAR to C:\ESTOQUE\PROD2.NTX
endif

set index to C:\ESTOQUE\PROD1, C:\ESTOQUE\PROD2


Procura

  • seek
var: valor a ser procurado

exemplo:
seek “caneta”

seek wdespro

  • found()
    retorna verdadeiro se encontrou (comando seek)

exemplo:

seek WDESPRO

if .not. Found()
? “Produto não encontrado”
endif


Impressão

set device to print //avisa que vai pra impressora
set device to screen //retorna para tela

set console off //desliga a saída na tela

set printer on // liga a saída na impressora
? // na impressão, preferir este comando [ao say]
// pois é + rápido, e também porque não há
// posição de linhas

set console on
set printer off

Nenhum comentário: