Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 0576299f

Von Moritz Bunkus vor etwa 19 Jahren hinzugefügt

Whitespace an den Zeilenenden entfernt.

Unterschiede anzeigen:

SL/IR.pm
235 235

  
236 236
            # add entry for inventory, this one is for the sold item
237 237
            if ($linetotal != 0) {
238
              $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, 
238
              $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
239 239
			  transdate)
240 240
			  VALUES ($ref->{trans_id}, $ref->{inventory_accno_id},
241 241
			  $linetotal, '$ref->{transdate}')|;
242 242
              $dbh->do($query) || $form->dberror($query);
243 243

  
244 244
              # add expense
245
              $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, 
245
              $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
246 246
			  transdate, taxkey)
247 247
			  VALUES ($ref->{trans_id}, $ref->{expense_accno_id},
248
			  | . ($linetotal * -1) . qq|, '$ref->{transdate}', 
248
			  | . ($linetotal * -1) . qq|, '$ref->{transdate}',
249 249
                          (SELECT taxkey from tax WHERE chart_id = $ref->{expense_accno_id}))|;
250 250
              $dbh->do($query) || $form->dberror($query);
251 251
            }
......
443 443
           $form->round_amount($form->{amount}{$trans_id}{$accno}, 2)
444 444
          ) != 0
445 445
        ) {
446
        $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, 
446
        $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
447 447
		    transdate, taxkey)
448 448
		    VALUES ($trans_id, (SELECT c.id FROM chart c
449 449
		                         WHERE c.accno = '$accno'),
......
1220 1220
}
1221 1221

  
1222 1222
1;
1223

  

Auch abrufbar als: Unified diff