admin管理员组文章数量:1025548
EBS
–导入发票
DECLAREV_CREATE_INVOICES BOOLEAN;V_BATCH_ERROR_FLAG VARCHAR2(100);V_INVOICES_FETCHED NUMBER;V_INVOICES_CREATED NUMBER;V_TOTAL_INVOICE_AMOUNT NUMBER;V_PRINT_BATCH VARCHAR2(100);L_IFACE_ID NUMBER;L_BATCH_ID NUMBER;
BEGINselect AP_INVOICES_INTERFACE_S.nextval, AP_INTERFACE_GROUPS_S.NEXTVALINTO L_IFACE_ID, L_BATCH_IDfrom dual;insert into ap_invoices_interface(invoice_id,terms_id, --20170830ACCTS_PAY_CODE_COMBINATION_ID, --科目PAYMENT_METHOD_LOOKUP_CODE, --付款方法org_id,invoice_num,invoice_type_lookup_code,vendor_id,vendor_site_id,INVOICE_DATE,gl_date,invoice_amount,invoice_currency_code,source,group_id,DESCRIPTION)SELECT L_IFACE_ID,10000,1070, --科目'CHECK',81,'TEST083001','STANDARD',1543,3160,SYSDATE - 10,SYSDATE - 10,1,'CNY','EXPENSE_INVOICE',L_BATCH_ID,'测试'FROM DUAL;INSERT into ap_invoice_lines_interface(invoice_id,org_id,invoice_line_id,line_number,line_type_lookup_code,amount,DESCRIPTION,-- dist_code_combination_id,DIST_CODE_CONCATENATED,PROJECT_ID,TASK_ID,EXPENDITURE_TYPE,EXPENDITURE_ITEM_DATE,EXPENDITURE_ORGANIZATION_ID,accounting_date)SELECT L_IFACE_ID,81,AP_INVOICE_LINES_INTERFACE_S.nextval,1,'ITEM',1,'TEST',-- 1286,'59.00.10020109.00.00.00.00.00.00',4701,13423,'安装工程费',SYSDATE - 10,107,SYSDATE - 10FROM DUAL;fnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);V_CREATE_INVOICES := AP_IMPORT_INVOICES_PKG.IMPORT_INVOICES('TEST0830', --IN VARCHAR2,SYSDATE - 10, --p_gl_date --IN DATE,NULL, --p_hold_code --IN VARCHAR2,NULL, --p_hold_reason --IN VARCHAR2,NULL, --p_commit_cycles --IN NUMBER,'EXPENSE_INVOICE', --p_source --IN VARCHAR2,L_BATCH_ID, --IN VARCHAR2,FND_GLOBAL.CONC_REQUEST_ID, --p_conc_request_id -IN NUMBER,'Y', --p_debug_switch --IN VARCHAR2, V_BATCH_ERROR_FLAG, --OUT NOCOPY VARCHAR2,V_INVOICES_FETCHED, --OUT NOCOPY NUMBER,V_INVOICES_CREATED, --OUT NOCOPY NUMBER,V_TOTAL_INVOICE_AMOUNT, --OUT NOCOPY NUMBER,V_PRINT_BATCH, --OUT NOCOPY VARCHAR2,NULL --p_calling_sequence --IN VARCHAR2);IF V_CREATE_INVOICES THENdbms_output.put_line('S');COMMIT;ELSEdbms_output.put_line(V_BATCH_ERROR_FLAG);dbms_output.put_line(V_INVOICES_FETCHED);dbms_output.put_line(V_INVOICES_CREATED);dbms_output.put_line(V_TOTAL_INVOICE_AMOUNT);dbms_output.put_line(V_PRINT_BATCH);END IF;
END;
–验证
declareln_processed_cnt NUMBER DEFAULT 0;ln_failed_cnt NUMBER DEFAULT 0;ln_holds_cnt NUMBER;lv_approval_status VARCHAR2(100);lv_funds_return_code VARCHAR2(100);L_RESP_ID NUMBER;L_RESP_ID2 NUMBER := FND_GLOBAL.RESP_ID;BEGINfnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);lv_approval_status := NULL;lv_funds_return_code := NULL;ln_holds_cnt := NULL;ap_approval_pkg.approve('',28741, /*Bug#7036685 : Passed batch_id instead of NULL*/'','','','',40970,'','','','N',ln_holds_cnt,lv_approval_status,'APXINWKB');END;
–创建会计科目
DECLAREreq_id number;
BEGIN fnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);req_id := FND_REQUEST.SUBMIT_REQUEST('SQLAP','APACCENG','','',FALSE,'','','Invoices','N','N','Y','Y',20,81,'Y',28741,'','', --13'','',chr(0),'','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','');dbms_output.put_line(req_id);END;
–科目传送GL
APACCENG
–创建会计科目
DECLARE req_id number;
BEGIN fnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);req_id := FND_REQUEST.SUBMIT_REQUEST('SQLAP','APGLTRANS','','',FALSE,1,1,'N','','','2018/08/30 00:00:00','Accrual','','A','Y','D','Y','N','','N','N', --16 '','',chr(0),'','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','');dbms_output.put_line(req_id);END;
–核销预付款发票
DECLAREL_RETURN VARCHAR2(200);
BEGINfnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);L_RETURN := AP_PREPAY_PKG.apply_prepay(p_prepay_dist_id => 144657,p_invoice_id => 40970,p_prepay_num => NULL,p_prepay_dist_num => NULL,p_apply_amount => 1,p_gl_date => SYSDATE - 10,-- p_period_name IN VARCHAR2 DEFAULT NULL,p_prepay_included => 'N',p_user_id => 1048,p_last_update_login => NULL,p_calling_from => NULL,p_calling_sequence => NULL-- p_ussgl_code IN VARCHAR2 DEFAULT NULL);dbms_output.put_line(L_RETURN);
END;
–取消核销预付款发票
DECLAREL_RETURN VARCHAR2(200);
BEGINfnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);L_RETURN := AP_PREPAY_PKG.apply_prepay(p_prepay_dist_id => 144668,p_invoice_id => 40970,p_prepay_num => NULL,p_prepay_dist_num => NULL,p_apply_amount => -1,p_gl_date => SYSDATE - 10,-- p_period_name IN VARCHAR2 DEFAULT NULL,p_prepay_included => NULL,p_user_id => 1048,p_last_update_login => NULL,p_calling_from => NULL,p_calling_sequence => NULL-- p_ussgl_code IN VARCHAR2 DEFAULT NULL);dbms_output.put_line(L_RETURN);--空代表成功
END;
–发票取消
DECLAREL_RETURN BOOLEAN;X_MESSAGE_NAME VARCHAR2(2000); X_invoice_amount NUMBER; X_base_amount NUMBER; X_tax_amount NUMBER; X_temp_cancelled_amount NUMBER; X_cancelled_by NUMBER; X_cancelled_amount NUMBER; X_cancelled_date DATE;X_last_update_date DATE;X_original_prepayment_amount NUMBER; X_pay_curr_invoice_amount NUMBER;
BEGINfnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);L_RETURN := AP_CANCEL_PKG.Ap_Cancel_Single_Invoice(P_invoice_id =>40973,P_last_updated_by =>1048,P_last_update_login =>NULL,P_set_of_books_id =>1,P_accounting_date =>SYSDATE+1,P_period_name =>'AUG-18',P_message_name =>X_MESSAGE_NAME,P_invoice_amount =>X_invoice_amount,P_base_amount => X_base_amount,P_tax_amount =>X_tax_amount,P_temp_cancelled_amount => X_temp_cancelled_amount,P_cancelled_by => X_cancelled_by,P_cancelled_amount=>X_cancelled_amount,P_cancelled_date => X_cancelled_date,P_last_update_date => X_last_update_date,P_original_prepayment_amount =>X_original_prepayment_amount,P_check_id =>NULL,P_pay_curr_invoice_amount =>X_pay_curr_invoice_amount,P_calling_sequence =>NULL);IF L_RETURN THENdbms_output.put_line('S');ELSEdbms_output.put_line('E');END IF;
END;
–付款的
/
EBS
–导入发票
DECLAREV_CREATE_INVOICES BOOLEAN;V_BATCH_ERROR_FLAG VARCHAR2(100);V_INVOICES_FETCHED NUMBER;V_INVOICES_CREATED NUMBER;V_TOTAL_INVOICE_AMOUNT NUMBER;V_PRINT_BATCH VARCHAR2(100);L_IFACE_ID NUMBER;L_BATCH_ID NUMBER;
BEGINselect AP_INVOICES_INTERFACE_S.nextval, AP_INTERFACE_GROUPS_S.NEXTVALINTO L_IFACE_ID, L_BATCH_IDfrom dual;insert into ap_invoices_interface(invoice_id,terms_id, --20170830ACCTS_PAY_CODE_COMBINATION_ID, --科目PAYMENT_METHOD_LOOKUP_CODE, --付款方法org_id,invoice_num,invoice_type_lookup_code,vendor_id,vendor_site_id,INVOICE_DATE,gl_date,invoice_amount,invoice_currency_code,source,group_id,DESCRIPTION)SELECT L_IFACE_ID,10000,1070, --科目'CHECK',81,'TEST083001','STANDARD',1543,3160,SYSDATE - 10,SYSDATE - 10,1,'CNY','EXPENSE_INVOICE',L_BATCH_ID,'测试'FROM DUAL;INSERT into ap_invoice_lines_interface(invoice_id,org_id,invoice_line_id,line_number,line_type_lookup_code,amount,DESCRIPTION,-- dist_code_combination_id,DIST_CODE_CONCATENATED,PROJECT_ID,TASK_ID,EXPENDITURE_TYPE,EXPENDITURE_ITEM_DATE,EXPENDITURE_ORGANIZATION_ID,accounting_date)SELECT L_IFACE_ID,81,AP_INVOICE_LINES_INTERFACE_S.nextval,1,'ITEM',1,'TEST',-- 1286,'59.00.10020109.00.00.00.00.00.00',4701,13423,'安装工程费',SYSDATE - 10,107,SYSDATE - 10FROM DUAL;fnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);V_CREATE_INVOICES := AP_IMPORT_INVOICES_PKG.IMPORT_INVOICES('TEST0830', --IN VARCHAR2,SYSDATE - 10, --p_gl_date --IN DATE,NULL, --p_hold_code --IN VARCHAR2,NULL, --p_hold_reason --IN VARCHAR2,NULL, --p_commit_cycles --IN NUMBER,'EXPENSE_INVOICE', --p_source --IN VARCHAR2,L_BATCH_ID, --IN VARCHAR2,FND_GLOBAL.CONC_REQUEST_ID, --p_conc_request_id -IN NUMBER,'Y', --p_debug_switch --IN VARCHAR2, V_BATCH_ERROR_FLAG, --OUT NOCOPY VARCHAR2,V_INVOICES_FETCHED, --OUT NOCOPY NUMBER,V_INVOICES_CREATED, --OUT NOCOPY NUMBER,V_TOTAL_INVOICE_AMOUNT, --OUT NOCOPY NUMBER,V_PRINT_BATCH, --OUT NOCOPY VARCHAR2,NULL --p_calling_sequence --IN VARCHAR2);IF V_CREATE_INVOICES THENdbms_output.put_line('S');COMMIT;ELSEdbms_output.put_line(V_BATCH_ERROR_FLAG);dbms_output.put_line(V_INVOICES_FETCHED);dbms_output.put_line(V_INVOICES_CREATED);dbms_output.put_line(V_TOTAL_INVOICE_AMOUNT);dbms_output.put_line(V_PRINT_BATCH);END IF;
END;
–验证
declareln_processed_cnt NUMBER DEFAULT 0;ln_failed_cnt NUMBER DEFAULT 0;ln_holds_cnt NUMBER;lv_approval_status VARCHAR2(100);lv_funds_return_code VARCHAR2(100);L_RESP_ID NUMBER;L_RESP_ID2 NUMBER := FND_GLOBAL.RESP_ID;BEGINfnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);lv_approval_status := NULL;lv_funds_return_code := NULL;ln_holds_cnt := NULL;ap_approval_pkg.approve('',28741, /*Bug#7036685 : Passed batch_id instead of NULL*/'','','','',40970,'','','','N',ln_holds_cnt,lv_approval_status,'APXINWKB');END;
–创建会计科目
DECLAREreq_id number;
BEGIN fnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);req_id := FND_REQUEST.SUBMIT_REQUEST('SQLAP','APACCENG','','',FALSE,'','','Invoices','N','N','Y','Y',20,81,'Y',28741,'','', --13'','',chr(0),'','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','');dbms_output.put_line(req_id);END;
–科目传送GL
APACCENG
–创建会计科目
DECLARE req_id number;
BEGIN fnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);req_id := FND_REQUEST.SUBMIT_REQUEST('SQLAP','APGLTRANS','','',FALSE,1,1,'N','','','2018/08/30 00:00:00','Accrual','','A','Y','D','Y','N','','N','N', --16 '','',chr(0),'','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','');dbms_output.put_line(req_id);END;
–核销预付款发票
DECLAREL_RETURN VARCHAR2(200);
BEGINfnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);L_RETURN := AP_PREPAY_PKG.apply_prepay(p_prepay_dist_id => 144657,p_invoice_id => 40970,p_prepay_num => NULL,p_prepay_dist_num => NULL,p_apply_amount => 1,p_gl_date => SYSDATE - 10,-- p_period_name IN VARCHAR2 DEFAULT NULL,p_prepay_included => 'N',p_user_id => 1048,p_last_update_login => NULL,p_calling_from => NULL,p_calling_sequence => NULL-- p_ussgl_code IN VARCHAR2 DEFAULT NULL);dbms_output.put_line(L_RETURN);
END;
–取消核销预付款发票
DECLAREL_RETURN VARCHAR2(200);
BEGINfnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);L_RETURN := AP_PREPAY_PKG.apply_prepay(p_prepay_dist_id => 144668,p_invoice_id => 40970,p_prepay_num => NULL,p_prepay_dist_num => NULL,p_apply_amount => -1,p_gl_date => SYSDATE - 10,-- p_period_name IN VARCHAR2 DEFAULT NULL,p_prepay_included => NULL,p_user_id => 1048,p_last_update_login => NULL,p_calling_from => NULL,p_calling_sequence => NULL-- p_ussgl_code IN VARCHAR2 DEFAULT NULL);dbms_output.put_line(L_RETURN);--空代表成功
END;
–发票取消
DECLAREL_RETURN BOOLEAN;X_MESSAGE_NAME VARCHAR2(2000); X_invoice_amount NUMBER; X_base_amount NUMBER; X_tax_amount NUMBER; X_temp_cancelled_amount NUMBER; X_cancelled_by NUMBER; X_cancelled_amount NUMBER; X_cancelled_date DATE;X_last_update_date DATE;X_original_prepayment_amount NUMBER; X_pay_curr_invoice_amount NUMBER;
BEGINfnd_global.apps_initialize(user_id => 1048,resp_id => 50288,resp_appl_id => 200);L_RETURN := AP_CANCEL_PKG.Ap_Cancel_Single_Invoice(P_invoice_id =>40973,P_last_updated_by =>1048,P_last_update_login =>NULL,P_set_of_books_id =>1,P_accounting_date =>SYSDATE+1,P_period_name =>'AUG-18',P_message_name =>X_MESSAGE_NAME,P_invoice_amount =>X_invoice_amount,P_base_amount => X_base_amount,P_tax_amount =>X_tax_amount,P_temp_cancelled_amount => X_temp_cancelled_amount,P_cancelled_by => X_cancelled_by,P_cancelled_amount=>X_cancelled_amount,P_cancelled_date => X_cancelled_date,P_last_update_date => X_last_update_date,P_original_prepayment_amount =>X_original_prepayment_amount,P_check_id =>NULL,P_pay_curr_invoice_amount =>X_pay_curr_invoice_amount,P_calling_sequence =>NULL);IF L_RETURN THENdbms_output.put_line('S');ELSEdbms_output.put_line('E');END IF;
END;
–付款的
/
本文标签： ebs
版权声明：本文标题：EBS 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://it.en369.cn/jiaocheng/1706096749a403282.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论