php jrn
- param c : control for storing the pcm_val -> javascript account
- param l : control for storing the pcm_lib -> javascript label
- param ctl : the node to update (ipopup)
- param q : the acc_query -> javascript query
* - ctl (to return)
*
*
*/
if ( ! defined('ALLOWED')) define ('ALLOWED',1);
require_once '../include/constant.php';
require_once NOALYSS_INCLUDE.'/ac_common.php';
require_once NOALYSS_INCLUDE.'/class_acc_ledger.php';
require_once NOALYSS_INCLUDE.'/class_database.php';
require_once NOALYSS_INCLUDE.'/function_javascript.php';
require_once NOALYSS_INCLUDE.'/class_acc_account_ledger.php';
mb_internal_encoding("UTF-8");
extract($_REQUEST);
$var=array('gDossier','op','ctl');
$cont=0;
/* check if mandatory parameters are given */
foreach ($var as $v)
{
if ( ! isset ($_REQUEST [$v] ) )
{
echo "$v is not set ";
$cont=1;
}
}
ajax_disconnected($ctl);
set_language();
if ( $cont != 0 ) exit();
$cn=new Database(dossier::id());
require_once NOALYSS_INCLUDE.'/class_user.php';
global $g_user;
$g_user=new User($cn);
$g_user->Check();
if ($g_user->check_dossier(dossier::id()) == 'X') exit();
$xml="";
if ( LOGINPUT)
{
$file_loginput=fopen($_ENV['TMP'].'/scenario-'.$_SERVER['REQUEST_TIME'].'.php','a+');
fwrite ($file_loginput,"size=30;
$it->value=(isset($q))?$q:'';
$str_poste=$it->input();
$str_submit=HtmlInput::submit('sf',_('Recherche'),"","smallbutton");
$r='';
$r=HtmlInput::anchor_close('search_account');
$r.=' '.h2(_('Poste Comptable'),' class="title"').'
';
$r.='';
$sql="
select pcm_val,pcm_lib,array_to_string(array_agg(j_qcode) , ',') as acode
from tmp_pcmn left join vw_poste_qcode on (j_poste=pcm_val) ";
$sep=" where ";
/* build the sql stmt */
if ( isset($j) && $j > 0 && isNumber($j))
{
/* create a filter on the ledger */
$ledger=new Acc_Account_Ledger($cn,0);
$fd_id=$ledger->build_sql_account($j);
if ( $fd_id != '' )
{
$sql.=" $sep (".$fd_id.')';
$sep=" and ";
}
}
/* show result */
if ( isset($q) && strlen(trim($q)) > 0)
{
$q= sql_string($q);
$sql.=sprintf(" $sep ( pcm_val::text like '%s%%' or pcm_lib::text ilike '%%%s%%') ",
$q,$q);
}
$sql.=' group by pcm_val,pcm_lib,pcm_val_parent, pcm_type order by pcm_val::text limit 50';
if ( isset($q) && strlen(trim($q))> 0 )
{
$array=$cn->get_array($sql);
}
if ( ! isset($q) ) $array=array();
if ( isset($q) && strlen(trim($q))==0) $array=array();
/* set the javascript */
for ($i=0;$i
$ctl
$xml
EOF;