客户信用控制请求

一,导入外部风险

FUNCTION import_credit_exposure(p_org_id               IN NUMBER,
                                   p_customer_id          IN NUMBER,
                                   p_bill_to_site_uses_id IN NUMBER,
                                   p_amount               IN NUMBER,
                                   p_import_type          IN VARCHAR2,
                                   p_currency_code        IN VARCHAR2)
      RETURN VARCHAR2 IS

      l_msg_count       NUMBER;
      l_msg_data        VARCHAR2(2000);
      l_return_status   VARCHAR2(30);
      l_cc_hold_comment VARCHAR2(30);
      l_result_out      VARCHAR2(30);

      l_request_id   NUMBER;
      l_p_request_id NUMBER;
      l_wait         BOOLEAN;
      l_p_wait       BOOLEAN;
      l_phase        VARCHAR2(80);
      l_status       VARCHAR2(80);
      l_dev_phase    VARCHAR2(80);
      l_dev_status   VARCHAR2(80);
      l_message      VARCHAR2(80);
      l_data_access  NUMBER;
      l_id           NUMBER;
      l_e_wait       BOOLEAN;

      -- l_batch_id   NUMBER;
      l_ret_status VARCHAR2(1);
      l_msg_count  NUMBER;
      l_msg_data   VARCHAR2(200);

      l_org_id               NUMBER;
      l_exposure_source_code VARCHAR2(240);
      l_batch_id             NUMBER;
      l_validate_only        VARCHAR2(1);

      l_rec oe_exposure_interface%ROWTYPE;
   BEGIN

      l_rec.exposure_source_code      := 'CLE_F147_SOURCE';
      l_rec.exposure_interface_id     := oe_exposure_interface_s.nextval;
      l_rec.batch_id                  := NULL;
      l_rec.operation_code            := p_import_type;
      l_rec.exposure_amount           := p_amount;
      l_rec.currency_code             := p_currency_code;
      l_rec.bill_to_site_use_id       := p_bill_to_site_uses_id;
      l_rec.bill_to_customer_name     := NULL;
      l_rec.bill_to_customer_number   := NULL;
      l_rec.bill_to_customer_id       := p_customer_id;
      l_rec.bill_to_address1          := NULL;
      l_rec.bill_to_address2          := NULL;
      l_rec.bill_to_address3          := NULL;
      l_rec.bill_to_address4          := NULL;
      l_rec.bill_to_city              := NULL;
      l_rec.bill_to_state             := NULL;
      l_rec.bill_to_country           := NULL;
      l_rec.bill_to_postal_code       := NULL;
      l_rec.import_status_code        := NULL;
      l_rec.exposure_date             := SYSDATE;
      l_rec.org_id                    := p_org_id;
      l_rec.original_system_reference := NULL;
      l_rec.created_by                := g_user_id;
      l_rec.creation_date             := SYSDATE;
      l_rec.last_updated_by           := g_user_id;
      l_rec.last_update_date          := SYSDATE;
      l_rec.last_update_login         := g_login_id;
      l_rec.program_application_id    := NULL;
      l_rec.program_id                := NULL;
      l_rec.program_update_date       := NULL;
      l_rec.request_id                := NULL;
      l_rec.bill_to_province          := NULL;
      l_rec.bill_to_county            := NULL;

      INSERT INTO oe_exposure_interface VALUES l_rec;

      l_org_id               := p_org_id;
      l_exposure_source_code := 'CLE_F147_SOURCE';
      l_batch_id             := NULL;
      l_validate_only        := 'N';

      l_request_id := fnd_request.submit_request('ONT',
                                                 'OEXCEIMP',
                                                 '',
                                                 to_char(SYSDATE,
                                                         'YYYY/MM/DD HH24:MI:SS'),
                                                 FALSE,
                                                 l_org_id,
                                                 l_exposure_source_code,
                                                 l_batch_id,
                                                 l_validate_only,

                                                 chr(0));

      COMMIT;
      -- dbms_output.put_line(l_request_id);

      IF l_request_id = 0 THEN
         cux_conc_utl.log_msg('导入信用风险出错');
         raise_exception('E');
      END IF;
      -- 导入信用风险完成
      -- wait request
      l_wait := fnd_concurrent.wait_for_request(request_id => l_request_id,
                                                INTERVAL   => 1, -- interval second for check
                                                max_wait   => 0, -- max_wait, Max amount of time to wait (in seconds)
                                                phase      => l_phase,
                                                status     => l_status,
                                                dev_phase  => l_dev_phase,
                                                dev_status => l_dev_status,
                                                message    => l_message);

      IF upper(l_status) NOT IN ('NORMAL', '正常') THEN
         cux_conc_utl.log_msg('导入信用风险出错 - ' || l_message);
         raise_exception('E');
      END IF;

      RETURN 'S';

   END import_credit_exposure;

二,初始化信用汇总表

FUNCTION check_credit(p_org_id               IN NUMBER,
                         p_customer_id          IN NUMBER,
                         p_bill_to_site_uses_id IN NUMBER,
                         p_amount               IN NUMBER,
                         p_import_type          IN VARCHAR2,
                         p_currency_code        IN VARCHAR2) RETURN VARCHAR2 IS
      -- l_return_status VARCHAR2(30);
      l_msg_count       NUMBER;
      l_msg_data        VARCHAR2(2000);
      l_return_status   VARCHAR2(30);
      l_cc_hold_comment VARCHAR2(30);
      l_result_out      VARCHAR2(30);

      l_request_id   NUMBER;
      l_p_request_id NUMBER;
      l_wait         BOOLEAN;
      l_p_wait       BOOLEAN;
      l_phase        VARCHAR2(80);
      l_status       VARCHAR2(80);
      l_dev_phase    VARCHAR2(80);
      l_dev_status   VARCHAR2(80);
      l_message      VARCHAR2(80);
      l_data_access  NUMBER;
      l_id           NUMBER;
      l_e_wait       BOOLEAN;

      -- l_batch_id   NUMBER;
      l_ret_status VARCHAR2(1);
      l_msg_count  NUMBER;
      l_msg_data   VARCHAR2(200);
   BEGIN

      --先调用 import_credit_exposure 导入可拓展类型为18 的信用风险
      mo_global.init('ONT');
      fnd_global.apps_initialize(user_id => g_user_id,

                                 resp_id => fnd_global.resp_id,

                                 resp_appl_id => fnd_global.resp_appl_id);

      l_return_status := import_credit_exposure(p_org_id => p_org_id,

                                                p_customer_id          => p_customer_id,
                                                p_bill_to_site_uses_id => p_bill_to_site_uses_id,
                                                p_amount               => p_amount,
                                                p_import_type          => p_import_type,
                                                p_currency_code        => p_currency_code);

      IF l_return_status = 'S' THEN
         --调用标准请求  初始化信用汇总表
         l_request_id := fnd_request.submit_request('ONT',
                                                    'OEXINICS',
                                                    '',
                                                    to_char(SYSDATE,
                                                            'YYYY/MM/DD HH24:MI:SS'),
                                                    FALSE,
                                                    'N',
                                                    chr(0));

         COMMIT;
         -- dbms_output.put_line(l_request_id);

         IF l_request_id = 0 THEN
            cux_conc_utl.log_msg('调用标准请求  初始化信用汇总表 出错');
            raise_exception('E');
         END IF;
         -- 导入信用风险完成
         -- wait request
         l_wait := fnd_concurrent.wait_for_request(request_id => l_request_id,
                                                   INTERVAL   => 1, -- interval second for check
                                                   max_wait   => 0, -- max_wait, Max amount of time to wait (in seconds)
                                                   phase      => l_phase,
                                                   status     => l_status,
                                                   dev_phase  => l_dev_phase,
                                                   dev_status => l_dev_status,
                                                   message    => l_message);

         IF upper(l_status) NOT IN ('NORMAL', '正常') THEN
            cux_conc_utl.log_msg('调用标准请求  初始化信用汇总表  - ' || l_message);
            raise_exception('E');
         END IF;
      ELSE
         cux_conc_utl.log_msg('调用 import_credit_exposure 导入可拓展类型为18 的信用风险出错 - ');
         raise_exception('E');
      END IF; -- IF l_return_status = 'S' THNE

      RETURN 'S';
   END check_credit;
时间: 2024-12-24 22:52:13

客户信用控制请求的相关文章

oracle 普通客户端连接请求解析过程

2016.5.9(使用servlet处理HTTP请求)

Servlet接受请求信息 HttpServletRequest对象主要用于获取由客户端发送过来的请求头.参数.文件.数据等.Servlet存在的主要目的就是处理请求 GET/POST提交方法 浏览器向Web服务器发送HTTP请求 用户在网页上点击一个超连接 用户提交在网页上填写好的表单 用户在浏览器地址栏中输入URL地址并回车 默认情况下都是使用HTTP协议的GET方法提交请求 定制浏览器行为 <FORM name='loginForm' method='POST' action='/logi

[转]TOMCAT原理以及处理HTTP请求的过程、ContextPath ServletPath

一.TOMCAT 1 - Tomcat Server的组成部分 <Server> <Service> <Connector/> <Engine> <Host> <Context> </Context> </Host> </Engine> </Service> </Server> 1.1 - Server A Server element represents the enti

HTTP请求响应报文&amp;&amp;相关状态码&amp;&amp;GET_POST请求方法 总结

HTTP请求报文: 一个HTTP请求报文由四个部分组成:请求行.请求头部.空行.请求数据 1.请求行   请求行由请求方法字段.URL字段和HTTP协议版本字段3个字段组成,它们用空格分隔.比如 GET /data/info.html HTTP/1.1 方法字段就是HTTP使用的请求方法,比如常见的GET/POST 其中HTTP协议版本有两种:HTTP1.0/HTTP1.1 可以这样区别: HTTP1.0对于每个连接都的建立一次连接一次只能传送一个请求和响应,请求就会关闭,HTTP1.0没有Ho

HTTP协议及其请求头分析

众所周知,Internet的基本协议是TCP/IP协议,目前广泛采用的FTP.Archie Gopher等是建立在TCP/IP协议之上的应用层协议,不同的协议对应着不同的应用.  WWW服务器使用的主要协议是HTTP协议,即超文体传输协议.由于HTTP协议支持的服务不限于WWW,还可以是其它服务,因而HTTP协议允许用 户在统一的界面下,采用不同的协议访问不同的服务,如FTP.Archie.SMTP.NNTP等.另外,HTTP协议还可用于名字服务器和分布式对象管 理.  HTTP的早期版本为HT

DICOM医学图像处理:storescp.exe与storescu.exe源码剖析,学习C-STORE请求

背景: 上一篇专栏博文中针对PACS终端(或设备终端,如CT设备)与RIS系统之间worklist查询进行了介绍,并着重对比分析了DICOM3.0中各部分对DICOM网络通讯服务的定义.此次通过结合早些时间的博文DICOM医学图像处理:基于DCMTK工具包学习和分析worklist,对DCMTK开源库中提供的storescp.exe和storescu.exe工具的源码进行剖析,从底层深入了解C-STORE服务的触发及响应. 分析思路: storescp.exe和storescu.exe分别充当着

servlect 处理http请求

Servlet接受请求信息 HttpServletRequest对象主要用于获取由客户端发送过来的请求头.参数.文件.数据等.Servlet存在的主要目的就是处理请求 GET/POST提交方法 浏览器向Web服务器发送HTTP请求 用户在网页上点击一个超连接 用户提交在网页上填写好的表单 用户在浏览器地址栏中输入URL地址并回车 默认情况下都是使用HTTP协议的GET方法提交请求 定制浏览器行为 <FORM name='loginForm' method='POST' action='/logi

Tomcat Server处理一个http请求的过程

假设来自客户的请求为: http://localhost:8080/wsota/wsota_index.jsp 1) 请求被发送到本机端口8080,被在那里侦听的Coyote HTTP/1.1 Connector获得2) Connector把该请求交给它所在的Service的Engine来处理,并等待来自Engine的回应3) Engine获得请求localhost/wsota/wsota_index.jsp,匹配它所拥有的所有虚拟主机Host4) Engine匹配到名为localhost的Ho

线上LVS负载均衡请求不转发案例简单解决分析一例

线上某架构组织结构基本如下: 基本架构描述: 前端采用的是lvs+keepalived做负载均衡和高可用,用来转发客户的请求给后端的业务服务器,也就是那4组nginx+tomcat业务服务器.说的更直白一些,那几台nginx+tomcat可以简答理解为lvs的客户端. 故障描述: 其中lvs转发到58.2.12.20这台服务器的时候, ActiveConn的值还有一些,InActConn几乎是没有数值的.为了这个问题纠结了好几天迟迟未能解决,由于刚到公司也不能不解决这些问题哦. 解决思路: 1)