yb Computer MCQs, Programs, Scripts & Studies: August 2018

Requirements for using offline on a laptop / p.c.: 1. Apache2 server, with php support. 2. Suitably changing the Configuration of the 'public_html' (or any other folder, for use as localhost, by giving Read, Write, Create files. For entering transactions, a simple Text Editor such as Notepad, Gedit, Geany can be used, and the transaction file is to be saved by giving 'mychoicename.txt'. For preparing accounts, Trial Balance, Income and Expenditure, Balance Sheet, the a .php file name (Example mychoicefilename.php) in browsers such as firefox.

Where is the script?

Ans: The following is the script shown in red color in the following Text Area. Press 'Control A', select it, copy it to clip board, then paste it in a mychoicefilename.php file opened in a Text Editor. Save it as a .php file. This file is to be saved in in the 'Public_html' folder (or any other similar name) or in a new folder within the Public_html folder which is configured as 'localhost' in apache2 and php settings.

Read write, create file permissions are important.

Question: Will the Script Work in Windows / Linux / Mac. ?

As the script is browser based, it should work platform-independently. I have tried in Linux-Ubuntu-15.04 and Windows. It worked.

<html><head><META http-equiv='content-type; content='text/html' charset='utf-8'; lang='hi'; lang='te'; encoding='utf-8'; dir='ltr'; />
<style type='text/css'>
 table{ word-wrap:true; width:70%;}
 table td{border:.2em solid magenta; margin:  0px 0px 0px 0px; padding: 0px 0px 0px 0px; wordwrap:true;}
 table th{border:.2em solid magenta; margin:  0px 0px 0px 0px; padding: 0px 0px 0px 0px; wordwrap:true;}
 </style>
</head>

<h3>Simple php script by ybrao-a-donkey for personal accounts and small businesses </h3>

</div>

<?php  ////////////////////////////////////////////php starts////////////////////////

echo "</p><form type='text' method='GET'>";
echo "Enter the txt file name, you want to prepare your accounts";
echo "<input  type = 'text' name = 'tafilename'  value=$_GET[tafilename]      />";
echo "<br />Enter y if you want a doc file of all the a/cs.  Else enter anything.";
echo "<Input type = 'text' name = 'taoutput' value = 'n'    />";
echo "<Input type = 'submit' name = 'submitb1' method='GET' value = 'prepare' />";

//////////////////transactions file////////////

$dou1=file_get_contents($_GET[tafilename]);

//combining all the flours
$douall = $dou1;

$bre = explode("\n\n",$douall);

//////////////////for preparing all accounts from all accounts list

$sallaccolist= $bre[0];
$aallaccolist = explode("|",$bre[0]);

$no=0;
$granddebitsumma = 0;
$grandcreditsumma = 0;

$today= strftime(date("d.m.y"));

////////////////searching all accounts accounts in Transactions file
for($t=1; $t<=count($aallaccolist)-1;$t++){
 $resuallaccostableheads=  "<table border='1'   ><tr style='background:#fabfba; '><td style='border:1px double magenta;'>"
 
 
  ."<tr><th colspan='7'>STATEMENT OF ACCOUNT FOR  "  .$aallaccolist[$t]  ." as on "  .$today  ."</th></tr>"
 ."<tr><th style='border:.1em solid black; wordwrap:true; '>"  ."Date & A/c-name"  ."</th>"
 //."<th style='border:.1em solid black; '>"  ."Date"  ."</th>"
 ."<th style='border:.1em solid black; '>"  ."dr"    ."</th>"
 ."<th style='border:.1em solid black; '>"  ."cr"    ."</th>"
 ."<th style='border:.1em solid black; '>"  ."dr bal"    ."</th>"
 ."<th style='border:.1em solid black; '>"  ."cr bal"    ."</th>"
 ."<th style='border:.1em solid black;wordwrap:true;'>"  ."Contra"  ."</th>"
 ."<th style='border:.1em solid black;word-wrap:true; '>"  ."Rem."    ."</th>"
 ."<tr>";
 
 $tvallacconame=$aallaccolist[$t];
 $resuincoexp=" ";
 $debitsumma=0;
 $creditsumma=0;
 $tbdsumma =0;
 $tbcsumma=0;
 $formadebitsumma=0;
 $formacreditsumma=0;
 $accountdebitsumma=0;
 $accountcreditsumma=0;
 $debitacdebitsumma=0;
 $creditaccreditsumma=0;
 
 $bal=0;
 $dbal=0;
 $cbal=0;
 $formadbal=0;
 $formacbal=0;
 $dr=0;
 $cr=0;

for ($u=3; $u<=(count($bre)-1);$u++){
 $pos = stristr($bre[$u], $aallaccolist[$t]);

//echo $pos;
//if ($pos <>null){
if ($pos <>null){
 
 $pizza[$no]=explode("|",$bre[$u]);
 //echo $pizza[$no];
 
 $tempdate = $pizza[$no][0];
// $pattern = '/(\d{2}) ([\d{2}) ([\d{2})/i';
 
//$replacement = "$3.$2$1";
//$tempdate2 = preg_replace($pattern, $replacement, $tempdate);
//echo $tempdate2;
 $tempnarr = $pizza[$no][4];
 $tempdr=$pizza[$no][1];
 $tempcr=abs($pizza[$no][1]);
 $tempdrac=$pizza[$no][2];
 $tempcrac=$pizza[$no][3];
 $posdrac=stristr($pizza[$no][2], $aallaccolist[$t]);
 $poscrac=stristr($pizza[$no][3], $aallaccolist[$t]);
 
//if ($pizza[$no][1] < 0){
   
   //echo $pizza[$no][1];
   //echo $tempcr;
    if ($posdrac <> null)
 
 {
  $debitacdebitsumma = $debitacdebitsumma + floatval($pizza[$no][1]);
 $dr= floatval($pizza[$no][1]);
 $cr=0;
  }
 
 
 
 else  {
  
  if ($poscrac <> null){
   $creditaccreditsumma = $creditaccreditsumma + abs(floatval($pizza[$no][1]));
  $cr= abs(floatval($pizza[$no][1]));
  $dr=0;
     }  //endif for poscrac
 
 } //end else posdrac

$bal=floatval($debitacdebitsumma + $creditaccreditsumma);
$no++;
if ($bal < 0){$formadbal = "<b style='color:red;'>"   .number_format($bal,2)  ."</b>"       ;
 $dbal = $bal;
 $tbdbal=$bal;
 $cbal=0;
 $formacbal=0;
 }

else { if ($bal >= 0)$formacbal = "<b style='color:blue;'>"   .number_format($bal,2)   ."</b>"      ;
 $cbal = $bal;
 $tbcbal=$bal;
 $dbal=0;
 $formadbal=0;
 }

$resuallaccos=  $resuallaccos  
    
     ."<tr><td style='border:.1em solid green; padding:0 0 0 0;'>"  .$tempdate  ."<br />"  .$aallaccolist[$t]     ."</td>"
   // ."<td style='border:.1em solid green;padding:0 0 0 0;'>"  .$tempdate   ."</td>"
 ."<td style='text-align:right;border-right:  .1em solid grey;padding:0 0 0 0;'>"  .number_format($dr,2)     ."</td>"
 ."<td style='text-align:right;border-right:  .1em solid grey;padding:0 0 0 0;'>"  .number_format($cr,2)     ."</td>"
 
 ."<td style='text-align:right;border-right:  .1em solid grey;padding:0 0 0 0;'>"  .$formadbal   ."</td>"
 ."<td style='text-align:right;border-right:  .1em solid grey;padding:0 0 0 0;'>"  .$formacbal   ."</td>"
 ."<td style='border:.1em solid green;padding:0,0,0,0;'>"  .$tempdrac  ."<br />"    ."<-->"   .$tempcrac                 ."</td>"
 ."<td style='border:.1em solid green;wordwrap:true;padding:0 0 0 0;'>"  .$tempnarr   ."</td>"
 
 ."</tr>";

} //endif
//$no=0;

$netbal=floatval($dbal + $cbal);

$accountdebitsumma = floatval($accountdebitsumma + $debitacdebitsumma);
$accountcreditsumma = floatval($accountcreditsumma + $creditaccreditsumma);

$tbdsumma= floatval($debitacdebitsumma);
$tbcsumma= floatval($creditaccreditsumma);

$tbbal= floatval($debitacdebitsumma + $creditaccreditsumma);

if ($tbbal < 0) {
 $tbdbal = $tbbal; 
 }
 
 else 
 {$tbdbal=0;
 }
 
if ($tbbal >= 0) {$tbcbal = $tbbal;
 }
 else
 { $tbcbal=0;
 }

$grandbal = floatval($debitsumma + $creditsumma);

} //end tloop

$granddbal =  floatval($granddbal + $dbal);
$grandcbal =  floatval($grandcbal + $cbal);

$grandnetbal= floatval($grandnetbal + $netbal);
$granddebitsumma =  floatval($granddebitsumma   + $debitacdebitsumma) ;
$grandcreditsumma = floatval($grandcreditsumma   + $creditaccreditsumma) ;
$grandsummabal= floatval($granddebitsumma + $grandcreditsumma);

//calculation of summations for various accounts///////////////////////////////////
 
$resuallaccos2= $resuallaccos2     .$resuallaccos;

$resuallaccos2 = $resuallaccos2
    ."<tr style='background:#00ff00;'><td style='border:.25em solid green;'>"   ."Summations"  ."<br />"   .$tempdate    ."</td>"
   // ."<td style='border:.25em solid green;'>"  .$tempdate  ."</td>"
 ."<td style='border:.25em solid green;'>"  .number_format($debitacdebitsumma,2)  ."</td>"
 ."<td style='border:.25em solid green;'>"  .number_format($creditaccreditsumma,2)  ."</td>"
 
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($dbal,2)   ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($cbal,2)   ."</td>"
 ."</tr>";

$resuallaccos2 =  "<br /><br />"   .$resuallaccostableheads    .$resuallaccos2   ."</table>";

$resuallaccos3=$resuallaccos3.  $resuallaccos2  ;
//echo $resuallaccos2;  //see bottom
 //echo $resuallaccos3;
 $resuallaccos2= " ";
 $resuallaccos=" ";

//////////////////////////////////////////////////////////////////////////////////////////////

//for preparing trial balances
$trbaltab= $trbaltab . "<tr>"
    . "<td style='border:.25em solid green;'>"  .$aallaccolist[$t]     ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($tbdsumma,2)  ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($tbcsumma,2)  ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($tbdbal,2)       ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($tbcbal,2)        ."</td>"
 
 
 ."</tr>";
 
$tbgdsumma = floatval($tbgdsumma + $tbdsumma);
$tbgcsumma = floatval($tbgcsumma + $tbcsumma);
$tbgdbal        = floatval($tbgdbal + $tbdbal);
$tbgcbal        = floatval($tbgcbal + $tbcbal);
 
} //for $tloop.   FROM HERE STARTS GRAND TOTALS

//for preparing trial balance sigma summations
$trbaltab= $trbaltab . "<tr style='background:magenta;'>"
    . "<td style='border:.25em solid green;'>"  ."Grand Summations"     ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($tbgdsumma,2)  ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($tbgcsumma,2)  ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($tbgdbal,2)       ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($tbgcbal,2)        ."</td>"
 
 
 ."</tr>";

////////////////////////trial balance//////////

$trbaltabhead= "<br /><br /><br /><table border='1'><tr><th style='border:.2em solid black;'>"  ."Trial Balance of All Accounts"         ."</th></tr>"
  ."<tr><th style='border:.2em solid black;'>"  ."A/c name"   ."</th>"
  ."<th style='border:.2em solid black;'>"    ."a/c's debit summa"   ."</th>"
  ."<th style='border:.2em solid black;'>"    ."a/c's credit summa"  ."</th>"
  ."<th style='border:.2em solid black;'>"    ."a/c's debit balances"  ."</th>"
  ."<th style='border:.2em solid black;'>"    ."a/c's credit balances"  ."</th>"
  
  ."</tr>";

$trbaltab = $trbaltabhead    .$trbaltab   ."</table>";

//echo $trbaltab;  //trial balance

/////////////////////forincome-expenditure a/c/////////////////////////////////

//////////////////for preparing income-expenditure account

$strincoaccolist=$bre[1];
$arraincoaccolist = explode( "|", $strincoaccolist );

$ino=0;
$incogranddebitsumma = 0;
$incograndcreditsumma = 0;

$resuincoexp3="<br /><br /><table border='1'><tr style='background:#8844ff;'>"
    ."<th style='border:.2em solid black;'>"  ."Income and Expenditure Account"  . "</th></tr>"
 ."<tr style='background:#ffff99;'><th style='border:.2em solid black;'>"  ."A/c name"  ."</th>"
 ."<th style='border:.2em solid black;'>"  ."drsumma"    ."</th>"
 ."<th style='border:.2em solid black;'>"  ."crsumma"    ."</th>"
 ."<th style='border:.2em solid black;'>"  ."A/cs with debit balances"    ."</th>"
 ."<th style='border:.2em solid black;'>"  ."A/cs with credit balances"    ."</th>"
 ."<tr>";

////////////////searching Expenses and Income accounts in Transactions file
for($it=1; $it<=count($arraincoaccolist)-1;$it++){
 //starting figures for each exp and inco a/c.
 $resuincoexp=" ";
 $incodracdebitsumma=0;
 $incocraccreditsumma=0;
 $formadebitsumma=0;
 $formacreditsumma=0;
 $accountdebitsumma=0;
 $accountcreditsumma=0;
 
 $incobal=0;
 $incodbal=0;
 $incocbal=0;
 $formadbal=0;
 $formacbal=0;
 $incoaccodbal=0;
 $incoaccocbal=0;
 
 $sigmacbal=0;
 $sigmadbal=0;

for ($incou=3; $incou<=(count($bre)-1);$incou++){
 
 $pos = stristr($bre[$incou], $arraincoaccolist[$it]);

if ($pos >null){
 
 
 
 $incopizza[$ino]=explode("|",$bre[$incou]);
 
 $posincodrac=stristr($incopizza[$ino][2], $arraincoaccolist[$it]);
 $posincocrac=stristr($incopizza[$ino][3], $arraincoaccolist[$it]);
 
//if ($incopizza[$ino][1] < 0)
if  ($posincodrac <> null)

{$incodracdebitsumma = $incodracdebitsumma + floatval($incopizza[$ino][1]);}

else {

if  ($posincocrac <> null)

{$incocraccreditsumma = $incocraccreditsumma + abs(floatval($incopizza[$ino][1]));}

$incobal=floatval($incodracdebitsumma + $incocraccreditsumma);
$ino++;
} //endelse

if ($incobal < 0){$formadbal = "<b style='color:red;'>"   .$incobal  ."</b>"       ;
 $incodbal = $incobal;
 //$incoaccodbal=  floatval($incoaccodbal + $incodbal  );
 }

if ($incobal >= 0)  {$formaincocbal = "<b style='color:blue;'>"   .$incobal   ."</b>"      ;
 $incocbal = $incobal;
 //echo $incocbal   ."<br />";
 //$incoaccocbal=  floatval($incoaccocbal + $incocbal   );
 }

} //endif

$sigmadbal= floatval($incodbal);
$sigmacbal=abs(floatval($incocbal));

$inconetbal=floatval($incodbal + $incocbal);

$incograndbal = floatval($incodracdebitsumma + $incocraccreditsumma);

} //end tloop
$greatsigmadbal =  floatval($greatsigmadbal + $sigmadbal)   ; 
$greatsigmacbal =  floatval($greatsigmacbal + $sigmacbal)    ;

$incograndnetbal= floatval($incograndnetbal + $inconetbal);

$incogranddebitsumma =  floatval($incogranddebitsumma   + $incodracdebitsumma) ;
$incograndcreditsumma = floatval($incograndcreditsumma   + $incocraccreditsumma) ;

$incograndsummabal= floatval($incogranddebitsumma + $incograndcreditsumma);

if ($incograndbal <0) {$inconetcbal=0;}
if ($incograndbal >0) {$inconetdbal=0;}

if ($incograndbal < 0){$incofnetdbal = "<b style='color:red;'>"   .number_format($incograndbal,2)  ."</b>"  ;
 $incofnetcbal=0;
 
 }

if ($incograndbal > 0){$incofnetcbal = "<b style='color:blue;'>"   .number_format($incograndbal,2)  ."</b>"  ;
 $incofnetdbal=0;
}

$resuincoexp=  $resuincoexp
    . "<tr><td style='border:.25em solid green;'>"  .$arraincoaccolist[$it]     ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($incodracdebitsumma,2)  ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($incocraccreditsumma,2)  ."</td>"
 
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .$incofnetdbal                  ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .$incofnetcbal                    ."</td>"
 
 ."</tr>";
 
$resuincoexp2= $resuincoexp2      .$resuincoexp;

} //for $itloop.  This is end of searching for exp & income accounts.

$incograndnetbal = floatval($incogranddebitsumma + $incograndcreditsumma);

if ($incograndnetbal <0) {$incofgrandnetdbal= "<b style='color:red;'>"   .number_format($incograndnetbal,2)  ."</b>";
 $incograndnetdbal=$incograndnetbal;
 $incofgrandnetcbal=0;
}

if ($incograndnetbal >0) {$incofgrandnetcbal= "<b style='color:blue;'>"   .number_format($incograndnetbal,2)  ."</b>";
 $incograndnetcbal=$incograndnetbal;
 $incofgrandnetdbal=0;
}
$incograndnetcbal = -($incograndnetcbal);

$resuincoexp2 = $resuincoexp2
    ."<tr><td style='border:.25em solid green;'>"   ."surplus/deficit"            ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  ." "    ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  ." "    ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .$incofgrandnetcbal  ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .$incofgrandnetdbal  ."</td>"
 ."</tr>";

$incogreatgranddsumma = floatval($incogranddebitsumma + $incograndnetdbal);
$incogreatgrandcsumma = floatval($incograndcreditsumma + $incograndnetcbal);

$resuincoexp2 = $resuincoexp2
    ."<tr style='color:red;background:#dddddd;'><td style='border:.25em solid green;'>"   ."Grandtotals"     ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($incogranddebitsumma,2)  ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($incograndcreditsumma,2)  ."</td>"

."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format(($incogreatgranddsumma)+ ($incograndnetcbal),2)    ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format(($greatsigmacbal)  + (abs($incograndnetdbal)),2)   ."</td>"
 
 ."</tr>";

//echo $greatsigmadbal;
//echo $incograndnetcbal;

$resuincoexp3=$resuincoexp3.  $resuincoexp2  ;
 $resuincoexp2= " ";

$resuincoexp3 = $resuincoexp3 . "</table";
// echo $resuincoexp3; //see bottom
$resuincoexp4=$resuincoexp4  .$resuincoexp3;

//////////////////for preparing Balance sheet, assets & liab.

$strbsaccolist=$bre[2];
$arrabsaccolist=explode("|", $strbsaccolist);

$ino=0;
$granddebitsumma = 0;
$grandcreditsumma = 0;

$resubsexp3=  "<table border='1' ><tr>"
    ."<th colspan='2' >"     ."Balance Sheet as per Trial Balance, though P&L Entries have not been passed"       ."</th></tr>"
 ."<tr><th style= 'width:5em;'>"  ."Liabilities"    ."</th>"
 ."<th style= 'width:5em;'>"  ."A/c name"  ."</th>"
 ."<th style='border:.2em solid black;width:5em;'>"  ."Assets"    ."</th>"

."</tr>";

////////////////searching assets and liabilities account in the Transaction file.  Note: Even if there are no transactions, assets and liabilities accounts may start with some opening balances.  
for($bst=1; $bst<=count($arrabsaccolist)-1;$bst++){
 //starting figures for each asset and liability account.
 $resubsexp=" ";
 $debitsumma=0;
 $creditsumma=0;
 $formadebitsumma=0;
 $formacreditsumma=0;
 $accountdebitsumma=0;
 $accountcreditsumma=0;
 $bsdracdebitsumma=0;
 $bscraccreditsumma=0;
 
 $bal=0;
 $dbal=0;
 $cbal=0;
 $bsbal=0;
 $bsnetbal=0;
 $bsfnetbal=0;
 $bsfnetdbal=0;
 $bsfnetcbal=0;
 $formadbal=0;
 $formacbal=0;

for ($bs=0; $bs<=(count($bre)-1);$bs++){
 
 
 $posbs = stristr($bre[$bs], $arrabsaccolist[$bst]);

if ($posbs <>null){
 
 $bspizza[$bsno]=explode("|",$bre[$bs]);
 
 $posbsdrac=stristr($bspizza[$bsno][2], $arrabsaccolist[$bst]);
 $posbscrac=stristr($bspizza[$bsno][3], $arrabsaccolist[$bst]);

if ($posbsdrac <> null )

{$bsdracdebitsumma = $bsdracdebitsumma + floatval($bspizza[$bsno][1]);}

if($posbscrac <> null)
{$bscraccreditsumma = $bscraccreditsumma + abs(floatval($bspizza[$bsno][1]));

} //end if

$bsbal=floatval($bsdracdebitsumma + $bscraccreditsumma);
//echo $bsbal   ."<br />";
$bsno++;

if ($bsbal < 0){
 
 $bsdbal = $bsbal;
 $bscbal=0;
 $formabsdbal = "<b style='color:red;'>"   .number_format($bsdbal,2)  ."</b>"       ;
 }

else { if ($bsbal >= 0)
 $bsdbal=0;
$bscbal = $bsbal;
$formabscbal = "<b style='color:blue;'>"   .number_format($bscbal,2)   ."</b>"      ;

}

} //endif

$bsnetbal=floatval($bsdbal + $bscbal);
//echo $bsnetbal ."<br />";
$bsnetbal=number_format($bsnetbal,2);

if($bsnetbal <0) {$bsfnetdbal = "<b style='color:red;'>"   .$bsnetbal   ."</b>";
 $bsfnetcbal=0;
 $bsgnetdbal= floatval($bsgnetdbal + $bsnetbal);
 
 }
 
 if($bsnetbal >=0) {$bsfnetcbal = "<b style='color:blue;'>"   .$bsnetbal   ."</b>";
  $bsfnetdbal=0;
  $bsgnetcbal= floatval($bsgnetcbal + $bsnetbal);
  }

} //end bstloop  //this loop completes searching for assets & liab. a/cs.

$bslbaltot= floatval($bslbaltot + $bscbal);
$bsabaltot= floatval($bsabaltot + $bsdbal);

$bsgranddbal =  floatval($bsgranddbal + $bsdbal );
$bsgrandcbal =  floatval($bsgrandcbal + $bscbal );

$resubsexp=  $resubsexp
 
 ."<tr><td style='text-align:right;border-right:  .25em solid grey;'>"  .$bsfnetcbal   ."</td>"
    . "<td style='border:.25em solid green;'>"  .$arrabsaccolist[$bst]     ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .$bsfnetdbal   ."</td>"
 
 ."</tr>";
 
$resubsexp2= $resubsexp2      .$resubsexp;

} //for $bstloop.  This is end of searching for exp & income accounts.

$bsnetresult = floatval($bsgranddbal + $bsgrandcbal);
echo $bsnetresult;

if($bsnetresult > 0) {$bsdeficit = abs($bsnetresult);}
if($bsnetresult < 0) {$bssurplus = abs($bsnetresult);}
 
//deficit will should have a debit balance.  It appears on debit side.
$bsdeficit = -($bsdeficit);
$bsnfdeficit=number_format($bsdeficit,2);
$bsfdeficit= "<b style='color:red;'>"  . $bsnfdeficit  ."</b>";

$resubsexp2 = $resubsexp2 ."<tr>"
    ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($bssurplus ,2)  ."</td>"
    ."<td style='border:.25em solid green;'>"   ." Result Surplus/deficit.  Surplus will appear on liability side.  Deficit will appear on asset side. "     ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .$bsfdeficit   ."</td>"
 
 ."</tr>";

$bslbaltot =floatval ($bslbaltot + $bssurplus);
$bsabaltot =floatval ($bsabaltot+ $bsdeficit);

$resubsexp2 = $resubsexp2  ."<tr style='background:#ffff44;'>"

."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($bslbaltot,2 ) ."</td>"
    ."<td style='border:.25em solid green;'>"   ."Summation Totals"     ."</td>"
 ."<td style='text-align:right;border-right:  .25em solid grey;'>"  .number_format($bsabaltot,2)  ."</td>"
 
 ."</tr>";

$resubsexp3=$resubsexp3.  $resubsexp2  ;
 $resubsexp2= " ";

$resubsexp3 = "<br /><br /><br />\n\n\n"  . $resubsexp3 . "</table>";
// echo $resubsexp3; see bottom
 
/////////////////////////////////////Showing Results on browser

echo $trbaltab;             //trial balance
echo "In the above TB, Make sure that first two columns tally; last two columns tally.  If there is difference, go to transactions .txt file, checkup latest entries / latest alterations made by you since the last trial balance.";

echo $resuincoexp3;   //income and expenditure a/c.
echo "<br /><br />";
echo $resubsexp3;      //balance sheet
echo "Result in the Income and Expenditure a/c. and the Result in Balance Sheet tally.  Thereafter, you can pass more Profit and Loss entries, and recheck the IE a/c/P&L a/c., and the Balance Sheet.";

echo $resuallaccos3;  //all accounts individually

//////////////////////////////////////////////////////////////code for searching selected item

echo "</p><form type='text' method='GET'>";
echo "<Input type = 'textarea' name = 'ndl2' value = $_GET[ndl2]  >";
echo "<Input type = 'submit' name = 'submitb2' method='GET' value = ' search ' />";

if (!isset($_GET[ndl2])) { $_GET[ndl2]='puffed';  }

//-----------------------------
echo "showing results for "   .$_GET[ndl2]   ."<br />";
echo "\n<br />";

$no=0; $pizza=array();
for ($s=0; $s<=(count($bre)-1);$s++){
 $pos = stristr($bre[$s], $_GET[ndl2]);

//if (strlen($pos) >= 0){

if ($pos <>null){

//if($pos >0){
 
 $pizza[$no]=explode("|",$bre[$s]);
 
$no++;

} //endif

} //end sloop

/////////////////////////////////////table design for the search result
$resut="<table border='1'>  <tr><th>date</th><th>dr amt</th><th>cr amt</th><th>Progressive Total</th><th>dr. account</th><th>cr. account</th><th>Remarks</th></tr>";
$debitsumma=0;
$creditsumma=0;

for ($a=0; $a <= count($pizza)-1; $a++){
 
if ($pizza[$a][1] < 0)  {  $formadr = "<b style='color:red;'>"   .floatval($pizza[$a][1])  ."</b>"       ;
 $formacr=0;  }

else { if ($pizza[$a][1] >= 0)$formacr = "<b style='color:black;'>"   .floatval($pizza[$a][1])  ."</b>"      ;
 $formadr=0;   }

//refreshing summations
if ($pizza[$a][1] < 0){$debitsumma = $debitsumma + floatval($pizza[$a][1]);}
if ($pizza[$a][1] >= 0){$creditsumma = $creditsumma + floatval($pizza[$a][1]);}

$formadebitsumma = "<b style='color:red;'>"  .$debitsumma    ."</b>";
$formacreditsumma= "<b style='color:red;'>"  .$creditsumma   ."</b>";
 
$bal=floatval($debitsumma + $creditsumma);

if ($bal < 0){$formabal = "<b style='color:red;'>"   .$bal  ."</b>"       ;}

else { if ($bal >= 0)$formabal = "<b style='color:blue;'>"   .$bal   ."</b>"      ;}

$resu = $resu   ."<tr><td style='text-align:left;border:#ff99aa;'>"   .$pizza[$a][0]  ."</td>"
 
  ."<td style='text-align:right; '>"    . $formadr   ."</td>" 
  
   ."<td style='text-align:right;'>"    . $formacr   ."</td>" 
   
  ."<td style='text-align:right; '>"    . $formabal   ."</td>" 
  
  ."<td  style='border:.2em solid blue;'>"   .$pizza[$a][2]  ."</td>" 
  
  ."<td  style='border:.2em solid yellow;'>"   .$pizza[$a][3]  ."</td>" 
 
 ."<td  style='border:.2em solid  magenta;'>"   .$pizza[$a][4]  ."</td></tr>" ;
 
 }
 
 //Grand summations for the search
$resu = $resu  
// ."<tr><td>"   ." "  . "</td>"
."<td>"   ."Balance with debit and credit summations"   ."</td>"

."<td style='text-align:right; width:5%;'>"    . $formadebitsumma   ."</td>" 
  
   ."<td style='text-align:right; width:5%;'>"    . $formacreditsumma   ."</td>"

."<td style='text-align:right;'>"    .$formabal  ."</td>"
 ."<td>"  ." "  ."</td></tr>";

$resut = $resut . $resu . "</table>" ;
echo $resut;

//////////////////////////////////////////////////////////////code for deepsearch

if (!isset($_GET[ndl2])) { $_GET[ndl2]='puffed';  }

//-----------------------------
echo "<br />showing results for "   .$_GET[ndl2]   ."<br />";
echo "\n<br />";

$no=0; $no2=0; $pizza=array(); $pak=array();
for ($s=0; $s<=(count($bre)-1);$s++){
 $pizza[$no]=explode("|",$bre[$s]);
 $tvpizzano = $pizza[$no];
 $burger=$pizza[$no][4];
 
 $posdees = stristr($burger, $_GET[ndl2]);

//print_r($pizza[$no]);

//if (strlen($pos) >= 0){

if ($posdees <>null){
//$pak[$pakno]=  preg_split('/(?=[a-z]+)(?<=[0-9])/i',$burger);
$pak[$pakno]=  explode(",",$burger);
$tv=$pak[$pakno];
//print_r($tv);

for($v=0; $v<=count($tv)-1; $v++){
$poslad = stristr($tv[$v], $_GET[ndl2]);

if ($poslad <>null){
$lad= $tv[$v];
$ladsplit= preg_split('/(?<=[0-9])(?=[a-z]+)/i',$lad);

//} if for poslad

//print_r($pizza[$no]);

$no++;
$ladsplitdr= floatval($ladsplit[0]);
//echo $ladsplitdr;

$ladsplitdr= -($ladsplitdr);

if ($ladsplit[0] > 0)  {  
 $formadrdees = "<b style='color:red;'>"   .$ladsplitdr  ."</b>"       ;
 $formacrdees=0;  
}
else { if ($ladsplit[0] <= 0)$formacrdees = "<b style='color:black;'>"   .floatval($ladsplit[0])  ."</b>"      ;
 $formadrdees=0;   }

//refreshing summations
if ($ladsplit[0] < 0){$debitsummadees = $debitsummadees + floatval($ladsplit[0]);}
if ($ladsplit[0] >= 0){$creditsummadees = $creditsummadees + floatval($ladsplit[0]);}

$formadebitsummadees = "<b style='color:red;'>"  .$debitsummadees    ."</b>";
$formacrdeeseditsummadees= "<b style='color:red;'>"  .$creditsummadees   ."</b>";
 
$bal=floatval($debitsummadees + $creditsummadees);

if ($bal > 0){$formabaldees = "<b style='color:red;'>"   .$bal  ."</b>"       ;}

else { if ($bal <= 0)$formabaldees = "<b style='color:blue;'>"   .$bal   ."</b>"      ;}

$resds = $resds   ."<tr><td style='text-align:left;width:3%'>"   .$tvpizzano[0]  ."</td>"
 
  ."<td style='text-align:right; width:4%;'>"    . $formadrdees   ."</td>" 
  
   ."<td style='text-align:right; width:3%;'>"    . $formacrdees   ."</td>" 
   
  ."<td style='text-align:right; width:6%;'>"    . $formabaldees   ."</td>" 
  
   ."<td  style='width:6%;'>"   .$tvpizzano[2]  ."</td>" 
  
  ."<td  style='width:6%;'>"   .$tvpizzano[3]  ."</td>" 
 
 ."<td  style='width:6%;'>"   .$tvpizzano[4]  ."</td></tr>" ;
 
}  //end for $vloop

} //endif for poslad.

} //endif

} //end sloop

/////////////////////////////////////table design for the search result
$resdst="<table border='1'>  <tr><th>date</th><th>dr amt</th><th>cr amt</th><th>Progressive total</th><th>dr. account</th><th>cr. account</th><th>Remarks</th></tr>";
$debitsumma=0;
$creditsumma=0;

//Grand summations for the search
$resds = $resds  
// ."<tr><td>"   ." "  . "</td>"
."<td>"   ."Balance with debit and credit summations"   ."</td>"

."<td style='text-align:right; width:5%;'>"    . $formacrdeeseditsummadees   ."</td>" 
  
   ."<td style='text-align:right; width:5%;'>"    . $formadebitsummadees   ."</td>"

."<td style='text-align:right;'>"    .$formabaldees  ."</td>"
 ."<td>"  ." "  ."</td></tr>";

$resdst = $resdst . $resds . "</table>" ;
echo $resdst;

if ($_GET[taoutput] =="y"){
$todate= date(dmy_hi); 
$filename= "accs" .$todate  .".doc";

//$filename="accs.doc";
file_put_contents($filename,     ( $resuallaccos3   ."\n\n\n"   .$trbaltab   ."\n\n\n"  .$resuincoexp3   ."\n\n\n"       .$resubsexp3)   );

} //endif for isset taoutput

?>
</body></html>

Is there any method/structure for each transaction to be entered in the txt file of transactions?

Ans: The structure is important, becausing we shall be using a mychoicefilename.txt as a sort of database. In a formal database we come across rows and columns in tables. Those who are familiar with DBMS, RDBMS, sqlite, mysqlite etc. know it.

To avoid the complexities of using databases, particularly when confidentiality and security are not important, we are using a simple txt file separated by delimiters, as database.

In our Manager, we are using '2 line feeds (double line spacing) to separate one record from another record. (Each transaction is taken as a record, and entered in double line spacing.)

Incomplete.

yb Computer MCQs, Programs, Scripts & Studies

Tuesday, August 28, 2018

006 Free php Script for a Personal Accounts Manager

Where is the script?

Question: Will the Script Work in Windows / Linux / Mac. ?

Is there any method/structure for each transaction to be entered in the txt file of transactions?