abijah/pmgr
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed more ledger mixups

Browse Source 
git-svn-id: file:///svn-source/pmgr/branches/ledger_transactions_20090605@76 97e9348a-65ac-dc4b-aefc-98561f571b83
This commit is contained in:
abijah
2009-06-08 02:08:04 +00:00
parent d14b715a88
commit 52032180f3
1 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
scripts/sitelink2pmgr.pl
View File

@@ -658,12 +658,14 @@ foreach $row (@{query($sdbh, $query)}) {
'name' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'name'} . ' Ledger',
'comment' => 'Ledger for Customer Account #' . $newdb{'tables'}{'accounts'}{'autoid'} });
$newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'account'} =
$newdb{'tables'}{'accounts'}{'autoid'};
$newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'ledger'} =
$newdb{'tables'}{'ledgers'}{'autoid'};
addRow('customers',
{ 'name' => "$row->{'LastName'}, $row->{'FirstName'}",
'ledger_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'ledger'} });
'account_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'account'} });
$newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'cust'} =
$newdb{'tables'}{'customers'}{'autoid'};
@@ -791,25 +793,25 @@ foreach $row (@{query($sdbh, $query)}) {
. ' ('.$newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'name'} . ')',
'comment' => 'Ledger for Customer Account #' . $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'id'} });
$newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'ledger'} =
$newdb{'tables'}{'ledgers'}{'autoid'};
$newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}
= { 'cust' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'cust'},
'account' => $newdb{'tables'}{'accounts'}{'autoid'},
'ledger' => $newdb{'tables'}{'ledgers'}{'autoid'} };
addRow('leases',
{ 'number' => $row->{'LedgerID'},
'lease_type_id' => $newdb{'tables'}{'lease_types'}{'autoid'},
'unit_id' => $newdb{'lookup'}{'unit'}{$row->{'UnitID'}}{'id'},
'customer_id' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'cust'},
'ledger_id' => $newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'ledger'},
'account_id' => $newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'account'},
'lease_date' => datefmt($row->{'DateIn'}),
'movein_date' => datefmt($row->{'DateIn'}),
'moveout_date' => datefmt($row->{'DateOut'}),
'close_date' => datefmt($row->{'DateClosed'}),
'amount' => $row->{'Rent'} });
$newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}
= { 'lease' => $newdb{'tables'}{'leases'}{'autoid'},
'cust' => $newdb{'lookup'}{'tenant'}{$row->{'TenantID'}}{'cust'},
'ledger' => $newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'ledger'} };
$newdb{'lookup'}{'ledger'}{$row->{'LedgerID'}}{'lease'} =
$newdb{'tables'}{'leases'}{'autoid'};
}