السلام عليكم

الاخوه خبراء الفيننشال  محتاج api او بروسيدجر يعمل insert في 3 الجداول التاليين

 

CE_BANK_ACCOUNTS

 

CE_BANK_ACCT_USES_ALL

 

CE_GL_ACCOUNTS_CCID

 

شكرا لمساعدتكم

يعني تقصد يدخل بيانات في ثلاث جداول ..... ما هي البيانات (او ما هي حقول هذه الجداول).

 

you mean it insert data into three tables ? ...... whats this  data

(or what  the fields in these tables) 

شكرا لك  تم حل المشكلة مرفق الاسكربيت للاستفاده

BEGIN
DECLARE

   p_init_msg_list   VARCHAR2 (200);
   p_acct_rec        apps.ce_bank_pub.bankacct_rec_type;
   l_acct_id         NUMBER;
   x_return_status   VARCHAR2 (200);
   x_msg_count       NUMBER;
   x_msg_data        VARCHAR2 (200);
   p_count           NUMBER;
   p_acc_use_rec     APPS.CE_BANK_PUB.bankacct_rec_type;
   L_ACCT_USE_ID     NUMBER;
   g_acct_id     NUMBER;
  ----------------------------------------------
 -- p_init_msg_list                       VARCHAR2:= fnd_api.g_false,
        p_acct_use_rec                  NUMBER;
        x_acct_use_id                   NUMBER;
       -- x_return_status                 VARCHAR2(200);
       -- x_msg_count                     NUMBER;
        --x_msg_data                      VARCHAR2(200);
       CURSOR c_acct_use_id IS
      SELECT CE_BANK_ACCT_USES_S.nextval
      FROM   sys.dual;
      

BEGIN

SELECT  CE_BANK_ACCOUNTS_S.NEXTVAL INTO l_acct_id FROM DUAL;
   p_init_msg_list := NULL;
  SELECT  CE_BANK_ACCT_USES_S.NEXTVAL INTO L_ACCT_USE_ID FROM DUAL;
 
   -- HZ_PARTIES.PARTY_ID BANK BRANCH
   p_acct_rec.branch_id := 1717514;
   -- HZ_PARTIES.PARTY_ID BANK
   p_acct_rec.bank_id := 1717512;
   -- HZ_PARTIES.PARTY_ID ORGANIZATION
 p_acct_rec.account_owner_org_id := 40627;
   -- HZ_PARTIES.PARTY_ID Person related to ABOVE ORGANIZATION  
   p_acct_rec.account_owner_party_id := 1716510;

   p_acct_rec.account_classification := 'INTERNAL';
   p_acct_rec.bank_account_name := 'Kannan1234';
   p_acct_rec.bank_account_num := 3541;
   p_acct_rec.currency := 'LBP';
   p_acct_rec.start_date := SYSDATE;
   p_acct_rec.end_date := NULL;
   p_acc_use_rec.bank_account_id:=5553;
   --l_acct_id :=

   CE_BANK_PUB.CREATE_BANK_ACCT
                  ( x_acct_id           => l_acct_id,
                  p_init_msg_list       => p_init_msg_list,
                   p_acct_rec           => p_acct_rec,
                  --x_acct_id,x_acct_id
                   x_return_status      => x_return_status,
                   x_msg_count          => x_msg_count,
                   x_msg_data           => x_msg_data
                  );
g_acct_id:=l_acct_id;
                         
   DBMS_OUTPUT.put_line ('X_ACCT_ID = ' ||l_acct_id/*x_acct_id*/);
   DBMS_OUTPUT.put_line ('X_RETURN_STATUS = ' || x_return_status);
   DBMS_OUTPUT.put_line ('X_MSG_COUNT = ' || x_msg_count);
   DBMS_OUTPUT.put_line ('X_MSG_DATA = ' || x_msg_data);
   
   DECLARE
        l_acct_use_rec  apps.ce_bank_pub.bankacct_use_rec_type;
        l_acct_use_id   NUMBER;
        l_return_status VARCHAR2(300); -- OUT
        l_msg_count     NUMBER; -- OUT
        l_msg_data      VARCHAR2(300); -- OUT
        g_init_msg_list VARCHAR2(300) := fnd_api.g_true; 
      BEGIN
      
        l_acct_use_rec.bank_account_id      := g_acct_id;
        l_acct_use_rec.org_type             := 'OU';
        l_acct_use_rec.org_id               := 6556;
        --l_acct_use_rec.legal_entity_id      := 102;
        l_acct_use_rec.ar_use_enable_flag   := 'Y';
        l_acct_use_rec.ap_use_enable_flag   := 'Y';
        --l_acct_use_rec.org_party_id         := 1460411; --xla_entity_profiles
        l_acct_use_rec.authorized_flag      := 'N';
        l_acct_use_rec.default_account_flag := 'N';
      
        ce_bank_pub.create_bank_acct_use(p_init_msg_list => g_init_msg_list,
                                         p_acct_use_rec  => l_acct_use_rec,
                                         x_acct_use_id   => l_acct_use_id,
                                         x_return_status => l_return_status,
                                         x_msg_count     => l_msg_count,
                                         x_msg_data      => l_msg_data);
      
       
      END bank_acct_use;
      COMMIT;

   IF x_msg_count = 1
   THEN
      DBMS_OUTPUT.put_line ('x_msg_data ' || x_msg_data);
   ELSIF x_msg_count > 1
   THEN
      LOOP
         p_count := p_count + 1;
         x_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next, fnd_api.g_false);

         IF x_msg_data IS NULL
         THEN
            EXIT;
         END IF;

         DBMS_OUTPUT.put_line ('Message' || p_count || ' ---' || x_msg_data);
      END LOOP;
   END IF;
END;

END;