ERP系统常用SQL集锦

GoodLuckMore

楼主真利害啊！
这些东西大都发出来！

纵横四海

-- Author  : Wanjun Hu  -- Created : 2005-12-12 14:59:54  -- Purpose : ¸ù¾Ý»á¼ÆÆÚ,¹«Ë¾,²¿ÃÅ,»á¼Æ¿ÆÄ¿µÃµ½Æäµ±ÆÚ·¢ÉúÖµ  function getNetBySegmentsAndPeriodName(p_period_name varchar2,                                         p_segment1    varchar2,                                         p_segment2    varchar2,                                         p_segment3    varchar2)    return number is    p_result number;  begin      select sum(gba.Period_Net_Dr - gba.Period_Net_Cr) a_net      into p_result      from apps.gl_balances          gba,           apps.gl_periods           gp,           apps.gl_code_combinations gcc     where gcc.code_combination_id = gba.code_combination_id       and gba.actual_flag = 'A'       and gba.period_year in (2004, 2005, 2006)       and gba.currency_code = 'CNY'       and gba.set_of_books_id = 1       and gp.period_year in (2004, 2005, 2006)       and gp.period_set_name = '########'       and gp.period_name = gba.period_name       and (gba.template_id is null or gba.template_id = 227)       and gba.period_name = p_period_name       and gcc.segment1 = p_segment1       and gcc.segment2 = p_segment2       and gcc.segment3 = p_segment3;      return(p_result);  end getNetBySegmentsAndPeriodName;

纵横四海

销售人员信息表
select JRS.SALESREP_ID, JRS.NAME, hla.description  from jtf_rs_srp_vl jrs, per_all_assignments_f pasf, HR_LOCATIONS_ALL hla
where jrs.PERSON_ID = pasf.person_id   and SYSDATE between pasf.effective_start_date and       pasf.effective_end_date   and pasf.location_id = hla.location_id

yehong

太谢谢楼主了

whqellaqq

以下是引用Vicky在2005-6-29 15:50:38的发言：
楼主,我说的Fuction是指Menu下的Fuction,比如说:Invoice entry, Merge supplier, Define item cost等等.在系统管理面里面有支报表可以查看的，或直接掉用它的sql（Function Security Menu Report）

[此贴子已经被作者于2006-1-19 14:38:57编辑过]

XMMM

真好！

whiteguo

!

纵横四海

参看系统请求的SQL
select t.CONCURRENT_PROGRAM_NAME,       t.EXECUTABLE_ID,       tt.EXECUTABLE_NAME,       tt.EXECUTION_FILE_NAME  from FND_CONCURRENT_PROGRAMS_VL t, FND_EXECUTABLES_FORM_V tt where upper(t.CONCURRENT_PROGRAM_NAME) like '%CUX%'   and t.EXECUTABLE_ID = tt.EXECUTABLE_ID order by tt.EXECUTION_FILE_NAME;

纵横四海

员工成本,采购订单,部门表(注一个员工如果他的成本有多条的话,那么就有多条记录)
select d.ASSIGNMENT_ID,       a.person_id as person_id,       a.last_name as last_name,       --cux_hr_common.getDepartmentNameByPersonID(a.person_id) as hr_department,       cux_hr_common.getDepartmentIDByPersonID(a.person_id) as hr_department,       e.segment1 || '.' || e.segment2 || '.' || e.segment3 || '.' ||       e.segment4 || '.' || e.segment5 || '.' || e.segment6 || '.' ||       e.segment7 || '.' || e.segment8 "²É¹º¶©µ¥ÐÅÏ¢",       f.PROPORTION,       f.CONCATENATED_SEGMENTS  from PER_PEOPLE_f a,       PER_ASSIGNMENTS_F d,       gl_code_combinations e,       (SELECT PAY.ROWID ROW_ID,               PAY.COST_ALLOCATION_ID,               PAY.EFFECTIVE_START_DATE,               PAY.EFFECTIVE_END_DATE,               PAY.BUSINESS_GROUP_ID,               PAY.COST_ALLOCATION_KEYFLEX_ID,               PAY.ASSIGNMENT_ID,               PAY.PROPORTION,               PAY.REQUEST_ID,               PAY.PROGRAM_APPLICATION_ID,               PAY.PROGRAM_ID,               PAY.PROGRAM_UPDATE_DATE,               PAY.LAST_UPDATE_DATE,               PAY.LAST_UPDATED_BY,               PAY.LAST_UPDATE_LOGIN,               PAY.CREATED_BY,               PAY.CREATION_DATE,               PCAF.CONCATENATED_SEGMENTS          FROM PAY_COST_ALLOCATION_KEYFLEX PCAF, PAY_COST_ALLOCATIONS_F PAY         WHERE PCAF.COST_ALLOCATION_KEYFLEX_ID(+) =               PAY.COST_ALLOCATION_KEYFLEX_ID) f where a.PERSON_ID = d.PERSON_ID   and a.person_type_id = 6   and d.EFFECTIVE_START_DATE >=       (select max(EFFECTIVE_START_DATE)          from PER_ASSIGNMENTS_F         where person_id = d.PERSON_ID)   and sysdate between d.EFFECTIVE_START_DATE and d.EFFECTIVE_END_DATE   and sysdate between a.EFFECTIVE_START_DATE and a.EFFECTIVE_END_DATE   and sysdate between f.EFFECTIVE_START_DATE and f.EFFECTIVE_END_DATE   and e.code_combination_id = d.DEFAULT_CODE_COMB_ID   and d.ASSIGNMENT_ID = f.ASSIGNMENT_ID-- and d.ASSIGNMENT_ID = 67
;

纵横四海

        --以下部分为没有导入成发票的报销单和导入成报销单又没有导入gl的报销单        select 1 as set_of_books_id,               b.code_combination_id,               'CNY' currency_code,               to_char(a.creation_date, 'MON-YY'),               0 a_1,               0 a_2,               0 b_1,               0 b_2,               b.amount unpost_1,               0 unpost_2,               0,               0          from apps.ap_expense_report_headers_all a,               apps.ap_expense_report_lines_all   b,               apps.per_assignments_f             c         where a.report_header_id = b.report_header_id           and a.employee_id = c.PERSON_ID           and a.creation_date between c.EFFECTIVE_START_DATE and               c.EFFECTIVE_END_DATE           and a.expense_current_approver_id <> c.SUPERVISOR_ID           and a.employee_id = 285           and (select count(*)                  from ap_invoices_all t                 where t.invoice_num = a.invoice_num) = 0        union all        select 1 as set_of_books_id,               a.dist_code_combination_id,               'CNY' currency_code,               a.period_name,               0 a_1,               0 a_2,               0 b_1,               0 b_2,               a.amount unpost_1,               0 unpost_2,               0,               0          from apps.AP_INVOICE_DISTRIBUTIONS_all a         where a.posted_flag = 'N'

junice1227

终于找到一个好的ERP论坛了

纵横四海

以下是引用junice1227在2006-3-14 19:35:49的发言：终于找到一个好的ERP论坛了
谢谢阿,欢迎你的到来

yuqiang

好贴，顶

power2344

能不能来点FA的有关SQL.谢谢!

orapeasant

俺也来贡献一个.
--*******************************************--* Delete a descriptive flexfield--*******************************************begin  fnd_descr_flex_contexts_pkg.DELETE_ROW(X_APPLICATION_ID               => 0,                                         X_DESCRIPTIVE_FLEXFIELD_NAME   => '<FLX NAME>',                                         X_DESCRIPTIVE_FLEX_CONTEXT_COD => '<FLX CODE>');  commit;end;

orapeasant

--****************************************--* Delete a concurrent program--****************************************SET SERVEROUTPUT ON SIZE 1000000DECLARE PROCEDURE REMOVE(p_cp_short_name IN VARCHAR2) IS   l_cp_short_name VARCHAR2(100):=p_cp_short_name;   l_cp_app        VARCHAR2(100);   CURSOR C1 IS     SELECT facp.application_short_name program_application,fcp.concurrent_program_name program_short_name           ,farg.application_short_name group_application,frg.request_group_name request_group       FROM fnd_request_groups frg , fnd_request_group_units frgu, fnd_concurrent_programs fcp           ,fnd_application farg, fnd_application facp      WHERE frg.request_group_id = frgu.request_group_id        AND frg.application_id = farg.application_id        AND fcp.application_id = facp.application_id        AND frgu.request_unit_id = fcp.concurrent_program_id        AND UPPER(fcp.concurrent_program_name) LIKE UPPER(l_cp_short_name); BEGIN    FOR c1rec IN c1 LOOP     DBMS_OUTPUT.PUT_LINE('Removing '||c1rec.program_short_name||' from '||c1rec.request_group);     fnd_program.remove_from_group(                   program_short_name=>c1rec.program_short_name,                  program_application=>c1rec.program_application,                        request_group=>c1rec.request_group,                    group_application=>c1rec.group_application                    );     DBMS_OUTPUT.PUT_LINE('Removed.');   END LOOP;   SELECT fa.application_short_name      INTO l_cp_app     FROM fnd_application fa, fnd_concurrent_programs fcp    WHERE fa.application_id = fcp.application_id      AND UPPER(fcp.concurrent_program_name) = UPPER(l_cp_short_name);   fnd_program.delete_program(program_short_name => l_cp_short_name,                                     application => l_cp_app);                                        DBMS_OUTPUT.PUT_LINE('Deleted: '||l_cp_short_name);   DBMS_OUTPUT.PUT_LINE(' ');   COMMIT; EXCEPTION   WHEN NO_DATA_FOUND THEN       DBMS_OUTPUT.PUT_LINE('Concurrent program does not exist: '|| l_cp_short_name);   WHEN OTHERS THEN      DBMS_OUTPUT.PUT_LINE('error '||SQLERRM); END REMOVE; BEGIN  REMOVE('<CP SHORT CODE>');END;/

ctlg

呵呵，谢了

Star_2122

我在學習SQL，好

nathan

兄弟,你太无私了.非顶不可