request("ac");
$request_jrn=$http->request("p_jrn", "string","");
// Check privilege
if ($request_jrn !="" &&
$g_user->check_jrn($request_jrn) != 'W')
{
NoAccess();
exit - 1;
}
$p_msg="";
$post_jrn=$http->post("p_jrn", "string","");
/* if a new invoice is encoded, we display a form for confirmation */
if (isset($_POST['view_invoice']))
{
$Ledger = new Acc_Ledger_Purchase($cn, $post_jrn);
try
{
$Ledger->verify($_POST);
}
catch (Exception $e)
{
alert($e->getMessage());
$p_msg=$e->getMessage();
$correct = 1;
}
// if correct is not set it means it is correct
if (!isset($correct))
{
echo '
';
echo '
';
echo h1(_("Confirmation"));
echo '
';
echo '
';
echo h2(_("Attention, cette opération n'est pas encore sauvée : vous devez encore confirmer"),' class="notice"');
echo '
';
echo '
';
?>
';
return;
}
}
//------------------------------
/* Record the invoice */
//------------------------------
if (isset($_POST['record']))
{
$Ledger = new Acc_Ledger_Purchase($cn, $post_jrn);
try
{
$Ledger->verify($_POST);
}
catch (Exception $e)
{
alert($e->getMessage());
$p_msg=$e->getMessage();
$correct = 1;
}
// record the invoice
if (!isset($correct))
{
echo '
';
$Ledger = new Acc_Ledger_Purchase($cn, $post_jrn);
$internal = $Ledger->insert($_POST);
/* Save the predefined operation */
if ( isset($_POST['opd_name']) && trim($_POST['opd_name']) != "" )
{
$opd = new Pre_op_ach($cn);
$opd->get_post();
$opd->save();
}
/* Show button */
$jr_id = $cn->get_value('select jr_id from jrn where jr_internal=$1', array($internal));
echo '
'._('Enregistrement').'
';
/* Save the additional information into jrn_info */
$obj = new Acc_Ledger_Info($cn);
$obj->save_extra($Ledger->jr_id, $_POST);
//printf('
%s
', $jr_id, dossier::id(), $internal);
// Feedback
echo $Ledger->confirm($_POST, true);
if (isset($Ledger->doc))
{
echo '
'._('Document').'
';
echo $Ledger->doc;
}
// extourne
if (isset($_POST['reverse_ck']))
{
$p_date=$http->post('reverse_date','string', '');
$p_msg=$http->post("ext_label");
if (isDate($p_date)==$p_date)
{
// reverse the operation
try
{
$Ledger->reverse($p_date,$p_msg);
echo '
';
printf ( _('Extourné au %s'),$p_date);
echo '
';
}
catch (Exception $e)
{
echo '
'.
_('Opération non extournée').
$e->getMessage().
'
';
}
}
else
{
// warning because date is invalid
echo '
'._('Date invalide, opération non extournée').'
';
}
}
echo '
';
echo "- ";
echo $Ledger->button_new_operation();
echo "
";
echo "- ";
echo $Ledger->button_copy_operation();
echo "
";
echo "
";
echo '
';
return;
}
}
// ------------------------------------------------------------
/* Display a blank form or a form with predef operation */
/* or a form for correcting */
// -------------------------------------------------------------
echo '
';
//
$array = (isset($_POST['correct']) || isset($correct)) ? $_POST : null;
$Ledger = new Acc_Ledger_Purchase($cn, 0);
if (!isset($_REQUEST ['p_jrn']))
{
$def_ledger = $Ledger->get_first('ach',2);
if ( empty ($def_ledger))
{
exit(_('Pas de journal disponible'));
}
$Ledger->id = $def_ledger['jrn_def_id'];
}
else
$Ledger->id = $request_jrn;
if (isset ($_REQUEST['p_jrn_predef'])){
$Ledger->id=$_REQUEST['p_jrn_predef'];
}
// pre defined operation
//
echo '
';
echo '
';
echo '
'.$p_msg.'
';
try
{
$payment=$http->request("e_mp", "string",0);
$date_payment=$http->request("mp_date", "string","");
$comm_payment=$http->request("e_comm_paiement", "string","");
$acompte=$http->request("acompte", "string",0);
echo "
";
}
catch (Exception $e)
{
alert($e->getMessage());
return;
}
if (!isset($_REQUEST['e_date']) && $g_parameter->MY_DATE_SUGGEST=='Y')
echo create_script(" get_last_date()");
echo create_script(" update_name()");
echo '
';
return;
// end record invoice
?>