1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
| //Onglet 1
SET ThousandSep=' ';
SET DecimalSep=',';
SET MoneyThousandSep=' ';
SET MoneyDecimalSep=',';
SET MoneyFormat='# ##0,00 ;-# ##0,00 ';
SET TimeFormat='hh:mm:ss';
SET DateFormat='DD/MM/YYYY';
SET TimestampFormat='DD/MM/YYYY hh:mm:ss[.fff]';
SET MonthNames='janv.;févr.;mars;avr.;mai;juin;juil.;août;sept.;oct.;nov.;déc.';
SET DayNames='lun.;mar.;mer.;jeu.;ven.;sam.;dim.';
//Onglet 2
Cal_lot :
LOAD distinct AnneeMois AS LIEN_CAL_LOT,
AnneeMois AS AnneeMois_Lot,
LibelleMois AS LibelleMois_Lot,
LibCourtMois AS LibCourtMois_Lot;
SQL SELECT *
FROM "VM_CALENDRIER";
//Onglet 3
Lot :
LOAD
ID_TERME&'-'&ID_LOT AS LIEN_LOT_VAC,
ID_TERME&'-'&ID_LOT AS LIEN_LOT_ANN,
ID_TERME&'-'&ID_LOT AS LIEN_LOT_CL,
ID_TERME AS LIEN_CAL_LOT,
"VF_ACTIF_LOT",
ID_UNIT&'-'&ID_COMCOM&'-'&ID_COM&'-'&ID_RESID AS LIEN_GM,
left("ID_TERME",4) as Annee_Lot,
right(left("ID_TERME",6),2) as Mois_Lot,
"ID_LOT",
// "ID_CONV",
TYP_TERME,
ID_NAT_LOT,
IF(ID_NAT_LOT='ANX','Annexe',
IF(ID_NAT_LOT='HEB','Hébergement',
IF(ID_NAT_LOT='LGT','Logement',
IF(ID_NAT_LOT='SPE','Local spécifique',
IF(ID_NAT_LOT='STA','Stationnement','Autre')))))as 'Nature Lot';
SQL SELECT *
FROM "VM_LOT";
//Onglet 4
Contrat_lot:
LOAD
ID_TERME&'-'&ID_LOT AS LIEN_LOT_CL,
ID_CONTRAT&'-'&ID_TERME as LIEN_CONT_CL,
ID_CONTRAT&'-'&ID_LOT&'-'&TYP_CONT&'-'&ID_TERME as LIEN_CONT_QUIT,
"D_ENT_CNTLOT",
left (D_ENT_CNTLOT,4) AS Année_entrée_lot,
IF(left(right (D_ENT_CNTLOT,5),2)='01',month(D_ENT_CNTLOT),
IF(left(right (D_ENT_CNTLOT,5),2)='02',month(D_ENT_CNTLOT),
IF(left(right (D_ENT_CNTLOT,5),2)='03',month(D_ENT_CNTLOT),
IF(left(right (D_ENT_CNTLOT,5),2)='04',month(D_ENT_CNTLOT),
IF(left(right (D_ENT_CNTLOT,5),2)='05',month(D_ENT_CNTLOT),
IF(left(right (D_ENT_CNTLOT,5),2)='06',month(D_ENT_CNTLOT),
IF(left(right (D_ENT_CNTLOT,5),2)='07',month(D_ENT_CNTLOT),
IF(left(right (D_ENT_CNTLOT,5),2)='08',month(D_ENT_CNTLOT),
IF(left(right (D_ENT_CNTLOT,5),2)='09',month(D_ENT_CNTLOT),
IF(left(right (D_ENT_CNTLOT,5),2)='10',month(D_ENT_CNTLOT),
IF(left(right (D_ENT_CNTLOT,5),2)='11',month(D_ENT_CNTLOT),
IF(left (right (D_ENT_CNTLOT,5),2)='12',month(D_ENT_CNTLOT),'Autre'))))))))))))as Mois_entrée_lot,
left (D_ENT_CNTLOT,4) & left(right (D_ENT_CNTLOT,5),2) AS Année_Mois_Entrée_Lot,
"D_SOR_CNTLOT",
left (D_SOR_CNTLOT,4) AS Année_sortie_lot,
IF(left(right (D_SOR_CNTLOT,5),2)='01',month(D_SOR_CNTLOT),
IF(left(right (D_SOR_CNTLOT,5),2)='02',month(D_SOR_CNTLOT),
IF(left(right (D_SOR_CNTLOT,5),2)='03',month(D_SOR_CNTLOT),
IF(left(right (D_SOR_CNTLOT,5),2)='04',month(D_SOR_CNTLOT),
IF(left(right (D_SOR_CNTLOT,5),2)='05',month(D_SOR_CNTLOT),
IF(left(right (D_SOR_CNTLOT,5),2)='06',month(D_SOR_CNTLOT),
IF(left(right (D_SOR_CNTLOT,5),2)='07',month(D_SOR_CNTLOT),
IF(left(right (D_SOR_CNTLOT,5),2)='08',month(D_SOR_CNTLOT),
IF(left(right (D_SOR_CNTLOT,5),2)='09',month(D_SOR_CNTLOT),
IF(left(right (D_SOR_CNTLOT,5),2)='10',month(D_SOR_CNTLOT),
IF(left(right (D_SOR_CNTLOT,5),2)='11',month(D_SOR_CNTLOT),
IF(left (right (D_SOR_CNTLOT,5),2)='12',month(D_SOR_CNTLOT),''))))))))))))as Mois_sortie_lot,
left (D_SOR_CNTLOT,4) & left(right (D_SOR_CNTLOT,5),2) AS Année_Mois_Sortie_Lot
;
SQL SELECT *
FROM "VM_CONTRAT_LOT";
left Join
LOAD
ID_CONTRAT&'-'&ID_LOT&'-'&TYP_CONT&'-'&if(right(ID_TERME,2)=12,ID_TERME+89,ID_TERME+1) as LIEN_CONT_QUIT,
"D_ENT_CNTLOT";
SQL SELECT *
FROM "VM_CONTRAT_LOT"
;
// Onglet 5
Contrat :
LOAD ID_CONTRAT&'-'&ID_TERME as LIEN_CONT_CL,
ID_CONTRAT&'-'&ID_TERME as LIEN_CONT_CTX,
ID_CONTRAT&'-'&ID_TERME as LIEN_CONT_PA,
ID_TERME AS LIEN_CAL_CONT,
"ID_CONTRAT",
ID_TERME as ID_TERME
;
SQL SELECT *
FROM "VM_CONTRAT";
// Onglet 6
Ref :
LOAD distinct LIEN_CAL_LOT,
Annee_Lot,
Mois_Lot,
TYP_TERME
Resident Lot
ORDER BY LIEN_CAL_LOT;
inner join
LOAD distinct LIEN_CAL_LOT,
LibCourtMois_Lot
Resident Cal_lot
ORDER BY LIEN_CAL_LOT;
NoConcatenate
Ref_M :
LOAD distinct LIEN_CAL_LOT,
Annee_Lot,
Mois_Lot,
TYP_TERME,
LibCourtMois_Lot
Resident Ref
WHERE TYP_TERME='M'
ORDER BY LIEN_CAL_LOT;
LET MaxAnneeM=Num(Peek('Annee_Lot',-1,'Ref_M'));
LET MaxMoisM=Peek('LibCourtMois_Lot',-1,'Ref_M');
LET MaxAnneeQ=Num(Peek('Annee_Lot',-1,'Ref'));
LET MaxMoisQ=Peek('LibCourtMois_Lot',-1,'Ref');
DROP Table Ref;
DROP Table Ref_M; |
Partager