altocompta/include/compta_ven.inc.php

<?php
/*
 *   This file is part of PhpCompta.
 *
 *   PhpCompta is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   PhpCompta is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with PhpCompta; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/
/* $Revision$ */

// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr

/*!\file
 * \brief file included to manage all the sold operation
 */
require_once("class_icheckbox.php");
require_once("class_acc_ledger_sold.php");
require_once ('class_pre_op_ven.php');
require_once ('class_document.php');
require_once ('class_acc_ledger_info.php');
require_once('class_ipopup.php');

$gDossier=dossier::id();
$cn=new Database(dossier::id());
//menu = show a list of ledger
$str_dossier=dossier::get();
$ac="ac=".$_REQUEST['ac'];
global $g_parameter;

//----------------------------------------------------------------------
// Encode a new invoice
// empty form for encoding
//----------------------------------------------------------------------

    $Ledger=new Acc_Ledger_Sold($cn,0);

    // Check privilege
    if ( isset($_REQUEST['p_jrn']) &&
            $g_user->check_jrn($_REQUEST['p_jrn']) != 'W' )
    {

        NoAccess();
        exit -1;
    }

    /* if a new invoice is encoded, we display a form for confirmation */
    if ( isset ($_POST['view_invoice'] ) )
    {
        $Ledger=new Acc_Ledger_Sold($cn,$_POST['p_jrn']);
        try
        {
            $Ledger->verify($_POST);
        }
        catch (Exception $e)
        {
            alert($e->getMessage());
            $correct=1;
        }
        // if correct is not set it means it is correct
        if ( ! isset($correct))
        {
            echo '<div class="content">';
			echo h2info('Confirmation');


			echo '<div class="content">';
            echo '<form class="print" enctype="multipart/form-data" method="post">';
            echo dossier::hidden();
            echo $Ledger->confirm($_POST );
			echo HtmlInput::hidden('ac',$_REQUEST['ac']);
            $chk=new ICheckBox();
            $chk->selected=false;
	    echo '<div style="clear:both">';
            echo $chk->input('opd_save');
            echo "Sauvez cette op&eacute;ration comme modèle d'opération ?";
	    echo '<br/>';
	    $opd_name=new IText('opd_name');
	    echo "Nom du modèle ".$opd_name->input();
	    echo '</div>';
            echo '<hr>';
	    echo HtmlInput::hidden('ac',$_REQUEST['ac']);
            echo HtmlInput::submit("record",_("Enregistrement"),'onClick="return verify_ca(\'\');"');
            echo HtmlInput::submit('correct',_("Corriger"));
            echo '</form>';

            echo '</div>';
            echo '</div>';
            exit();
        }
    }
    //------------------------------
    /* Record the invoice */
    //------------------------------

    if ( isset($_POST['record']) )
    {
// Check privilege
        if ( $g_user->check_jrn($_REQUEST['p_jrn']) != 'W' )
        {

            NoAccess();
            exit -1;
        }

        $Ledger=new Acc_Ledger_Sold($cn,$_POST['p_jrn']);
        try
        {
            $Ledger->verify($_POST);
        }
        catch (Exception $e)
        {
            alert($e->getMessage());
            $correct=1;
        }

        if ( ! isset($correct))
        {
            echo '<div class="content">';
            $Ledger=new Acc_Ledger_Sold($cn,$_POST['p_jrn']);
            $internal=$Ledger->insert($_POST);

            /* Save the predefined operation */
            if ( isset($_POST['opd_save']))
            {
                $opd=new Pre_op_ven($cn);
                $opd->get_post();
                $opd->save();
            }

            /* Show button  */
            echo '<h2 class="info"> Enregistrement </h2>';
            $jr_id=$cn->get_value('select jr_id from jrn where jr_internal=$1',array($internal));

            echo "<h2 >"._('Opération sauvée');
            if ( $Ledger->pj != '') echo ' Piece : '.h($Ledger->pj);
            echo "</h2>";
            if ( strcmp($Ledger->pj,$_POST['e_pj']) != 0 )
            {
                echo '<h3 class="notice"> '._('Attention numéro pièce existante, elle a du être adaptée').'</h3>';
            }

            printf ('<a class="line" style="display:inline" href="javascript:modifyOperation(%d,%d)">%s</a><hr>',
                    $jr_id,dossier::id(),$internal);
	    echo $Ledger->confirm($_POST,true);
            /* Show link for Invoice */
            if (isset ($Ledger->doc) )
            {
                echo '<span class="invoice">';
                echo $Ledger->doc;
                echo '</span>';
            }


            /* Save the additional information into jrn_info */
            $obj=new Acc_Ledger_Info($cn);
            $obj->save_extra($Ledger->jr_id,$_POST);


            echo '</div>';
            exit();
        }
    }
    //  ------------------------------
    /* Display a blank form or a form with predef operation */
    //  ------------------------------

    $array=(isset($_POST['correct'])||isset ($correct))?$_POST:null;
    $Ledger=new Acc_Ledger_Sold($cn,0);
//
// pre defined operation
//

    if ( !isset($_REQUEST ['p_jrn']) )
    {
        $def_ledger=$Ledger->get_first('ven',2);
		if (empty($def_ledger))
	{
		exit('Pas de journal disponible');
	}
        $Ledger->id=$def_ledger['jrn_def_id'];
    }
    else
        $Ledger->id=$_REQUEST ['p_jrn'];
	if (isset ($_REQUEST['p_jrn_predef'])){
		$Ledger->id=$_REQUEST['p_jrn_predef'];
	}

   echo '<div id="predef_form">';
    echo '<form style="display:inline" method="GET" >';
	echo HtmlInput::hidden('ac',$_REQUEST['ac']);
    echo dossier::hidden();
    echo HtmlInput::hidden('p_jrn_predef',$Ledger->id);
    $op=new Pre_op_ven($cn);
    $op->set('ledger',$Ledger->id);
    $op->set('ledger_type',"VEN");
    $op->set('direct','f');
    echo $op->form_get();
    echo '</form>';
    echo '</div>';

   echo '<div class="content">';
 echo "<FORM class=\"print\" NAME=\"form_detail\" METHOD=\"POST\" >";
    /* request for a predefined operation */
    if (  isset($_REQUEST['pre_def']) && ! isset($_POST['correct']) )
    {
        // used a predefined operation
        //
        $op=new Pre_op_ven($cn);
        $op->set_od_id($_REQUEST['pre_def']);
        $p_post=$op->compute_array();
        $Ledger->id=$_REQUEST ['p_jrn_predef'];

        echo $Ledger->input($p_post);
        echo '<div class="content">';
        echo $Ledger->input_paid();
        echo '</div>';
        echo '<script>';
        echo 'compute_all_ledger();';
        echo '</script>';
    }
    else
    {
        echo HtmlInput::hidden("ledger_type","VEN");
	  echo HtmlInput::hidden("ac",$_REQUEST['ac']);
        echo HtmlInput::hidden("sa","p");
        echo $Ledger->input($array);
        echo '<div class="content">';
        echo $Ledger->input_paid();
        echo '</div>';
        echo '<script>';
        echo 'compute_all_ledger();';
        echo '</script>';
    }
    echo '<div class="content">';
    echo HtmlInput::button('act',_('Actualiser'),'onClick="compute_all_ledger();"');
    echo HtmlInput::submit("view_invoice",_("Enregistrer"));
    echo HtmlInput::reset(_('Effacer '));
    echo '</div>';
    echo "</FORM>";

    /* if we suggest the pj n# the run the script */
    if ( $g_parameter->MY_PJ_SUGGEST=='Y')
    {
		if ( ! isset($_POST['e_date'])) echo '<script> update_pj();get_last_date()</script>';
    }
    exit();



exit();

//-------------------------------------------------------------------------------
// Listing
//--------------------------------------------------------------------------------
if ( $def == 2 )
{
    echo '<div class="content">';
// Check privilege
    if ( isset($_REQUEST['p_jrn']) &&
            $g_user->check_jrn($_REQUEST['p_jrn']) == 'X')
    {

        NoAccess();
        exit -1;
    }

    $Ledger=new Acc_Ledger_Sold($cn,0);
    if ( !isset($_REQUEST['p_jrn']))
    {
        $Ledger->id=-1;
    }
    else
        $Ledger->id=$_REQUEST['p_jrn'];
    echo $Ledger->display_search_form();
    //------------------------------
    // UPdate the payment
    //------------------------------
    if ( isset ( $_GET ['paid']))
    {
        $Ledger->update_paid($_GET);
    }
    $p_array=$_GET;
    /* by default we should the default period */
    if ( ! isset($p_array['date_start']))
    {
        $period=$g_user->get_periode();
        $per=new Periode($cn,$period);
        list($date_start,$date_end)=$per->get_date_limit();
        $p_array['date_start']=$date_start;
        $p_array['date_end']=$date_end;
    }
    /*  compute the sql stmt */
    list($sql,$where)=$Ledger->build_search_sql($p_array);

    $max_line=$cn->count_sql($sql);

    $step=$_SESSION['g_pagesize'];
    $page=(isset($_GET['offset']))?$_GET['page']:1;
    $offset=(isset($_GET['offset']))?$_GET['offset']:0;
    $bar=jrn_navigation_bar($offset,$max_line,$step,$page);


    echo '<form method="GET" id="fpaidv" class="print" action="'.$href.'">';
    echo HtmlInput::hidden("sa","l");
    echo HtmlInput::hidden("p_action","ven");
    echo dossier::hidden();
      echo HtmlInput::hidden("ac",$_REQUEST['ac']);
    echo $bar;
    list($count,$html)= $Ledger->list_operation($sql,$offset,1);
    echo $html;
    echo $bar;
    $r=HtmlInput::get_to_hidden(array('l','date_start','date_end','desc','amount_min','amount_max','qcode','accounting','unpaid','gDossier','ledger_type','p_action'));
    if (isset($_GET['r_jrn'])) {
      foreach ($_GET['r_jrn'] as $k=>$v)
	$r.=HtmlInput::hidden('r_jrn['.$k.']',$v);
    }
    echo $r;

    echo '<p>'.HtmlInput::submit('paid',_('Mise à jour paiement')).IButton::select_checkbox('fpaidv').IButton::unselect_checkbox('fpaidv').'</p>';

    echo '</form>';

    /*
     * Export to csv
     */
    $r=HtmlInput::get_to_hidden(array('l','date_start','date_end','desc','amount_min','amount_max','qcode','accounting','unpaid','gDossier','ledger_type','p_action'));
    if (isset($_GET['r_jrn'])) {
      foreach ($_GET['r_jrn'] as $k=>$v)
	$r.=HtmlInput::hidden('r_jrn['.$k.']',$v);
    }
    echo '<form action="export.php" method="get">';
    echo $r;
    echo HtmlInput::hidden('act','CSV:histo');
    echo HtmlInput::submit('viewsearch','Export vers CSV');

    echo '</form>';

    echo '</div>';
    exit();

}
//---------------------------------------------------------------------------
// Listing unpaid
//---------------------------------------------------------------------------
if ( $def==3 )
{
    echo '<div class="content">';
// Check privilege
    if ( isset($_REQUEST['p_jrn']) &&
            $g_user->check_jrn($_REQUEST['p_jrn']) == 'X')
    {
        NoAccess();
        exit -1;
    }

    $Ledger=new Acc_Ledger_Sold($cn,0);
    if ( !isset($_REQUEST['p_jrn']))
    {
        $Ledger->id=-1;
    }
    else
        $Ledger->id=$_REQUEST['p_jrn'];
    echo $Ledger->display_search_form();
    //------------------------------
    // UPdate the payment
    //------------------------------
    if ( isset ( $_GET ['paid']))
    {
        $Ledger->update_paid($_GET);
    }

    $p_array=$_GET;

    /*  compute the sql stmt */
    list($sql,$where)=$Ledger->build_search_sql($p_array);
    if ( trim($where) != '')
        $sql .= ' and '.SQL_LIST_UNPAID_INVOICE;
    else
        $sql .= ' where '.SQL_LIST_UNPAID_INVOICE;

    $max_line=$cn->count_sql($sql);

    $step=$_SESSION['g_pagesize'];
    $page=(isset($_GET['offset']))?$_GET['page']:1;
    $offset=(isset($_GET['offset']))?$_GET['offset']:0;
    $bar=jrn_navigation_bar($offset,$max_line,$step,$page);


    echo '<form method="GET" id="fpaidv" class="print" action="'.$href.'">';
    echo HtmlInput::hidden("sa","lnp");
    echo HtmlInput::hidden("p_action","ven");
    echo dossier::hidden();
    echo $bar;
    list($count,$html)= $Ledger->list_operation($sql,$offset,1);
    echo $html;
    echo $bar;

    $r=HtmlInput::get_to_hidden(array('l','date_start','date_end','desc','amount_min','amount_max','qcode','accounting','unpaid','gDossier','ledger_type','p_action'));
    if (isset($_GET['r_jrn'])) {
      foreach ($_GET['r_jrn'] as $k=>$v)
	$r.=HtmlInput::hidden('r_jrn['.$k.']',$v);
    }
    echo $r;

    echo '<p>'.HtmlInput::submit('paid',_('Mise à jour paiement')).IButton::select_checkbox('fpaidv').IButton::unselect_checkbox('fpaidv').'</p>';
    echo '</form>';

    echo '</div>';
    exit();

}