Getting result for current date

Question

Hi,
I have a problem on getting the following result
CO_ID   RECEIVE SHIP_OUT ONHAND OPENING DATE            GR_ID   COMPONENT_NAME
100     0     0      9     9     24-JUN-09     234     Paper
200     8     0      8     0     25-JUN-09     123     Plastic Bag
100     10     0      19     9     25-JUN-09     234     Paper
200     0     0      8     8     26-JUN-09     123     Plastic Bag
100     0     0      19     19     26-JUN-09     234     Paperwith this, it doesn't add a new result on tomorrow record, and today record also not correct. Help me pls....
PROCEDURE Inv_Rec IS     
          dToDate          DATE := TO_DATE(SYSDATE, 'DD-MON-YY');
                dLoopDay     DATE := TO_DATE(SYSDATE - 1, 'DD-MON-YY');
                rDayBeforeInvRec      Inventory%ROWTYPE;
          rInDateInvRec           Inventory%ROWTYPE;
          fInDateOnHandQty    FLOAT;
          fInDateOpeningQty FLOAT;
                fBForeDateOpeningQty  FLOAT;
                fBForeDateOnHandQty   FLOAT;
          nComponentId     NUMBER(25);
          vCompDept     VARCHAR2(20);
          vCompName     VARCHAR2(80);
          vWasteType     VARCHAR2(2);
          nGroupId     NUMBER(25);
          vComponentName     VARCHAR2(80);
    CURSOR Day_Before_Inv_Bal IS
               SELECT * FROM inventory
               WHERE date = dLoopDay;
          CURSOR InDate_Rec_Exist IS
               SELECT * FROM inventory
               WHERE date = dToDate
               AND co_id = nComponentId
               AND gr_id = nGroupId
               AND component_name = vComponentName;
     BEGIN
          WHILE dLoopDay <= dToDate + 1
          LOOP
                    OPEN Day_Before_Inv_Bal;
               LOOP
                    FETCH Day_Before_Inv_Bal INTO rDayBeforeInvRec;
                    nComponentId     := rDayBeforeInvRec.co_id;
                    nGroupId     := rDayBeforeInvRec.gr_id;
                    vComponentName     := rDayBeforeInvRec.component_name;
        fBForeDateOnHandQty := rDayBeforeInvRec.opening +
                rDayBeforeInvRec.receive - rDayBeforeInvRec.ship_out;
            UPDATE inventory SET
                                   ONHAND  = fBForeDateOnHandQty                         
                              WHERE date = dLoopDay
                              AND co_id = nComponentId
                              AND gr_id = nGroupId
                              AND component_name = vComponentName;
                    OPEN InDate_Rec_Exist;
                         FETCH InDate_Rec_Exist INTO rInDateInvRec;
                         IF InDate_Rec_Exist%FOUND THEN
                              fInDateOpeningQty := fBForeDateOnHandQty;
                              fInDateOnHandQty      := fBForeDateOnHandQty + rInDateInvRec.onhand
            - rInDateInvRec.ship_out;
                              UPDATE inventory SET
                                   OPENING = fInDateOpeningQty,
                                   ONHAND  = fInDateOnHandQty                              
                              WHERE date = dloopday + 1
                              AND co_id = nComponentId
                              AND gr_id = nGroupId
                              AND component_name = vComponentName;                              
                         ELSE          
                                   fInDateOpeningQty := rDayBeforeInvRec.wwin_onhand;
                                   fInDateOnHandQty      := rDayBeforeInvRec.wwin_onhand;
                                   INSERT INTO wste_waste_inventory (
                                        CO_ID,
                                        RECEIVE,
                                        SHIP_OUT,
                                        ONHAND,
                                        OPENING,
                                        DATE,
                                        GR_ID,
                                        COMPONENT_NAME )
                                   VALUES (
                                        nComponentId,
                                        0,
                                        0,
                                        fInDateOpeningQty,
                                        fInDateOnHandQty,
                                        dToDate,
                                        nGroupId,
                                        vComponentName );     
                         END IF;               
                    CLOSE InDate_Rec_Exist;
        EXIT WHEN Day_Before_Inv_Bal%NOTFOUND;
          END LOOP;
        CLOSE Day_Before_Inv_Bal;
      COMMIT;
      dLoopDay := dLoopDay + 1;
          END LOOP;
     COMMIT;     
     END Inv_Rec;Edited by: newBJeat on Jun 25, 2009 1:28 AM

Answer 1

You want:
TRUNC(sysdate)if you don't want the time element of a DATE variable.
When you to_date something that's already a date, you introduce a bug, as it forces some implicit conversions:
eg:
to_date(sysdate, 'dd/mm/yyyy')becomes
to_date(to_char(sysdate, <default nls_date_format parameter>), 'dd/mm/yyyy')If your default nls_date_format parameter happens to match the format mask you specify, then you're lucky and the code will work. However, someone with a different format will have an error.
Don't EVER to_date something that's already a date.