Templat data pengelolaan kredit dan penagihan

/*
This configuration outlines the setup for multiple NetSuite Saved Searches. 
Each search is designed to extract a specific activity for the event log.
Create one Saved Search in the NetSuite UI for each block defined below.
*/

// Saved Search 1: Invoice Generated
{
  "SavedSearchName": "ProcessMind - Invoice Generated",
  "RecordType": "Transaction",
  "Criteria": [
    {"Field": "Type", "Operator": "is", "Value": "Invoice"},
    {"Field": "Main Line", "Operator": "is", "Value": "true"},
    {"Field": "Date Created", "Operator": "within", "Value": "[Your Date Range]"}
  ],
  "Results": [
    {"Column": "ActivityName", "Field": "Formula (Text)", "Formula": "'Invoice Generated'"},
    {"Column": "EventTime", "Field": "Date Created"},
    {"Column": "InvoiceNumber", "Field": "Document Number"},
    {"Column": "CustomerId", "Field": "Customer : Internal ID"},
    {"Column": "CustomerSegment", "Field": "Customer : Category"},
    {"Column": "InvoiceAmount", "Field": "Amount (Gross)"},
    {"Column": "DueDate", "Field": "Due Date"},
    {"Column": "InvoiceStatus", "Field": "Status"}
  ]
}

// Saved Search 2: Invoice Sent to Customer
{
  "SavedSearchName": "ProcessMind - Invoice Sent",
  "RecordType": "Transaction",
  "Criteria": [
    {"Field": "Type", "Operator": "is", "Value": "Invoice"},
    {"Field": "Main Line", "Operator": "is", "Value": "true"},
    {"Field": "System Notes : Field", "Operator": "is", "Value": "E-mailed"},
    {"Field": "System Notes : Date", "Operator": "within", "Value": "[Your Date Range]"}
  ],
  "Results": [
    {"Column": "ActivityName", "Field": "Formula (Text)", "Formula": "'Invoice Sent to Customer'"},
    {"Column": "EventTime", "Field": "System Notes : Date"},
    {"Column": "InvoiceNumber", "Field": "Document Number"},
    {"Column": "CustomerId", "Field": "Customer : Internal ID"},
    {"Column": "CustomerSegment", "Field": "Customer : Category"},
    {"Column": "InvoiceAmount", "Field": "Amount (Gross)"},
    {"Column": "DueDate", "Field": "Due Date"},
    {"Column": "InvoiceStatus", "Field": "Status"}
  ]
}

// Note: 'Payment Due Date Passed' is a calculated event, generated post-export.

// Saved Search 3: Overdue Reminder Sent & Dunning Procedure Initiated
{
  "SavedSearchName": "ProcessMind - Dunning Events",
  "RecordType": "Transaction",
  "Criteria": [
    {"Field": "Type", "Operator": "is", "Value": "Invoice"},
    {"Field": "Main Line", "Operator": "is", "Value": "true"},
    {"Field": "System Notes : Field", "Operator": "is", "Value": "[Your Dunning Status Field]"},
    {"Field": "System Notes : Date", "Operator": "within", "Value": "[Your Date Range]"}
  ],
  "Results": [
    {"Column": "ActivityName", "Field": "Formula (Text)", "Formula": "CASE WHEN {systemnotes.newvalue} = '[Your First Dunning Level]' THEN 'Dunning Procedure Initiated' ELSE 'Overdue Reminder Sent' END"},
    {"Column": "EventTime", "Field": "System Notes : Date"},
    {"Column": "InvoiceNumber", "Field": "Document Number"},
    {"Column": "CustomerId", "Field": "Customer : Internal ID"},
    {"Column": "CustomerSegment", "Field": "Customer : Category"},
    {"Column": "InvoiceAmount", "Field": "Amount (Gross)"},
    {"Column": "DueDate", "Field": "Due Date"},
    {"Column": "InvoiceStatus", "Field": "Status"}
  ]
}

// Saved Search 4: Collection Call Made
{
  "SavedSearchName": "ProcessMind - Collection Calls",
  "RecordType": "Phone Call",
  "Criteria": [
    {"Field": "Transaction : Type", "Operator": "is", "Value": "Invoice"},
    {"Field": "Date", "Operator": "within", "Value": "[Your Date Range]"}
  ],
  "Results": [
    {"Column": "ActivityName", "Field": "Formula (Text)", "Formula": "'Collection Call Made'"},
    {"Column": "EventTime", "Field": "Completed Date"},
    {"Column": "InvoiceNumber", "Field": "Transaction : Document Number"},
    {"Column": "CustomerId", "Field": "Company : Internal ID"},
    {"Column": "CustomerSegment", "Field": "Company : Category"},
    {"Column": "InvoiceAmount", "Field": "Transaction : Amount (Gross)"},
    {"Column": "DueDate", "Field": "Transaction : Due Date"},
    {"Column": "InvoiceStatus", "Field": "Transaction : Status"}
  ]
}

// Saved Search 5: Dispute Registered & Resolved
{
  "SavedSearchName": "ProcessMind - Dispute Status",
  "RecordType": "Transaction",
  "Criteria": [
    {"Field": "Type", "Operator": "is", "Value": "Invoice"},
    {"Field": "Main Line", "Operator": "is", "Value": "true"},
    {"Field": "System Notes : Field", "Operator": "is", "Value": "Status"},
    {"Field": "System Notes : Date", "Operator": "within", "Value": "[Your Date Range]"}
  ],
  "Results": [
    {"Column": "ActivityName", "Field": "Formula (Text)", "Formula": "CASE WHEN {systemnotes.newvalue} LIKE '%Disputed%' THEN 'Dispute Registered' WHEN {systemnotes.oldvalue} LIKE '%Disputed%' THEN 'Dispute Resolved' ELSE NULL END"},
    {"Column": "EventTime", "Field": "System Notes : Date"},
    {"Column": "InvoiceNumber", "Field": "Document Number"},
    {"Column": "CustomerId", "Field": "Customer : Internal ID"},
    {"Column": "CustomerSegment", "Field": "Customer : Category"},
    {"Column": "InvoiceAmount", "Field": "Amount (Gross)"},
    {"Column": "DueDate", "Field": "Due Date"},
    {"Column": "InvoiceStatus", "Field": "Status"}
  ]
}

// Saved Search 6: Credit Memo Issued
{
  "SavedSearchName": "ProcessMind - Credit Memos",
  "RecordType": "Transaction",
  "Criteria": [
    {"Field": "Type", "Operator": "is", "Value": "Credit Memo"},
    {"Field": "Main Line", "Operator": "is", "Value": "true"},
    {"Field": "Applied To Transaction : Type", "Operator": "is", "Value": "Invoice"},
    {"Field": "Date Created", "Operator": "within", "Value": "[Your Date Range]"}
  ],
  "Results": [
    {"Column": "ActivityName", "Field": "Formula (Text)", "Formula": "'Credit Memo Issued'"},
    {"Column": "EventTime", "Field": "Date Created"},
    {"Column": "InvoiceNumber", "Field": "Applied To Transaction : Document Number"},
    {"Column": "CustomerId", "Field": "Customer : Internal ID"},
    {"Column": "CustomerSegment", "Field": "Customer : Category"},
    {"Column": "InvoiceAmount", "Field": "Applied To Transaction : Amount (Gross)"},
    {"Column": "DueDate", "Field": "Applied To Transaction : Due Date"},
    {"Column": "InvoiceStatus", "Field": "Applied To Transaction : Status"}
  ]
}

// Saved Search 7: Payment Received & Posted
{
  "SavedSearchName": "ProcessMind - Payments",
  "RecordType": "Transaction",
  "Criteria": [
    {"Field": "Type", "Operator": "is", "Value": "Customer Payment"},
    {"Field": "Main Line", "Operator": "is", "Value": "true"},
    {"Field": "Date Created", "Operator": "within", "Value": "[Your Date Range]"}
  ],
  "Results": [
    // For 'Payment Received'
    {"Column": "ActivityName", "Field": "Formula (Text)", "Formula": "'Payment Received'"},
    {"Column": "EventTime", "Field": "Date Created"},
    // For 'Payment Posted'
    // {"Column": "ActivityName", "Field": "Formula (Text)", "Formula": "'Payment Posted'"},
    // {"Column": "EventTime", "Field": "[Your GL Posting Date Field]"},
    {"Column": "InvoiceNumber", "Field": "Applied To Transaction : Document Number"},
    {"Column": "CustomerId", "Field": "Customer : Internal ID"},
    {"Column": "CustomerSegment", "Field": "Customer : Category"},
    {"Column": "InvoiceAmount", "Field": "Applied To Transaction : Amount (Gross)"},
    {"Column": "DueDate", "Field": "Applied To Transaction : Due Date"},
    {"Column": "InvoiceStatus", "Field": "Applied To Transaction : Status"}
  ]
}

// Saved Search 8: Invoice Settled
{
  "SavedSearchName": "ProcessMind - Invoice Settled",
  "RecordType": "Transaction",
  "Criteria": [
    {"Field": "Type", "Operator": "is", "Value": "Invoice"},
    {"Field": "Main Line", "Operator": "is", "Value": "true"},
    {"Field": "Status", "Operator": "anyof", "Value": "Paid In Full"},
    {"Field": "Date Closed", "Operator": "within", "Value": "[Your Date Range]"}
  ],
  "Results": [
    {"Column": "ActivityName", "Field": "Formula (Text)", "Formula": "'Invoice Settled'"},
    {"Column": "EventTime", "Field": "Date Closed"},
    {"Column": "InvoiceNumber", "Field": "Document Number"},
    {"Column": "CustomerId", "Field": "Customer : Internal ID"},
    {"Column": "CustomerSegment", "Field": "Customer : Category"},
    {"Column": "InvoiceAmount", "Field": "Amount (Gross)"},
    {"Column": "DueDate", "Field": "Due Date"},
    {"Column": "InvoiceStatus", "Field": "Status"}
  ]
}

// Saved Search 9: Invoice Written Off
{
  "SavedSearchName": "ProcessMind - Invoice Written Off",
  "RecordType": "Transaction",
  "Criteria": [
    {"Field": "Type", "Operator": "is", "Value": "Journal Entry"},
    {"Field": "Main Line", "Operator": "is", "Value": "false"},
    {"Field": "Account", "Operator": "is", "Value": "[Your Bad Debt Expense Account]"},
    {"Field": "Date Created", "Operator": "within", "Value": "[Your Date Range]"}
  ],
  "Results": [
    {"Column": "ActivityName", "Field": "Formula (Text)", "Formula": "'Invoice Written Off'"},
    {"Column": "EventTime", "Field": "Date Created"},
    {"Column": "InvoiceNumber", "Field": "Created From : Document Number"},
    {"Column": "CustomerId", "Field": "Created From : Customer : Internal ID"},
    {"Column": "CustomerSegment", "Field": "Created From : Customer : Category"},
    {"Column": "InvoiceAmount", "Field": "Created From : Amount (Gross)"},
    {"Column": "DueDate", "Field": "Created From : Due Date"},
    {"Column": "InvoiceStatus", "Field": "Created From : Status"}
  ]
}

import pandas as pd
import requests
from requests_oauthlib import OAuth1
import json
import os
from datetime import datetime

class=class="hl-string">"hl-comment"># --- Configuration Settings ---
class=class="hl-string">"hl-comment"># Best practice: Use environment variables instead of hardcoding credentials.
NS_ACCOUNT = os.getenv(class="hl-string">'NS_ACCOUNT', class="hl-string">'[Your NetSuite Account ID]')
NS_CONSUMER_KEY = os.getenv(class="hl-string">'NS_CONSUMER_KEY', class="hl-string">'[Your Consumer Key]')
NS_CONSUMER_SECRET = os.getenv(class="hl-string">'NS_CONSUMER_SECRET', class="hl-string">'[Your Consumer Secret]')
NS_TOKEN_ID = os.getenv(class="hl-string">'NS_TOKEN_ID', class="hl-string">'[Your Token ID]')
NS_TOKEN_SECRET = os.getenv(class="hl-string">'NS_TOKEN_SECRET', class="hl-string">'[Your Token Secret]')

class=class="hl-string">"hl-comment"># The base URL for the SuiteQL API endpoint
BASE_URL = fclass="hl-string">"https://{NS_ACCOUNT.replace('_', '-')}.suitetalk.api.netsuite.com/services/rest/query/v1/suiteql"

class=class="hl-string">"hl-comment"># --- Extraction Parameters ---
START_DATE = class="hl-string">'2023-01-01'
END_DATE = class="hl-string">'2023-12-31'
SUBSIDIARY_ID = class="hl-string">'[Your Subsidiary ID]' class=class="hl-string">"hl-comment"># Optional: filter by subsidiary

def execute_suiteql(query):
    class="hl-string">"""Executes a SuiteQL query and handles pagination."""
    all_results = []
    offset = 0
    limit = 1000

    oauth = OAuth1(
        client_key=NS_CONSUMER_KEY,
        client_secret=NS_CONSUMER_SECRET,
        resource_owner_key=NS_TOKEN_ID,
        resource_owner_secret=NS_TOKEN_SECRET,
        realm=NS_ACCOUNT,
        signature_method=class="hl-string">'HMAC-SHA256'
    )

    headers = {
        class="hl-string">'Content-Type': class="hl-string">'application/json',
        class="hl-string">'Prefer': class="hl-string">'transient'
    }

    while True:
        paginated_query = fclass="hl-string">"{query} LIMIT {limit} OFFSET {offset}"
        payload = json.dumps({class="hl-string">'q': paginated_query})
        
        try:
            response = requests.post(BASE_URL, headers=headers, data=payload, auth=oauth)
            response.raise_for_status() class=class="hl-string">"hl-comment"># Raise an exception for bad status codes
            data = response.json()
            
            if not data.get(class="hl-string">'items'):
                break

            all_results.extend(data[class="hl-string">'items'])
            
            if not data.get(class="hl-string">'hasMore', False):
                break
            
            offset += limit

        except requests.exceptions.RequestException as e:
            print(fclass="hl-string">"API Request Error: {e}")
            print(fclass="hl-string">"Response body: {response.text if 'response' in locals() else 'No response'}")
            return None

    return all_results

def main():
    class="hl-string">"""Main function to orchestrate the data extraction."""
    all_events = []
    
    class=class="hl-string">"hl-comment"># Common WHERE clause for filtering by date and subsidiary
    common_filter = fclass="hl-string">"WHERE T.trandate BETWEEN TO_DATE('{START_DATE}', 'YYYY-MM-DD') AND TO_DATE('{END_DATE}', 'YYYY-MM-DD') AND T.subsidiary = {SUBSIDIARY_ID}"

    class=class="hl-string">"hl-comment"># --- Define SuiteQL Queries for Each Activity ---
    queries = {
        class="hl-string">'Invoice Generated': fclass="hl-string">"""
            SELECT
                T.tranid AS InvoiceNumber,
                'Invoice Generated' AS ActivityName,
                TO_CHAR(T.createdDate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                T.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                T.foreignTotal AS InvoiceAmount,
                TO_CHAR(T.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(T.status) AS InvoiceStatus
            FROM
                Transaction AS T
                INNER JOIN Customer AS C ON T.entity = C.id
            WHERE
                T.type = 'CustInvc' AND T.voided = 'F' AND T.subsidiary = {SUBSIDIARY_ID}
                AND T.createdDate BETWEEN TO_TIMESTAMP('{START_DATE} 00:00:00', 'YYYY-MM-DD HH24:MI:SS') AND TO_TIMESTAMP('{END_DATE} 23:59:59', 'YYYY-MM-DD HH24:MI:SS')
        """,
        class="hl-string">'Invoice Sent to Customer': fclass="hl-string">"""
            SELECT
                T.tranid AS InvoiceNumber,
                'Invoice Sent to Customer' AS ActivityName,
                TO_CHAR(M.messageDate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                T.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                T.foreignTotal AS InvoiceAmount,
                TO_CHAR(T.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(T.status) AS InvoiceStatus
            FROM
                Transaction AS T
                INNER JOIN Message AS M ON T.id = M.transaction
                INNER JOIN Customer AS C ON T.entity = C.id
            WHERE
                T.type = 'CustInvc' AND T.voided = 'F' AND T.subsidiary = {SUBSIDIARY_ID}
                AND M.emailed = 'T' AND M.messageDate IS NOT NULL
                AND M.messageDate BETWEEN TO_TIMESTAMP('{START_DATE} 00:00:00', 'YYYY-MM-DD HH24:MI:SS') AND TO_TIMESTAMP('{END_DATE} 23:59:59', 'YYYY-MM-DD HH24:MI:SS')
        """,
        class="hl-string">'Payment Due Date Passed': fclass="hl-string">"""
            SELECT
                T.tranid AS InvoiceNumber,
                'Payment Due Date Passed' AS ActivityName,
                TO_CHAR(T.dueDate, 'YYYY-MM-DD"T"23:59:59"Z"') AS EventTime,
                T.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                T.foreignTotal AS InvoiceAmount,
                TO_CHAR(T.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(T.status) AS InvoiceStatus
            FROM
                Transaction AS T
                INNER JOIN Customer AS C ON T.entity = C.id
            WHERE
                T.type = 'CustInvc' AND T.voided = 'F' AND T.subsidiary = {SUBSIDIARY_ID}
                AND T.status NOT IN ('CustInvc:B', 'CustInvc:A') -- Not Paid In Full or Pending Approval
                AND T.dueDate < CURRENT_DATE
                AND T.dueDate BETWEEN TO_DATE('{START_DATE}', 'YYYY-MM-DD') AND TO_DATE('{END_DATE}', 'YYYY-MM-DD')
        """,
        class="hl-string">'Overdue Reminder Sent': fclass="hl-string">"""
            SELECT
                T.tranid AS InvoiceNumber,
                'Overdue Reminder Sent' AS ActivityName,
                TO_CHAR(M.messageDate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                T.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                T.foreignTotal AS InvoiceAmount,
                TO_CHAR(T.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(T.status) AS InvoiceStatus
            FROM
                Transaction AS T
                INNER JOIN Message AS M ON T.id = M.transaction
                INNER JOIN Customer AS C ON T.entity = C.id
            WHERE
                T.type = 'CustInvc' AND T.voided = 'F' AND T.subsidiary = {SUBSIDIARY_ID}
                AND (M.subject LIKE '%Overdue%' OR M.subject LIKE '%Reminder%')
                AND M.messageDate BETWEEN TO_TIMESTAMP('{START_DATE} 00:00:00', 'YYYY-MM-DD HH24:MI:SS') AND TO_TIMESTAMP('{END_DATE} 23:59:59', 'YYYY-MM-DD HH24:MI:SS')
        """,
        class="hl-string">'Dunning Procedure Initiated': fclass="hl-string">"""
            SELECT
                T.tranid AS InvoiceNumber,
                'Dunning Procedure Initiated' AS ActivityName,
                TO_CHAR(SL.systemNoteDate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                T.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                T.foreignTotal AS InvoiceAmount,
                TO_CHAR(T.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(T.status) AS InvoiceStatus
            FROM
                Transaction AS T
                INNER JOIN Customer AS C ON T.entity = C.id
                INNER JOIN SystemNote AS SL ON T.id = SL.recordId
            WHERE
                T.type = 'CustInvc' AND T.voided = 'F' AND T.subsidiary = {SUBSIDIARY_ID}
                AND SL.field = 'custbody_dunning_level' AND SL.oldValue IS NULL -- Assumes a custom dunning level field
                AND SL.systemNoteDate BETWEEN TO_TIMESTAMP('{START_DATE} 00:00:00', 'YYYY-MM-DD HH24:MI:SS') AND TO_TIMESTAMP('{END_DATE} 23:59:59', 'YYYY-MM-DD HH24:MI:SS')
        """,
        class="hl-string">'Collection Call Made': fclass="hl-string">"""
            SELECT
                T.tranid AS InvoiceNumber,
                'Collection Call Made' AS ActivityName,
                TO_CHAR(PC.completedDate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                T.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                T.foreignTotal AS InvoiceAmount,
                TO_CHAR(T.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(T.status) AS InvoiceStatus
            FROM
                PhoneCall AS PC
                INNER JOIN Transaction AS T ON PC.transaction = T.id
                INNER JOIN Customer AS C ON T.entity = C.id
            WHERE
                T.type = 'CustInvc' AND T.voided = 'F' AND T.subsidiary = {SUBSIDIARY_ID}
                AND PC.title LIKE '%Collection%'
                AND PC.completedDate BETWEEN TO_TIMESTAMP('{START_DATE} 00:00:00', 'YYYY-MM-DD HH24:MI:SS') AND TO_TIMESTAMP('{END_DATE} 23:59:59', 'YYYY-MM-DD HH24:MI:SS')
        """,
        class="hl-string">'Dispute Registered': fclass="hl-string">"""
            SELECT
                T.tranid AS InvoiceNumber,
                'Dispute Registered' AS ActivityName,
                TO_CHAR(T.custbody_dispute_date, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                T.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                T.foreignTotal AS InvoiceAmount,
                TO_CHAR(T.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(T.status) AS InvoiceStatus
            FROM
                Transaction AS T
                INNER JOIN Customer AS C ON T.entity = C.id
            WHERE
                T.type = 'CustInvc' AND T.voided = 'F' AND T.subsidiary = {SUBSIDIARY_ID}
                AND T.custbody_dispute_date IS NOT NULL -- Assumes a custom dispute date field
                AND T.custbody_dispute_date BETWEEN TO_DATE('{START_DATE}', 'YYYY-MM-DD') AND TO_DATE('{END_DATE}', 'YYYY-MM-DD')
        """,
        class="hl-string">'Dispute Resolved': fclass="hl-string">"""
            SELECT
                T.tranid AS InvoiceNumber,
                'Dispute Resolved' AS ActivityName,
                TO_CHAR(T.custbody_dispute_resolved_date, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                T.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                T.foreignTotal AS InvoiceAmount,
                TO_CHAR(T.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(T.status) AS InvoiceStatus
            FROM
                Transaction AS T
                INNER JOIN Customer AS C ON T.entity = C.id
            WHERE
                T.type = 'CustInvc' AND T.voided = 'F' AND T.subsidiary = {SUBSIDIARY_ID}
                AND T.custbody_dispute_resolved_date IS NOT NULL -- Assumes a custom dispute resolved date field
                AND T.custbody_dispute_resolved_date BETWEEN TO_DATE('{START_DATE}', 'YYYY-MM-DD') AND TO_DATE('{END_DATE}', 'YYYY-MM-DD')
        """,
        class="hl-string">'Credit Memo Issued': fclass="hl-string">"""
            SELECT
                AppliedTo.tranid AS InvoiceNumber,
                'Credit Memo Issued' AS ActivityName,
                TO_CHAR(CM.trandate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                CM.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                AppliedTo.foreignTotal AS InvoiceAmount,
                TO_CHAR(AppliedTo.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(AppliedTo.status) AS InvoiceStatus
            FROM
                Transaction AS CM
                INNER JOIN TransactionLine AS CML ON CM.id = CML.transaction
                INNER JOIN Transaction AS AppliedTo ON CML.appliedToTransaction = AppliedTo.id
                INNER JOIN Customer AS C ON CM.entity = C.id
            WHERE
                CM.type = 'CustCred' AND CM.voided = 'F' AND CM.subsidiary = {SUBSIDIARY_ID}
                AND AppliedTo.type = 'CustInvc'
                AND CM.trandate BETWEEN TO_DATE('{START_DATE}', 'YYYY-MM-DD') AND TO_DATE('{END_DATE}', 'YYYY-MM-DD')
        """,
        class="hl-string">'Payment Received': fclass="hl-string">"""
            SELECT
                AppliedTo.tranid AS InvoiceNumber,
                'Payment Received' AS ActivityName,
                TO_CHAR(P.trandate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                P.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                AppliedTo.foreignTotal AS InvoiceAmount,
                TO_CHAR(AppliedTo.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(AppliedTo.status) AS InvoiceStatus
            FROM
                Transaction AS P
                INNER JOIN TransactionLine AS PL ON P.id = PL.transaction
                INNER JOIN Transaction AS AppliedTo ON PL.appliedToTransaction = AppliedTo.id
                INNER JOIN Customer AS C ON P.entity = C.id
            WHERE
                P.type = 'CustPymt' AND P.voided = 'F' AND P.subsidiary = {SUBSIDIARY_ID}
                AND AppliedTo.type = 'CustInvc'
                AND P.trandate BETWEEN TO_DATE('{START_DATE}', 'YYYY-MM-DD') AND TO_DATE('{END_DATE}', 'YYYY-MM-DD')
        """,
        class="hl-string">'Payment Posted': fclass="hl-string">"""
            SELECT
                AppliedTo.tranid AS InvoiceNumber,
                'Payment Posted' AS ActivityName,
                TO_CHAR(P.postingdate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                P.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                AppliedTo.foreignTotal AS InvoiceAmount,
                TO_CHAR(AppliedTo.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(AppliedTo.status) AS InvoiceStatus
            FROM
                Transaction AS P
                INNER JOIN TransactionLine AS PL ON P.id = PL.transaction
                INNER JOIN Transaction AS AppliedTo ON PL.appliedToTransaction = AppliedTo.id
                INNER JOIN Customer AS C ON P.entity = C.id
            WHERE
                P.type = 'CustPymt' AND P.voided = 'F' AND P.subsidiary = {SUBSIDIARY_ID}
                AND AppliedTo.type = 'CustInvc' AND P.posting = 'T'
                AND P.postingdate BETWEEN TO_DATE('{START_DATE}', 'YYYY-MM-DD') AND TO_DATE('{END_DATE}', 'YYYY-MM-DD')
        """,
        class="hl-string">'Invoice Settled': fclass="hl-string">"""
            SELECT
                T.tranid AS InvoiceNumber,
                'Invoice Settled' AS ActivityName,
                TO_CHAR(T.lastModifiedDate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                T.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                T.foreignTotal AS InvoiceAmount,
                TO_CHAR(T.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(T.status) AS InvoiceStatus
            FROM
                Transaction AS T
                INNER JOIN Customer AS C ON T.entity = C.id
            WHERE
                T.type = 'CustInvc' AND T.voided = 'F' AND T.subsidiary = {SUBSIDIARY_ID}
                AND T.status = 'CustInvc:B' -- Paid In Full
                AND T.lastModifiedDate BETWEEN TO_TIMESTAMP('{START_DATE} 00:00:00', 'YYYY-MM-DD HH24:MI:SS') AND TO_TIMESTAMP('{END_DATE} 23:59:59', 'YYYY-MM-DD HH24:MI:SS')
        """,
        class="hl-string">'Invoice Written Off': fclass="hl-string">"""
            SELECT
                AppliedTo.tranid AS InvoiceNumber,
                'Invoice Written Off' AS ActivityName,
                TO_CHAR(JE.trandate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') AS EventTime,
                JE.entity AS CustomerId,
                BUILTIN.DF(C.category) AS CustomerSegment,
                AppliedTo.foreignTotal AS InvoiceAmount,
                TO_CHAR(AppliedTo.dueDate, 'YYYY-MM-DD') AS DueDate,
                BUILTIN.DF(AppliedTo.status) AS InvoiceStatus
            FROM
                Transaction AS JE
                INNER JOIN TransactionLine AS JEL ON JE.id = JEL.transaction
                INNER JOIN Transaction AS AppliedTo ON JEL.entity = AppliedTo.entity -- A best-effort link via customer
                INNER JOIN Customer AS C ON JE.entity = C.id
            WHERE
                JE.type = 'Journal' AND JE.voided = 'F' AND JE.subsidiary = {SUBSIDIARY_ID}
                AND JEL.account = [Your Bad Debt Expense Account ID] -- Must configure your specific bad debt account
                AND AppliedTo.type = 'CustInvc'
                AND JE.trandate BETWEEN TO_DATE('{START_DATE}', 'YYYY-MM-DD') AND TO_DATE('{END_DATE}', 'YYYY-MM-DD')
                AND (JEL.memo LIKE '%' || AppliedTo.tranid || '%' OR JE.memo LIKE '%' || AppliedTo.tranid || '%') -- Best-effort link by checking memo field for invoice number
        """
    }

    for activity, query in queries.items():
        print(fclass="hl-string">"Fetching data for: {activity}...")
        results = execute_suiteql(query)
        if results:
            all_events.extend(results)
            print(fclass="hl-string">"  ...found {len(results)} events.")
        else:
            print(fclass="hl-string">"  ...no events found or an error occurred.")

    if not all_events:
        print(class="hl-string">"No data extracted. Exiting.")
        return

    class=class="hl-string">"hl-comment"># Convert to pandas DataFrame
    df = pd.DataFrame(all_events)
    
    class=class="hl-string">"hl-comment"># Data Cleaning and Formatting
    df[class="hl-string">'EventTime'] = pd.to_datetime(df[class="hl-string">'EventTime'])
    df = df.sort_values(by=[class="hl-string">'InvoiceNumber', class="hl-string">'EventTime'])
    df.rename(columns=lambda c: class="hl-string">''.join(c.split()).capitalize(), inplace=True)
    
    class=class="hl-string">"hl-comment"># Save to CSV
    output_file = class="hl-string">'netsuite_collections_event_log.csv'
    df.to_csv(output_file, index=False)
    print(fclass="hl-string">"\nEvent log successfully saved to {output_file}")

if __name__ == class="hl-string">'__main__':
    main()