|
|
|
|
@@ -4,7 +4,7 @@ use DBI;
|
|
|
|
|
use Data::Dumper;
|
|
|
|
|
use File::Copy;
|
|
|
|
|
|
|
|
|
|
my $use_ir = 0;
|
|
|
|
|
my $use_ir = 1;
|
|
|
|
|
|
|
|
|
|
# Internally adjust all numbers coming from the database to
|
|
|
|
|
# be in inches. Not necessary to go to this detail, but the
|
|
|
|
|
@@ -482,8 +482,10 @@ foreach $row (@$result) {
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# For compatibility, while deciding on account names
|
|
|
|
|
$newdb{'lookup'}{'account'}{'Cash'}
|
|
|
|
|
= $newdb{'lookup'}{'account'}{'Till'};
|
|
|
|
|
if (!defined $newdb{'lookup'}{'account'}{'Cash'}) {
|
|
|
|
|
$newdb{'lookup'}{'account'}{'Cash'}
|
|
|
|
|
= $newdb{'lookup'}{'account'}{'Till'};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$newdb{'lookup'}{'charge_type'} = {};
|
|
|
|
|
$newdb{'lookup'}{'charge_type'}{'Rent'} =
|
|
|
|
|
@@ -510,9 +512,9 @@ $newdb{'lookup'}{'payment_type'} = {};
|
|
|
|
|
$newdb{'lookup'}{'payment_type'}{1}
|
|
|
|
|
= { 'name' => 'Cash', 'account_name' => 'Cash', 'monetary_type' => $newdb{'lookup'}{'monetary_type'}{'Cash'} };
|
|
|
|
|
$newdb{'lookup'}{'payment_type'}{2}
|
|
|
|
|
= { 'name' => 'Check', 'account_name' => 'Cash', 'monetary_type' => $newdb{'lookup'}{'monetary_type'}{'Check'} };
|
|
|
|
|
= { 'name' => 'Check', 'account_name' => 'Check', 'monetary_type' => $newdb{'lookup'}{'monetary_type'}{'Check'} };
|
|
|
|
|
$newdb{'lookup'}{'payment_type'}{3}
|
|
|
|
|
= { 'name' => 'Money Order', 'account_name' => 'Cash', 'monetary_type' => $newdb{'lookup'}{'monetary_type'}{'Money Order'} };
|
|
|
|
|
= { 'name' => 'Money Order', 'account_name' => 'Money Order', 'monetary_type' => $newdb{'lookup'}{'monetary_type'}{'Money Order'} };
|
|
|
|
|
$newdb{'lookup'}{'payment_type'}{4}
|
|
|
|
|
= { 'name' => 'ACH', 'account_name' => 'Bank', 'monetary_type' => $newdb{'lookup'}{'monetary_type'}{'ACH'} };
|
|
|
|
|
$newdb{'lookup'}{'payment_type'}{12}
|
|
|
|
|
@@ -702,7 +704,7 @@ foreach $row (@{query($sdbh, $query)}) {
|
|
|
|
|
addRow('customers',
|
|
|
|
|
{ 'name' => "$row->{'LastName'}, $row->{'FirstName'}",
|
|
|
|
|
'primary_contact_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'id'},
|
|
|
|
|
'account_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'account_id'} });
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
$newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'customer_id'} =
|
|
|
|
|
$newdb{'tables'}{'customers'}{'autoid'};
|
|
|
|
|
@@ -832,7 +834,6 @@ foreach $row (@{query($sdbh, $query)}) {
|
|
|
|
|
'lease_type_id' => $newdb{'tables'}{'lease_types'}{'autoid'},
|
|
|
|
|
'unit_id' => $newdb{'lookup'}{'unit'}{$row->{'UnitID'}}{'id'},
|
|
|
|
|
'customer_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'customer_id'},
|
|
|
|
|
'account_id' => $newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'account_id'},
|
|
|
|
|
'lease_date' => datefmt($row->{'DateIn'}),
|
|
|
|
|
'movein_date' => datefmt($row->{'DateIn'}),
|
|
|
|
|
'moveout_date' => datefmt($row->{'DateOut'}),
|
|
|
|
|
@@ -1047,53 +1048,67 @@ foreach $row (@{query($sdbh, $query)})
|
|
|
|
|
= $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'monetary_source_id'};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'credit_ledger_id'}
|
|
|
|
|
= $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'ledger_id'};
|
|
|
|
|
|
|
|
|
|
$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'debit_ledger_id'}
|
|
|
|
|
= $newdb{'lookup'}{'account'}{$newdb{'lookup'}{'payment'}{
|
|
|
|
|
$row->{'PaymentID'}}{'account_name'}
|
|
|
|
|
= $newdb{'lookup'}{'account'}{
|
|
|
|
|
$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'account_name'}
|
|
|
|
|
}{'ledger_id'};
|
|
|
|
|
|
|
|
|
|
if ($use_ir) {
|
|
|
|
|
addRow('ledger_entries',
|
|
|
|
|
{ 'monetary_source_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'monetary_source_id'},
|
|
|
|
|
{ #'monetary_source_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'monetary_source_id'},
|
|
|
|
|
'transaction_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{'tx'},
|
|
|
|
|
'debit_ledger_id' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'debit_ledger_id'},
|
|
|
|
|
'credit_ledger_id' => $newdb{'lookup'}{'account'}{'Receipt'}{'ledger_id'},
|
|
|
|
|
'debit_ledger_id' => $newdb{'lookup'}{'account'}{'Receipt'}{'ledger_id'},
|
|
|
|
|
'credit_ledger_id' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'credit_ledger_id'},
|
|
|
|
|
'customer_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'customer_id'},
|
|
|
|
|
'lease_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'lease_id'},
|
|
|
|
|
'amount' => $row->{'PaymentAmount'},
|
|
|
|
|
'comment' => "Receipt: $row->{'ReceiptNum'}; Charge: $row->{'ChargeID'}; Payment: $row->{'PaymentID'}" });
|
|
|
|
|
$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'ledger_entry_id'}
|
|
|
|
|
'comment' => "Receipt: $row->{'ReceiptNum'}; " });
|
|
|
|
|
$newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'ledger_entry_id'}
|
|
|
|
|
= $newdb{'tables'}{'ledger_entries'}{'autoid'};
|
|
|
|
|
$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'debit_ledger_id'}
|
|
|
|
|
$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'credit_ledger_id'}
|
|
|
|
|
= $newdb{'lookup'}{'account'}{'Receipt'}{'ledger_id'};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# Sitelink splits one physical payment into multiple "payments" to match each charge
|
|
|
|
|
# This is kludgy, but for our cases at least, brings those pseudo-payments back into
|
|
|
|
|
# a single one. It presumes that there is only one PaymentType per receipt.
|
|
|
|
|
if (!$newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'ledger_entry_id'}) {
|
|
|
|
|
if (!$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'ledger_entry_id'}) {
|
|
|
|
|
addRow('ledger_entries',
|
|
|
|
|
{ 'monetary_source_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'monetary_source_id'},
|
|
|
|
|
'transaction_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{'tx'},
|
|
|
|
|
'debit_ledger_id' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'debit_ledger_id'},
|
|
|
|
|
'credit_ledger_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'ledger_id'},
|
|
|
|
|
'credit_ledger_id' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'credit_ledger_id'},
|
|
|
|
|
'customer_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'customer_id'},
|
|
|
|
|
#'lease_id' => $newdb{'lookup'}{'charge'}{$row->{'ChargeID'}}{'lease_id'},
|
|
|
|
|
'amount' => 0,
|
|
|
|
|
'comment' => "Receipt: $row->{'ReceiptNum'}; " });
|
|
|
|
|
'comment' => "Receipt: $row->{'ReceiptNum'}; Charge: $row->{'ChargeID'}; Payment: $row->{'PaymentID'}" });
|
|
|
|
|
|
|
|
|
|
$newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'ledger_entry_id'}
|
|
|
|
|
$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'ledger_entry_id'}
|
|
|
|
|
= $newdb{'tables'}{'ledger_entries'}{'autoid'};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$newdb{'tables'}{'ledger_entries'}{'rows'}[
|
|
|
|
|
$newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'ledger_entry_id'}
|
|
|
|
|
$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'ledger_entry_id'}
|
|
|
|
|
]{'amount'} += $row->{'PaymentAmount'};
|
|
|
|
|
|
|
|
|
|
$newdb{'tables'}{'ledger_entries'}{'rows'}[
|
|
|
|
|
$newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'ledger_entry_id'}
|
|
|
|
|
$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'ledger_entry_id'}
|
|
|
|
|
]{'comment'} .= 'P:'.$row->{'PaymentID'} . '->C:' . $row->{'ChargeID'} . '; ';
|
|
|
|
|
|
|
|
|
|
if ($use_ir) {
|
|
|
|
|
# Reconcile the invoice account. Since this is from the perspective
|
|
|
|
|
# of the invoice, the entry crediting the charge is the debit, and
|
|
|
|
|
# the entry debiting A/R is the credit.
|
|
|
|
|
addRow('reconciliations',
|
|
|
|
|
{ 'debit_ledger_entry_id' => $newdb{'lookup'}{'receipt'}{$row->{'ReceiptNum'}}{$row->{'PaymentType'}}{'ledger_entry_id'},
|
|
|
|
|
'credit_ledger_entry_id' => $newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'ledger_entry_id'},
|
|
|
|
|
'amount' => $row->{'PaymentAmount'},
|
|
|
|
|
});
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# OK, now that the receipt is reconciled, update
|
|
|
|
|
# payment to reference the true ledger_entry_id
|
|
|
|
|
$newdb{'lookup'}{'payment'}{$row->{'PaymentID'}}{'ledger_entry_id'}
|
|
|
|
|
@@ -1127,83 +1142,83 @@ my %fake =
|
|
|
|
|
('customer_id' => 4,
|
|
|
|
|
'ledger_id' => 4,
|
|
|
|
|
'invoice' => [ { 'id' => 1000,
|
|
|
|
|
'date' => '2009-05-05',
|
|
|
|
|
'entry' => [ { 'id' => 2100,
|
|
|
|
|
'account_name' => 'Security Deposit',
|
|
|
|
|
'amount' => 10,
|
|
|
|
|
'tax' => 0 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
{ 'id' => 1001,
|
|
|
|
|
'date' => '2009-05-01',
|
|
|
|
|
'thru' => '2009-05-31',
|
|
|
|
|
'entry' => [ { 'id' => 2110,
|
|
|
|
|
'account_name' => 'Rent',
|
|
|
|
|
'amount' => 100,
|
|
|
|
|
'tax' => 5 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
{ 'id' => 1002,
|
|
|
|
|
'date' => '2009-05-11',
|
|
|
|
|
'entry' => [ { 'id' => 2120,
|
|
|
|
|
'account_name' => 'Late Charge',
|
|
|
|
|
'amount' => 25,
|
|
|
|
|
'tax' => 0 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
],
|
|
|
|
|
'date' => '2009-05-05',
|
|
|
|
|
'entry' => [ { 'id' => 2100,
|
|
|
|
|
'account_name' => 'Security Deposit',
|
|
|
|
|
'amount' => 10,
|
|
|
|
|
'tax' => 0 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
{ 'id' => 1001,
|
|
|
|
|
'date' => '2009-05-01',
|
|
|
|
|
'thru' => '2009-05-31',
|
|
|
|
|
'entry' => [ { 'id' => 2110,
|
|
|
|
|
'account_name' => 'Rent',
|
|
|
|
|
'amount' => 100,
|
|
|
|
|
'tax' => 5 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
{ 'id' => 1002,
|
|
|
|
|
'date' => '2009-05-11',
|
|
|
|
|
'entry' => [ { 'id' => 2120,
|
|
|
|
|
'account_name' => 'Late Charge',
|
|
|
|
|
'amount' => 25,
|
|
|
|
|
'tax' => 0 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
],
|
|
|
|
|
'receipt' => [ { 'id' => 2000,
|
|
|
|
|
'date' => '2009-05-15',
|
|
|
|
|
'entry' => [ { 'id' => 2200,
|
|
|
|
|
'track' => [ { 'debit'=>2100, 'amount'=>10 },
|
|
|
|
|
{ 'debit'=>2110, 'amount'=>5 } ],
|
|
|
|
|
'type' => 1,
|
|
|
|
|
'amount' => 15 },
|
|
|
|
|
{ 'id' => 2201,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>10 } ],
|
|
|
|
|
'type' => 2,
|
|
|
|
|
'amount' => 10 },
|
|
|
|
|
{ 'id' => 2202,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>5 } ],
|
|
|
|
|
'type' => 3,
|
|
|
|
|
'amount' => 5 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
{ 'id' => 2001,
|
|
|
|
|
'date' => '2009-05-18',
|
|
|
|
|
'entry' => [ { 'id' => 2210,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>30 } ],
|
|
|
|
|
'type' => 5,
|
|
|
|
|
'amount' => 30 },
|
|
|
|
|
{ 'id' => 2211,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>20 } ],
|
|
|
|
|
'type' => 6,
|
|
|
|
|
'amount' => 20 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
{ 'id' => 2002,
|
|
|
|
|
'date' => '2009-05-22',
|
|
|
|
|
'entry' => [ { 'id' => 2220,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>10 } ],
|
|
|
|
|
'type' => 1,
|
|
|
|
|
'amount' => 10 },
|
|
|
|
|
{ 'id' => 2221,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>5 } ],
|
|
|
|
|
'type' => 2,
|
|
|
|
|
'amount' => 5 },
|
|
|
|
|
{ 'id' => 2222,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>15 },
|
|
|
|
|
{ 'debit'=>2111, 'amount'=>5 },
|
|
|
|
|
{ 'debit'=>2120, 'amount'=>5 } ],
|
|
|
|
|
'type' => 7,
|
|
|
|
|
'amount' => 25 },
|
|
|
|
|
{ 'id' => 2223,
|
|
|
|
|
'track' => [ { 'debit'=>2120, 'amount'=>20 } ],
|
|
|
|
|
'type' => 8,
|
|
|
|
|
'amount' => 30 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
],
|
|
|
|
|
'date' => '2009-05-15',
|
|
|
|
|
'entry' => [ { 'id' => 2200,
|
|
|
|
|
'track' => [ { 'debit'=>2100, 'amount'=>10 },
|
|
|
|
|
{ 'debit'=>2110, 'amount'=>5 } ],
|
|
|
|
|
'type' => 1,
|
|
|
|
|
'amount' => 15 },
|
|
|
|
|
{ 'id' => 2201,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>10 } ],
|
|
|
|
|
'type' => 2,
|
|
|
|
|
'amount' => 10 },
|
|
|
|
|
{ 'id' => 2202,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>5 } ],
|
|
|
|
|
'type' => 3,
|
|
|
|
|
'amount' => 5 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
{ 'id' => 2001,
|
|
|
|
|
'date' => '2009-05-18',
|
|
|
|
|
'entry' => [ { 'id' => 2210,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>30 } ],
|
|
|
|
|
'type' => 5,
|
|
|
|
|
'amount' => 30 },
|
|
|
|
|
{ 'id' => 2211,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>20 } ],
|
|
|
|
|
'type' => 6,
|
|
|
|
|
'amount' => 20 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
{ 'id' => 2002,
|
|
|
|
|
'date' => '2009-05-22',
|
|
|
|
|
'entry' => [ { 'id' => 2220,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>10 } ],
|
|
|
|
|
'type' => 1,
|
|
|
|
|
'amount' => 10 },
|
|
|
|
|
{ 'id' => 2221,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>5 } ],
|
|
|
|
|
'type' => 2,
|
|
|
|
|
'amount' => 5 },
|
|
|
|
|
{ 'id' => 2222,
|
|
|
|
|
'track' => [ { 'debit'=>2110, 'amount'=>15 },
|
|
|
|
|
{ 'debit'=>2111, 'amount'=>5 },
|
|
|
|
|
{ 'debit'=>2120, 'amount'=>5 } ],
|
|
|
|
|
'type' => 7,
|
|
|
|
|
'amount' => 25 },
|
|
|
|
|
{ 'id' => 2223,
|
|
|
|
|
'track' => [ { 'debit'=>2120, 'amount'=>20 } ],
|
|
|
|
|
'type' => 8,
|
|
|
|
|
'amount' => 30 },
|
|
|
|
|
],
|
|
|
|
|
},
|
|
|
|
|
],
|
|
|
|
|
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
@@ -1230,7 +1245,7 @@ sub fakeTesting {
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
addRow('transactions',
|
|
|
|
|
{ 'stamp' => '2009-05-10' });
|
|
|
|
|
{ 'stamp' => '2009-04-30' });
|
|
|
|
|
|
|
|
|
|
addRow('ledger_entries',
|
|
|
|
|
{ 'monetary_source_id' => $newdb{'ids'}{'monetary_source'}{'internal'},
|
|
|
|
|
@@ -1257,10 +1272,10 @@ sub fakeTesting {
|
|
|
|
|
1);
|
|
|
|
|
|
|
|
|
|
foreach my $e (@{$tx->{'entry'}}) {
|
|
|
|
|
my $crdr = ($ir eq 'invoice') ? 'Invoice' : 'Receipt';
|
|
|
|
|
my $ircrdr = ($ir eq 'invoice') ? 'Invoice' : 'Receipt';
|
|
|
|
|
my $dr = ($ir eq 'invoice') ? 'A/R' : 'Cash';
|
|
|
|
|
$crdr = $dr;
|
|
|
|
|
my $cr = ($ir eq 'invoice') ? $e->{'account_name'} : 'A/R';
|
|
|
|
|
my $crdr;
|
|
|
|
|
my $monetary_source_id;
|
|
|
|
|
|
|
|
|
|
if (defined $e->{'type'}) {
|
|
|
|
|
@@ -1274,29 +1289,41 @@ sub fakeTesting {
|
|
|
|
|
$monetary_source_id = $newdb{'ids'}{'monetary_source'}{'internal'};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$crdr = $dr;
|
|
|
|
|
if ($use_ir) {
|
|
|
|
|
$crdr = $ircrdr;
|
|
|
|
|
addRow('ledger_entries',
|
|
|
|
|
{ 'id' => $e->{'id'}+10000,
|
|
|
|
|
'monetary_source_id' => ($ir eq 'invoice' ? undef : $monetary_source_id),
|
|
|
|
|
'transaction_id' => $tx->{'id'},
|
|
|
|
|
'debit_ledger_id' => $newdb{'lookup'}{'account'}{$dr}{'ledger_id'},
|
|
|
|
|
'credit_ledger_id' => $newdb{'lookup'}{'account'}{$crdr}{'ledger_id'},
|
|
|
|
|
'customer_id' => $fake{'customer_id'},
|
|
|
|
|
#'lease_id' => $fake{'lease_id'},
|
|
|
|
|
'amount' => $e->{'amount'},
|
|
|
|
|
'comment' => "Fake $ir entry" },
|
|
|
|
|
1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
addRow('ledger_entries',
|
|
|
|
|
{ 'id' => $e->{'id'},
|
|
|
|
|
'monetary_source_id' => $monetary_source_id,
|
|
|
|
|
'monetary_source_id' => ($ir eq 'invoice' ? $monetary_source_id : undef),
|
|
|
|
|
'transaction_id' => $tx->{'id'},
|
|
|
|
|
'debit_ledger_id' => $newdb{'lookup'}{'account'}{$crdr}{'ledger_id'},
|
|
|
|
|
'credit_ledger_id' => $newdb{'lookup'}{'account'}{$cr}{'ledger_id'},
|
|
|
|
|
'customer_id' => $fake{'customer_id'},
|
|
|
|
|
'lease_id' => $fake{'lease_id'},
|
|
|
|
|
'amount' => $e->{'amount'},
|
|
|
|
|
'comment' => "Fake $ir entry" },
|
|
|
|
|
'comment' => "Fake Entry" },
|
|
|
|
|
1);
|
|
|
|
|
|
|
|
|
|
# addRow('ledger_entries',
|
|
|
|
|
# { 'id' => $e->{'id'},
|
|
|
|
|
# 'monetary_source_id' => $monetary_source_id,
|
|
|
|
|
# 'transaction_id' => $tx->{'id'},
|
|
|
|
|
# 'debit_ledger_id' => $newdb{'lookup'}{'account'}{$dr}{'ledger_id'},
|
|
|
|
|
# 'credit_ledger_id' => $newdb{'lookup'}{'account'}{$crdr}{'ledger_id'},
|
|
|
|
|
# 'customer_id' => $fake{'customer_id'},
|
|
|
|
|
# 'lease_id' => $fake{'lease_id'},
|
|
|
|
|
# 'amount' => $e->{'amount'},
|
|
|
|
|
# 'comment' => "Fake $ir entry" },
|
|
|
|
|
# 1);
|
|
|
|
|
if ($use_ir) {
|
|
|
|
|
addRow('reconciliations',
|
|
|
|
|
{ 'debit_ledger_entry_id' => $e->{'id'} + ($ir eq 'invoice' ? 10000 : 0),
|
|
|
|
|
'credit_ledger_entry_id' => $e->{'id'} + ($ir eq 'invoice' ? 0 : 10000),
|
|
|
|
|
'amount' => $e->{'amount'},
|
|
|
|
|
});
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
foreach my $t (@{$e->{'track'}}) {
|
|
|
|
|
addRow('reconciliations',
|
|
|
|
|
@@ -1308,29 +1335,41 @@ sub fakeTesting {
|
|
|
|
|
|
|
|
|
|
next unless $e->{'tax'};
|
|
|
|
|
|
|
|
|
|
$crdr = $dr;
|
|
|
|
|
if ($use_ir) {
|
|
|
|
|
$crdr = $ircrdr;
|
|
|
|
|
addRow('ledger_entries',
|
|
|
|
|
{ 'id' => $e->{'id'}+10001,
|
|
|
|
|
'monetary_source_id' => ($ir eq 'invoice' ? undef : $monetary_source_id),
|
|
|
|
|
'transaction_id' => $tx->{'id'},
|
|
|
|
|
'debit_ledger_id' => $newdb{'lookup'}{'account'}{$dr}{'ledger_id'},
|
|
|
|
|
'credit_ledger_id' => $newdb{'lookup'}{'account'}{$crdr}{'ledger_id'},
|
|
|
|
|
'customer_id' => $fake{'customer_id'},
|
|
|
|
|
#'lease_id' => $fake{'lease_id'},
|
|
|
|
|
'amount' => $e->{'tax'},
|
|
|
|
|
'comment' => "Fake Tax Invoice Entry" },
|
|
|
|
|
1);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
addRow('ledger_entries',
|
|
|
|
|
{ 'id' => $e->{'id'}+1,
|
|
|
|
|
'monetary_source_id' => $monetary_source_id,
|
|
|
|
|
'monetary_source_id' => ($ir eq 'invoice' ? $monetary_source_id : undef),
|
|
|
|
|
'transaction_id' => $tx->{'id'},
|
|
|
|
|
'debit_ledger_id' => $newdb{'lookup'}{'account'}{$crdr}{'ledger_id'},
|
|
|
|
|
'credit_ledger_id' => $newdb{'lookup'}{'account'}{'Tax'}{'ledger_id'},
|
|
|
|
|
'customer_id' => $fake{'customer_id'},
|
|
|
|
|
'lease_id' => $fake{'lease_id'},
|
|
|
|
|
'amount' => $e->{'amount'},
|
|
|
|
|
'comment' => "Fake Tax" },
|
|
|
|
|
'amount' => $e->{'tax'},
|
|
|
|
|
'comment' => "Fake Tax Entry" },
|
|
|
|
|
1);
|
|
|
|
|
|
|
|
|
|
# addRow('ledger_entries',
|
|
|
|
|
# { 'id' => $e->{'id'}+1,
|
|
|
|
|
# 'monetary_source_id' => $monetary_source_id,
|
|
|
|
|
# 'transaction_id' => $tx->{'id'},
|
|
|
|
|
# 'debit_ledger_id' => $newdb{'lookup'}{'account'}{$dr}{'ledger_id'},
|
|
|
|
|
# 'credit_ledger_id' => $newdb{'lookup'}{'account'}{$crdr}{'ledger_id'},
|
|
|
|
|
# 'customer_id' => $fake{'customer_id'},
|
|
|
|
|
# 'lease_id' => $fake{'lease_id'},
|
|
|
|
|
# 'amount' => $e->{'tax'},
|
|
|
|
|
# 'comment' => "Fake Tax" },
|
|
|
|
|
# 1);
|
|
|
|
|
if ($use_ir) {
|
|
|
|
|
addRow('reconciliations',
|
|
|
|
|
{ 'debit_ledger_entry_id' => $e->{'id'} + ($ir eq 'invoice' ? 10001 : 1),
|
|
|
|
|
'credit_ledger_entry_id' => $e->{'id'} + ($ir eq 'invoice' ? 1 : 10001),
|
|
|
|
|
'amount' => $e->{'tax'},
|
|
|
|
|
});
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|