Arquivo - Estrutura

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)