projekt kivitendo

    $button1 = qq|

       <td><input name=datefrom id=datefrom size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">

       <input type=button name=datefrom id="trigger1" value=|

       |;

    $button2 = qq|

       <td><input name=dateto id=dateto size=11 title="$myconfig{dateformat}" onBlur=\"check_right_date_format(this)\">

    $button1 = qq|

       <td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" $readonly onBlur=\"check_right_date_format(this)\">

       <input type=button name=transdate id="trigger1" value=|

       |;

    #write Trigger

	  </td>

	</tr>|;

  }

	$department|;

  if ($form->{id}) {

    print qq|

    <tr class=listtotal>

    <td></td>

    <th align=right class=listtotal> $form->{totaldebit}</th>

    <td colspan=6></td>

    </tr>

  </table>

        <input class=submit type=submit name=action value="| . $locale->text('Delete') . qq|">|;

    }

        <input class=submit type=submit name=action id=update_button value="| . $locale->text('Update') . qq|">

        <input type="button" class="submit" onclick="follow_up_window()" value="|

      . $locale->text('Follow-Up')

  	    $form->{addition} = "DELETED";

  	    $form->save_history($form->dbconnect(\%myconfig));

      }

    $form->redirect($locale->text('Transaction deleted!'))

  }

  $form->error($locale->text('Cannot delete transaction!'));

    $credit   += $cr + $tax if $cr;

    $taxtotal += $tax if $form->{taxincluded}

  }

  $form->{taxincluded} = 0 if !$taxtotal;

  # this is just for the wise guys

  if ($form->round_amount($debit, 2) != $form->round_amount($credit, 2)) {

    $form->error($locale->text('Out of balance transaction!'));

  }

  if ($form->round_amount($debit, 2) + $form->round_amount($credit, 2) == 0) {

    $form->error($locale->text('Empty transaction!'));

  }

  if (($errno = GL->post_transaction(\%myconfig, \%$form)) <= -1) {

    $errno *= -1;

    $err[1] = $locale->text('Cannot have a value in both Debit and Credit!');

  if(!exists $form->{addition} && $form->{id} ne "") {

    $form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};

    $form->{addition} = "SAVED";

    $form->save_history($form->dbconnect(\%myconfig));

  }

  $lxdebug->leave_sub();

}

    $form->{addition} = "STORNO";

    $form->save_history($form->dbconnect(\%myconfig));

  }

  $lxdebug->leave_sub();

}