changes in sql function

git-svn-id: http://15.206.35.175/svn/proteus/business-java/trunk@95542 ce508802-f39f-4f6c-b175-0d175dae99d5

webitm-dis/module-resource/sql/DI3HSUN008.sql

@@ -221,13 +221,14 @@ TYPE cursor2  IS REF CURSOR;
  invtrace_cur cursor1;
 miscdrcr_cur cursor2;
 miscdrcr_sql_stmt varchar2(3000);
+miscdrcr_sql_stmt_cnt varchar2(3000);
 invtrace_sql_stmt varchar2(3000);
    invtrace_qty number;
    invtrace_itemcode char(10);
    invtrace_lot_sl char(15);
    invtrace_lot_no char(15);
    invtrace_lineNoTrace char(15);
-   
+    misc_cnt number;
    miscdrcr_qty number;
    miscdrcr_itemcode char(10);
    miscdrcr_lot_sl char(15);
@@ -245,34 +246,36 @@ invtrace_sql_stmt varchar2(3000);
            FETCH invtrace_cur INTO invtrace_qty,invtrace_itemcode,invtrace_lot_no,invtrace_lot_sl,invtrace_lineNoTrace;
            EXIT WHEN invtrace_cur%NOTFOUND;
           IF invtrace_cur%FOUND THEN
-          
-              miscdrcr_sql_stmt := 'select sum(nvl(d.quantity,0)) as Quantity,d.item_code,d.lot_sl, d.lot_no,line_no__invtrace from misc_drcr_rcp h,misc_drcr_rdet d where h.tran_id=d.tran_id and h.remarks  like ''%POD%'||as_invoiceId||''' and Quantity <> 0 group by d.item_code,d.lot_sl,d.lot_no,line_no__invtrace';
-              open miscdrcr_cur for miscdrcr_sql_stmt;
-             <<cont4>>
-              loop
-                   FETCH miscdrcr_cur INTO miscdrcr_qty,miscdrcr_itemcode,miscdrcr_lot_sl,miscdrcr_lot_no,miscdrcr_lineNoTrace;
-                   if miscdrcr_cur%NOTFOUND then
-                     return 1;
-                   end if;
-                  IF miscdrcr_cur%FOUND THEN
-                     if miscdrcr_qty < invtrace_qty AND invtrace_itemcode = miscdrcr_itemcode AND miscdrcr_lot_no = invtrace_lot_no AND miscdrcr_lot_sl = invtrace_lot_sl AND miscdrcr_lineNoTrace = invtrace_lineNoTrace THEN
-                       return 1;
-                     else
-                         goto cont4;
-                     END IF;                     
-                  END IF;
-              end loop;
-              close miscdrcr_cur;
+                  select count(1) into misc_cnt from misc_drcr_rcp h,misc_drcr_rdet d where h.tran_id=d.tran_id and h.remarks  like '%POD%'||as_invoiceId||'' and Quantity <> 0; 
+                  if(misc_cnt > 0)  then               
+                        miscdrcr_sql_stmt := 'select sum(nvl(d.quantity,0)) as Quantity,d.item_code,d.lot_sl, d.lot_no,line_no__invtrace from misc_drcr_rcp h,misc_drcr_rdet d where h.tran_id=d.tran_id and h.remarks  like ''%POD%'||as_invoiceId||''' and Quantity <> 0 group by d.item_code,d.lot_sl,d.lot_no,line_no__invtrace';
+                        open miscdrcr_cur for miscdrcr_sql_stmt;
+                       <<cont4>>
+                        loop
+                             FETCH miscdrcr_cur INTO miscdrcr_qty,miscdrcr_itemcode,miscdrcr_lot_sl,miscdrcr_lot_no,miscdrcr_lineNoTrace;
+                             EXIT WHEN miscdrcr_cur%NOTFOUND;
+                            IF miscdrcr_cur%FOUND THEN
+                               if miscdrcr_qty < invtrace_qty AND invtrace_itemcode = miscdrcr_itemcode AND miscdrcr_lot_no = invtrace_lot_no AND miscdrcr_lot_sl = invtrace_lot_sl AND miscdrcr_lineNoTrace = invtrace_lineNoTrace THEN
+                                 return 1;
+                               else
+                                   goto cont4;
+                               END IF;                     
+                            END IF;
+                        end loop;
+                        close miscdrcr_cur;
+                  else --ELSE OF misc_cnt cond.
+                    return 1;
+                  end if; --misc_cnt condition end
           ELSE          
             goto cont3;
          END IF;
        END LOOP;
        
        close invtrace_cur;
-       return cnumber;
+       return  cnumber;
        
        exception when others then
-      return -39;
+      return 1;
        
        --return cnumber;
 END;