Oracle EBS AR 其他API

阿新 • • 發佈：2018-11-26

DECLARE 
  L_CR_ID            NUMBER;
  L_ATTRIBUTE_REC    AR_RECEIPT_API_PUB.ATTRIBUTE_REC_TYPE;
  L_GLOBAL_ATT_REC   AR_RECEIPT_API_PUB.global_attribute_rec_type;
  
  L_RETURN_STATUS    VARCHAR2(100);
  L_MSG_COUNT        NUMBER;
  L_MSG_DATA         VARCHAR2(2000);
  
  I                  NUMBER;
  L_MESSAGE_LIST      
VARCHAR2(1000);
  L_MSG_INDEX_OUT    NUMBER;
BEGIN
  FND_GLOBAL.APPS_INITIALIZE(USER_ID      => 1111,
                             RESP_ID      => 50737 ,
                             RESP_APPL_ID => 50737);
   mo_global.set_policy_context('S', 142);
  
  AR_RECEIPT_API_PUB.REVERSE(
                             P_API_VERSION                 
=> 1.0,
                             P_COMMIT                     => 'F',
                             P_VALIDATION_LEVEL           => 100,
                             P_CASH_RECEIPT_ID            => 1000,
                             P_REVERSAL_DATE              => fnd_conc_date.string_to_date(' 
2017-03-31'),
                             P_REVERSAL_GL_DATE           => fnd_conc_date.string_to_date('2017-03-31'),
                             P_REVERSAL_CATEGORY_CODE     => 'REV',
                             P_REVERSAL_REASON_CODE       => 'PAYMENT REVERSAL',
                             P_REVERSAL_COMMENTS          => 'TEST',
                             X_RETURN_STATUS              => L_RETURN_STATUS,
                             X_MSG_COUNT                  => L_MSG_COUNT,
                             X_MSG_DATA                   => L_MSG_DATA);
  IF L_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
        FOR I IN 1..L_MSG_COUNT LOOP
          FND_MSG_PUB.GET(P_MSG_INDEX => I
                         ,P_DATA => L_MESSAGE_LIST
                         ,P_MSG_INDEX_OUT => L_MSG_INDEX_OUT);
          DBMS_OUTPUT.PUT_LINE(L_MESSAGE_LIST);
        END LOOP;
  ELSE
      DBMS_OUTPUT.PUT_LINE(L_CR_ID);
      DBMS_OUTPUT.PUT_LINE(L_RETURN_STATUS);
      DBMS_OUTPUT.PUT_LINE('L_MSG_DATA  '||L_MSG_DATA);
  END IF;
END;

--set serveroutput on size 1000000

DECLARE

   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   l_cash_receipt_id NUMBER;
   p_count number := 0;

BEGIN

    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');


    -- 2) Call the API
    AR_RECEIPT_API_PUB.CREATE_CASH
    ( p_api_version => 1.0,
      p_init_msg_list => FND_API.G_TRUE,
      p_commit => FND_API.G_TRUE,
      p_validation_level => FND_API.G_VALID_LEVEL_FULL,
      x_return_status => l_return_status,
      x_msg_count => l_msg_count,
      x_msg_data => l_msg_data,
      p_currency_code => 'USD',
      p_amount => 1005.65,
      p_receipt_number => 'rct-api1',
      p_receipt_date => '22-JUL-2011',
      p_gl_date => '22-JUL-2011',
      p_customer_number => '1007',
      p_receipt_method_id => 1001,
      p_cr_id => l_cash_receipt_id );

    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Cash Receipt id ' || l_cash_receipt_id );
    dbms_output.put_line('Message count ' || l_msg_count);

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '||l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL then
              exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if; 
END;
/


--set serveroutput on size 1000000

DECLARE
   l_return_status varchar2(1);
   l_msg_count number;
   l_msg_data varchar2(240);
   p_count number :=0;

BEGIN

    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');
   

    -- 2) Call the API
    AR_RECEIPT_API_PUB.APPLY
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     p_cash_receipt_id => 83989,
     p_customer_trx_id => 527928,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data);

   -- 3) Review the API output
   dbms_output.put_line('Status ' || l_return_status);
   dbms_output.put_line('Message count ' || l_msg_count);

   if l_msg_count = 1 Then
      dbms_output.put_line('l_msg_data '|| l_msg_data);
   elsif l_msg_count > 1 Then
      loop
         p_count := p_count + 1;
         l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
         if l_msg_data is NULL Then
            exit;
         end if;
         dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
      end loop;
   end if;
end;
/


set serveroutput on size 1000000

DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   l_cash_receipt_id NUMBER;
   p_count number := 0;

BEGIN
     -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');
   
    AR_RECEIPT_API_PUB.create_and_apply
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_amount => 2000.00,
     p_receipt_number => 'rct-api2',
     p_receipt_date => '22-JUL-2011',
     p_gl_date => '22-JUL-2011',
     p_customer_number => 1007,
     p_receipt_method_id => 1001,
     p_trx_number => '102317',
     p_cr_id => l_cash_receipt_id );

    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);
    dbms_output.put_line('Cash Receipt ID ' || l_cash_receipt_id );

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/


DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   p_count number := 0;
BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');

   AR_RECEIPT_API_PUB.UNAPPLY
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_cash_receipt_id => 83989,
     p_applied_payment_schedule_id => 182804,
     p_reversal_gl_date => '23-JUL-2011'
   );

    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/

--set serveroutput on size 1000000

DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   l_cash_receipt_id NUMBER;
   p_count number := 0;
BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');

   AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_cash_receipt_id => 83992);

    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/

--set serveroutput on size 1000000

DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   l_cash_receipt_id NUMBER;
   p_count number := 0;
BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');

   AR_RECEIPT_API_PUB.UNAPPLY_ON_ACCOUNT
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_cash_receipt_id => 83992,
     P_reversal_gl_date => '23-JUL-2011');

    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/


--set serveroutput on size 1000000

DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   l_cash_receipt_id NUMBER;
   p_count number := 0;
BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');

   AR_RECEIPT_API_PUB.reverse
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_cash_receipt_id => 83993,
     p_reversal_category_code => 'REV',
     p_reversal_reason_code => 'WRONG INVOICE');

    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/

--set serveroutput on size 1000000

DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   l_cash_receipt_id NUMBER;
   p_count number := 0;
   l_application_ref_type ar_receivable_applications.application_ref_type%TYPE;
   l_application_ref_id ar_receivable_applications.application_ref_id%TYPE;
   l_application_ref_num ar_receivable_applications.application_ref_num%TYPE;
   l_secondary_application_ref_id ar_receivable_applications.secondary_application_ref_id%TYPE;
   l_receivable_application_id ar_receivable_applications.receivable_application_id%TYPE;

BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');

   AR_RECEIPT_API_PUB.ACTIVITY_APPLICATION
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_cash_receipt_id => 83994,
     p_applied_payment_schedule_id => -3,
     p_receivables_trx_id => 2536,
     p_receivable_application_id => l_receivable_application_id
     p_application_ref_type => l_application_ref_type,
     p_application_ref_id => l_application_ref_id,
     p_application_ref_num => l_application_ref_num,
     p_secondary_application_ref_id => l_secondary_application_ref_id);

    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);
    dbms_output.put_line('Application ID ' || l_receivable_application_id;

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/


--set serveroutput on size 1000000

DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   l_cash_receipt_id NUMBER;
   p_count number := 0;
   l_receipt_number varchar(10);

BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');

   l_receipt_number := 'misc-api1';

   AR_RECEIPT_API_PUB.CREATE_MISC
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_amount => 4560.00,
     p_receipt_date => '22-JUL-2011',
     p_gl_date => '22-JUL-2011',
     p_receipt_method_id => 1001,
     p_activity => 'Interest Income',
     p_misc_receipt_id => l_cash_receipt_id ,
     p_receipt_number => l_receipt_number);

    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);
    dbms_output.put_line('Cash Receipt ID ' || l_cash_receipt_id );

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/

  --  set serveroutput on size 1000000

    DECLARE
       l_return_status VARCHAR2(1);
       l_msg_count NUMBER;
       l_msg_data VARCHAR2(240);
       p_count NUMBER;
       x_receivable_application_id NUMBER;
       x_application_ref_id NUMBER;
       x_application_ref_num VARCHAR2(30);
       x_secondary_application_ref_id NUMBER;

    BEGIN
        -- 1) Set the applications context
        fnd_global.apps_initialize(1011902, 50559, 222,0);
        mo_global.init('AR');
        mo_global.set_policy_context('S','204');
       -- 2) Call the API
       AR_RECEIPT_API_PUB.apply_other_account
       ( p_api_version => 1.0,
         p_init_msg_list => FND_API.G_TRUE,
         p_commit => FND_API.G_TRUE,
         p_validation_level => FND_API.G_VALID_LEVEL_FULL,
         x_return_status => l_return_status,
         x_msg_count => l_msg_count,
         x_msg_data => l_msg_data,
         p_receivable_application_id => x_receivable_application_id,
         p_cash_receipt_id => 83997,
         p_receivables_trx_id => 1747,
         p_applied_payment_schedule_id => -4,
         p_amount_applied => 500.00,
         p_application_ref_id => x_application_ref_id,
         p_application_ref_num => x_application_ref_num,
         p_secondary_application_ref_id => x_secondary_application_ref_id,
         p_called_from => null);

        -- 3) Review the API output
        dbms_output.put_line('Status ' || l_return_status);
        dbms_output.put_line('Message count ' || l_msg_count);
        dbms_output.put_line('Receivable Application Id ' || x_receivable_application_id);

        if l_msg_count = 1 Then
           dbms_output.put_line('l_msg_data '|| l_msg_data);
        elsif l_msg_count > 1 Then
           loop
              p_count := p_count + 1;
              l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
              if l_msg_data is NULL Then
                 exit;
              end if;
              dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
           end loop;
        end if;
    END;
    /

   -- Note that several parameters are similar to those 


--set serveroutput on size 1000000

DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   p_count NUMBER;
   x_receivable_application_id NUMBER;
   x_application_ref_id NUMBER;
   x_application_ref_num VARCHAR2(30);
   x_secondary_application_ref_id NUMBER;

BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');
   -- 2) Call the API
   AR_RECEIPT_API_PUB.apply_other_account
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_receivable_application_id => x_receivable_application_id,
     p_cash_receipt_id => 83997,
     p_receivables_trx_id => 1747,
     p_applied_payment_schedule_id => -4,
     p_amount_applied => 500.00,
     p_application_ref_id => x_application_ref_id,
     p_application_ref_num => x_application_ref_num,
     p_secondary_application_ref_id => x_secondary_application_ref_id,
     p_called_from => null);

    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);
    dbms_output.put_line('Receivable Application Id ' || x_receivable_application_id);

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/


--set serveroutput on size 1000000

DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   p_count number := 0;

BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');

   AR_RECEIPT_API_PUB.UNAPPLY_OTHER_ACCOUNT
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_cash_receipt_id => 83997,
     p_reversal_gl_date => '26-SEP-2011',
     p_receivable_application_id => 285776,
     p_cancel_claim_flag => 'Y',
     p_called_from => NULL);


    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/

--set serveroutput on size 1000000

DECLARE
    l_return_status VARCHAR2(1);
    l_msg_count NUMBER;
    l_msg_data VARCHAR2(240);
    p_count number := 0;
    l_application_ref_num VARCHAR2(30);
    l_receivable_application_id NUMBER;
    l_applied_rec_app_id NUMBER;
    l_acctd_amount_applied_from NUMBER;
    l_acctd_amount_applied_to VARCHAR2(30);
BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');

   AR_RECEIPT_API_PUB.APPLY_OPEN_RECEIPT
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_amount_applied => -20.00,
     p_receipt_number => 'rct-api11',
     p_open_receipt_number => 'rct-api10',
     x_application_ref_num => l_application_ref_num,
     x_receivable_application_id => l_receivable_application_id,
     x_applied_rec_app_id => l_applied_rec_app_id,
     x_acctd_amount_applied_from => l_acctd_amount_applied_from,
     x_acctd_amount_applied_to => l_acctd_amount_applied_to);


    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);
    dbms_output.put_line('Receivable Application Id ' || l_receivable_application_id);

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/


--set serveroutput on size 1000000

DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   l_cash_receipt_id NUMBER;
   p_count number := 0;

BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');

   AR_RECEIPT_API_PUB.CREATE_APPLY_ON_ACC
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_amount => 555.00,
     p_receipt_number => 'rct-api12',
     p_receipt_date => '22-JUL-2011',
     p_gl_date => '22-JUL-2011',
     p_customer_number => 1007,
     p_receipt_method_id => 1001,
     p_cr_id => l_cash_receipt_id );

    -- 3) Review the API output
    dbms_output.put_line('Status ' || l_return_status);
    dbms_output.put_line('Message count ' || l_msg_count);
    dbms_output.put_line('Cash Receipt Id ' || l_cash_receipt_id);

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/


--set serveroutput on size 1000000

DECLARE
   cursor c1 is
   select line.customer_trx_line_id,
          line.line_number,
          line.extended_amount line_amount,
          tax.extended_amount tax_amount
   from ra_customer_trx_lines line,
       (select link_to_cust_trx_line_id,
        sum(nvl(extended_amount,0)) extended_amount
        from ra_customer_trx_lines
        where customer_trx_id = 528349
        and line_type = 'TAX'
        group by link_to_cust_trx_line_id) tax
   where line.customer_trx_id = 528349
   and line.line_type = 'LINE'
   and line.customer_trx_line_id = tax.LINK_TO_CUST_TRX_LINE_ID(+);

   l_llca_trx_lines_tbl ar_receipt_api_pub.llca_trx_lines_tbl_type;
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   p_count NUMBER := 0;
   l_cnt NUMBER := 0;


BEGIN
    -- 1) Set the applications context
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');

   -- 2)  define the amounts to apply, for illustration purposes we will apply 10% of the original amounts
   for i in c1 loop
      l_cnt := l_cnt + 1;

      l_llca_trx_lines_tbl(l_cnt).customer_trx_line_id := i.customer_trx_line_id ;
      l_llca_trx_lines_tbl(l_cnt).line_amount := i.line_amount * .10;
      l_llca_trx_lines_tbl(l_cnt).amount_applied := i.line_amount * .10;
      l_llca_trx_lines_tbl(l_cnt).tax_amount := i.tax_amount *.10;
   end loop;

   AR_RECEIPT_API_PUB.APPLY_IN_DETAIL
   ( p_api_version => 1.0,
     p_init_msg_list => FND_API.G_TRUE,
     p_commit => FND_API.G_TRUE,
     p_validation_level => FND_API.G_VALID_LEVEL_FULL,
     x_return_status => l_return_status,
     x_msg_count => l_msg_count,
     x_msg_data => l_msg_data,
     p_cash_receipt_id => 84003,
     p_customer_trx_id => 528349,
     p_llca_type => 'L',
     p_org_id => 204,
     p_llca_trx_lines_tbl => l_llca_trx_lines_tbl );
      

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
END;
/


--set serveroutput on size 1000000

DECLARE
   l_count                       NUMBER;
   l_return_status VARCHAR2(1);
   l_msg_count NUMBER;
   l_msg_data VARCHAR2(240);
   l_status VARCHAR2(1);
   p_count number := 0;
   
BEGIN
    fnd_global.apps_initialize(1011902, 50559, 222,0);
    mo_global.init('AR');
    mo_global.set_policy_context('S','204');
    
   AR_RECEIPT_UPDATE_API_PUB.UPDATE_RECEIPT_UNID_TO_UNAPP
          (p_api_version                    => 1.0,
           p_init_msg_list                  => FND_API.G_TRUE,
           p_commit                         => FND_API.G_TRUE,
           p_validation_level               => FND_API.G_VALID_LEVEL_FULL,
           x_return_status                  => l_return_status,
           x_msg_count                      => l_msg_count,
           x_msg_data                       => l_msg_data,
           p_cash_receipt_id                => 177018,
           p_pay_from_customer              => 1290,
           p_comments                       => 'TEST RECEIPT API',
           x_status                         => l_status
          );
   DBMS_OUTPUT.put_line ('X_RETURN_STATUS = ' || l_return_status);
   DBMS_OUTPUT.put_line ('X_MSG_COUNT = ' || l_msg_count);
   DBMS_OUTPUT.put_line ('X_MSG_DATA = ' || l_msg_data);
   DBMS_OUTPUT.put_line ('X_STATUS = ' || l_status);

    if l_msg_count = 1 Then
       dbms_output.put_line('l_msg_data '|| l_msg_data);
    elsif l_msg_count > 1 Then
       loop
          p_count := p_count + 1;
          l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          if l_msg_data is NULL Then
             exit;
          end if;
          dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
       end loop;
    end if;
    
END;

Oracle EBS AR 其他API

DECLARE L_CR_ID NUMBER; L_ATTRIBUTE_REC AR_RECEIPT_API_PUB.ATTRIBUTE_REC_TYPE; L_GLOBAL_ATT_REC AR_RECEIPT_API_PUB.global_attribu

Oracle EBS AR 更新客戶

DECLARE l_return_status VARCHAR2(300); l_msg_count NUMBER; l_ms

Oracle EBS AR 更新客戶配置檔案

DECLARE l_rec_profile_t hz_customer_profile_v2pub.customer_profile_rec_type; l_rec_profile hz_customer_profile_v2pub.cust_profile_amt_rec_

Oracle EBS AR 更新客戶組織層

declare -- Local variables here i integer; g_module varchar2(30) := 'TCA_V2_API'; lrec_org hz_party_v2pub.organization_rec_type; lrec_party

Oracle EBS AR 更新客戶賬戶層

declare x_return_status VARCHAR2(150); x_msg_count NUMBER; x_msg_data VARCHAR2(2000); x_profile_id N

Oracle EBS AR 客戶取數SQL

SELECT acct.cust_account_id, acct.party_id, acct.account_number, party.party_name, lkp1.meaning party_typ

Oracle EBS AR 貸項通知單核銷取值

SELECT cm.trx_number ,fnd_flex_ext.get_segs('SQLGL', 'GL#', gcc.chart_of_accounts_id, ad.code_combination_id) account_number ,ra.gl_date

Oracle EBS AR 發運確認未產生資料到應收介面表中

近來，分公司上線系統，團隊一直非常忙碌，忙中出亂是正常的。發生的問題: 有一張銷售訂單已發運確認，發運事務處理中狀態是“已發運”和下一步“不適應”,為什麼應收介面表中沒有對應的記錄？分析原因: 1.可能使用者不小心刪除了。但是，

Oracle EBS AR 客戶返利和壞帳準備事務處理型別設定

客戶返利和壞帳準備一直在GL中做人工日記帳，我個人總覺得怪怪的。之前財務總監與我提到過：與應付相關的儘量做到應付，與應收相關的儘量做應收，儘量少到總帳中做人工日記帳。AR事務處理常用借和貸關係如下: 1.AR事務處理:發票(產品銷售收入) Dr: 應收賬款

Oracle EBS訂單的流程(Order->AR)轉載

from：http://blog.csdn.net/pan_tian/article/details/7693447 基本流程建立訂單路徑：Order Management > Orders,Returns > Sales Orders 填寫訂

Oracle EBS訂單的流程(Order->AR)

from：http://blog.csdn.net/pan_tian/article/details/7693447基本流程建立訂單路徑：Order Management > Orders,Returns > Sales Orders填寫訂單頭資訊，客戶，訂單型別

Oracle EBS PO API po_change_api1_s.update_po修改PO行資訊

Purpose 本文介紹了po_change_api1_s.update_po API的使用方法，本文中分析基於11.5.10.2而來，R12的API稍微有點不同，具體請參考metalink Applies To RDBMS : 10.2.0.5.0 O

Oracle EBS Interface/API(7)--建立WIP任務單

系統版本: RDBMS : 9.2.0.6.0 1.根據裝配件自動建立任務 Declare l_iface_rec wip.wip_job_schedule_interface%ROWTYPE; --任務單--元件 l_GroupId N

Oracle EBS登錄頁面顯示空白

color mes media 3.5 ply javax queue 1.3 shu 問題描述　　由於ebs數據庫需要閃回，在其他同事閃回數據庫到之前某一天後，重啟ebs應用，發現ebs客戶端登錄顯示空白以前也出現過類似問題，一般出現此問題，可以嘗試以下操作： 1.重

Oracle ebs“發運方法”配置

技術分享服務 mode 擴展 ans com str http .com 一、WSH_MODE_OF_TRANSPORT運輸方式的設置 10_OM_訂單管理超級用戶>設置>發運>代碼在ebs 12.1.3，WSH_MODE_OF_TRANSPORT的訪

其他api

所有表中型別為object 排序條件查詢分頁聚合投影內連線迫切內連線左連線

How to stop start Oracle EBS Server DB Server Apps Server

分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！http://blog.csdn.net/jiangjunshow 也歡迎大家轉載本篇文章。分享知識，造福人民，實現我們中華民族偉大復興！

Oracle EBS AR 其他API

Oracle EBS AR 其他API

Oracle EBS AR 更新客戶

Oracle EBS AR 更新客戶配置檔案

Oracle EBS AR 更新客戶組織層

Oracle EBS AR 更新客戶賬戶層

Oracle EBS AR 客戶取數SQL

Oracle EBS AR 貸項通知單核銷取值

Oracle EBS AR 發運確認未產生資料到應收介面表中

Oracle EBS AR 客戶返利和壞帳準備事務處理型別設定

Oracle EBS訂單的流程(Order->AR)轉載

Oracle EBS訂單的流程(Order->AR)

Oracle EBS PO API po_change_api1_s.update_po修改PO行資訊

Oracle EBS Interface/API(7)--建立WIP任務單

Oracle EBS登錄頁面顯示空白

Oracle ebs“發運方法”配置

其他api

How to stop start Oracle EBS Server DB Server Apps Server

Firefox can not launch Oracle EBS Form

How to use script to get all oracle EBS Form name and corres

Metalink Note 中文文件列表 - Oracle EBS Enterprise Business Suite

Oracle EBS AR 其他API

相關推薦