Advertisement
Guest User

CODE EJHA

a guest
Jul 25th, 2016
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.25 KB | None | 0 0
  1. DELIMITER $$
  2. CREATE PROCEDURE `process_VerKendaliHarga` (IN in_kode varchar(15))
  3. BEGIN
  4.  
  5. DECLARE v_idkatalog varchar(15);
  6. DECLARE v_reffbatch varchar(40);
  7.  
  8. DECLARE v_endloopkatalog BOOLEAN DEFAULT FALSE;
  9. DECLARE v_endloopbatch BOOLEAN DEFAULT FALSE;
  10.  
  11. -- declare cursor for id_katalog && NOT FOUND handler
  12. DECLARE c_idkatalog CURSOR FOR SELECT A.id_katalog FROM tdetailf_konsinyasi A WHERE A.kode_reff = in_kode;
  13. DECLARE CONTINUE HANDLER FOR NOT FOUND SET v_endloopkatalog = TRUE;
  14. OPEN c_idkatalog;
  15. for_each_katalog: LOOP
  16.  
  17. IF v_endloopkatalog = TRUE THEN
  18. LEAVE for_each_katalog;
  19. END IF;
  20. FETCH c_idkatalog INTO v_idkatalog;
  21.  
  22. DECLARE c_reffbatch CURSOR FOR SELECT A.kode_reffbatch FROM tdetailf_konsinyasirinc A WHERE A.kode_reff=in_kode AND A.id_katalog=v_idkatalog;
  23. DECLARE CONTINUE HANDLER FOR NOT FOUND SET v_endloopbatch = TRUE;
  24. OPEN c_reffbatch;
  25. for_each_reffbatch: LOOP
  26.  
  27. IF v_endloopbatch = TRUE THEN
  28. LEAVE for_each_reffbatch;
  29. END IF;
  30. FETCH c_reffbatch INTO v_reffbatch;
  31.  
  32. END LOOP for_each_reffbatch;
  33. CLOSE c_reffbatch;
  34.  
  35. END LOOP for_each_katalog;
  36. CLOSE c_idkatalog;
  37.  
  38. END $$
  39.  
  40. DELIMITER ;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement