1
EXEMPLO DE PIVO,GRAFICO,ESTRUTURA
ROTINAS DIVERSAS
WIN_PIVO
_arquivos is Structure
representante_nome is string
cidade_nome is string
cliente_nome is string
data_Venda is Date
valor_Venda is currency
END
st_arquivo is _arquivos
garr_array is array of _arquivos
=================
//st_arquivo is _arquivos
//garr_array is array of _arquivos
TableDeleteAll(TABLE_PIVO)
FOR EACH duplicata_pagar
st_arquivo.representante_nome="AMARILDO"
st_arquivo.cidade_nome="NOVO HAMBURGO"
st_arquivo.cliente_nome="ASSS"
st_arquivo.data_Venda=duplicata_pagar.data_vencimento
st_arquivo.valor_Venda=duplicata_pagar.valor_titulo
TableAddLine(TABLE_PIVO,st_arquivo.representante_nome,st_arquivo.cidade_nome,st_arquivo.cliente_nome,st_arquivo.data_Venda,st_arquivo.valor_Venda)
ArrayAddLine(garr_array,st_arquivo)
END
TableDisplay(TABLE_PIVO)
PVTCalculateAll(PVT_NoName1)