Gerar linha a linha no forms

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
numerus
Rank: Analista Júnior
Rank: Analista Júnior
Mensagens: 71
Registrado em: Seg, 23 Mai 2011 11:56 am
Localização: SP

Fala galera beleza...
então, estou transferindo um arquivo txt para o forms e quero fazer da seguinte maneira:
Todos os campos do txt tem um no forms...
Quero que leia a linha e jogue no forms uma a uma linha...mas acontece que ele só fica na primeira linha, fica midando as linhas do txt na primeira linha da tela do forms.... não vai cada um dado para uma linha...
estou usando isso mais não esta funcionando....

abraços
se alguém puder ajudar valeu...


...
:b3.entity := v_entity;
:b3.project_no := v_project_no;
:b3.job_no := v_job_no;
:b3.req_date_from := v_req_date_from;
:b3.req_date_to := v_req_date_to;
:b3.from_time := v_from_time;
:b3.to_time := v_to_time;
:b3.ss_id := v_ss_id;
:b3.emp_notes := v_emp_notes;
:b3.sub_entity := v_sub_entity;
:b3.fl_status := v_fl_status;

Synchronize;

if :system.last_record = 'TRUE' then

create_record;
--next_record;
else
next_record;
...
numerus
Rank: Analista Júnior
Rank: Analista Júnior
Mensagens: 71
Registrado em: Seg, 23 Mai 2011 11:56 am
Localização: SP

apenas informar:

...
:b3.en...

Synchronize;

go_block('B3');
create_record;
...
marlonpasquali
Rank: DBA Pleno
Rank: DBA Pleno
Mensagens: 248
Registrado em: Sex, 06 Fev 2009 3:02 pm
Localização: ERECHIM - RS

Tenho um exemplo que talvez possa te ajudar. Neste form, tenho um cursor que le alguns dados e depois preenche a tela do forms linha a linha:

DECLARE
CURSOR CUR_ITEM IS
Select iim.item_no codigo,
iim.item_desc1 descricao,
ili.WHSE_CODE Deposito,
ili.LOT_STATUS Status,
ilm.lot_id Lote_Id,
ilm.lot_no Lote,
ili.LOCATION Endereco,
sum(ili.loct_onhand) qtde
From APPS.ic_loct_inv ili,
APPS.IC_ITEM_MST_B iim,
APPS.ic_lots_mst ilm
Where ili.item_id = iim.item_id
and iim.item_no = :PRODUTO
and ilm.item_id = ili.item_id
and ilm.lot_id = ili.lot_id
Group by
iim.item_no,
iim.item_desc1,
ili.WHSE_CODE,
ili.LOT_STATUS,
ilm.lot_id,
ilm.lot_no,
ili.LOCATION
Having round(sum(ili.loct_onhand)) > 0
Order by
ili.WHSE_CODE DESC,
ilm.lot_id,
ili.LOCATION;

REG_ITEM CUR_ITEM%ROWTYPE;
BEGIN
OPEN CUR_ITEM;
LOOP
FETCH CUR_ITEM INTO REG_ITEM;
EXIT WHEN CUR_ITEM%NOTFOUND;
GO_BLOCK('BLOCO3');
:BLOCO3.DEPOSITO := REG_ITEM.DEPOSITO;
:BLOCO3.STATUS := REG_ITEM.STATUS;
:BLOCO3.LOTE := REG_ITEM.LOTE;
:BLOCO3.ENDERECO := REG_ITEM.ENDERECO;
:BLOCO3.ESTOQUE := REG_ITEM.QTDE;
NEXT_RECORD;
END LOOP;
CLOSE CUR_ITEM;
END;
FIRST_RECORD;
Responder
  • Informação
  • Quem está online

    Usuários navegando neste fórum: Nenhum usuário registrado e 17 visitantes