268: g_concurrent_request_id := NVL(fnd_profile.value('CONC_REQUEST_ID'),1);
269:
270:
271: IF UPPER(p_accounting_type) = 'DECENTRALIZED' AND p_establishment_id IS NULL THEN
272: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DECEN_ESTB_REQ');
273: g_errbuf := FND_MESSAGE.GET;
274: g_retcode :=2;
275: return;
276: END IF;
269:
270:
271: IF UPPER(p_accounting_type) = 'DECENTRALIZED' AND p_establishment_id IS NULL THEN
272: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DECEN_ESTB_REQ');
273: g_errbuf := FND_MESSAGE.GET;
274: g_retcode :=2;
275: return;
276: END IF;
277:
7367: AND g_start_date >= gp.start_date
7368: AND g_end_date <= gp.end_date ;
7369:
7370: IF l_cnt = 0 THEN
7371: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SPEC_SIT_DATE_CHECK');
7372: g_errbuf := FND_MESSAGE.GET;
7373: --g_errbuf := 'Start and End dates do not belong to same period';
7374: g_retcode := 2;
7375: return;
7368: AND g_end_date <= gp.end_date ;
7369:
7370: IF l_cnt = 0 THEN
7371: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SPEC_SIT_DATE_CHECK');
7372: g_errbuf := FND_MESSAGE.GET;
7373: --g_errbuf := 'Start and End dates do not belong to same period';
7374: g_retcode := 2;
7375: return;
7376: END IF;
7400: AND period_name = g_period_name
7401: AND report_mode in ('R','F');
7402:
7403: IF l_cnt > 0 THEN
7404: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_FILE_FINAL_REPORTED');
7405: g_errbuf := FND_MESSAGE.GET;
7406: --g_errbuf := 'Report has been already submitted in Final Mode with this combination';
7407: g_retcode := 2;
7408: return;
7401: AND report_mode in ('R','F');
7402:
7403: IF l_cnt > 0 THEN
7404: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_FILE_FINAL_REPORTED');
7405: g_errbuf := FND_MESSAGE.GET;
7406: --g_errbuf := 'Report has been already submitted in Final Mode with this combination';
7407: g_retcode := 2;
7408: return;
7409: END IF;
7438: AND bookkeeping_type like 'A/R';
7439:
7440: EXCEPTION
7441: WHEN NO_DATA_FOUND THEN
7442: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_BOOK_A/R_NOT_RUN');
7443: g_errbuf := FND_MESSAGE.GET;
7444: g_retcode :=2;
7445: return;
7446: WHEN OTHERS THEN
7439:
7440: EXCEPTION
7441: WHEN NO_DATA_FOUND THEN
7442: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_BOOK_A/R_NOT_RUN');
7443: g_errbuf := FND_MESSAGE.GET;
7444: g_retcode :=2;
7445: return;
7446: WHEN OTHERS THEN
7447: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLCODE||' : '||SUBSTR(SQLERRM,1,80));
7470: AND bookkeeping_type like 'A/B';
7471:
7472: EXCEPTION
7473: WHEN NO_DATA_FOUND THEN
7474: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_BOOK_A/B_NOT_RUN');
7475: g_errbuf := FND_MESSAGE.GET;
7476: g_retcode :=2;
7477: return;
7478: WHEN OTHERS THEN
7471:
7472: EXCEPTION
7473: WHEN NO_DATA_FOUND THEN
7474: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_BOOK_A/B_NOT_RUN');
7475: g_errbuf := FND_MESSAGE.GET;
7476: g_retcode :=2;
7477: return;
7478: WHEN OTHERS THEN
7479: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLCODE||' : '||SUBSTR(SQLERRM,1,80));
7507: 'Move/Merge','Move/Merge Reversal','Other','Payables','Payroll','Personnel','Projects',
7508: 'Purchasing','Receivables','Recurring','Revaluation','Revenue','Spreadsheet','Statistical','Transfer');
7509:
7510: IF l_journalsource_check = 1 THEN
7511: -- fnd_message.set_name('JL','JLBR_SPED_OTHER_SL_SOURCE');
7512: -- fnd_file.put_line(fnd_file.log,fnd_message.get);
7513: fnd_message.set_name('JL','JLBR_SPED_OTHER_SL_SOURCE');
7514: g_errbuf :=fnd_message.get;
7515: g_retcode :=2;
7508: 'Purchasing','Receivables','Recurring','Revaluation','Revenue','Spreadsheet','Statistical','Transfer');
7509:
7510: IF l_journalsource_check = 1 THEN
7511: -- fnd_message.set_name('JL','JLBR_SPED_OTHER_SL_SOURCE');
7512: -- fnd_file.put_line(fnd_file.log,fnd_message.get);
7513: fnd_message.set_name('JL','JLBR_SPED_OTHER_SL_SOURCE');
7514: g_errbuf :=fnd_message.get;
7515: g_retcode :=2;
7516: RETURN;
7509:
7510: IF l_journalsource_check = 1 THEN
7511: -- fnd_message.set_name('JL','JLBR_SPED_OTHER_SL_SOURCE');
7512: -- fnd_file.put_line(fnd_file.log,fnd_message.get);
7513: fnd_message.set_name('JL','JLBR_SPED_OTHER_SL_SOURCE');
7514: g_errbuf :=fnd_message.get;
7515: g_retcode :=2;
7516: RETURN;
7517: END IF;
7510: IF l_journalsource_check = 1 THEN
7511: -- fnd_message.set_name('JL','JLBR_SPED_OTHER_SL_SOURCE');
7512: -- fnd_file.put_line(fnd_file.log,fnd_message.get);
7513: fnd_message.set_name('JL','JLBR_SPED_OTHER_SL_SOURCE');
7514: g_errbuf :=fnd_message.get;
7515: g_retcode :=2;
7516: RETURN;
7517: END IF;
7518:
7634:
7635: IF g_bookkeeping_type = 'G' THEN
7636: IF l_cnt > 0 THEN
7637: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'There exists '||l_cnt||' journals which are posted in Summary Mode');
7638: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7639: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7640: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7641: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7642: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7635: IF g_bookkeeping_type = 'G' THEN
7636: IF l_cnt > 0 THEN
7637: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'There exists '||l_cnt||' journals which are posted in Summary Mode');
7638: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7639: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7640: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7641: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7642: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7643: END IF;
7636: IF l_cnt > 0 THEN
7637: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'There exists '||l_cnt||' journals which are posted in Summary Mode');
7638: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7639: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7640: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7641: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7642: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7643: END IF;
7644: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7637: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'There exists '||l_cnt||' journals which are posted in Summary Mode');
7638: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7639: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7640: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7641: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7642: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7643: END IF;
7644: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7645: IF l_cnt = 0 THEN
7638: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7639: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7640: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7641: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7642: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7643: END IF;
7644: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7645: IF l_cnt = 0 THEN
7646: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7643: END IF;
7644: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7645: IF l_cnt = 0 THEN
7646: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7647: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7648: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7649: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7650: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7651: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7644: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7645: IF l_cnt = 0 THEN
7646: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7647: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7648: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7649: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7650: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7651: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7652: END IF;
7645: IF l_cnt = 0 THEN
7646: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7647: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7648: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7649: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7650: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7651: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7652: END IF;
7653: END IF;
7646: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7647: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7648: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7649: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7650: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7651: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7652: END IF;
7653: END IF;
7654:
7647: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7648: FND_MESSAGE.SET_TOKEN('SOURCE','Payables');
7649: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7650: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7651: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7652: END IF;
7653: END IF;
7654:
7655: l_cnt := 0;
7681:
7682: IF g_bookkeeping_type = 'G' THEN
7683: IF l_cnt > 0 THEN
7684: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'There exists '||l_cnt||' journals which are posted in Summary Mode');
7685: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7686: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7687: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7688: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7689: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7682: IF g_bookkeeping_type = 'G' THEN
7683: IF l_cnt > 0 THEN
7684: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'There exists '||l_cnt||' journals which are posted in Summary Mode');
7685: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7686: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7687: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7688: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7689: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7690: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7683: IF l_cnt > 0 THEN
7684: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'There exists '||l_cnt||' journals which are posted in Summary Mode');
7685: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7686: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7687: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7688: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7689: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7690: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7691: END IF;
7684: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'There exists '||l_cnt||' journals which are posted in Summary Mode');
7685: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_DETAIL_CHECK');
7686: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7687: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7688: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7689: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7690: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7691: END IF;
7692: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7686: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7687: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7688: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7689: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7690: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7691: END IF;
7692: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7693: IF l_cnt = 0 THEN
7694: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7691: END IF;
7692: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7693: IF l_cnt = 0 THEN
7694: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7695: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7696: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7697: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7698: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7692: ELSIF g_bookkeeping_type = 'A/R' OR g_bookkeeping_type = 'A/B' OR g_bookkeeping_type = 'R' OR g_bookkeeping_type = 'B' THEN
7693: IF l_cnt = 0 THEN
7694: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7695: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7696: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7697: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7698: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7700: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7693: IF l_cnt = 0 THEN
7694: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7695: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7696: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7697: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7698: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7700: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7701: END IF;
7694: -- FND_FILE.PUT_LINE(FND_FILE.LOG,'No journals were posted in Summary Mode');
7695: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DATA_SUMMARY_CHECK');
7696: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7697: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7698: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7700: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7701: END IF;
7702: END IF;
7696: FND_MESSAGE.SET_TOKEN('SOURCE','Receivables');
7697: FND_MESSAGE.SET_TOKEN('PERIOD',g_period_name);
7698: FND_MESSAGE.SET_TOKEN('BOOKKEEPING_TYPE',g_bookkeeping_type);
7699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7700: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,FND_MESSAGE.GET);
7701: END IF;
7702: END IF;
7703:
7704: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7745:
7746: IF l_cnt > 0 THEN
7747:
7748:
7749: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SOMA_SALDO_INICIAL');
7750: INSERT INTO jl_br_sped_extr_msgs
7751: (request_id,
7752: block,
7753: register,
7763: values (g_concurrent_request_id,
7764: 'I',
7765: 'I155',
7766: 4,-- 'field4',
7767: FND_MESSAGE.GET,
7768: 'REGRA_VALIDACAO_SOMA_SALDO_INICIAL'
7769: ,g_created_by
7770: ,g_creation_date
7771: ,g_last_updated_by
7772: ,g_last_update_date
7773: ,g_last_update_login );
7774:
7775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7776: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SOMA_SALDO_INICIAL');
7777: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_SOMA_SALDO_INICIAL : '||FND_MESSAGE.GET);
7778:
7779: END IF;
7780:
7773: ,g_last_update_login );
7774:
7775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7776: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SOMA_SALDO_INICIAL');
7777: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_SOMA_SALDO_INICIAL : '||FND_MESSAGE.GET);
7778:
7779: END IF;
7780:
7781: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7813: AND field1 = 'I155'
7814: AND field8 <>'0,00';
7815:
7816: IF l_cnt > 0 THEN
7817: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SOMA_SALDO_FINAL');
7818: INSERT INTO jl_br_sped_extr_msgs
7819: (request_id,
7820: block,
7821: register,
7831: values (g_concurrent_request_id,
7832: 'I',
7833: 'I155',
7834: 8,--'field8',
7835: FND_MESSAGE.GET,
7836: 'REGRA_VALIDACAO_SOMA_SALDO_FINAL'
7837: ,g_created_by
7838: ,g_creation_date
7839: ,g_last_updated_by
7840: ,g_last_update_date
7841: ,g_last_update_login );
7842:
7843: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7844: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SOMA_SALDO_FINAL');
7845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_SOMA_SALDO_FINAL : '||FND_MESSAGE.GET);
7846: END IF;
7847: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7848: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7841: ,g_last_update_login );
7842:
7843: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7844: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_SOMA_SALDO_FINAL');
7845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_SOMA_SALDO_FINAL : '||FND_MESSAGE.GET);
7846: END IF;
7847: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7848: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7849: G_PKG_NAME||': ' ||l_api_name||'(): Validation for ''REGRA_VALIDACAO_SOMA_SALDO_FINAL'' was completed ');
7884: AND field1 = 'I155'
7885: AND field6 <> field7;
7886:
7887: IF l_cnt > 0 THEN
7888: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DEB_DIF_CRED');
7889: INSERT INTO jl_br_sped_extr_msgs
7890: (request_id,
7891: block,
7892: register,
7902: values (g_concurrent_request_id,
7903: 'I',
7904: 'I155',
7905: 6,--'field6',
7906: FND_MESSAGE.GET,
7907: 'REGRA_VALIDACAO_DEB_DIF_CRED'
7908: ,g_created_by
7909: ,g_creation_date
7910: ,g_last_updated_by
7917: G_PKG_NAME||': ' ||l_api_name||'(): Validation for ''REGRA_VALIDACAO_DEB_DIF_CRED'' was completed ');
7918: END IF;
7919:
7920: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7921: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DEB_DIF_CRED');
7922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_DEB_DIF_CRED : '||FND_MESSAGE.GET);
7923:
7924: EXCEPTION
7925: WHEN NO_DATA_FOUND THEN
7918: END IF;
7919:
7920: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7921: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DEB_DIF_CRED');
7922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_DEB_DIF_CRED : '||FND_MESSAGE.GET);
7923:
7924: EXCEPTION
7925: WHEN NO_DATA_FOUND THEN
7926: null;
7961: MIN(to_number(I155.field6,'99999999999999990D00','NLS_NUMERIC_CHARACTERS = '',.''')) -- sum(jounral debit lines) <> Balances debit amount
7962: );
7963:
7964: IF l_cnt > 0 THEN
7965: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_DEB');
7966: INSERT INTO jl_br_sped_extr_msgs
7967: (request_id,
7968: block,
7969: register,
7979: values (g_concurrent_request_id,
7980: 'I',
7981: 'I155',
7982: 6,--'field6',
7983: FND_MESSAGE.GET,
7984: 'REGRA_VALIDACAO_VALOR_DEB'
7985: ,g_created_by
7986: ,g_creation_date
7987: ,g_last_updated_by
7988: ,g_last_update_date
7989: ,g_last_update_login );
7990:
7991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7992: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_DEB');
7993: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_DEB : '||FND_MESSAGE.GET);
7994: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
7995: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
7996: FOR rec IN valor_deb_cur
7989: ,g_last_update_login );
7990:
7991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
7992: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_DEB');
7993: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_DEB : '||FND_MESSAGE.GET);
7994: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
7995: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
7996: FOR rec IN valor_deb_cur
7997: LOOP
8039: );
8040:
8041:
8042: IF l_cnt > 0 THEN
8043: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_CRED');
8044: INSERT INTO jl_br_sped_extr_msgs
8045: (request_id,
8046: block,
8047: register,
8057: values (g_concurrent_request_id,
8058: 'I',
8059: 'I155',
8060: 6,--'field6',
8061: FND_MESSAGE.GET,
8062: 'REGRA_VALIDACAO_VALOR_CRED'
8063: ,g_created_by
8064: ,g_creation_date
8065: ,g_last_updated_by
8065: ,g_last_updated_by
8066: ,g_last_update_date
8067: ,g_last_update_login );
8068: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8069: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_CRED');
8070: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_CRED : '||FND_MESSAGE.GET);
8071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
8072: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
8073: FOR rec IN valor_cred_cur
8066: ,g_last_update_date
8067: ,g_last_update_login );
8068: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8069: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VALOR_CRED');
8070: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VALOR_CRED : '||FND_MESSAGE.GET);
8071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'COD_CTA COD_CCUS');
8072: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------- --------');
8073: FOR rec IN valor_cred_cur
8074: LOOP
8113: HAVING SUM(to_number(I250.field4,'99999999999999990D00','NLS_NUMERIC_CHARACTERS = '',.''')) <>
8114: MIN(to_number(I200.field4,'99999999999999990D00','NLS_NUMERIC_CHARACTERS = '',.'''));
8115:
8116: IF l_cnt >0 THEN
8117: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VL_LCTO_DEB');
8118: INSERT INTO jl_br_sped_extr_msgs
8119: (request_id,
8120: block,
8121: register,
8131: values (g_concurrent_request_id,
8132: 'I',
8133: 'I200',
8134: 2,--'field2',
8135: FND_MESSAGE.GET,
8136: 'REGRA_VALIDACAO_VL_LCTO_DEB'
8137: ,g_created_by
8138: ,g_creation_date
8139: ,g_last_updated_by
8140: ,g_last_update_date
8141: ,g_last_update_login );
8142:
8143: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8144: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_DEB : '||FND_MESSAGE.GET);
8145: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8146: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8147: FOR rec IN vl_lcto_deb_cur
8148: LOOP
8185: HAVING sum(to_number(I250.field4,'99999999999999990D00','NLS_NUMERIC_CHARACTERS = '',.''')) <>
8186: min(to_number(I200.field4,'99999999999999990D00','NLS_NUMERIC_CHARACTERS = '',.'''));
8187:
8188: IF l_cnt <>0 THEN
8189: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VL_LCTO_CRED');
8190: INSERT INTO jl_br_sped_extr_msgs
8191: (request_id,
8192: block,
8193: register,
8203: values (g_concurrent_request_id,
8204: 'I',
8205: 'I200',
8206: 2,--'field2',
8207: FND_MESSAGE.GET,
8208: 'REGRA_VALIDACAO_VL_LCTO_CRED'
8209: ,g_created_by
8210: ,g_creation_date
8211: ,g_last_updated_by
8212: ,g_last_update_date
8213: ,g_last_update_login );
8214:
8215: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8216: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VL_LCTO_CRED');
8217: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_CRED : '||FND_MESSAGE.GET);
8218: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8220: FOR rec IN vl_lcto_deb_cur
8213: ,g_last_update_login );
8214:
8215: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8216: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_VL_LCTO_CRED');
8217: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_VL_LCTO_CRED : '||FND_MESSAGE.GET);
8218: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'JOURNAL NAME - BATCH ID');
8219: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-----------------------');
8220: FOR rec IN vl_lcto_deb_cur
8221: LOOP
8273: AND field1 = 'I310'
8274: AND field4 <> field5;
8275:
8276: IF l_cnt <> 0 THEN
8277: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DC_BALANCETE');
8278: INSERT INTO jl_br_sped_extr_msgs
8279: (request_id,
8280: block,
8281: register,
8291: values (g_concurrent_request_id,
8292: 'I',
8293: 'I310',
8294: 4,--'field4',
8295: FND_MESSAGE.GET,
8296: 'REGRA_VALIDACAO_DC_BALANCETE'
8297: ,g_created_by
8298: ,g_creation_date
8299: ,g_last_updated_by
8299: ,g_last_updated_by
8300: ,g_last_update_date
8301: ,g_last_update_login );
8302: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8303: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DC_BALANCETE');
8304: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_DC_BALANCETE : '||FND_MESSAGE.GET);
8305:
8306: END IF;
8307:
8300: ,g_last_update_date
8301: ,g_last_update_login );
8302: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8303: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_DC_BALANCETE');
8304: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_VALIDACAO_DC_BALANCETE : '||FND_MESSAGE.GET);
8305:
8306: END IF;
8307:
8308: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8335: AND field5 = '900';
8336:
8337: IF l_cnt < 1 THEN
8338:
8339: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_ASSIN_CONTADOR');
8340:
8341: INSERT INTO jl_br_sped_extr_msgs
8342: (request_id,
8343: block,
8354: VALUES (g_concurrent_request_id,
8355: 'J',
8356: 'J930',
8357: 5,--'field5',
8358: FND_MESSAGE.GET,
8359: 'REGRA_OBRIGATORIO_ASSIN_CONTADOR'
8360: ,g_created_by
8361: ,g_creation_date
8362: ,g_last_updated_by
8362: ,g_last_updated_by
8363: ,g_last_update_date
8364: ,g_last_update_login );
8365: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8366: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_ASSIN_CONTADOR');
8367: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_OBRIGATORIO_ASSIN_CONTADOR : '||FND_MESSAGE.GET);
8368:
8369: END IF;
8370:
8363: ,g_last_update_date
8364: ,g_last_update_login );
8365: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8366: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_ASSIN_CONTADOR');
8367: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_OBRIGATORIO_ASSIN_CONTADOR : '||FND_MESSAGE.GET);
8368:
8369: END IF;
8370:
8371: l_cnt := 0;
8377: AND field5 <> '900';
8378:
8379: IF l_cnt < 1 THEN
8380:
8381: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_ASSIN_CONTADOR');
8382: INSERT INTO jl_br_sped_extr_msgs
8383: (request_id,
8384: block,
8385: register,
8395: values (g_concurrent_request_id,
8396: 'J',
8397: 'J930',
8398: 5,--'field5',
8399: FND_MESSAGE.GET,
8400: 'REGRA_OBRIGATORIO_ASSIN_CONTADOR'
8401: ,g_created_by
8402: ,g_creation_date
8403: ,g_last_updated_by
8404: ,g_last_update_date
8405: ,g_last_update_login );
8406:
8407: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8408: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_ASSIN_CONTADOR');
8409: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_OBRIGATORIO_ASSIN_CONTADOR : '||FND_MESSAGE.GET);
8410: END IF;
8411:
8412: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8405: ,g_last_update_login );
8406:
8407: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ');
8408: FND_MESSAGE.SET_NAME('JL','JLBR_SPED_ASSIN_CONTADOR');
8409: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'REGRA_OBRIGATORIO_ASSIN_CONTADOR : '||FND_MESSAGE.GET);
8410: END IF;
8411:
8412: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8413: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9200: BEGIN
9201: FND_FILE.PUT_LINE(FND_FILE.LOG,'');
9202: FOR accts_rec in accts_with_invalid_jrl_amounts LOOP
9203:
9204: FND_MESSAGE.SET_NAME('JL','JL_BR_SPED_INVALID_AMOUNTS');
9205: FND_MESSAGE.SET_TOKEN('COD_CTA',accts_rec.natural_acct);
9206: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
9207:
9208: END LOOP;
9201: FND_FILE.PUT_LINE(FND_FILE.LOG,'');
9202: FOR accts_rec in accts_with_invalid_jrl_amounts LOOP
9203:
9204: FND_MESSAGE.SET_NAME('JL','JL_BR_SPED_INVALID_AMOUNTS');
9205: FND_MESSAGE.SET_TOKEN('COD_CTA',accts_rec.natural_acct);
9206: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
9207:
9208: END LOOP;
9209:
9202: FOR accts_rec in accts_with_invalid_jrl_amounts LOOP
9203:
9204: FND_MESSAGE.SET_NAME('JL','JL_BR_SPED_INVALID_AMOUNTS');
9205: FND_MESSAGE.SET_TOKEN('COD_CTA',accts_rec.natural_acct);
9206: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
9207:
9208: END LOOP;
9209:
9210: EXCEPTION