Nolem的部落格

declare
    x_asl_id number;      
    cursor c1 is
    SELECT ORG_ID,iTEM_ID FROM GB_LOAD_LOCATOR WHERE   ORG_ID=106;
    XVENDOR_ID NUMBER;
    XVENDOR_SITE_ID NUMBER;
begin
        xVENDOR_ID :=7001;
        XVENDOR_SITE_ID  :=141;
FOR R1 IN C1
LOOP
      SELECT po_approved_supplier_list_s.nextval
    INTO   x_asl_id
    FROM   sys.dual;  
Insert into PO_APPROVED_SUPPLIER_LIST
   (ASL_ID, USING_ORGANIZATION_ID, OWNING_ORGANIZATION_ID, VENDOR_BUSINESS_TYPE, ASL_STATUS_ID, LAST_UPDATE_DATE, LAST_UPDATED_BY, CREATION_DATE, CREATED_BY,
   VENDOR_ID, ITEM_ID, VENDOR_SITE_ID, LAST_UPDATE_LOGIN)
Values
   (x_asl_id, 106, 106, 'DIRECT', 2, TO_DATE('12/18/2008 19:09:36', 'MM/DD/YYYY HH24:MI:SS'), 1174, TO_DATE('12/18/2008 19:09:36', 'MM/DD/YYYY HH24:MI:SS'), 1174,
   xVENDOR_ID, R1.ITEM_ID, XVENDOR_SITE_ID , 239508);


Insert into PO_ASL_ATTRIBUTES
   (ASL_ID, USING_ORGANIZATION_ID, LAST_UPDATE_DATE, LAST_UPDATED_BY, CREATION_DATE, CREATED_BY, DOCUMENT_SOURCING_METHOD, ENABLE_PLAN_SCHEDULE_FLAG, ENABLE_SHIP_SCHEDULE_FLAG, ENABLE_AUTOSCHEDULE_FLAG, ENABLE_AUTHORIZATIONS_FLAG,
   VENDOR_ID, VENDOR_SITE_ID, ITEM_ID, LAST_UPDATE_LOGIN, ENABLE_VMI_FLAG)
Values
   (x_asl_id, 106, TO_DATE('03/16/2009 17:21:09', 'MM/DD/YYYY HH24:MI:SS'), 1090, TO_DATE('03/16/2009 17:21:09', 'MM/DD/YYYY HH24:MI:SS'), 1090, 'ASL', 'N', 'N', 'N', 'N',
   xVENDOR_ID,    XVENDOR_SITE_ID,            R1.ITEM_ID,      522388,             'N');
COMMIT;
END LOOP;
end;