projekt kivitendo

  my ($self, $myconfig, $form) = @_;

  $main::lxdebug->enter_sub();

  my ($query, $sth, $source, $null, $space);

  my ($glwhere, $arwhere, $apwhere) = ("1 = 1", "1 = 1", "1 = 1");

    ($form->{account_description}) = selectrow_query($form, $dbh, $query, $form->{accno});

  }

  $main::lxdebug->leave_sub();

}

  my ($query, $sth, $ref, @values);

  $query = qq|SELECT closedto, revtrans FROM defaults|;

  ($form->{closedto}, $form->{revtrans}) = selectrow_query($form, $dbh, $query);

       ORDER BY c.accno|;

  $form->{chart} = selectall_hashref_query($form, $dbh, $query, conv_date($form->{transdate}));

  $main::lxdebug->leave_sub();

}