传统的EBS报表非常的不美观，并且会有很多毛病，比如报表超出A4纸大小，元素被错页打印、不美观、操作很不方便、无法一次输出分别打印多个报表等等毛病，
对于这些毛病，常常需要开发人员手动去调整格式，甚至是需要开发新的功能去调整到正规的格式。现如今基于HTML的内置元素与组件，我们可以轻松解决传统报表带来的一切不利因素，使得报表的预览与打印更加的智能和美观。
比如HTML自带的设置参数：元素不可被页面分割，只需设置一下fnd_file.put_line(2, ' page-break-inside: avoid !important;');就可以避免。
给一套模板去仿造写吧，也没什么好说的：
❀主函数打印
sql
PROCEDURE main
(
errbuf OUT VARCHAR2,
retcode OUT NUMBER,
p_set_of_books_id IN NUMBER DEFAULT NULL,
p_org_id IN NUMBER DEFAULT NULL,
p_chart_of_accounts_id IN NUMBER DEFAULT NULL,
p_customer_id IN NUMBER DEFAULT NULL,
p_date_begin IN VARCHAR2 DEFAULT NULL,
p_date_end IN VARCHAR2 DEFAULT NULL,
p_sale_per_val IN VARCHAR2 DEFAULT NULL,
p_recon_mode IN VARCHAR2 DEFAULT NULL
) IS
BEGIN
-- Begin 日志头 --
fnd_file.put_line(1, '[INFO]: 开始打印传入参数，时间：' || TO_CHAR(SYSDATE, 'YYYYMMDD HH24:MI:SS'));
fnd_file.put_line(1, 'p_set_of_books_id = ' || NVL(TO_CHAR(p_set_of_books_id), 'NULL'));
fnd_file.put_line(1, 'p_org_id = ' || NVL(TO_CHAR(p_org_id), 'NULL'));
fnd_file.put_line(1, 'p_chart_of_accounts_id = ' || NVL(TO_CHAR(p_chart_of_accounts_id), 'NULL'));
fnd_file.put_line(1, 'p_customer_id = ' || NVL(TO_CHAR(p_customer_id), 'NULL'));
fnd_file.put_line(1, 'p_date_begin = ' || NVL(p_date_begin, 'NULL'));
fnd_file.put_line(1, 'p_date_end = ' || NVL(p_date_end, 'NULL'));
fnd_file.put_line(1, 'p_sale_per_val = ' || NVL(p_sale_per_val, 'NULL'));
fnd_file.put_line(1, 'p_recon_mode = ' || NVL(p_recon_mode, 'NULL'));
fnd_file.put_line(1, '[INFO]: 传入参数打印结束，时间：' || TO_CHAR(SYSDATE, 'YYYYMMDD HH24:MI:SS'));
-- end --
IF p_recon_mode = '陶熙慧鱼胶条模式' THEN
-- 输出HTML头部 - 使用五金模式风格
fnd_file.put_line(2, '<!DOCTYPE html>');
fnd_file.put_line(2, '<html>');
fnd_file.put_line(2, '<head>');
fnd_file.put_line(2, '<meta charset="UTF-8">');
fnd_file.put_line(2, '<title>陶熙慧鱼胶条模式 - 应收客户对账单</title>');
fnd_file.put_line(2, '<style>');
-- CSS样式 - 使用五金模式样式
fnd_file.put_line(2, '* { margin: 0; padding: 0; box-sizing: border-box; }');
fnd_file.put_line(2, 'body { font-family: "Microsoft YaHei", "微软雅黑", "宋体", SimSun, serif; font-size: 14px; background: linear-gradient(135deg, #667eea 0%, #764ba2 100%); min-height: 100vh; }');
fnd_file.put_line(2, '.container { max-width: 1400px; margin: 0 auto; background-color: white; min-height: 100vh; box-shadow: 0 0 30px rgba(0,0,0,0.3); }');
-- 导航栏样式
fnd_file.put_line(2, '.navbar { background: linear-gradient(135deg, #1e3c72 0%, #2a5298 100%); color: white; padding: 20px 30px; box-shadow: 0 4px 15px rgba(0,0,0,0.2); position: relative; }');
fnd_file.put_line(2, '.navbar::before { content: ""; position: absolute; top: 0; left: 0; right: 0; bottom: 0; background: url("data:image/svg+xml,%3Csvg width=''60'' height=''60'' viewBox=''0 0 60 60'' xmlns=''http://www.w3.org/2000/svg''%3E%3Cg fill=''none'' fill-rule=''evenodd''%3E%3Cg fill=''%23ffffff'' fill-opacity=''0.05''%3E%3Ccircle cx=''30'' cy=''30'' r=''2''/%3E%3C/g%3E%3C/g%3E%3C/svg%3E"); }');
fnd_file.put_line(2, '.navbar h1 { margin: 0; display: inline-block; font-size: 28px; font-weight: 300; letter-spacing: 2px; position: relative; z-index: 1; }');
fnd_file.put_line(2, '.nav-buttons { float: right; margin-top: 8px; position: relative; z-index: 1; }');
fnd_file.put_line(2, '.nav-btn { background: rgba(255,255,255,0.2); color: white; border: 2px solid rgba(255,255,255,0.3); padding: 12px 25px; margin-left: 15px; border-radius: 25px; cursor: pointer; font-size: 14px; font-weight: 500; transition: all 0.3s ease; backdrop-filter: blur(10px); }');
fnd_file.put_line(2, '.nav-btn:hover { background: rgba(255,255,255,0.3); border-color: rgba(255,255,255,0.6); transform: translateY(-2px); box-shadow: 0 5px 15px rgba(0,0,0,0.2); }');
fnd_file.put_line(2, '.nav-btn.active { background: #e74c3c; border-color: #e74c3c; box-shadow: 0 5px 15px rgba(231,76,60,0.4); }');
-- 页面内容样式
fnd_file.put_line(2, '.page { display: none; padding: 40px; }');
fnd_file.put_line(2, '.page.active { display: block; }');
-- 首页样式
fnd_file.put_line(2, '.welcome-section { background: linear-gradient(135deg, #667eea 0%, #764ba2 100%); color: white; padding: 60px 40px; border-radius: 15px; margin-bottom: 40px; text-align: center; position: relative; overflow: hidden; }');
fnd_file.put_line(2, '.welcome-section::before { content: ""; position: absolute; top: -50%; left: -50%; width: 200%; height: 200%; background: radial-gradient(circle, rgba(255,255,255,0.1) 1px, transparent 1px); background-size: 50px 50px; animation: float 20s infinite linear; }');
fnd_file.put_line(2, '@keyframes float { 0% { transform: translate(-50%, -50%) rotate(0deg); } 100% { transform: translate(-50%, -50%) rotate(360deg); } }');
fnd_file.put_line(2, '.welcome-section h2 { font-size: 36px; margin-bottom: 20px; font-weight: 300; letter-spacing: 3px; position: relative; z-index: 1; }');
fnd_file.put_line(2, '.welcome-section p { font-size: 18px; margin-bottom: 15px; opacity: 0.9; position: relative; z-index: 1; }');
-- info-grid布局
fnd_file.put_line(2, '.info-grid { display: grid; grid-template-columns: 1fr 1fr; gap: 30px; margin-top: 40px; }');
fnd_file.put_line(2, '.info-card { background: white; padding: 35px; border-radius: 15px; box-shadow: 0 10px 30px rgba(0,0,0,0.1); border: 1px solid #e0e0e0; transition: all 0.3s ease; position: relative; overflow: hidden; }');
fnd_file.put_line(2, '.info-card::before { content: ""; position: absolute; top: 0; left: 0; width: 100%; height: 4px; background: linear-gradient(90deg, #667eea, #764ba2); }');
fnd_file.put_line(2, '.info-card:hover { transform: translateY(-5px); box-shadow: 0 15px 40px rgba(0,0,0,0.15); }');
fnd_file.put_line(2, '.info-card h3 { color: #2c3e50; margin-top: 0; margin-bottom: 20px; font-size: 22px; font-weight: 600; }');
fnd_file.put_line(2, '.info-card p { color: #666; line-height: 1.8; font-size: 15px; }');
fnd_file.put_line(2, '.quick-actions { text-align: center; margin-top: 50px; }');
fnd_file.put_line(2, '.quick-actions h3 { color: #2c3e50; margin-bottom: 30px; font-size: 24px; font-weight: 300; }');
fnd_file.put_line(2, '.action-btn { background: linear-gradient(135deg, #27ae60, #2ecc71); color: white; border: none; padding: 18px 40px; margin: 0 15px; border-radius: 30px; cursor: pointer; font-size: 16px; font-weight: 500; transition: all 0.3s ease; box-shadow: 0 5px 15px rgba(39,174,96,0.3); }');
fnd_file.put_line(2, '.action-btn:hover { background: linear-gradient(135deg, #229954, #27ae60); transform: translateY(-3px); box-shadow: 0 8px 25px rgba(39,174,96,0.4); }');
-- 表格样式 - 统一背景色
fnd_file.put_line(2, '.table-container { background: white; border-radius: 15px; box-shadow: 0 10px 30px rgba(0,0,0,0.1); overflow: hidden; margin-bottom: 30px; }');
fnd_file.put_line(2, '.table-header { background: linear-gradient(135deg, #34495e, #2c3e50); color: white; padding: 25px 30px; display: flex; justify-content: space-between; align-items: center; }');
fnd_file.put_line(2, '.table-header h3 { margin: 0; font-size: 22px; font-weight: 300; letter-spacing: 1px; }');
fnd_file.put_line(2, '.print-btn { background: linear-gradient(135deg, #e67e22, #f39c12); color: white; border: none; padding: 12px 25px; border-radius: 25px; cursor: pointer; font-size: 14px; font-weight: 500; transition: all 0.3s ease; }');
fnd_file.put_line(2, '.print-btn:hover { background: linear-gradient(135deg, #d35400, #e67e22); transform: translateY(-2px); box-shadow: 0 5px 15px rgba(230,126,34,0.4); }');
fnd_file.put_line(2, '.table-content { padding: 30px; }');
-- 表格样式 - 去掉斑马纹
fnd_file.put_line(2, 'table { border-collapse: collapse; width: 100%; margin-bottom: 20px; background: white; border-radius: 8px; overflow: hidden; box-shadow: 0 2px 10px rgba(0,0,0,0.05); }');
fnd_file.put_line(2, 'th, td { border: 1px solid #e0e0e0; padding: 15px 12px; text-align: left; }');
fnd_file.put_line(2, 'th { background: linear-gradient(135deg, #f8f9fa, #e9ecef); font-weight: 600; text-align: center; color: #2c3e50; font-size: 14px; letter-spacing: 0.5px; }');
fnd_file.put_line(2, 'td { background: white; color: #333; }');
fnd_file.put_line(2, 'tr:hover td { background-color: #f0f8ff; }');
fnd_file.put_line(2, '.number { text-align: right; font-family: "Consolas", "Monaco", monospace; }');
fnd_file.put_line(2, '.center { text-align: center; }');
-- 报表信息样式
fnd_file.put_line(2, '.report-info { background: linear-gradient(135deg, #f8f9fa, #e9ecef); padding: 25px; border-radius: 10px; margin-bottom: 25px; border-left: 5px solid #667eea; }');
fnd_file.put_line(2, '.report-info h4 { color: #2c3e50; margin-bottom: 15px; font-size: 20px; font-weight: 600; }');
fnd_file.put_line(2, '.report-info p { color: #555; margin-bottom: 8px; font-size: 14px; }');
-- 打印样式
fnd_file.put_line(2, '@media print { ');
fnd_file.put_line(2, ' * { -webkit-print-color-adjust: exact !important; color-adjust: exact !important; }');
fnd_file.put_line(2, ' body { background: white !important; margin: 0; padding: 20px; }');
fnd_file.put_line(2, ' .container { box-shadow: none !important; max-width: none !important; }');
fnd_file.put_line(2, ' .navbar, .nav-buttons, .print-btn, .action-btn { display: none !important; }');
fnd_file.put_line(2, ' .page { display: none !important; padding: 0 !important; }');
fnd_file.put_line(2, ' .page.print-active { display: block !important; }');
fnd_file.put_line(2, ' .table-header { display: none !important; }');
fnd_file.put_line(2, ' .table-container { box-shadow: none !important; border-radius: 0 !important; margin-bottom: 0 !important; }');
fnd_file.put_line(2, ' .table-content { padding: 0 !important; }');
fnd_file.put_line(2, ' .welcome-section, .info-grid, .quick-actions { display: none !important; }');
-- 分页控制样式
fnd_file.put_line(2, ' table { ');
fnd_file.put_line(2, ' box-shadow: none !important; ');
fnd_file.put_line(2, ' border-radius: 0 !important; ');
fnd_file.put_line(2, ' page-break-inside: auto !important; ');
fnd_file.put_line(2, ' break-inside: auto !important; ');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' tr { ');
fnd_file.put_line(2, ' page-break-inside: avoid !important; ');
fnd_file.put_line(2, ' break-inside: avoid !important; ');
fnd_file.put_line(2, ' orphans: 2; ');
fnd_file.put_line(2, ' widows: 2; ');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' thead { ');
fnd_file.put_line(2, ' display: table-header-group !important; ');
fnd_file.put_line(2, ' page-break-after: avoid !important; ');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' tbody { ');
fnd_file.put_line(2, ' display: table-row-group !important; ');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' th, td { ');
fnd_file.put_line(2, ' page-break-inside: avoid !important; ');
fnd_file.put_line(2, ' break-inside: avoid !important; ');
fnd_file.put_line(2, ' }');
-- 页面设置
fnd_file.put_line(2, ' @page { ');
fnd_file.put_line(2, ' size: A4; ');
fnd_file.put_line(2, ' margin: 1cm; ');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, '}');
-- @media print 部分添加：
fnd_file.put_line(2, ' .table-footer-container {');
fnd_file.put_line(2, ' page-break-inside: avoid !important;');
fnd_file.put_line(2, ' break-inside: avoid !important;');
fnd_file.put_line(2, ' page-break-before: auto !important;');
fnd_file.put_line(2, ' margin-top: 10px !important;');
fnd_file.put_line(2, ' }');
-- 确保容器内的表格无间隙
fnd_file.put_line(2, ' .table-footer-container table {');
fnd_file.put_line(2, ' margin: 0 !important;');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' .table-footer-container table:first-child {');
fnd_file.put_line(2, ' margin-bottom: 0 !important;');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' .table-footer-container table:last-child {');
fnd_file.put_line(2, ' margin-top: 0 !important;');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, '</style>');
fnd_file.put_line(2, '</head>');
fnd_file.put_line(2, '<body>');
fnd_file.put_line(2, '<div class="container">');
-- 导航栏 - 陶熙慧鱼胶条模式只保留首页和报表两个按钮
fnd_file.put_line(2, '<div class="navbar">');
fnd_file.put_line(2, '<h1>陶熙慧鱼胶条模式 - 应收客户对账单</h1>');
fnd_file.put_line(2, '<div class="nav-buttons">');
fnd_file.put_line(2, '<button class="nav-btn active" onclick="showPage(''home'')">首页</button>');
fnd_file.put_line(2, '<button class="nav-btn" onclick="showPage(''report'')">报表</button>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div style="clear: both;"></div>');
fnd_file.put_line(2, '</div>');
-- 首页
fnd_file.put_line(2, '<div id="home" class="page active">');
fnd_file.put_line(2, '<div class="welcome-section">');
fnd_file.put_line(2, '<h2>欢迎使用陶熙慧鱼胶条模式对账报表</h2>');
fnd_file.put_line(2, '<p>查询期间：' || NVL(p_date_begin, '未指定') || ' 至 ' || NVL(p_date_end, '未指定') || '</p>');
fnd_file.put_line(2, '<p>生成时间：' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI:SS') || '</p>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="info-grid">');
fnd_file.put_line(2, '<div class="info-card">');
fnd_file.put_line(2, '<h3>陶熙慧鱼胶条报表</h3>');
fnd_file.put_line(2, '<p>展示陶熙慧鱼胶条报表的完整应收账款信息，包含交易明细、收款记录及余额情况，帮助管理层全面掌握财务状况。</p>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="info-card">');
fnd_file.put_line(2, '<h3>数据特点</h3>');
fnd_file.put_line(2, '<p>专门针对鱼胶条业务模式设计，数据展示清晰直观，支持快速查询和核对，满足财务对账需求。</p>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="info-card">');
fnd_file.put_line(2, '<h3>打印功能</h3>');
fnd_file.put_line(2, '<p>支持专业打印功能，打印时自动隐藏导航栏，保证打印效果清晰且专业，适配A4纸张。</p>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="info-card">');
fnd_file.put_line(2, '<h3>使用说明</h3>');
fnd_file.put_line(2, '<p>1. 点击导航按钮切换页面<br>2. 在报表页面点击"打印报表"按钮进行打印<br>3. 数据实时生成，确保准确无误</p>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="quick-actions">');
fnd_file.put_line(2, '<h3>快速操作</h3>');
fnd_file.put_line(2, '<button class="action-btn" onclick="showPage(''report'')">查看完整报表</button>');
fnd_file.put_line(2, '<button class="action-btn" onclick="printTable(''report'')">直接打印报表</button>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>');
-- 报表页面 - 陶熙慧鱼胶条模式只有一个报表页面
fnd_file.put_line(2, '<div id="report" class="page">');
fnd_file.put_line(2, '<div class="table-container">');
fnd_file.put_line(2, '<div class="table-header">');
fnd_file.put_line(2, '<h3>陶熙慧鱼胶条模式 - 应收客户对账单</h3>');
fnd_file.put_line(2, '<button class="print-btn" onclick="printTable(''report'')">打印报表</button>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="table-content">');
-- 调用陶熙慧鱼胶条模式过程 - 只调用一次
proc_taoxihui_mode(
errbuf => errbuf,
retcode => retcode,
p_set_of_books_id => p_set_of_books_id,
p_org_id => p_org_id,
p_chart_of_accounts_id => p_chart_of_accounts_id,
p_customer_id => p_customer_id,
p_date_begin => p_date_begin,
p_date_end => p_date_end,
p_sale_per_val => p_sale_per_val
);
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>'); -- container结束
-- JavaScript 控制页面切换和打印 - 使用五金模式的JS逻辑
fnd_file.put_line(2, '<script>');
fnd_file.put_line(2, 'function showPage(pageId) {');
fnd_file.put_line(2, ' var pages = document.getElementsByClassName("page");');
fnd_file.put_line(2, ' var buttons = document.getElementsByClassName("nav-btn");');
fnd_file.put_line(2, ' for (var i = 0; i < pages.length; i++) {');
fnd_file.put_line(2, ' pages[i].classList.remove("active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' for (var i = 0; i < buttons.length; i++) {');
fnd_file.put_line(2, ' buttons[i].classList.remove("active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' document.getElementById(pageId).classList.add("active");');
fnd_file.put_line(2, ' event.target.classList.add("active");');
fnd_file.put_line(2, '}');
fnd_file.put_line(2, '');
fnd_file.put_line(2, 'function printTable(tableType) {');
fnd_file.put_line(2, ' // 移除所有页面的active类');
fnd_file.put_line(2, ' var pages = document.getElementsByClassName("page");');
fnd_file.put_line(2, ' for (var i = 0; i < pages.length; i++) {');
fnd_file.put_line(2, ' pages[i].classList.remove("active");');
fnd_file.put_line(2, ' pages[i].classList.remove("print-active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' ');
fnd_file.put_line(2, ' // 只给要打印的页面添加print-active类');
fnd_file.put_line(2, ' var targetPage = document.getElementById(tableType);');
fnd_file.put_line(2, ' if (targetPage) {');
fnd_file.put_line(2, ' targetPage.classList.add("print-active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' ');
fnd_file.put_line(2, ' // 执行打印');
fnd_file.put_line(2, ' window.print();');
fnd_file.put_line(2, ' ');
fnd_file.put_line(2, ' // 打印完成后恢复页面状态');
fnd_file.put_line(2, ' setTimeout(function() {');
fnd_file.put_line(2, ' for (var i = 0; i < pages.length; i++) {');
fnd_file.put_line(2, ' pages[i].classList.remove("print-active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' // 恢复当前页面的显示');
fnd_file.put_line(2, ' if (targetPage) {');
fnd_file.put_line(2, ' targetPage.classList.add("active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' }, 100);');
fnd_file.put_line(2, '}');
fnd_file.put_line(2, '</script>');
fnd_file.put_line(2, '</body>');
fnd_file.put_line(2, '</html>');
COMMIT;
ELSIF p_recon_mode = '五金模式' THEN
-- 输出HTML头部
fnd_file.put_line(2, '<!DOCTYPE html>');
fnd_file.put_line(2, '<html>');
fnd_file.put_line(2, '<head>');
fnd_file.put_line(2, '<meta charset="UTF-8">');
fnd_file.put_line(2, '<title>CUX：应收客户对账单（深圳专用）</title>');
fnd_file.put_line(2, '<style>');
-- CSS样式
fnd_file.put_line(2, '* { margin: 0; padding: 0; box-sizing: border-box; }');
fnd_file.put_line(2, 'body { font-family: "Microsoft YaHei", "微软雅黑", "宋体", SimSun, serif; font-size: 14px; background: linear-gradient(135deg, #667eea 0%, #764ba2 100%); min-height: 100vh; }');
fnd_file.put_line(2, '.container { max-width: 1400px; margin: 0 auto; background-color: white; min-height: 100vh; box-shadow: 0 0 30px rgba(0,0,0,0.3); }');
-- 导航栏样式
fnd_file.put_line(2, '.navbar { background: linear-gradient(135deg, #1e3c72 0%, #2a5298 100%); color: white; padding: 20px 30px; box-shadow: 0 4px 15px rgba(0,0,0,0.2); position: relative; }');
fnd_file.put_line(2, '.navbar::before { content: ""; position: absolute; top: 0; left: 0; right: 0; bottom: 0; background: url("data:image/svg+xml,%3Csvg width=''60'' height=''60'' viewBox=''0 0 60 60'' xmlns=''http://www.w3.org/2000/svg''%3E%3Cg fill=''none'' fill-rule=''evenodd''%3E%3Cg fill=''%23ffffff'' fill-opacity=''0.05''%3E%3Ccircle cx=''30'' cy=''30'' r=''2''/%3E%3C/g%3E%3C/g%3E%3C/svg%3E"); }');
fnd_file.put_line(2, '.navbar h1 { margin: 0; display: inline-block; font-size: 28px; font-weight: 300; letter-spacing: 2px; position: relative; z-index: 1; }');
fnd_file.put_line(2, '.nav-buttons { float: right; margin-top: 8px; position: relative; z-index: 1; }');
fnd_file.put_line(2, '.nav-btn { background: rgba(255,255,255,0.2); color: white; border: 2px solid rgba(255,255,255,0.3); padding: 12px 25px; margin-left: 15px; border-radius: 25px; cursor: pointer; font-size: 14px; font-weight: 500; transition: all 0.3s ease; backdrop-filter: blur(10px); }');
fnd_file.put_line(2, '.nav-btn:hover { background: rgba(255,255,255,0.3); border-color: rgba(255,255,255,0.6); transform: translateY(-2px); box-shadow: 0 5px 15px rgba(0,0,0,0.2); }');
fnd_file.put_line(2, '.nav-btn.active { background: #e74c3c; border-color: #e74c3c; box-shadow: 0 5px 15px rgba(231,76,60,0.4); }');
-- 页面内容样式
fnd_file.put_line(2, '.page { display: none; padding: 40px; }');
fnd_file.put_line(2, '.page.active { display: block; }');
-- 首页样式
fnd_file.put_line(2, '.welcome-section { background: linear-gradient(135deg, #667eea 0%, #764ba2 100%); color: white; padding: 60px 40px; border-radius: 15px; margin-bottom: 40px; text-align: center; position: relative; overflow: hidden; }');
fnd_file.put_line(2, '.welcome-section::before { content: ""; position: absolute; top: -50%; left: -50%; width: 200%; height: 200%; background: radial-gradient(circle, rgba(255,255,255,0.1) 1px, transparent 1px); background-size: 50px 50px; animation: float 20s infinite linear; }');
fnd_file.put_line(2, '@keyframes float { 0% { transform: translate(-50%, -50%) rotate(0deg); } 100% { transform: translate(-50%, -50%) rotate(360deg); } }');
fnd_file.put_line(2, '.welcome-section h2 { font-size: 36px; margin-bottom: 20px; font-weight: 300; letter-spacing: 3px; position: relative; z-index: 1; }');
fnd_file.put_line(2, '.welcome-section p { font-size: 18px; margin-bottom: 15px; opacity: 0.9; position: relative; z-index: 1; }');
-- 修改info-grid为2列布局
fnd_file.put_line(2, '.info-grid { display: grid; grid-template-columns: 1fr 1fr; gap: 30px; margin-top: 40px; }');
fnd_file.put_line(2, '.info-card { background: white; padding: 35px; border-radius: 15px; box-shadow: 0 10px 30px rgba(0,0,0,0.1); border: 1px solid #e0e0e0; transition: all 0.3s ease; position: relative; overflow: hidden; }');
fnd_file.put_line(2, '.info-card::before { content: ""; position: absolute; top: 0; left: 0; width: 100%; height: 4px; background: linear-gradient(90deg, #667eea, #764ba2); }');
fnd_file.put_line(2, '.info-card:hover { transform: translateY(-5px); box-shadow: 0 15px 40px rgba(0,0,0,0.15); }');
fnd_file.put_line(2, '.info-card h3 { color: #2c3e50; margin-top: 0; margin-bottom: 20px; font-size: 22px; font-weight: 600; }');
fnd_file.put_line(2, '.info-card p { color: #666; line-height: 1.8; font-size: 15px; }');
fnd_file.put_line(2, '.quick-actions { text-align: center; margin-top: 50px; }');
fnd_file.put_line(2, '.quick-actions h3 { color: #2c3e50; margin-bottom: 30px; font-size: 24px; font-weight: 300; }');
fnd_file.put_line(2, '.action-btn { background: linear-gradient(135deg, #27ae60, #2ecc71); color: white; border: none; padding: 18px 40px; margin: 0 15px; border-radius: 30px; cursor: pointer; font-size: 16px; font-weight: 500; transition: all 0.3s ease; box-shadow: 0 5px 15px rgba(39,174,96,0.3); }');
fnd_file.put_line(2, '.action-btn:hover { background: linear-gradient(135deg, #229954, #27ae60); transform: translateY(-3px); box-shadow: 0 8px 25px rgba(39,174,96,0.4); }');
-- 表格样式 - 统一背景色
fnd_file.put_line(2, '.table-container { background: white; border-radius: 15px; box-shadow: 0 10px 30px rgba(0,0,0,0.1); overflow: hidden; margin-bottom: 30px; }');
fnd_file.put_line(2, '.table-header { background: linear-gradient(135deg, #34495e, #2c3e50); color: white; padding: 25px 30px; display: flex; justify-content: space-between; align-items: center; }');
fnd_file.put_line(2, '.table-header h3 { margin: 0; font-size: 22px; font-weight: 300; letter-spacing: 1px; }');
fnd_file.put_line(2, '.print-btn { background: linear-gradient(135deg, #e67e22, #f39c12); color: white; border: none; padding: 12px 25px; border-radius: 25px; cursor: pointer; font-size: 14px; font-weight: 500; transition: all 0.3s ease; }');
fnd_file.put_line(2, '.print-btn:hover { background: linear-gradient(135deg, #d35400, #e67e22); transform: translateY(-2px); box-shadow: 0 5px 15px rgba(230,126,34,0.4); }');
fnd_file.put_line(2, '.table-content { padding: 30px; }');
-- 表格样式 - 去掉斑马纹
fnd_file.put_line(2, 'table { border-collapse: collapse; width: 100%; margin-bottom: 20px; background: white; border-radius: 8px; overflow: hidden; box-shadow: 0 2px 10px rgba(0,0,0,0.05); }');
fnd_file.put_line(2, 'th, td { border: 1px solid #e0e0e0; padding: 15px 12px; text-align: left; }');
fnd_file.put_line(2, 'th { background: linear-gradient(135deg, #f8f9fa, #e9ecef); font-weight: 600; text-align: center; color: #2c3e50; font-size: 14px; letter-spacing: 0.5px; }');
fnd_file.put_line(2, 'td { background: white; color: #333; }'); -- 统一背景色
fnd_file.put_line(2, 'tr:hover td { background-color: #f0f8ff; }'); -- 悬停效果
fnd_file.put_line(2, '.number { text-align: right; font-family: "Consolas", "Monaco", monospace; }');
fnd_file.put_line(2, '.center { text-align: center; }');
-- 报表信息样式
fnd_file.put_line(2, '.report-info { background: linear-gradient(135deg, #f8f9fa, #e9ecef); padding: 25px; border-radius: 10px; margin-bottom: 25px; border-left: 5px solid #667eea; }');
fnd_file.put_line(2, '.report-info h4 { color: #2c3e50; margin-bottom: 15px; font-size: 20px; font-weight: 600; }');
fnd_file.put_line(2, '.report-info p { color: #555; margin-bottom: 8px; font-size: 14px; }');
-- 统计信息样式
fnd_file.put_line(2, '.summary-stats { background: linear-gradient(135deg, #f8f9fa, #e9ecef); padding: 25px; border-radius: 10px; margin-top: 25px; }');
fnd_file.put_line(2, '.summary-stats h4 { color: #2c3e50; margin-bottom: 20px; font-size: 18px; font-weight: 600; }');
-- 打印样式 - 隐藏表格标题
fnd_file.put_line(2, '@media print { ');
fnd_file.put_line(2, ' * { -webkit-print-color-adjust: exact !important; color-adjust: exact !important; }');
fnd_file.put_line(2, ' body { background: white !important; margin: 0; padding: 20px; }');
fnd_file.put_line(2, ' .container { box-shadow: none !important; max-width: none !important; }');
fnd_file.put_line(2, ' .navbar, .nav-buttons, .print-btn, .action-btn { display: none !important; }');
fnd_file.put_line(2, ' .page { display: none !important; padding: 0 !important; }');
fnd_file.put_line(2, ' .page.print-active { display: block !important; }');
fnd_file.put_line(2, ' .table-header { display: none !important; }');
fnd_file.put_line(2, ' .table-container { box-shadow: none !important; border-radius: 0 !important; margin-bottom: 0 !important; }');
fnd_file.put_line(2, ' .table-content { padding: 0 !important; }');
fnd_file.put_line(2, ' .welcome-section, .info-grid, .quick-actions { display: none !important; }');
-- 关键的分页控制样式
fnd_file.put_line(2, ' table { ');
fnd_file.put_line(2, ' box-shadow: none !important; ');
fnd_file.put_line(2, ' border-radius: 0 !important; ');
fnd_file.put_line(2, ' page-break-inside: auto !important; ');
fnd_file.put_line(2, ' break-inside: auto !important; ');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' tr { ');
fnd_file.put_line(2, ' page-break-inside: avoid !important; ');
fnd_file.put_line(2, ' break-inside: avoid !important; ');
fnd_file.put_line(2, ' orphans: 2; ');
fnd_file.put_line(2, ' widows: 2; ');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' thead { ');
fnd_file.put_line(2, ' display: table-header-group !important; ');
fnd_file.put_line(2, ' page-break-after: avoid !important; ');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' tbody { ');
fnd_file.put_line(2, ' display: table-row-group !important; ');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' th, td { ');
fnd_file.put_line(2, ' page-break-inside: avoid !important; ');
fnd_file.put_line(2, ' break-inside: avoid !important; ');
fnd_file.put_line(2, ' }');
-- 页面设置
fnd_file.put_line(2, ' @page { ');
fnd_file.put_line(2, ' size: A4; ');
fnd_file.put_line(2, ' margin: 1cm; ');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, '}');
-- @media print 部分添加：
fnd_file.put_line(2, ' .table-footer-container {');
fnd_file.put_line(2, ' page-break-inside: avoid !important;');
fnd_file.put_line(2, ' break-inside: avoid !important;');
fnd_file.put_line(2, ' page-break-before: auto !important;');
fnd_file.put_line(2, ' margin-top: 10px !important;');
fnd_file.put_line(2, ' }');
-- 确保容器内的表格无间隙
fnd_file.put_line(2, ' .table-footer-container table {');
fnd_file.put_line(2, ' margin: 0 !important;');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' .table-footer-container table:first-child {');
fnd_file.put_line(2, ' margin-bottom: 0 !important;');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' .table-footer-container table:last-child {');
fnd_file.put_line(2, ' margin-top: 0 !important;');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, '</style>');
fnd_file.put_line(2, '</head>');
fnd_file.put_line(2, '<body>');
fnd_file.put_line(2, '<div class="container">');
-- 导航栏
fnd_file.put_line(2, '<div class="navbar">');
fnd_file.put_line(2, '<h1>CUX：应收客户对账单（深圳专用）</h1>');
fnd_file.put_line(2, '<div class="nav-buttons">');
fnd_file.put_line(2, '<button class="nav-btn active" onclick="showPage(''home'')">首页</button>');
fnd_file.put_line(2, '<button class="nav-btn" onclick="showPage(''summary'')">汇总表</button>');
fnd_file.put_line(2, '<button class="nav-btn" onclick="showPage(''detail'')">明细表</button>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div style="clear: both;"></div>');
fnd_file.put_line(2, '</div>');
-- 首页
fnd_file.put_line(2, '<div id="home" class="page active">');
fnd_file.put_line(2, '<div class="welcome-section">');
fnd_file.put_line(2, '<h2>欢迎使用五金模式对账报表</h2>');
fnd_file.put_line(2, '<p>查询期间：' || NVL(p_date_begin, '未指定') || ' 至 ' || NVL(p_date_end, '未指定') || '</p>');
fnd_file.put_line(2, '<p>生成时间：' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI:SS') || '</p>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="info-grid">');
fnd_file.put_line(2, '<div class="info-card">');
fnd_file.put_line(2, '<h3>汇总表</h3>');
fnd_file.put_line(2, '<p>提供客户应收账款的汇总信息，包括期初余额、发票金额、收款金额和期末余额等关键财务数据。适合管理层快速了解整体应收状况。</p>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="info-card">');
fnd_file.put_line(2, '<h3>明细表</h3>');
fnd_file.put_line(2, '<p>展示详细的交易记录，包括每笔销售的具体信息：日期、产品、数量、金额等。便于财务人员进行详细的对账工作。</p>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="info-card">');
fnd_file.put_line(2, '<h3>打印功能</h3>');
fnd_file.put_line(2, '<p>每个表格都支持独立打印，打印时会自动隐藏导航元素，确保打印效果清晰美观。支持A4纸张格式。</p>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="info-card">');
fnd_file.put_line(2, '<h3>使用说明</h3>');
fnd_file.put_line(2, '<p>1. 点击导航栏切换不同报表<br>2. 在表格页面点击"打印"按钮进行打印<br>3. 数据实时生成，确保准确性</p>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="quick-actions">');
fnd_file.put_line(2, '<h3>快速操作</h3>');
fnd_file.put_line(2, '<button class="action-btn" onclick="showPage(''summary'')">查看汇总表</button>');
fnd_file.put_line(2, '<button class="action-btn" onclick="showPage(''detail'')">查看明细表</button>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>');
-- 汇总表页面
fnd_file.put_line(2, '<div id="summary" class="page">');
fnd_file.put_line(2, '<div class="table-container">');
fnd_file.put_line(2, '<div class="table-header">');
fnd_file.put_line(2, '<h3>应收客户对账单 - 汇总表</h3>');
fnd_file.put_line(2, '<button class="print-btn" onclick="printTable(''summary'')">打印汇总表</button>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="table-content">');
-- 调用汇总表过程
proc_wujin_mode_summary_sheet(
errbuf => errbuf,
retcode => retcode,
p_set_of_books_id => p_set_of_books_id,
p_org_id => p_org_id,
p_chart_of_accounts_id => p_chart_of_accounts_id,
p_customer_id => p_customer_id,
p_date_begin => p_date_begin,
p_date_end => p_date_end,
p_sale_per_val => p_sale_per_val
);
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>');
-- 明细表页面
fnd_file.put_line(2, '<div id="detail" class="page">');
fnd_file.put_line(2, '<div class="table-container">');
fnd_file.put_line(2, '<div class="table-header">');
fnd_file.put_line(2, '<h3>应收客户对账单 - 明细表</h3>');
fnd_file.put_line(2, '<button class="print-btn" onclick="printTable(''detail'')">打印明细表</button>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '<div class="table-content">');
-- 调用明细表过程
proc_wujin_mode_detail_sheet(
errbuf => errbuf,
retcode => retcode,
p_set_of_books_id => p_set_of_books_id,
p_org_id => p_org_id,
p_chart_of_accounts_id => p_chart_of_accounts_id,
p_customer_id => p_customer_id,
p_date_begin => p_date_begin,
p_date_end => p_date_end,
p_sale_per_val => p_sale_per_val
);
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>');
fnd_file.put_line(2, '</div>'); -- container结束
-- JavaScript - 修复打印问题
fnd_file.put_line(2, '<script>');
fnd_file.put_line(2, 'function showPage(pageId) {');
fnd_file.put_line(2, ' var pages = document.getElementsByClassName("page");');
fnd_file.put_line(2, ' var buttons = document.getElementsByClassName("nav-btn");');
fnd_file.put_line(2, ' for (var i = 0; i < pages.length; i++) {');
fnd_file.put_line(2, ' pages[i].classList.remove("active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' for (var i = 0; i < buttons.length; i++) {');
fnd_file.put_line(2, ' buttons[i].classList.remove("active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' document.getElementById(pageId).classList.add("active");');
fnd_file.put_line(2, ' event.target.classList.add("active");');
fnd_file.put_line(2, '}');
fnd_file.put_line(2, '');
fnd_file.put_line(2, 'function printTable(tableType) {');
fnd_file.put_line(2, ' // 移除所有页面的active类');
fnd_file.put_line(2, ' var pages = document.getElementsByClassName("page");');
fnd_file.put_line(2, ' for (var i = 0; i < pages.length; i++) {');
fnd_file.put_line(2, ' pages[i].classList.remove("active");');
fnd_file.put_line(2, ' pages[i].classList.remove("print-active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' ');
fnd_file.put_line(2, ' // 只给要打印的页面添加print-active类');
fnd_file.put_line(2, ' var targetPage = document.getElementById(tableType);');
fnd_file.put_line(2, ' if (targetPage) {');
fnd_file.put_line(2, ' targetPage.classList.add("print-active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' ');
fnd_file.put_line(2, ' // 执行打印');
fnd_file.put_line(2, ' window.print();');
fnd_file.put_line(2, ' ');
fnd_file.put_line(2, ' // 打印完成后恢复页面状态');
fnd_file.put_line(2, ' setTimeout(function() {');
fnd_file.put_line(2, ' for (var i = 0; i < pages.length; i++) {');
fnd_file.put_line(2, ' pages[i].classList.remove("print-active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' // 恢复当前页面的显示');
fnd_file.put_line(2, ' if (targetPage) {');
fnd_file.put_line(2, ' targetPage.classList.add("active");');
fnd_file.put_line(2, ' }');
fnd_file.put_line(2, ' }, 100);');
fnd_file.put_line(2, '}');
fnd_file.put_line(2, '</script>');
fnd_file.put_line(2, '</body>');
fnd_file.put_line(2, '</html>');
COMMIT;
ELSE
errbuf := '未知的对账模式';
retcode := -1;
END IF;
END;❀表格打印
sql
PROCEDURE proc_taoxihui_mode
(
errbuf OUT VARCHAR2
,retcode OUT NUMBER
-- 默认参数
,p_set_of_books_id IN NUMBER DEFAULT NULL -- 2022 不知道是啥 反正每次有值
,p_org_id IN NUMBER DEFAULT NULL -- 默认职责权限可访问的默认业务实体
,p_chart_of_accounts_id IN NUMBER DEFAULT NULL -- 50388 不知道是啥 反正每次有值
,p_customer_id IN NUMBER DEFAULT NULL -- 3398 不知道是啥 反正每次有值
-- 手录参数
,p_date_begin IN VARCHAR2 DEFAULT NULL -- 开始日期
,p_date_end IN VARCHAR2 DEFAULT NULL -- 结束日期
,p_sale_per_val IN VARCHAR2 DEFAULT NULL -- 销售人员：000013
) IS
/* ┌───────────────────────────────┐
* │ 兼容性参数说明 │
* ├─────────────────-─────────────┤
* │ 部分旧版输入参数已停止使用! │
* │ 为保障兼容性，这些参数的值仍被保留│
* │ 以避免影响现有业务逻辑的正常运行。│
* └───────────────────────────────┘
*/
p_project_flag VARCHAR2(5) := 'N'; --项目模式
P_INCLUDE_INTERFACE_FLAG VARCHAR2(5) := 'N'; --包括已销货未开票数据
p_exclude_mold_trx VARCHAR2(5) := 'N'; --是否排除模具发票
p_WJXS_ou_exclude_other VARCHAR2(5) := 'N'; --销售公司排除非合和出货单
p_accounted_amount_flag VARCHAR2(5) := 'N'; --显示本位币
p_DZD_function_flag VARCHAR2(5) := 'N'; --对账单功能flag
p_output_type VARCHAR2(5) := 'N'; --输出格式 Y：excel N：html
p_multiorg_flag VARCHAR2(5) := 'N'; --多OU查询？
p_zero_include_flag VARCHAR2(5) := 'N'; --包括零额客户
p_active_flag VARCHAR2(5) := 'N'; --仅包括有效客户
p_detail_flag VARCHAR2(5) := 'Y'; --明细对账单
p_combinesite_flag VARCHAR2(5) := 'N'; --合并开单地址
p_accounting_affect_flag VARCHAR2(5) := 'Y'; --仅未结应收款？
p_currency_code VARCHAR2(100) := NULL; -- 例如默认币种
p_site_use_id NUMBER := NULL; -- 默认站点使用ID
p_sales_territory VARCHAR2(100) := NULL; -- 默认销售区域
p_salesrep_id NUMBER := NULL; -- 默认销售代表ID
p_customer_type_code VARCHAR2(100) := NULL; -- 默认客户类型
p_customer_class_code VARCHAR2(100) := NULL; -- 默认客户分类
p_customer_profile_id NUMBER := NULL; -- 默认客户配置文件ID
p_account_flexfield VARCHAR2(100) := NULL; -- 默认会计科目
p_sale_dep_val VARCHAR2(100) := NULL; -- 默认销售部门
p_project_num VARCHAR2(100) := NULL; -- 默认项目编号
p_project_name VARCHAR2(100) := NULL; -- 默认项目名称
-- end --
v_begin_date DATE;
v_end_date DATE;
v_customer_tab t_customer_tab;
v_begin_amount_total NUMBER := 0;
v_invoice_amount_total NUMBER := 0;
v_receipt_amount_total NUMBER := 0;
v_apply_amount_total NUMBER := 0;
v_end_amount_total NUMBER := 0;
v_begin_amount_total_accounted NUMBER := 0;
v_invoice_amount_total_accounted NUMBER := 0;
v_receipt_amount_total_accounted NUMBER := 0;
v_apply_amount_total_accounted NUMBER := 0;
v_end_amount_total_accounted NUMBER := 0;
v_all_act_tab t_all_act_tab;
v_amount_applied NUMBER;
v_quantity_applied NUMBER;
v_act_tab t_act_tab;
v_act_count NUMBER := 0;
v_act_colnum NUMBER := 0;
v_all_act_count NUMBER := 0;
v_all_act_colnum NUMBER := 0;
v_act_begin_amount NUMBER := 0;
v_act_begin_quantity NUMBER := 0;
v_c_index NUMBER := 0;
v_c_count NUMBER := 0;
v_index NUMBER := 0;
v_prev_org_id NUMBER;
v_op_unit VARCHAR2(100) := fnd_profile.value('CUX_OP_UNIT');
x_app_journal_number VARCHAR2(100);
x_tran_journal_number VARCHAR2(100);
v_sale_dep_desc VARCHAR2(240);
v_sale_per_desc VARCHAR2(240);
v_cux_nums number; --特定客户、部门、业务员、项目号，在对账单客户化表中的行数
v_cux_nums_approval number; --特定客户、部门、业务员、项目号，且已审批，在对账单客户化表中的行数
v_CREDIT_LIMIT number; --客户授信额度（固定）
-- 换页逻辑------明细对账单相关
v_page_width NUMBER := 900; --明细对账单的宽度 原为850
v_page_max_lines NUMBER := 46; --限定一页body+bottom的最大行数 原为：47 下移动了一行
v_bottom_lines NUMBER := 27; --明细对账单表尾需要的行数 原为21
v_top_lines NUMBER := 8; --add by jzl 2025.09.11 第一页存在表头 占据18行空间
v_lines_num NUMBER ; --一张对账单body的总行数
v_pages_num NUMBER ; --一张对账单的总页数
v_page_count NUMBER ; --一张对账单的当前页码
v_total_remark_breaks NUMBER := 0; -- 备注换行总数
v_total_lines_space NUMBER := 0; -- 遍历单据 记录迭代单据的占总空间行数
v_current_line_space NUMBER := 0; -- 用于记录单据中每一行数据占据空间行数的变量
v_current_doc_total_space NUMBER := 0; -- 用于记录每个单据总占据空间行数的变量
v_company_name varchar2(240); --对账单上的本方名称
v_tel varchar2(240); --对账单上的本方tel
v_fax varchar2(240); --对账单上的本方fax
detail_balance number; --明细对账单行余额
detail_sale_total number; --明细对账单发货金额合计
detail_receipt_total number; --明细对账单收款金额合计
daxie_cost varchar2(240);--金额大写
v_tern_name varchar2(30);
l_userid VARCHAR2(100); -- add by jzl 2025.09.09 新增申请人名字
-- 购货方联系人和TEL
v_buyer_contact_person VARCHAR2(100);
v_buyer_tel VARCHAR2(100);
-- 临时使用变量
temp NUMBER;
-- 币种
v_transactional_curr_code VARCHAR2(20);
CURSOR cur_customers IS
select a.org_id
,null org_short_name --nvl(org.attribute9 ,org.name)
,null org_print_title --nvl(org.attribute10 ,org.name)
,a.customer_id
,a.customer_number
,a.customer_name
,a.location
,a.site_use_id
,a.territory_province
,a.territory_company
from (
SELECT l.org_id
,null org_short_name --nvl(org.attribute9 ,org.name)
,null org_print_title --nvl(org.attribute10 ,org.name)
,ac.customer_id
,ac.customer_number
,ac.customer_name
,decode(p_combinesite_flag
,'Y', NULL
,l.LOCATION) location
,decode(p_combinesite_flag
,'Y', NULL
,l.site_use_id) site_use_id
,fvv2.description territory_province
,fvv3.description territory_company
FROM cux_customers_v ac
,hz_cust_acct_sites_all ad
,hz_cust_site_uses_all l
,ra_territories t
,hr_operating_units h
,hr_organization_units_v org
--
,fnd_flex_values_vl fvv2
,fnd_flex_value_sets fvs2
,fnd_flex_values_vl fvv3
,fnd_flex_value_sets fvs3
WHERE ac.customer_id = ad.cust_account_id
AND ad.cust_acct_site_id = l.cust_acct_site_id
AND l.territory_id = t.territory_id(+)
AND l.site_use_code = 'BILL_TO'
AND ad.org_id = h.organization_id
AND l.org_id = h.organization_id
--
AND t.segment1 = fvv2.flex_value(+)
AND fvv2.flex_value_set_id(+) = fvs2.flex_value_set_id
AND fvs2.flex_value_set_name(+) = 'HH_COM'
AND t.segment2 = fvv3.flex_value(+)
AND fvv3.flex_value_set_id(+) = fvs3.flex_value_set_id
AND fvs3.flex_value_set_name(+) = 'HH_SALE_DEP'
AND h.set_of_books_id = p_set_of_books_id
AND h.organization_id = org.organization_id
AND l.site_use_id = nvl(p_site_use_id
,l.site_use_id)
AND ac.customer_id = nvl(p_customer_id
,ac.customer_id)
AND nvl(l.primary_salesrep_id
,-3) = nvl(p_salesrep_id
,nvl(l.primary_salesrep_id
,-3))
AND nvl(ac.status
,'A') = decode(p_active_flag
,'Y'
,'A'
,nvl(ac.status
,'A'))
AND nvl(ad.status
,'A') = decode(p_active_flag
,'Y'
,'A'
,nvl(ad.status
,'A'))
AND nvl(l.status
,'A') = decode(p_active_flag
,'Y'
,'A'
,nvl(l.status
,'A'))
AND nvl(ac.customer_type
,'X') = nvl(p_customer_type_code
,nvl(ac.customer_type
,'X'))
AND nvl(ac.customer_class_code
,'X') = nvl(p_customer_class_code
,nvl(ac.customer_class_code
,'X'))
AND nvl(ac.customer_profile_class_id
,-1) = nvl(p_customer_profile_id
,nvl(ac.customer_profile_class_id
,-1))
AND check_flex_combinations('CT#'
,NULL
,l.territory_id
,'ra_territories'
,'territory_id'
,p_sales_territory) = 1
AND check_flex_combinations('GL#'
,p_chart_of_accounts_id
,l.gl_id_rec
,'gl_code_combinations'
,'code_combination_id'
,p_account_flexfield) = 1
AND (p_multiorg_flag = 'Y'
OR p_multiorg_flag = 'N'
AND h.organization_id = p_org_id)
) a
group by a.org_id
,a.customer_id
,a.customer_number
,a.customer_name
,a.location
,a.site_use_id
,a.territory_province
,a.territory_company
ORDER BY a.org_id
,a.customer_number
,a.location;
--获取应收单据涉及的币种、销售部门、销售人员、项目
CURSOR cur_sale --currency_dep_per_project
(
x_org_id NUMBER
,x_customer_id NUMBER
,x_site_use_id NUMBER
,x_end_date DATE
,x_currency_code VARCHAR2
,x_sale_dep VARCHAR2
,x_sale_per VARCHAR2
,x_project_num VARCHAR2
) IS
SELECT
trx.INVOICE_CURRENCY_CODE currency_code
,trx.attribute4 sale_dep_value
,trx.attribute5 sale_per_value
,decode(p_project_flag
,'Y',trx.attribute6
,NULL) project_num
FROM ra_cust_trx_line_gl_dist_all d
,ra_customer_trx_all trx
WHERE trx.customer_trx_id = d.customer_trx_id
AND d.account_class IN ('REC')
AND d.gl_date <= x_end_date
AND trx.bill_to_customer_id = x_customer_id
AND trx.bill_to_site_use_id =
nvl(x_site_use_id ,trx.bill_to_site_use_id)
AND d.org_id = x_org_id
AND trx.org_id = x_org_id
AND trx.invoice_currency_code = nvl(x_currency_code, trx.invoice_currency_code)
AND trx.complete_flag = 'Y'
AND check_affect_flag(trx.cust_trx_type_id
,NULL) = 1
AND (p_sale_dep_val IS NULL OR nvl(trx.attribute4,-999) = p_sale_dep_val)
AND (p_sale_per_val IS NULL OR nvl(trx.attribute5,-999) = p_sale_per_val)
AND (p_project_num IS NULL OR nvl(trx.attribute6,-999) = p_project_num)
GROUP BY trx.INVOICE_CURRENCY_CODE
,trx.attribute4
,trx.attribute5
,decode(p_project_flag
,'Y',trx.attribute6
,NULL)
UNION
SELECT
cash.CURRENCY_CODE currency_code
,cash.attribute1 sale_dep
,cash.attribute2 sale_per
,decode(p_project_flag
,'Y',cash.attribute3
,NULL) project_num
FROM ar_cash_receipt_history_all his
,ar_cash_receipts_all cash
WHERE cash.cash_receipt_id = his.cash_receipt_id
AND his.status IN ('REVERSED'
,'CLEARED'
,'REMITTED'
,'CONFIRMED')
AND nvl(his.current_record_flag
,'Y') = 'Y'
AND his.gl_date <= x_end_date
AND cash.pay_from_customer = x_customer_id
AND cash.customer_site_use_id =
nvl(x_site_use_id ,cash.customer_site_use_id)
AND his.org_id = x_org_id
AND cash.org_id = x_org_id
AND (nvl(his.factor_discount_amount
,0) = 0 OR his.status = 'REVERSED')
AND (his.reversal_created_from <> 'RATE ADJUSTMENT TRIGGER' OR
his.reversal_created_from IS NULL)
AND cash.currency_code = nvl(x_currency_code, cash.currency_code)
AND (p_sale_dep_val IS NULL OR nvl(cash.attribute1,-999) = p_sale_dep_val)
AND (p_sale_per_val IS NULL OR nvl(cash.attribute2,-999) = p_sale_per_val)
AND (p_project_num IS NULL OR nvl(cash.attribute3,-999) = p_project_num)
GROUP BY cash.CURRENCY_CODE
,cash.attribute1
,cash.attribute2
,decode(p_project_flag
,'Y',cash.attribute3
,NULL)
--加取应收接口表销售人员 begin
union
select
rila.currency_code currency_code
,rila.header_attribute4 sale_dep_value
,rila.header_attribute5 sale_per_value
,decode(p_project_flag
,'Y'
,rila.header_attribute6
,null) project_num
from ra_interface_lines_all rila
where rila.interface_status is null
and rila.ship_date_actual <= trunc(x_end_date)+0.99999
and rila.orig_system_bill_customer_id = x_customer_id
and rila.org_id = x_org_id
and rila.currency_code =
nvl(x_currency_code
,rila.currency_code)
and (p_sale_dep_val is null or nvl(rila.header_attribute4,-1) = p_sale_dep_val)
and (p_sale_per_val is null or nvl(rila.header_attribute5,-1) = p_sale_per_val)
and (p_project_num is null or nvl(rila.header_attribute6,-1) = p_project_num)
group by rila.currency_code
,rila.header_attribute4
,rila.header_attribute5
,decode(p_project_flag
,'Y'
,rila.header_attribute6
,null);
TYPE t_table_emp IS TABLE OF cur_sale%ROWTYPE INDEX BY BINARY_INTEGER;
l_table_emp t_table_emp;
-- 收款核销
CURSOR cur_all_applications
(
x_org_id NUMBER
,x_customer_id NUMBER
,x_site_use_id NUMBER
,x_receivables_trx_id NUMBER
,x_item_id VARCHAR2
) IS
SELECT app.attribute1 item_id
,act.name act_name
,act.receivables_trx_id
,nvl(act.attribute7
,'N') quantity_flag
,SUM(app.amount_applied) amount_applied
,SUM(to_number(app.attribute2) * sign(app.amount_applied)) quantity_applied
FROM ar_receivable_applications_all app
,ar_cash_receipts_all cash
,ar_receivables_trx_all act
WHERE app.receivables_trx_id = act.receivables_trx_id
AND app.cash_receipt_id = cash.cash_receipt_id
AND cash.currency_code = NVL(p_currency_code,cash.currency_code)
AND cash.pay_from_customer =
nvl(x_customer_id
,cash.pay_from_customer)
AND cash.customer_site_use_id =
nvl(x_site_use_id
,cash.customer_site_use_id)
AND (nvl(act.attribute3
,'N') = 'Y' OR act.attribute8 = 'HK')
AND app.org_id = x_org_id
AND cash.org_id = x_org_id
AND act.org_id = x_org_id
AND act.receivables_trx_id =
nvl(x_receivables_trx_id
,act.receivables_trx_id)
AND nvl(app.attribute1
,'-1') = nvl(x_item_id
,nvl(app.attribute1
,'-1'))
AND app.gl_date <= v_end_date
GROUP BY app.attribute1
,act.name
,act.receivables_trx_id
,nvl(act.attribute7
,'N')
,get_item_num(app.attribute1)
HAVING SUM(app.amount_applied) <> 0 OR SUM(to_number(app.attribute2) * sign(app.amount_applied)) <> 0
ORDER BY act.name
,get_item_num(app.attribute1)
,nvl(act.attribute7
,'N') DESC;
var_all_applications cur_all_applications%ROWTYPE;
-- 明细对账单行数据。模式1------陶熙慧鱼胶条模式
CURSOR cur_transactions1
( x_org_id NUMBER
,x_customer_id NUMBER
,x_site_use_id NUMBER
,x_currency_code VARCHAR2
,x_sale_dep VARCHAR2
,x_sale_per VARCHAR2
,x_project_num IN VARCHAR2
,x_customer_number IN VARCHAR2
,x_begin_date date
,x_end_date date
) IS
SELECT
日期,
摘要,
物料编码,
产品名称,
规格型号,
单位,
数量,
单价,
价税合计,
收款金额,
应收款余额,
订单号,
备注,
产品米重,
产品长度
FROM(
--1、销货、发票数据
--1.1、已开票发货数据。（1）比对日期是发货日期。（2）不要求发票已完成。
--1.2、接口行数据，不含应税外加的税额。
--1.3、接口行数据，应税外加的税额。
--1.4、非销货发票。
SELECT
ola.actual_shipment_date AS 日期, -- 实际发运日期
MAX(mmt.attribute15) AS 摘要, -- 销货单号（最大值）
ola.ordered_item AS 物料编码, -- 物料编码
msi.attribute19 AS 产品名称, -- 品名（物料属性19）
msi.attribute24 AS 规格型号, -- 规格（物料属性24）
ola.order_quantity_uom AS 单位, -- 单位
decode(ola.line_category_code, 'ORDER', 1, -1) * ola.shipped_quantity AS 数量, -- 实际发运数量
ola.unit_selling_price_per_pqty AS 单价, -- 单价（每包装单位）
decode(ola.line_category_code, 'ORDER', 1, -1) * round(ola.shipped_quantity * ola.unit_selling_price *
CASE
WHEN ola.actual_shipment_date IS NULL THEN NULL
WHEN oha.transactional_curr_code = 'CNY' THEN 1
ELSE get_conversion_rate(oha.transactional_curr_code, ola.actual_shipment_date) END, 2) AS 价税合计,
-- 本位币发运金额
NULL AS 收款金额,
NULL AS 应收款余额, -- 应收款余额
substr(oha.cust_po_number, instr(oha.cust_po_number, '-', 1) + 1) AS 订单号,
oha.attribute1 AS 备注, -- 项目名称
ola.ATTRIBUTE18 AS 产品米重,
msi.UNIT_WEIGHT * 1000 AS 产品长度
FROM
oe_order_headers_all oha,
oe_order_lines_all ola,
hz_cust_accounts hca,
mtl_system_items_b msi,
mtl_material_transactions mmt,
oe_transaction_types_all tta,
oe_transaction_types_tl ttt,
fnd_lookup_values_vl flv,
ra_terms_vl term,
ra_customer_trx_lines_all rctl,
ra_customer_trx_lines_all tax,
ra_customer_trx_all rcta,
jtf_rs_salesreps srp,
gl_code_combinations gcc
WHERE oha.org_id = x_org_id
AND ola.actual_shipment_date >= NVL(x_begin_date, ola.actual_shipment_date)
AND ola.actual_shipment_date < NVL(x_end_date, ola.actual_shipment_date) + 1
AND hca.account_number = x_customer_number
AND hca.cust_account_id = oha.sold_to_org_id
AND oha.header_id = ola.header_id
AND ola.inventory_item_id = msi.inventory_item_id
AND msi.organization_id = ola.ship_from_org_id
AND mmt.trx_source_line_id(+) = ola.line_id
AND mmt.organization_id(+) = ola.ship_from_org_id
AND mmt.inventory_item_id(+) = ola.inventory_item_id
AND mmt.transaction_type_id(+) = decode(ola.line_category_code,
'ORDER',
33,
15)
AND tta.org_id = oha.org_id
AND tta.transaction_type_id = oha.order_type_id
AND tta.transaction_type_code = 'ORDER'
AND tta.transaction_type_id = ttt.transaction_type_id
AND ttt.LANGUAGE = 'ZHS'
AND ola.salesrep_id = srp.salesrep_id(+)
AND srp.org_id(+) = x_org_id
AND srp.gl_id_rec = gcc.code_combination_id
AND flv.lookup_type = 'LINE_FLOW_STATUS'
AND flv.lookup_code = ola.flow_status_code
AND ola.payment_term_id = term.term_id(+)
AND rctl.sales_order(+) = oha.order_number
AND rctl.sales_order_line(+) = ola.line_number
AND rctl.interface_line_attribute12(+) = ola.shipment_number
AND rctl.interface_line_attribute6(+) = ola.line_id
AND rctl.line_type(+) = 'LINE'
AND tax.link_to_cust_trx_line_id(+) = rctl.customer_trx_line_id
AND tax.line_type(+) = 'TAX'
AND rcta.customer_trx_id(+) = rctl.customer_trx_id
--groupby是因为发货物料事务处理可能会多个
GROUP BY ola.line_category_code,
hca.account_number,
hca.account_name,
oha.org_id,
oha.salesrep_id,
oha.ordered_date,
oha.attribute3,
oha.attribute10,
oha.attribute11,
oha.attribute13,
oha.attribute20,
term.NAME,
ola.tax_code,
ttt.NAME,
oha.transactional_curr_code,
oha.attribute14,
oha.attribute1,
oha.attribute2,
oha.order_number,
(ola.line_number || '.' || ola.shipment_number),
ola.ordered_item,
msi.attribute19,
msi.attribute24,
ola.order_quantity_uom,
decode(ola.line_category_code,
'ORDER',
1,
-1) * ola.ordered_quantity,
ola.unit_selling_price_per_pqty,
ola.unit_selling_price,
oha.conversion_rate,
decode(ola.line_category_code,
'ORDER',
1,
-1) * round((ola.unit_selling_price * ola.ordered_quantity),
2),
decode(ola.line_category_code,
'ORDER',
1,
-1) * round((ola.unit_selling_price * decode(oha.transactional_curr_code,
'CNY',
1,
oha.conversion_rate) * ola.ordered_quantity),
2),
flv.description,
ola.request_date,
ola.promise_date,
ola.schedule_ship_date,
ola.actual_shipment_date,
decode(ola.line_category_code,
'ORDER',
1,
-1) * ola.shipped_quantity,
decode(ola.line_category_code,
'ORDER',
1,
-1) * round(ola.unit_selling_price * ola.shipped_quantity,
2),
ola.packing_instructions,
rcta.trx_number,
rctl.extended_amount + nvl(tax.extended_amount,
0),
ola.line_id,
msi.attribute1,
ola.line_number,
ola.attribute3,
ola.orig_sys_document_ref,
ola.orig_sys_line_ref,
oha.cust_po_number,
oha.order_category_code,
mmt.attribute2,
mmt.attribute3,
oha.shipping_instructions,
oha.attribute19,
substr(oha.cust_po_number, instr(oha.cust_po_number, '-', 1) + 1), -- 订单号
oha.attribute1, -- 备注
ola.ATTRIBUTE18, -- 产品米重
msi.UNIT_WEIGHT * 1000, -- 产品长度
decode(ola.line_category_code, 'ORDER', 1, -1) * round(ola.shipped_quantity * ola.unit_selling_price *
CASE
WHEN ola.actual_shipment_date IS NULL THEN NULL
WHEN oha.transactional_curr_code = 'CNY' THEN 1
ELSE get_conversion_rate(oha.transactional_curr_code, ola.actual_shipment_date) END, 2)
UNION ALL
--2、收款数据
--2.1、收款单。无需group by
SELECT
his.GL_DATE AS 日期,
'销售回款' || decode(his.STATUS, 'REVERSED', cash.RECEIPT_NUMBER || '冲销', cash.RECEIPT_NUMBER) as 摘要,
NULL AS 物料编码,
NULL AS 产品名称,
NULL AS 规格型号,
NULL AS 单位,
NULL AS 数量,
NULL AS 单价,
NULL AS 价税合计,
decode(his.STATUS,'REVERSED', his.AMOUNT*-1, his.AMOUNT) 收款金额,
NULL AS 应收款余额,
NULL AS 订单号,
cash.ATTRIBUTE5 AS 备注,
cash.COMMENTS AS 产品米重,
NULL AS 产品长度
FROM ar_cash_receipt_history_all his,
AR_CASH_RECEIPTS_V cash
WHERE cash.CASH_RECEIPT_ID = his.CASH_RECEIPT_ID
AND cash.TYPE = 'CASH'
AND his.STATUS IN ('REVERSED', 'CLEARED', 'CONFIRMED')
AND NVL(his.CURRENT_RECORD_FLAG, 'Y') = 'Y'
AND (NVL(his.FACTOR_DISCOUNT_AMOUNT, 0) = 0 OR his.STATUS = 'REVERSED')
AND (his.REVERSAL_CREATED_FROM <> 'RATE ADJUSTMENT TRIGGER' OR his.REVERSAL_CREATED_FROM IS NULL)
AND his.GL_DATE BETWEEN NVL(x_begin_date, his.GL_DATE) AND NVL(x_end_date, his.GL_DATE)
AND cash.CUSTOMER_ID = x_customer_id
AND cash.CUSTOMER_SITE_USE_ID = NVL(x_site_use_id, cash.CUSTOMER_SITE_USE_ID)
AND his.ORG_ID = x_org_id
AND cash.ORG_ID = x_org_id
AND cash.CURRENCY_CODE = x_currency_code
AND NVL(cash.ATTRIBUTE1, 1) = NVL(x_sale_dep, 1)
AND NVL(cash.ATTRIBUTE2, 1) = NVL(x_sale_per, 1)
AND (cash.ATTRIBUTE3 = x_project_num OR x_project_num IS NULL)
UNION ALL
--减2.2、收款活动（收款注销等）。暂不group by
SELECT app.GL_DATE 日期
,cash.RECEIPT_NUMBER || app.TYPE 摘要
,NULL AS 物料编码
,NULL AS 产品名称
,NULL AS 规格型号
,NULL AS 单位
,NULL AS 数量
,NULL AS 单价
,NULL AS 价税合计
,-app.AMOUNT 收款金额 --加负号
,null 应收款余额
,NULL AS 订单号
,app.COMMENTS 备注
,cash.COMMENTS AS 产品米重
,NULL AS 产品长度
FROM AR_APP_ADJ_V app
,AR_CASH_RECEIPTS_V cash
WHERE 0=0
AND app.cash_receipt_id = cash.cash_receipt_id
AND app.status = 'ACTIVITY'
AND app.gl_date BETWEEN nvl(x_begin_date ,app.gl_date)
AND nvl(x_end_date, app.gl_date)
AND cash.customer_id = x_customer_id
AND cash.customer_site_use_id =
nvl(x_site_use_id ,cash.customer_site_use_id)
AND cash.currency_code = x_currency_code
AND cash.org_id = x_org_id
AND nvl(cash.attribute1, 1) = nvl(x_sale_dep, 1)
AND nvl(cash.attribute2, 1) = nvl(x_sale_per, 1)
AND (cash.attribute3 = x_project_num
OR x_project_num IS NULL)
)
ORDER BY 日期;
curl_trans1 cur_transactions1%rowtype;
BEGIN
--模拟登录
begin
mo_global.set_policy_context('S', fnd_profile.value('ORG_ID'));
end;
v_acounting_affect_flag := p_accounting_affect_flag;
v_begin_date := to_date(p_date_begin, 'yyyymmdd');
v_end_date := to_date(p_date_end, 'yyyymmdd') +0.9999; --end_date必须要加0.999......。因为要和业务日期比较，而发运日期有时分秒。
l_userid := fnd_global.user_id;-- add by jzl 2025.09.09 加入申请人名字
write_reportheader;
fnd_file.put_line(2
,'<table x:str border=0 cellpadding=0 cellspacing=0 width=985 style="border-collapse: collapse;table-layout:fixed;width:630pt">');
fnd_file.put_line(2
,' <col class=xl24 width=50 style="mso-width-source:userset;mso-width-alt:1600; width:38pt">');
fnd_file.put_line(2
,' <col class=xl24 width=180 style="mso-width-source:userset;mso-width-alt:5760; width:111pt">');
fnd_file.put_line(2
,' <col class=xl24 width=65 style="mso-width-source:userset;mso-width-alt:2080; width:40pt">');
fnd_file.put_line(2
,' <col class=xl24 width=40 style="mso-width-source:userset;mso-width-alt:1280; width:20pt">');
fnd_file.put_line(2
,' <col class=xl24 width=60 style="mso-width-source:userset;mso-width-alt:1920; width:45pt">');
fnd_file.put_line(2
,' <col class=xl24 width=90 style="mso-width-source:userset;mso-width-alt:2944; width:45pt">');
fnd_file.put_line(2
,' <col class=xl24 width=90 style="mso-width-source:userset;mso-width-alt:2944; width:69pt">');
fnd_file.put_line(2
,' <col class=xl24 width=90 style="mso-width-source:userset;mso-width-alt:2944; width:69pt">');
fnd_file.put_line(2
,' <col class=xl24 width=60 style="mso-width-source:userset;mso-width-alt:2944; width:69pt">');
fnd_file.put_line(2
,' <col class=xl24 width=90 style="mso-width-source:userset;mso-width-alt:2944; width:69pt">');
fnd_file.put_line(2
,' <tr height=18 style="mso-height-source:userset;height:13.5pt">');
fnd_file.put_line(2 --colspan=12
,' <td colspan=10 align=center height=18 class=xl41 style="">应收客户对帐单</td>');
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,' <tr height=18 style="mso-height-source:userset;height:13.5pt">');
fnd_file.put_line(2
,' <td colspan=2 height=18 class=xl41 style="">报表日期：' ||
to_char(SYSDATE
,'yyyy.mm.dd') || '</td>');
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,' <tr height=18 style="mso-height-source:userset;height:13.5pt">');
fnd_file.put_line(2
,' <td colspan=3 height=18 class=xl41 style="">开始GL日期/发运日期：' ||
to_char(v_begin_date
,'yyyy.mm.dd') || '</td>');
fnd_file.put_line(2
,' <td colspan=5 height=18 class=xl41 style="">截止GL日期/发运日期：' ||
to_char(v_end_date
,'yyyy.mm.dd') || '</td>');
fnd_file.put_line(2
,' <td colspan=2 height=18 class=xl41 style="">币种：' || p_currency_code ||
'</td>');
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,'</table>');
v_c_index := 0;
FOR a IN cur_customers LOOP
fnd_file.put_line(1 --打印日志
,'--[BEGIN]--' || to_char(SYSDATE
,'YYYYMMDD :HH24:MI:SS')
|| '。 客户编码: ' || a.customer_number || ', 客户名称：' || a.customer_name
);
IF v_prev_org_id IS NULL THEN
--第一个组织
fnd_file.put_line(2 --第1个width原值900，第2个width原值742pt+。
,'<table x:str border=0 cellpadding=0 cellspacing=0 width=' ||
to_char(900 + v_all_act_colnum * 80) ||
' style="border-collapse: collapse;table-layout:fixed;width:' ||
to_char(630 + v_all_act_colnum * 60) || 'pt">');
fnd_file.put_line(2
,' <col class=xl24 width=55 style="mso-width-source:userset;mso-width-alt:1600; width:38pt">');
fnd_file.put_line(2 --第1个width原值160，第2个width原值136pt。
,' <col class=xl24 width=160 style="mso-width-source:userset;mso-width-alt:5760; width:111pt">');
fnd_file.put_line(2 --第1个width原值55，第2个width原值49pt。
,' <col class=xl24 width=55 style="mso-width-source:userset;mso-width-alt:2080; width:40pt">');
fnd_file.put_line(2 --第1个width原值35，第2个width原值30pt。
,' <col class=xl24 width=35 style="mso-width-source:userset;mso-width-alt:1280; width:20pt">');
fnd_file.put_line(2
,' <col class=xl24 width=60 style="mso-width-source:userset;mso-width-alt:1920; width:45pt">');
fnd_file.put_line(2
,' <col class=xl24 width=90 style="mso-width-source:userset;mso-width-alt:2944; width:30pt">');--69
IF nvl(p_project_flag
,'N') = 'Y' THEN
fnd_file.put_line(2
,' <col class=xl24 width=100 style="mso-width-source:userset;mso-width-alt:1920; width:50pt">');
fnd_file.put_line(2
,' <col class=xl24 width=100 style="mso-width-source:userset;mso-width-alt:1920; width:50pt">');
END IF;
fnd_file.put_line(2
,' <col class=xl24 width=90 style="mso-width-source:userset;mso-width-alt:2944; width:69pt">');
fnd_file.put_line(2
,' <col class=xl24 width=90 style="mso-width-source:userset;mso-width-alt:2944; width:69pt">');
fnd_file.put_line(2 --第1个width原值60，第2个width原值69pt。
,' <col class=xl24 width=60 style="mso-width-source:userset;mso-width-alt:2944; width:69pt">');
fnd_file.put_line(2
,' <col class=xl24 width=90 style="mso-width-source:userset;mso-width-alt:2944; width:69pt">');
--不显示注销行合计
fnd_file.put_line(1,'不显示注销行合计');
fnd_file.put_line(2
,' <tr class=xl33 height=18 style="mso-height-source:userset;height:13.5pt">');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">客户编码</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">客户名称</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">收单地点</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">币种</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">销售部门</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">业务员</td>');
IF nvl(p_project_flag
,'N') = 'Y' THEN
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">项目编码</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">项目名称</td>');
END IF;
--输出本位币的判断条件：（1）显示本位币Y。且（2）打印明细对账单N。
IF nvl(p_accounted_amount_flag, 'N') = 'N'
or p_detail_flag = 'Y' THEN
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">期初余额</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">发票/发货金额</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">收款金额（含注销）</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">期末余额</td>');
ELSE
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">期初余额原币</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">期初余额本位币</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">发票/发货金额原币</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">发票/发货金额本位币</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">收款金额（含注销）原币</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">收款金额（含注销）本位币</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">期末余额原币</td>');
fnd_file.put_line(2
,' <td class=xl36 style="border-left:none;">期末余额本位币</td>');
END IF;
fnd_file.put_line(2
,' </tr>');
END IF;
v_prev_org_id := a.org_id;
OPEN cur_sale(a.org_id
,a.customer_id
,a.site_use_id
,v_end_date
,p_currency_code
,p_sale_dep_val
,p_sale_per_val
,p_project_num);
LOOP
FETCH cur_sale BULK COLLECT
INTO l_table_emp LIMIT 10000;
FOR i IN 1 .. l_table_emp.COUNT
LOOP
fnd_file.put_line(1
,'[INFO] start cur_sale...');
v_c_index := v_c_index + 1;
v_customer_tab(v_c_index).org_id := a.org_id;
v_customer_tab(v_c_index).org_short_name := a.org_short_name;
v_customer_tab(v_c_index).org_print_title := a.org_print_title;
v_customer_tab(v_c_index).customer_id := a.customer_id;
v_customer_tab(v_c_index).customer_name := a.customer_name;
v_customer_tab(v_c_index).customer_number := a.customer_number;
v_customer_tab(v_c_index).location := a.location;
v_customer_tab(v_c_index).site_use_id := a.site_use_id;
v_customer_tab(v_c_index).territory_province := a.territory_province;
v_customer_tab(v_c_index).territory_company := a.territory_company;
v_customer_tab(v_c_index).currency_code := l_table_emp(i).currency_code;
v_customer_tab(v_c_index).sale_dep_value := l_table_emp(i).sale_dep_value;
v_customer_tab(v_c_index).sale_per_value := l_table_emp(i).sale_per_value;
v_customer_tab(v_c_index).project_num := l_table_emp(i).project_num;
v_customer_tab(v_c_index).begin_amount := get_period_end_amount(
p_org_id => a.org_id
,p_customer_id => a.customer_id
,p_site_use_id => a.site_use_id
,p_end_date => (v_begin_date - 1)
,p_currency_code => v_customer_tab(v_c_index).currency_code --p_currency_code
,p_sale_dep => l_table_emp(i).sale_dep_value
,p_sale_per => l_table_emp(i).sale_per_value
,p_project_num => l_table_emp(i).project_num
--,p_project_name => rec_sale.project_name
,P_INCLUDE_INTERFACE_FLAG => P_INCLUDE_INTERFACE_FLAG
,p_exclude_mold_trx => p_exclude_mold_trx
--'entered'或空参则求原币余额，'accounted'则求本币余额
,P_ACCTD_AMOUNT_FLAG => 'entered'
);
v_customer_tab(v_c_index).invoice_amount := get_period_total_amount(
p_org_id => a.org_id
,p_customer_id => a.customer_id
,p_site_use_id => a.site_use_id
,p_begin_date => v_begin_date
,p_end_date => v_end_date
,p_currency_code => v_customer_tab(v_c_index).currency_code --p_currency_code
--1发票，2收款单，3应收款活动核销（注销等）、核销汇兑损益
,p_mode => 1
,p_receivables_trx_id => NULL
,p_sale_dep => l_table_emp(i).sale_dep_value
,p_sale_per => l_table_emp(i).sale_per_value
,p_project_num => l_table_emp(i).project_num
--,p_project_name => rec_sale.project_name
,P_INCLUDE_INTERFACE_FLAG => P_INCLUDE_INTERFACE_FLAG
,p_exclude_mold_trx => p_exclude_mold_trx
--'entered'或空参则求原币余额，'accounted'则求本币余额
,P_ACCTD_AMOUNT_FLAG => 'entered'
);
v_customer_tab(v_c_index).receipt_amount := get_period_total_amount(
p_org_id => a.org_id
,p_customer_id => a.customer_id
,p_site_use_id => a.site_use_id
,p_begin_date => v_begin_date
,p_end_date => v_end_date
,p_currency_code => v_customer_tab(v_c_index).currency_code --p_currency_code
--1发票，2收款单，3应收款活动核销（注销等）、核销汇兑损益
,p_mode => 2
,p_receivables_trx_id => NULL
,p_sale_dep => l_table_emp(i).sale_dep_value
,p_sale_per => l_table_emp(i).sale_per_value
,p_project_num => l_table_emp(i).project_num
--,p_project_name => rec_sale.project_name
,P_INCLUDE_INTERFACE_FLAG => P_INCLUDE_INTERFACE_FLAG
,p_exclude_mold_trx => p_exclude_mold_trx
--'entered'或空参则求原币余额，'accounted'则求本币余额
,P_ACCTD_AMOUNT_FLAG => 'entered'
);
v_customer_tab(v_c_index).apply_amount := get_period_total_amount(
p_org_id => a.org_id
,p_customer_id => a.customer_id
,p_site_use_id => a.site_use_id
,p_begin_date => v_begin_date
,p_end_date => v_end_date
,p_currency_code => v_customer_tab(v_c_index).currency_code --p_currency_code
--1发票，2收款单，3应收款活动核销（注销等）、核销汇兑损益
,p_mode => 3
,p_receivables_trx_id => NULL
,p_sale_dep => l_table_emp(i).sale_dep_value
,p_sale_per => l_table_emp(i).sale_per_value
,p_project_num => l_table_emp(i).project_num
--,p_project_name => rec_sale.project_name
,P_INCLUDE_INTERFACE_FLAG => P_INCLUDE_INTERFACE_FLAG
,p_exclude_mold_trx => p_exclude_mold_trx
--'entered'或空参则求原币余额，'accounted'则求本币余额
,P_ACCTD_AMOUNT_FLAG => 'entered'
);
v_customer_tab(v_c_index).end_amount := get_period_end_amount(
p_org_id => a.org_id
,p_customer_id => a.customer_id
,p_site_use_id => a.site_use_id
,p_end_date => v_end_date
,p_currency_code => v_customer_tab(v_c_index).currency_code --p_currency_code
,p_sale_dep => l_table_emp(i).sale_dep_value
,p_sale_per => l_table_emp(i).sale_per_value
,p_project_num => l_table_emp(i).project_num
--,p_project_name => rec_sale.project_name
,P_INCLUDE_INTERFACE_FLAG => P_INCLUDE_INTERFACE_FLAG
,p_exclude_mold_trx => p_exclude_mold_trx
--'entered'或空参则求原币余额，'accounted'则求本币余额
,P_ACCTD_AMOUNT_FLAG => 'entered'
);
IF p_zero_include_flag = 'N'
AND nvl(v_customer_tab(v_c_index).begin_amount
,0) = 0
AND nvl(v_customer_tab(v_c_index).invoice_amount
,0) = 0
AND nvl(v_customer_tab(v_c_index).receipt_amount
,0) = 0
AND nvl(v_customer_tab(v_c_index).apply_amount
,0) = 0
AND nvl(v_customer_tab(v_c_index).end_amount
,0) = 0 THEN
--2) level
v_customer_tab(v_c_index).display_flag := 'N';
ELSE
--2) level
v_customer_tab(v_c_index).display_flag := 'Y';
--获取销售部门 销售人员描述
BEGIN
SELECT fvv.description
INTO v_sale_dep_desc
FROM fnd_flex_values_vl fvv
,fnd_flex_value_sets fvs
WHERE fvv.flex_value_set_id = fvs.flex_value_set_id
AND fvs.flex_value_set_name =
cux_ws_cons.glpartyset(fnd_profile.value('GL_SET_OF_BKS_ID')
,'FA_COST_CTR')
AND fvv.flex_value = v_customer_tab(v_c_index).sale_dep_value;
EXCEPTION
WHEN OTHERS THEN
v_sale_dep_desc := NULL;
END;
BEGIN
SELECT fvv.description
INTO v_sale_per_desc
FROM fnd_flex_values_vl fvv
,fnd_flex_value_sets fvs
WHERE fvv.flex_value_set_id = fvs.flex_value_set_id
AND fvs.flex_value_set_name =
cux_ws_cons.glpartyset(fnd_profile.value('GL_SET_OF_BKS_ID')
,'GL_PER')
AND fvv.flex_value = v_customer_tab(v_c_index).sale_per_value;
EXCEPTION
WHEN OTHERS THEN
v_sale_per_desc := NULL;
END;
IF l_table_emp(i).project_num is not null THEN
begin
select fv.DESCRIPTION
into v_customer_tab(v_c_index).project_name
from FND_FLEX_VALUE_SETS fvs
,FND_FLEX_VALUES_VL fv
where fvs.FLEX_VALUE_SET_ID = fv.FLEX_VALUE_SET_ID
and fvs.FLEX_VALUE_SET_NAME = cux_ws_util.get_ProjSet_by_org(p_org_id => p_org_id)
and fv.FLEX_VALUE = l_table_emp(i).project_num
and rownum = 1;
exception
WHEN OTHERS THEN
null;
end;
end IF;
if p_DZD_function_flag = 'Y'then
select COUNT(*)
INTO v_cux_nums
from CUX.CUX_RTDUICHECK_TABLE CRT
WHERE CRT.BEGIN_DATE = v_begin_date
and crt.end_date = trunc(v_end_date)
and crt.org_id = v_customer_tab(v_c_index).org_id
AND CRT.CUSTOMER_NUM = v_customer_tab(v_c_index).customer_number
AND crt.sale_dep_value = v_customer_tab(v_c_index).sale_dep_value
AND crt.sale_per_value = v_customer_tab(v_c_index).sale_per_value
AND nvl(crt.project_num, '-1') = nvl(v_customer_tab(v_c_index).project_num, '-1')
--v_customer_tab(v_c_index).project_name := rec_sale.project_name
;
select COUNT(*)
INTO v_cux_nums_approval
from CUX.CUX_RTDUICHECK_TABLE CRT
WHERE CRT.BEGIN_DATE = v_begin_date
and crt.end_date = v_end_date
and crt.org_id = v_customer_tab(v_c_index).org_id
AND CRT.CUSTOMER_NUM = v_customer_tab(v_c_index).customer_number
AND crt.sale_dep_value = v_customer_tab(v_c_index).sale_dep_value
AND crt.sale_per_value = v_customer_tab(v_c_index).sale_per_value
AND nvl(crt.project_num, '-1') = nvl(v_customer_tab(v_c_index).project_num, '-1')
--v_customer_tab(v_c_index).project_name := rec_sale.project_name
and crt.approval_flag = 'Y'
;
BEGIN
--客户授信额度。不需要判断部门
select nvl(a.amount,0)
into v_CREDIT_LIMIT
from cux_customer_credits_all2 a
where a.org_id = p_org_id
and a.customer_number = v_customer_tab(v_c_index).customer_number
and a.salesperson_code = v_customer_tab(v_c_index).sale_per_value
and nvl(a.end_date,to_date('2099-12-31','yyyy-mm-dd') ) >= trunc(v_end_date)
and nvl(a.start_date,to_date('2000-01-01','yyyy-mm-dd') ) <= trunc(v_end_date) --v_begin_date
;
EXCEPTION
WHEN OTHERS THEN
v_CREDIT_LIMIT := 0;
END;
dbms_output.put_line('v_cux_nums ' || v_cux_nums);--plsql输出数据
--情况1、在cux表没有记录。则往对账单审核表插入数据
IF v_cux_nums = 0 THEN
insert into CUX.CUX_RTDUICHECK_TABLE
(customer_id,
customer_num,
customer_name,
site_use_id,
location,
sale_dep_value,
sale_per_value,
sale_dep_desc,
sale_per_desc,
begin_amount,
invoice_amount,
receipt_amount,
apply_amount,
end_amount,
APPROVAL_FLAG,
SURE_FLAG,
CREDIT_LIMIT,
org_id,
BEGIN_DATE,
end_date,
SHOW_TYPE, --？
SAVE_FLAG,
PRINT_FLAG,
currency,
project_num,
project_name,
created_date
-- created_by
)
values
(v_customer_tab(v_c_index).customer_id,
v_customer_tab(v_c_index).customer_number,
v_customer_tab(v_c_index).customer_name,
v_customer_tab(v_c_index).site_use_id,
v_customer_tab(v_c_index).location,
l_table_emp(i).sale_dep_value,
l_table_emp(i).sale_per_value,
v_sale_dep_desc,
v_sale_per_desc,
nvl(v_customer_tab(v_c_index).begin_amount, 0),
v_customer_tab(v_c_index).invoice_amount,
v_customer_tab(v_c_index).receipt_amount,
v_customer_tab(v_c_index).apply_amount,
v_customer_tab(v_c_index).end_amount,
'N',
'N',
v_CREDIT_LIMIT,
p_org_id,
v_begin_date,
trunc(v_end_date),
'R',
'N',
'N',
v_customer_tab(v_c_index).currency_code,
v_customer_tab(v_c_index).project_num,
v_customer_tab(v_c_index).project_name,
SYSDATE
-- fnd_global.user_id
);
commit;
--情况2、已有记录，且未审批，则update。
--情况3、已有记录，且已审批，则不对数据做操作。
ELSIF v_cux_nums > 0 and v_cux_nums_approval = 0 THEN
UPDATE CUX.CUX_RTDUICHECK_TABLE CRT
SET begin_amount = nvl(v_customer_tab(v_c_index).begin_amount, 0),
invoice_amount = v_customer_tab(v_c_index).invoice_amount,
receipt_amount = v_customer_tab(v_c_index).receipt_amount,
apply_amount = v_customer_tab(v_c_index).apply_amount,
end_amount = v_customer_tab(v_c_index).end_amount,
CREDIT_LIMIT = v_CREDIT_LIMIT
WHERE CRT.BEGIN_DATE = v_begin_date
and crt.end_date = v_end_date
and crt.org_id = v_customer_tab(v_c_index).org_id
AND CRT.CUSTOMER_NUM = v_customer_tab(v_c_index).customer_number
AND crt.sale_dep_value = v_customer_tab(v_c_index).sale_dep_value
AND crt.sale_per_value = v_customer_tab(v_c_index).sale_per_value
AND nvl(crt.project_num, '-1') = nvl(v_customer_tab(v_c_index).project_num, '-1')
;
COMMIT;
END IF;
end if;
fnd_file.put_line(2
,' <tr class=xl33 height=18 style="mso-height-source:userset;height:13.5pt">');
fnd_file.put_line(2
,' <td class=xl25 style="vnd.ms-excel.numberformat:@">' ||
nvl(v_customer_tab(v_c_index).customer_number
,'&' || 'nbsp;') || '</td>');
IF p_detail_flag = 'Y' THEN
fnd_file.put_line(2
,' <td class=xl25><a href="#C' || v_c_index || '">' ||
nvl(v_customer_tab(v_c_index).customer_name
,'&' || 'nbsp;') || '</a></td>');
ELSE
fnd_file.put_line(2
,' <td class=xl25>' ||
nvl(v_customer_tab(v_c_index).customer_name
,'&' || 'nbsp;') || '</td>');
END IF;
fnd_file.put_line(2
,' <td class=xl25>' ||
nvl(v_customer_tab(v_c_index).location
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl25>' ||
nvl(v_customer_tab(v_c_index).currency_code --p_currency_code
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl25>' ||
nvl(v_sale_dep_desc
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl25>' ||
nvl(v_sale_per_desc
,'&' || 'nbsp;') || '</td>');
IF nvl(p_project_flag
,'N') = 'Y' THEN
fnd_file.put_line(2
,' <td class=xl25>' ||
nvl(v_customer_tab(v_c_index).project_num
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl25>' ||
nvl(v_customer_tab(v_c_index).project_name
,'&' || 'nbsp;') || '</td>');
END IF;
IF nvl(p_accounted_amount_flag, 'N') = 'N'
or p_detail_flag = 'Y' THEN
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).begin_amount || '">' ||
nvl(to_char( nvl(v_customer_tab(v_c_index).begin_amount, 0)
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).invoice_amount || '">' ||
nvl(to_char(v_customer_tab(v_c_index).invoice_amount
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
--收款金额和收款注销金额合并显示
v_customer_tab(v_c_index).receipt_amount := nvl(v_customer_tab(v_c_index).receipt_amount,0)- nvl(v_customer_tab(v_c_index).apply_amount,0);
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).receipt_amount || '">' ||
nvl(to_char(v_customer_tab(v_c_index).receipt_amount
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).end_amount || '">' ||
nvl(to_char(v_customer_tab(v_c_index).end_amount
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
ELSE
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).begin_amount || '">' ||
nvl(to_char( nvl(v_customer_tab(v_c_index).begin_amount, 0)
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).begin_amount || '">' ||
nvl(to_char( nvl(v_customer_tab(v_c_index).begin_amount_accounted, 0)
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).invoice_amount || '">' ||
nvl(to_char(v_customer_tab(v_c_index).invoice_amount
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).invoice_amount || '">' ||
nvl(to_char(v_customer_tab(v_c_index).invoice_amount_accounted
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
--收款金额和收款注销金额合并显示
v_customer_tab(v_c_index).receipt_amount := nvl(v_customer_tab(v_c_index).receipt_amount,0)- nvl(v_customer_tab(v_c_index).apply_amount,0);
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).receipt_amount || '">' ||
nvl(to_char(v_customer_tab(v_c_index).receipt_amount
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
v_customer_tab(v_c_index).receipt_amount_accounted :=
nvl(v_customer_tab(v_c_index).receipt_amount_accounted,0)- nvl(v_customer_tab(v_c_index).apply_amount_accounted,0);
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).receipt_amount || '">' ||
nvl(to_char(v_customer_tab(v_c_index).receipt_amount_accounted
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).end_amount || '">' ||
nvl(to_char(v_customer_tab(v_c_index).end_amount
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_customer_tab(v_c_index).end_amount || '">' ||
nvl(to_char(v_customer_tab(v_c_index).end_amount_accounted
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
END IF;
fnd_file.put_line(2
,' </tr>');
v_begin_amount_total := v_begin_amount_total + nvl(v_customer_tab(v_c_index).begin_amount
,0);
v_invoice_amount_total := v_invoice_amount_total +
nvl(v_customer_tab(v_c_index).invoice_amount
,0);
v_receipt_amount_total := v_receipt_amount_total +
nvl(v_customer_tab(v_c_index).receipt_amount
,0);
v_apply_amount_total := v_apply_amount_total + nvl(v_customer_tab(v_c_index).apply_amount
,0);
v_end_amount_total := v_end_amount_total + nvl(v_customer_tab(v_c_index).end_amount
,0);
END IF; --2) level
END LOOP;
EXIT WHEN cur_sale%NOTFOUND;
END LOOP;
CLOSE cur_sale;
--end by zhaojun 2025.06.11
END LOOP; --a
v_c_count := v_c_index;
fnd_file.put_line(2
,' <tr class=xl33 height=18 style="mso-height-source:userset;height:13.5pt">');
IF nvl(p_project_flag
,'N') = 'Y' THEN
fnd_file.put_line(2 --原值10
,' <td colspan=8 class=xl25 style="font-size:11pt">合计</td>');
ELSE
fnd_file.put_line(2 --原值8
,' <td colspan=6 class=xl25 style="font-size:11pt">合计</td>');
END IF;
IF nvl(p_accounted_amount_flag, 'N') = 'N'
or p_detail_flag = 'Y' THEN
fnd_file.put_line(2
,' <td class=xl28 align=center x:num="' || v_begin_amount_total || '">' ||
nvl(to_char(v_begin_amount_total
,'999,999,999,990.99')
,'-') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=center x:num="' || v_invoice_amount_total || '">' ||
nvl(to_char(v_invoice_amount_total
,'999,999,999,990.99')
,'-') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=center x:num="' || v_receipt_amount_total || '">' ||
nvl(to_char(v_receipt_amount_total
,'999,999,999,990.99')
,'-') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=center x:num="' || v_end_amount_total || '">' ||
nvl(to_char(v_end_amount_total
,'999,999,999,990.99')
,'-') || '</td>');
ELSE
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_begin_amount_total || '">' ||
nvl(to_char(v_begin_amount_total
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_begin_amount_total || '">' ||
nvl(to_char(v_begin_amount_total_accounted
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_invoice_amount_total || '">' ||
nvl(to_char(v_invoice_amount_total
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_invoice_amount_total || '">' ||
nvl(to_char(v_invoice_amount_total_accounted
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_receipt_amount_total || '">' ||
nvl(to_char(v_receipt_amount_total
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_receipt_amount_total || '">' ||
nvl(to_char(v_receipt_amount_total_accounted
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_end_amount_total || '">' ||
nvl(to_char(v_end_amount_total
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
fnd_file.put_line(2
,' <td class=xl28 align=right x:num="' || v_end_amount_total || '">' ||
nvl(to_char(v_end_amount_total_accounted
,'999,999,999,990.99')
,'&' || 'nbsp;') || '</td>');
END IF;
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,'</table>');
fnd_file.put_line(2
,'<br clear=all style="page-break-before:always;mso-break-TYPE:section-break">');
--勾选 明细对账单
IF p_detail_flag = 'Y'
AND nvl(v_c_count --?
,0) > 0 THEN
BEGIN
SELECT hou.attribute2, hou.attribute12, hou.attribute13
INTO v_company_name, v_tel, v_fax
FROM HR_ORGANIZATION_UNITS_V hou
WHERE hou.organization_id = p_org_id;
EXCEPTION
WHEN OTHERS THEN
null;
END;
--1) level ;明细报表
fnd_file.put_line(1 --打印日志
,'BEGIN 31：开始打印明细对账单 ' || to_char(SYSDATE
,'YYYYMMDD :HH24:MI:SS'));
FOR v_c_index IN 1 .. v_c_count LOOP
fnd_file.put_line(1 --打印日志
,'BEGIN 32 ' || '对账单表行号:' ||v_c_count || '。'
|| to_char(SYSDATE, 'YYYYMMDD :HH24:MI:SS')
);
IF v_customer_tab(v_c_index).display_flag = 'N' --2) level
THEN
--2) level
NULL;
ELSE
--2) level
BEGIN
SELECT fvv.description
INTO v_sale_per_desc
FROM fnd_flex_values_vl fvv
,fnd_flex_value_sets fvs
WHERE fvv.flex_value_set_id = fvs.flex_value_set_id
AND fvs.flex_value_set_name =
cux_ws_cons.glpartyset(fnd_profile.value('GL_SET_OF_BKS_ID')
,'GL_PER')
AND fvv.flex_value = v_customer_tab(v_c_index).sale_per_value;
EXCEPTION
WHEN OTHERS THEN
v_sale_per_desc := NULL;
END;
-- 清空备注总换行数
v_total_remark_breaks := 0;
-- 当前页数
v_page_count := 0;
v_current_doc_total_space := 0;
-- begin需传入打印表头的参数赋值区域 --
-- 1.购货方的联系人和电话
SELECT temp.attribute2, temp.attribute3
INTO v_buyer_contact_person, v_buyer_tel
FROM (
SELECT hcas.*
FROM HZ_CUST_ACCT_SITES_ALL hcas
WHERE hcas.CUST_ACCOUNT_ID = p_customer_id
AND hcas.ORG_ID = p_org_id
ORDER BY hcas.LAST_UPDATE_DATE DESC
) temp
WHERE ROWNUM = 1;
-- end --
open cur_transactions1(v_customer_tab(v_c_index).org_id
,v_customer_tab(v_c_index).customer_id
,v_customer_tab(v_c_index).site_use_id
,v_customer_tab(v_c_index).currency_code
,v_customer_tab(v_c_index).sale_dep_value --部门
,v_customer_tab(v_c_index).sale_per_value
,v_customer_tab(v_c_index).project_num
,v_customer_tab(v_c_index).customer_number
,v_begin_date
,v_end_date);
LOOP
fetch cur_transactions1 into curl_trans1;
--打印分页、表头。
--分页条件1：单身没有数据。
--分页条件2：单身有数据，行数到v_page_max_lines+1，且未到游标结尾时分页。
fnd_file.put_line(1, '[INFO]查看打印分页、表头:当前参数值：cur_transactions1%ROWCOUNT=' || TO_CHAR(cur_transactions1%ROWCOUNT) ||
', cur_transactions1%FOUND=' || CASE WHEN cur_transactions1%FOUND THEN 'TRUE' ELSE 'FALSE' END ||
', cur_transactions1%ROWCOUNT - 1=' || TO_CHAR(cur_transactions1%ROWCOUNT - 1));
IF cur_transactions1%ROWCOUNT in (0)
OR (cur_transactions1%FOUND --避免总行数是1（等）时，重复分页。
AND cur_transactions1%ROWCOUNT - 1 = 0) --
THEN
fnd_file.put_line(1, '[INFO]进入账单表头打印！');
--页数++
v_page_count := v_page_count + 1;
print_detail_title(v_page_width => v_page_width,
p_page_number => (v_page_count || '/' || v_pages_num),
p_customer_name => v_customer_tab(v_c_index).customer_name,
p_company_name => v_company_name,
p_tel => v_tel,
p_fax => v_fax,
p_sale_per_desc => v_sale_per_desc,
p_customer_number => v_customer_tab(v_c_index).customer_number,
p_account_num => null,
p_created_by => l_userid,
p_created_date => null,
p_body_title_flag => 'Y',
p_bill_header_flag=> 'Y',
p_buyer_contact_person=> v_buyer_contact_person,
p_buyer_tel => v_buyer_tel,
p_summary_sheet_cls=> '1.1'
);
END IF;
--打印期初余额行
IF cur_transactions1%ROWCOUNT in (0) or
cur_transactions1%ROWCOUNT in (1) and cur_transactions1%FOUND THEN
fnd_file.put_line(2 --原值height:13.5pt
,' <tr class=xl33 height=18 style="mso-height-source:userset;height:19pt">');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl39 style="border-right:.5pt solid black;border-left:none;font-size:11pt">期初余额</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26">&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26">&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26">&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26">&' || 'nbsp;</td>');
fnd_file.put_line(2, format_number_cell(v_customer_tab(v_c_index).begin_amount));
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26">&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26">&' || 'nbsp;</td>');
fnd_file.put_line(2
,' </tr>');
detail_balance := nvl(v_customer_tab(v_c_index).begin_amount, 0); --v_balance
detail_sale_total := 0;
detail_receipt_total :=0;
END IF;
exit when cur_transactions1%NOTFOUND;
detail_balance := detail_balance + nvl(curl_trans1.价税合计,0) - nvl(curl_trans1.收款金额,0); --g_cost
detail_sale_total := detail_sale_total + nvl(curl_trans1.价税合计,0); --h_cost
detail_receipt_total := detail_receipt_total + nvl(curl_trans1.收款金额,0); --z_cost
fnd_file.put_line(2
,' <tr class=xl33 style="mso-height-source:userset;">');
--------------------------------------------------------------------------------------------------------------
if p_output_type = 'Y' then
fnd_file.put_line(2
,' <td class=xl29 style="font-size:11pt">' ||
'=T("' ||
nvl(to_char(curl_trans1.日期, 'yyyy-mm-dd')
,'&' || 'nbsp;') || '")'|| '</td>');
else
fnd_file.put_line(2
,' <td class=xl29 style="font-size:11pt">' ||
nvl(to_char(curl_trans1.日期, 'yyyy-mm-dd')
,'&' || 'nbsp;') || '</td>');
end if;
fnd_file.put_line(2, ' <td class=xl29 style="font-size:11pt">' ||
NVL(curl_trans1.摘要, ' ') || '</td>');
fnd_file.put_line(2, ' <td class=xl29 style="font-size:11pt">' ||
NVL(curl_trans1.物料编码, ' ') || '</td>');
fnd_file.put_line(2, ' <td class=xl29 style="font-size:11pt; white-space:normal; word-wrap:break-word;">' ||
NVL (curl_trans1.产品名称, ' ') || '</td>');
fnd_file.put_line(2, ' <td class=xl29 style="font-size:11pt">' ||
NVL(curl_trans1.规格型号, ' ') || '</td>');
fnd_file.put_line(2, ' <td class=xl29 style="font-size:11pt">' ||
NVL(curl_trans1.单位, ' ') || '</td>');
fnd_file.put_line(2, format_number_cell(curl_trans1.数量));
fnd_file.put_line(2, format_number_cell(curl_trans1.单价));
fnd_file.put_line(2, format_number_cell(curl_trans1.价税合计));
fnd_file.put_line(2, format_number_cell(curl_trans1.收款金额));
fnd_file.put_line(2, format_number_cell(detail_balance));
fnd_file.put_line(2, ' <td class=xl29 style="font-size:11pt">' ||
NVL(TO_CHAR(curl_trans1.订单号), ' ') || '</td>');
fnd_file.put_line(2, ' <td class=xl29 style="font-size:11pt">' ||
NVL(curl_trans1.备注, ' ') || '</td>');
-- start 产品米重 可能是CHAR 也可能是 NUMBER 财务说这是正常情况 数字需要使用会计模式打印 不能一起转换为CHAR
BEGIN
temp := TO_NUMBER(curl_trans1.产品米重);
fnd_file.put_line(2, format_number_cell(curl_trans1.产品米重));
EXCEPTION
WHEN VALUE_ERROR THEN
fnd_file.put_line(2, ' <td class=xl29 style="font-size:11pt">' ||
NVL(curl_trans1.产品米重, ' ') || '</td>');
END;
-- end --
fnd_file.put_line(2, format_number_cell(curl_trans1.产品长度));
--------------------------------------------------------------------------------------------------------------
fnd_file.put_line(2
,' </tr>');
END LOOP; --transaction1
close cur_transactions1;
fnd_file.put_line(2 --原值height:13.5pt
,' <tr class=xl33 height=18 style="mso-height-source:userset;height:19pt;font-size:11pt">');
-- 打印空行 X 1
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td colspan=1 class=xl39 style="font-size:11pt">合计</td>');
-- 打印空行 X 6
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
-- 打印值 （使用通用数字格式，避免会计专用格式的影响）
fnd_file.put_line(2, format_number_cell(detail_sale_total));
fnd_file.put_line(2, format_number_cell(detail_receipt_total));
fnd_file.put_line(2, format_number_cell(detail_balance));
-- 打印空行 X 4
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td class=xl26>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,'</table>');
-- end by jzl 2025.09.17
-- 开始表尾容器（不可分割） - 包装所有表尾内容
fnd_file.put_line(2, '<div class="table-footer-container">');
--表尾区域
fnd_file.put_line(2
, '<table width=' || v_page_width || ' border="1" cellspacing="0" bordercolor="black" style="border-collapse:collapse;border-width:0.3mm; ">');
fnd_file.put_line(2 --原值height:13.5pt
,' <tr class=xl33 height=18 style="mso-height-source:userset;height:19pt">');
-- modified by jzl 2025.09.10 修改 对账结果 标题格式
/*fnd_file.put_line(2 --原值colspan=8.5
,' <td width="100%" colspan=8 class=xl39 style="font-size:11pt">对账结果</td>');*/
fnd_file.put_line(2,
' <td width="100%" colspan=15 class=xl39 style="font-size:11pt">' ||
'对' || ' ' || '账' || ' ' || '结' || ' ' || '果' ||
'</td>');
-- end by jzl 2025.09.10
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2 --原值height:100.5pt
,' <tr class=xl33 height=18 style="mso-height-source:userset;height:170pt">');
fnd_file.put_line(2 --原值class=xl28 style="border-top:none;border-left:none"
,' <td width="50%" colspan=8 class=xl29 style="vertical-align:top;font-size:11pt;line-height: 1.545;border-right: none;">
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
1、对账信息相符。
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br> '|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || '
购货单位（公章或财务章）
<br>'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ''|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '
年'|| '&' || 'nbsp;' || ''|| '&' || 'nbsp;' || '月'|| '&' || 'nbsp;' || ''|| '&' || 'nbsp;' || '日
<br> '|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || 'x
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ''|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '||' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
'|| '&' || 'nbsp;' || ' '|| '
经办人：
</td>');
fnd_file.put_line(2 --原值height:23.5pt -> 19pt -> 34pt
,' <tr class=xl33 height=36 style="mso-height-source:userset;height:36pt">');
daxie_cost :=fsc_apinv2tr_rep_pkg.Amt2Chn(abs(detail_balance)); --g_cost
if detail_balance < 0 then
fnd_file.put_line(2 --原值style="border-top:none;border-left:none"
,' <td align="left" colspan=15 class=xl29 style="border-bottom;none;font-size:11pt;line-height:1.6">
'|| '&' || 'nbsp;' || '截止至'||cux_num4chn(v_end_date) || v_customer_tab(v_c_index).customer_name ||
'实欠'||v_company_name||'款项合计￥' ||
nvl(to_char(detail_balance --g_cost
,'999,999,999,990.99')
,'&' || 'nbsp;') || '（大写负'||daxie_cost||')。
<br>
'|| '&' || 'nbsp;' || ' 请贵司收到此对账单7天内给予核对，根据实际对账结果分别填入"对账结果"栏次，盖上贵司公章或财务章回寄至我司。
此对账单作为贵司授信额度评级的依据，请贵司给予重视，谢谢！
</td>');
else
fnd_file.put_line(2 --原值style="border-top:none;border-left:none"
,' <td align="left" colspan=15 class=xl29 style="border-bottom:none;font-size:11pt;line-height:1.6">
'|| '&' || 'nbsp;' || '截止至'||cux_num4chn(v_end_date) || v_customer_tab(v_c_index).customer_name ||
'实欠'||v_company_name||'款项合计￥' ||
nvl(to_char(detail_balance --g_cost
,'999,999,999,990.99')
,'&' || 'nbsp;') || '（大写'||daxie_cost||')。
<br>
'|| '&' || 'nbsp;' || ' 请贵司收到此对账单7天内给予核对，根据实际对账结果分别填入"对账结果"栏次，盖上贵司公章或财务章回寄至我司。
此对账单作为贵司授信额度评级的依据，请贵司给予重视，谢谢！
</td>');
end if;
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,'</table>');
--表尾区域2
fnd_file.put_line(2
,'<table width=' ||v_page_width || ' border="1" cellspacing="0" bordercolor="black" style="border-collapse:collapse;border-width:0mm; ">');
fnd_file.put_line(2 -- 原值class=xl33。height:13.5pt -> 15pt
,' <tr height=18 style="mso-height-source:userset;height:19pt">');
fnd_file.put_line(2 -- 原值class=xl41
,' <td colspan=15 class=xl24 style="font-size:11pt">
备注：1、表格中数据不允许作改动，如对数据有异议，经双方协商后重新出具对账单。
</td>');
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2 --原值class=xl33。height:13.5pt ->15pt
,' <tr height=18 style="mso-height-source:userset;height:19pt">');
fnd_file.put_line(2 -- 原值class=xl41
,' <td colspan=8 class=xl24 style="font-size:11pt">
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || '
2、以双方签定的对账单为结算货款的凭据，上述所列单据号的送货单据也可作为结算凭据。
</td>');
fnd_file.put_line(2
,' </tr>');
begin
select rt.name
into v_tern_name
from hz_cust_site_uses_all hcsu
,RA_TERMS_VL rt
where hcsu.PAYMENT_TERM_ID = rt.TERM_ID
and hcsu.SITE_USE_ID = v_customer_tab(v_c_index).site_use_id;
EXCEPTION
WHEN OTHERS THEN
null;
end;
fnd_file.put_line(2
,'</table>');
--fnd_file.put_line(2 --空1行。原值两行。
--,'<br>');
END IF; --2) level
END LOOP; --a
END IF; --1) level
fnd_file.put_line(1 --打印日志
,'BEGIN 62 ' || to_char(SYSDATE
,'YYYYMMDD :HH24:MI:SS'));
-- 结束表尾容器 - 确保所有表尾内容都在容器内
fnd_file.put_line(2, '</div>');
-- end --
fnd_file.put_line(2
,'</body>');
fnd_file.put_line(2
,'</html>');
END;❀表结构打印
sql
PROCEDURE print_detail_title
(
v_page_width NUMBER
,p_page_number VARCHAR2
,p_customer_name VARCHAR2
,p_company_name VARCHAR2
,p_tel VARCHAR2
,p_fax VARCHAR2
,p_sale_per_desc VARCHAR2
,p_customer_number VARCHAR2
,p_account_num VARCHAR2 --对账单号
,p_created_by NUMBER
,p_created_date DATE
,p_body_title_flag VARCHAR2 --Y则打印表格表头列名
,p_bill_header_flag VARCHAR2 --Y则打印表格上方的单头
-- add by jzl 2025.09.23 新增参数
,p_buyer_contact_person VARCHAR2
,p_buyer_tel VARCHAR2
,p_summary_sheet_cls VARCHAR2
-- end --
) IS
-- 变量名字声明区域
v_created_by_name VARCHAR2(100);
v_request_create_date DATE;
BEGIN
-- 添加全局样式
fnd_file.put_line(2, '<style type="text/css">');
fnd_file.put_line(2, 'body { margin: 0; padding: 0; }');
fnd_file.put_line(2, 'table { border-collapse: collapse; width: 100%; margin: 0 auto; }');
fnd_file.put_line(2, 'td, th { vertical-align: middle; word-wrap: break-word; word-break: break-all; white-space: normal; padding: 2px; }');
fnd_file.put_line(2, '/* 表格内容居中 */');
fnd_file.put_line(2, '.data-table td, .data-table th { text-align: center !important; }');
fnd_file.put_line(2, '/* 表头和表尾保持原有对齐方式（通常是左对齐） */');
fnd_file.put_line(2, '.header-table td, .header-table th, .footer-table td, .footer-table th { text-align: left !important; }');
fnd_file.put_line(2, '/* 数字列特殊处理 */');
fnd_file.put_line(2, '.xl28 { text-align: center !important; }');
fnd_file.put_line(2, '</style>');
--换页
fnd_file.put_line(2 ,
'<table><tr height=1 style="page-break-before:always;mso-height-source:userset;height:1pt"></table>');
--单头
fnd_file.put_line(2
,'<table class="header-table" width=' ||v_page_width || ' border="1" cellspacing="0" bordercolor="white" style="border-collapse:collapse;border-width:0mm; ">');
--增加colgroup
fnd_file.put_line(2
,' <col class=xl24 width=10%>');
fnd_file.put_line(2
,' <col class=xl24 width=12%>');
fnd_file.put_line(2
,' <col class=xl24 width=12%>');
fnd_file.put_line(2
,' <col class=xl24 width=12%>');
fnd_file.put_line(2
,' <col class=xl24 width=12%>');
fnd_file.put_line(2
,' <col class=xl24 width=12%>');
fnd_file.put_line(2
,' <col class=xl24 width=15%>');
fnd_file.put_line(2
,' <col class=xl24 width=15%>');
-- add by jzl 2025.09.17 业务往来对账单标题上面增加一行空白行
fnd_file.put_line(2, '<tr><td colspan="8"> </td></tr>');
-- end by jzl 2025.09.17
-- add by jzl 2025.09.17 增加取消单头打印
IF p_bill_header_flag IN ('Y', 'y') THEN
IF p_summary_sheet_cls = '0.1' THEN
-- 空3列
fnd_file.put_line(2
,' <td>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td>&' || 'nbsp;</td>');
----------------------
fnd_file.put_line(2,
'<td colspan="3" style="text-align:center"><font size="5"><strong>业务往来对账单</strong></font></td>');
ELSIF p_summary_sheet_cls = '0.2' THEN
-- 空5列
fnd_file.put_line(2
,' <td>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td>&' || 'nbsp;</td>');
----------------------
fnd_file.put_line(2,
'<td colspan="8" style="text-align:center"><font size="5"><strong>业务往来对账单</strong></font></td>');
ELSIF p_summary_sheet_cls = '1.1' THEN
-- 空8列
fnd_file.put_line(2
,' <td>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td>&' || 'nbsp;</td>');
fnd_file.put_line(2
,' <td>&' || 'nbsp;</td>');
----------------------
fnd_file.put_line(2,
'<td colspan="8" style="text-align:center"><font size="5"><strong>业务往来对账单</strong></font></td>');
ELSE
fnd_file.put_line(2,
'<td colspan="8" style="text-align:center"><font size="5"><strong></strong></font></td>');
END IF;
ELSE
fnd_file.put_line(2,
'<td colspan="8" style="text-align:center"><font size="5"><strong></strong></font></td>');
END IF;
-- end by jzl 2025.09.17
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,' <tr align="left" height=18 style="mso-height-source:userset;height:19pt">');
IF p_bill_header_flag IN ('Y', 'y') THEN-- add by jzl 2025.09.17 增加取消单头打印
-- 购货方实现逻辑
fnd_file.put_line(2
,' <td colspan=5 class=xl41 style="height:13.5pt;font-size:11pt" >
购货方：' || p_customer_name ||
'</td>');
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,' <tr height=18 style="mso-height-source:userset;height:19pt">');
fnd_file.put_line(2
,' <td colspan=3 class=xl41 style="font-size:11pt">
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' 联系人:'|| p_buyer_contact_person ||' </td>');
fnd_file.put_line(2
,' <td colspan=3 class=xl41 style="font-size:11pt">TEL:'|| p_buyer_tel ||' </td>');
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,' <tr height=18 style="mso-height-source:userset;height:19pt">');
-- 销货方实现逻辑
fnd_file.put_line(2
,' <td colspan=5 class=xl41 style="font-size:11pt">销货方：'||p_company_name||'</td>');
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,' <tr align="left" height=18 style="mso-height-source:userset;height:19pt">');
-- add by jzl 2025.09.09 jzl 新增获取申请人名字
IF p_created_by IS NOT NULL THEN
BEGIN
SELECT NVL(u.DESCRIPTION, u.USER_NAME)
INTO v_created_by_name
FROM fnd_user u
WHERE u.USER_ID = p_created_by;
fnd_file.put_line(1, '[INFO]:成功找到用户 ' || p_created_by || ' 的描述信息，时间：' || to_char(SYSDATE,'YYYYMMDD :HH24:MI:SS'));
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_created_by_name := '';
fnd_file.put_line(1, '[WARING]:未找到用户 ' || p_created_by || ' 的描述信息，时间：' || to_char(SYSDATE,'YYYYMMDD :HH24:MI:SS'));
WHEN OTHERS THEN
v_created_by_name := '';
fnd_file.put_line(1, '[ERROR]:查询用户 ' || p_created_by || ' 时发生异常，错误信息：' || SQLERRM || '，时间：' || to_char(SYSDATE,'YYYYMMDD :HH24:MI:SS'));
END;
ELSE
v_created_by_name := '';
END IF;
-- end by jzl 2025.09.09 jzl
fnd_file.put_line(2
,' <td colspan=3 class=xl41 style="font-size:11pt">
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' 制单人:' || v_created_by_name ||' </td>');
fnd_file.put_line(2
,' <td colspan=3 class=xl41 style="font-size:11pt">TEL：' || p_tel ||' </td>');
fnd_file.put_line(2
,' <td colspan=3 class=xl41 style="font-size:11pt">邮箱:' || p_fax || '</td>');
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,' <tr align="left" height=18 style="mso-height-source:userset;height:19pt">');
fnd_file.put_line(2
,' <td colspan=3 class=xl41 style="font-size:11pt">
'|| '&' || 'nbsp;' || ' '|| '&' || 'nbsp;' || ' ' || '业务员：' ||
p_sale_per_desc || '</td>');
fnd_file.put_line(2
,' </tr>');
fnd_file.put_line(2
,'</table>');
END IF;
-- 单身标题行 表格列名
IF p_body_title_flag IN ('Y', 'y') THEN
IF p_summary_sheet_cls = '0.1' THEN
fnd_file.put_line(2, '<table class="data-table" width="' || v_page_width || '" border="1" cellspacing="0" bordercolor="black" style="border-collapse:collapse;border-width:0.3mm;">');
fnd_file.put_line(2, ' <tr class="xl33" style="mso-height-source:userset;">');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="font-size:11pt">日期</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">摘要</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">发货金额</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">收款金额</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">应收款余额</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">备注</td>');
fnd_file.put_line(2, ' </tr>');
ELSIF p_summary_sheet_cls = '0.2' THEN
fnd_file.put_line(2, '<table class="data-table" width="' || v_page_width || '" border="1" cellspacing="0" bordercolor="black" style="border-collapse:collapse;border-width:0.3mm;">');
fnd_file.put_line(2, ' <tr class="xl33" style="mso-height-source:userset;">');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="font-size:11pt">日期</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">摘要</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">物料编码</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">产品名称</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">规格型号</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">单位</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">数量</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">单价</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">金额</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">订单号</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">备注</td>');
fnd_file.put_line(2, ' <td width="4%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">产品米重</td>');
fnd_file.put_line(2, ' <td width="4%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">产品长度</td>');
fnd_file.put_line(2, ' </tr>');
ELSIF p_summary_sheet_cls = '1.1' THEN
fnd_file.put_line(2, '<table class="data-table" width="' || v_page_width || '" border="1" cellspacing="0" bordercolor="black" style="border-collapse:collapse;border-width:0.3mm;">');
fnd_file.put_line(2, ' <tr class="xl33" style="mso-height-source:userset;">');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="font-size:11pt">日期</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">摘要</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">物料编码</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">产品名称</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">规格型号</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">单位</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">数量</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">单价</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">价税合计</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">收款金额</td>');
fnd_file.put_line(2, ' <td width="6%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">应收款余额</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">订单号</td>');
fnd_file.put_line(2, ' <td width="8%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">备注</td>');
fnd_file.put_line(2, ' <td width="4%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">产品米重</td>');
fnd_file.put_line(2, ' <td width="4%" class="xl36" style="border-bottom:.5pt solid black;font-size:11pt">产品长度</td>');
fnd_file.put_line(2, ' </tr>');
ELSE
fnd_file.put_line(2, '<table class="data-table" width="' || v_page_width || '" border="1" cellspacing="0" bordercolor="black" style="border-collapse:collapse;border-width:0.3mm;">');
fnd_file.put_line(2, ' <tr class="xl33" style="mso-height-source:userset;">');
fnd_file.put_line(2, ' </tr>');
END IF;
END IF;
END print_detail_title;