Visual Fox – Programas para Avaliação

Criar uma tabela para armazenar quantos produtos foram comprados por cada cliente. A tabela deverá possuir as colunas: cod_cli e qtd_prods (N, 5, 0) os dados deverão ser obtidos das tabelas Pedidos e It_ped. (vale 4.0 pontos)

Obs: Para incluir uma linha já com dados pode-se recorrer de preferência ao comando INSERT INTO ... Para incluir apenas linha sem dados usa-se o APPEND BLANK e depois inclui-se os dados com REPLACE ... WITH ...

* VF2: Rio: 08/11/2001

* 2-Criar uma tabela para armazenar quantos produtos foram comprados por cada cliente. A tabela deverá possuir as colunas: cod_cli e qtd_prods (N 5 0 ) os dados deverão ser obtidos das Tabelas pedidos e it_ped. (4.0 pts). Obs: Para incluir uma linha já com dados pode-se recorrer de preferencia ao comando INSERT INTO ... Para incluir apenas linha sem dados usa-se o APPEND BLANK e depois inclui-se os dados com REPLACE ... WITH ...

Procedure vf2

*Criado no visual Fox Pro 2.6

*Exibindo uma mensage sobre o programa:

Set Message to 'Esse programa armazena o total de de produtos e os clientes em uma tabela.'

Wait Window 'VF Programa 2:' +(CHR(13))+ 'Criado por Sonia Batalha - 001707 e Jorge Antonio - 003709'+ CHR(13)+ 'Esse programa armazena em uma tabela,' +(CHR(13))+'o total de produtos e os clientes'

set safety off

set talk off

*Abertura das tabelas

Close Databases All

Use 'Cliente1.dbf' in 0

Index On cod_cli Tag cod_cli

Use 'Pedido1.dbf' in 0

Select Pedido1

Index On num_ped Tag num_ped

Use 'It_ped1.dbf' in 0

Select It_ped1

Index on cod_prod tag cod_prod

Use 'Quntprd1.dbf' in 0

*Tratamento de um possível erro.

Select Quntprd1

Scan

If Quntprd1.cod_cli = '' Then…