Trabalho

suntos abordados nesse relatório:

Usando o evento OnCalc

Usando o evento OnChange

Duas maneiras de se fazer um calculo

Usando os eventos OnActivate e OnDeactivate

Usando o evento AfterDelete

Usando o evento AfterScroll

Usando o evento OnCloseUp

Duas novas tabelas em nosso projeto

Uma outra tabela também importante

Atenção:

Os assuntos tratados aqui, fazem parte de uma série de estudos feitos em classe, esses assuntos são continuação de assuntos tratados em relatórios passados.

Usando o evento OnCalc:

Para criar um campo para Total Parcial: (Add New Field > Calculed)

Nome: totalpartical
Type: Float
Component: tbl_itenstotalparcial

Para calcular vai no evento: ONCalcField

OnCalc, é um evento que calcula os campos de uma tabela, é usado para muitas coisas além de apenas cálculos.

Tbl_Itens > Event > OnCalcField

Um exemplo utilizando o evento OnCalc:

tbl_itens.FieldByName('totalparcial').asfloat := tbl_itens.FieldByName('qtd_item').asfloat * tbl_itens.FieldByName('valor_item').asfloat ;

Usando o evento OnChange

Esse evento faz com que ao alterar a tabela, algo aconteça.

Na tabela Itens, quando escolher o produto, ao inserir um item a QTDE será 1, o valor será preenchido automaticamente, será necessário apenas escolher o produto.

Na tbl_Itens > duplo click, ir no cod_prod no evento OnChange(ao alterar)

Para saber qual programar, devemos olhar qual campo é modificado, então eu sei que vou programa isso na Tbl_Itens, no campo cod_prod

Algoritmo para preencher o valor do produto:

Para tal, vou na tabela de itens e indico o código do produto vou no evento OnChange e programo.
Depois de escolher o produto, vou na tabela de produtos, busco o valor e preencho na tabela de itens o valor do produto.

tbl_prod.Locate('cod_prod', tbl_itens.FieldbyName('cod_prod').asInteger,[]); Modo de inserção, se a tabela não estiver no modo de inserção, eu devo coloca-la

if not