afficher les semaine sans besoin (besoin est 0) semaine 51

[ghilenasma]

Bonjour tout le monde 

j'ai un souci pour afficher les semaine sans besoin du stock  pour un article 

dans le premier exemple la semaine 51 s'affiche 

dans le deuxième tableau j'ai pas la semaine 

je veux crée une ligne entre 201850 et 201852 qui contient 201851 

je suis ouverte a toutes proposition idée moi , Merci d'avance 

Cordialement 

[Seyko]

SUB MasterCalendarIn(D,Table) //  début de la routine

	TRACE La table RESIDENT contenant le champ date $(D) se nomme $(Table);
    
    // Calcul du minimum et du maximum
    [Temp]:
    LOAD
    MIN([$(D)]) AS StartDate,
    MAX([$(D)]) AS EndDate
    RESIDENT [$(Table)];
  
	// Récupération du Min et du Max
    LET vStartDate = Num(Peek('StartDate', 0, 'Temp'));
    LET vEndDate   = Num(Peek('EndDate'	 , 0, 'Temp'));

    // Listing en continue de toutes les dates dans l'intervalle
    [TempCalendar]:
    LOAD
    DATE($(vStartDate) + RowNO() - 1) 	AS TempDate
    AutoGenerate
    $(vEndDate) - $(vStartDate) + 1;

    QUALIFY*; 
    UNQUALIFY [$(D)]; // clé isolé
    
    // Création du MasterCalendar
    [Calendar.$(D)]:
    LOAD
      TempDate 													   AS [$(D)],
      Week(TempDate) 											   AS Week,
      YEAR(TempDate) 											   AS Year,
      Month(TempDate) 											   AS Month,
      WEEKDAY(TempDate) 										   AS Weekday,
      Dual('Q' & CEIL(Month(TempDate)/3), CEIL(Month(TempDate)/3)) AS Quater
    RESIDENT [TempCalendar] ;
	
    UNQUALIFY*;
    
	// Suppression tables temporaires
    DROP TABLES 
    [Temp],
    [TempCalendar];
   
END SUB // fin de la routine

// Utilisation de la routine
CALL MasterCalendarIn('Date','Fait');