0000271: Filter pour grand livre : poste et lettrage

This commit is contained in:
Dany De Bontridder 2011-05-24 21:12:54 +00:00
parent ac23d7efd9
commit 6e98da9ea6
4 changed files with 38 additions and 25 deletions

View file

@ -43,6 +43,8 @@ $User->Check();
$User->check_dossier($gDossier);
$User->can_request(IMPBIL,0);
$sql="select pcm_val from tmp_pcmn ";
extract($_GET);
if ($from_poste != '')
{
@ -50,15 +52,15 @@ if ($from_poste != '')
$cond_poste .=' pcm_val >= upper (\''.Database::escape_string($from_poste).'\')';
}
if ( $to_poste->value != '')
if ( $to_poste != '')
{
if ( $cond_poste == '')
{
$cond_poste = ' where pcm_val <= upper (\''.Database::escape_string($from_poste).'\')';
$cond_poste = ' where pcm_val <= upper (\''.Database::escape_string($to_poste).'\')';
}
else
{
$cond_poste.=' and pcm_val <= upper (\''.Database::escape_string($from_poste).'\')';
$cond_poste.=' and pcm_val <= upper (\''.Database::escape_string($to_poste).'\')';
}
}
@ -83,12 +85,12 @@ $header = array( "Date", "Référence", "Libellé", "Pièce","Let", "Débit", "C
$lor = array( "L" , "L" , "L" , "L" , "R", "R" , "R" , "R" );
// Column widths (in mm)
$width = array( 13 , 20 , 60 , 15 , 12 , 20 , 20 , 20 );
$l=(isset($_REQUEST['letter']))?1:0;
$l=(isset($_REQUEST['letter']))?2:0;
foreach ($a_poste as $poste)
{
$Poste=new Acc_Account_Ledger($cn,$poste['pcm_val']);
$Poste=new Acc_Account_Ledger($cn,$poste['pcm_val']);
list($array,$tot_deb,$tot_cred)=$Poste->get_row_date($from_periode,$to_periode,$l);