Forum AtoutFox : Re: =c3=a9tat avec 2 bandes d=c3=a9tail   

lun. 07 juin 2021, 12h27
Gregory Adam
Belgique
atoutfox.public.association

Re: =c3=a9tat avec 2 bandes d=c3=a9tail

Bonjour Jean,
Une solution est de créer un curseur qui contient le tout et aussi un champ group qui identifie ce qu’il y a à imprimer.
La valeur du champ group dira quels champs il faut imprimer (utiliser Print When) et aussi quelle sera l’entête du groupe à imprimer.
Créer ce curseur est une tache pénible, mais bon, c’est ce que je fais.

create cursor Employe;
(  Id  I, ;
  Nom c(20) ;
)
create cursor Salaire ;
(  Id  I, ;
  ParentId  I, ;
  Prime    Y,;
  DatePrime  D;
)

create cursor Retenue ;
(  Id  I, ;
  ParentId  I, ;
  Montant    Y,;
  DateMontant  D ;
)
insert into Employe values (1, 'Jean')

insert into Salaire values (1, 1, $100, {^2021/01/01})
insert into Salaire values (1, 1, $1050, {^2021/02/01})
insert into Retenue values (1, 1, $50, {^2021/01/03})
insert into Retenue values (1, 1, $75, {^2021/02/02})

select   Employe.Id, ;
    Employe.Nom, ;
    '1'  as group, ;
    Salaire.Prime,;
    Salaire.DatePrime, ;
    $0 as Montant, ;
    {} as DateMontant ;
  from Employe ;
    join Salaire on Salaire .ParentId == Employe.Id ;
union all ;
select   Employe.Id, ;
    Employe.Nom, ;
    '2'  as group, ;
    $0 as Prime,;
    {} as DatePrime, ;
    Retenue . Montant, ;
    Retenue.DateMontant ;
  from Employe ;
    join Retenue on Retenue .ParentId == Employe.Id ;
order by 1, 3, 5, 7 ;
into cursor tmp readwrite


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019876