Create_record, duplicate records n times.

Question

hii all,
i have a detail datablock thats has;
icode     totqty     perbox     boxes_required
prod1     20     6     4
prod2     10     4     3
prod3     15     4     4
- boxes_required column rounded up (totalqty/perbox).
i have a button, which when pressed...will bring up a data block
with records based on the 'boxes_required' column values..something like this...
icode     inbox     box no.
prod1     6     1
prod1     6     2
prod1     6     3
prod1     2     4
prod2     4     5
prod2     4     6
prod2     2     7
prod3     4     8
prod3     4     9
prod3     4     10
prod3     3     11any ideas how this can be achieved...
Form6i,, db 10g
regards...

Answer 1

Something like this
DECLARE
  nRemaining NUMBER;
  nbOxNumber:=0;
BEGIN
  GO_BLOCK('DETAIL');
  FIRST_RECORD;
  LOOP
    EXIT WHEN :DETAIL.TOT_QUANTITY IS NULL;
    nRemaining:=:DETAIL.TOT_QUANTITY;
    nBoxNumber:=0;
    GO_BLOCK('WHATEVER');
    LOOP
      IF :SYSTEM.RECORD_STATUS!='NEW' THEN
        CREATE_RECORD;
      END IF;
      nBoxNumber:=nBoxNumber+1;
      :WHATEVER.PRODUCT:=:DETAIL.PRODUCT;
      :WHATEVER.BOX_NUM:=nBoxNumber;
      IF nRemaining>:DETAIL.PERBOX THEN
        :WHATEVER.INBOX:=:DETAIL.PERBOX;
        nRemaining:=nRemaining-:DETAIL.PERBOX;
      ELSE
        :WHATEVER.INBOX:=nRemaining;
        EXIT;
      END IF;
    END LOOP;
    GO_BLOCK('DETAIL');
    EXIT WHEN :SYSTEM.LAST_RECORD='TRUE';
  END LOOP;
END;not tested