'; $Ret=$cn->exec_sql("select pcm_val,pcm_lib,pcm_val_parent,pcm_type,array_to_string(array_agg(j_qcode) , ',') as acode from tmp_pcmn left join vw_poste_qcode on (j_poste=pcm_val) where substr(pcm_val::text,1,1)='".$g_start."'". " group by pcm_val,pcm_lib,pcm_val_parent, pcm_type order by pcm_val::text"); $MaxRow=Database::num_row($Ret); ?>

form(false); ?> '; $tr =''; } else { $td=''; } echo $tr; echo "$td"; echo HtmlInput::history_account($A['pcm_val'], $A['pcm_val']); echo ''; echo "$td"; printf ("", str_replace("'","\'",$A['pcm_val']), str_replace("'","\'",$A['pcm_lib']), str_replace("'","\'",$A['pcm_val_parent']), str_replace("'","\'",$A['pcm_type']), dossier::id()); echo h($A['pcm_lib']); echo $td; echo $A['pcm_val_parent']; echo ''; echo "$td"; echo $A['pcm_type']; echo ""; echo $td; if ( strlen($A['acode']) >0 ) { if (strpos($A['acode'], ",") >0 ) { $det_qcode= explode(",", $A['acode']); echo '

'; $max=(count($det_qcode)>MAX_QCODE)?MAX_QCODE:count($det_qcode); for ($e=0;$e<$max;$e++) { echo '
• '.HtmlInput::card_detail($det_qcode[$e]).'
'; } echo ''; if ($max < count($det_qcode)) { echo "..."; } } else { echo HtmlInput::card_detail($A['acode']); } } echo ''; //echo $td; //printf ('Efface',$A['pcm_val'],$str_dossier); //echo ""; echo "

"; } echo "

Poste comptable	Libellé	Poste comptable Parent	Type	Fiche
'; $tr='

"; echo "

"; ?> "; html_page_stop(); ?>