DBGrid Postgres
Hi,
I've a problem to show some string in DBGrid
Column number 3 si not show I have (MEMO) instead.
My query :
RequeteRapportAEnvoyer.Sql.Text := 'SELECT A.IN_TYPE,A.S_ID,A.IN_ID,A.IN_DATE,CAST(TRIM(CONCAT(CONCAT(B.T_PRENOM,'' ''),B.T_NOM)) AS VARCHAR(100)) AS NOM_PRENOM,C.S_NOM,D.LIBELLE' + ',CAST(''Station'' AS VARCHAR(20)) AS TYPE_INTER FROM T_INTERVENTION A,L_TECHNICIEN B,T_STEP C,L_FINALITE D WHERE' + ' (A.IN_CONTACT1 = B.T_ID) AND (A.S_ID = C.S_ID) AND (A.IN_TYPE = D.CODE_FINALITE) AND (A.IN_ETAT = ''V'') AND (A.IN_DATE BETWEEN :DEBUT AND :FIN)';
RequeteRapportAEnvoyer.Sql.Text := RequeteRapportAEnvoyer.Sql.Text + ' UNION ALL ';
RequeteRapportAEnvoyer.Sql.Text := RequeteRapportAEnvoyer.Sql.Text + 'SELECT A.TYPE_RAP AS IN_TYPE,A.S_ID,A.ANNEE AS IN_ID,to_date(CONCAT(''31/12/'',A.ANNEE),''DD/MM/YYYY'') AS IN_DATE,CAST(TRIM(CONCAT(CONCAT(C.T_PRENOM,'' ''),C.T_NOM)) AS VARCHAR(100)) AS NOM_PRENOM' + ',B.S_NOM,D.LCL_LIBELLE AS LIBELLE,CAST(''Station'' AS VARCHAR(20)) AS TYPE_INTER FROM ((T_RAPPORT_ANNUEL A INNER JOIN T_STEP B ON (A.S_ID = B.S_ID)) LEFT JOIN L_TECHNICIEN C ON (B.S_TECHNICIEN = C.T_ID)) INNER JOIN' + ' L_COURT_LONG D ON (A.TYPE_RAP = D.LCL_ID) WHERE (A.ETAT = ''V'') AND (A.ANNEE BETWEEN :DEBUTA AND :FINA)';
RequeteRapportAEnvoyer.Sql.Text := RequeteRapportAEnvoyer.Sql.Text + ' UNION ALL ';
RequeteRapportAEnvoyer.Sql.Text := RequeteRapportAEnvoyer.Sql.Text + 'SELECT A.IN_TYPE,C.SY_SANDRE AS S_ID,A.IN_ID,A.IN_DATE,CAST(TRIM(CONCAT(CONCAT(B.T_PRENOM,'' ''),B.T_NOM)) AS VARCHAR(100)) AS NOM_PRENOM,C.SY_LIBELLE AS S_NOM,D.LIBELLE,' + 'CAST(''Réseau'' AS VARCHAR(20)) AS TYPE_INTER FROM T_INTER_RES A,L_TECHNICIEN B,T_SYST_COLL C,L_FINALITE_RES D WHERE' + ' (A.IN_CONTACT1 = B.T_ID) AND (A.SY_ID = C.SY_ID) AND (A.IN_TYPE = D.CODE_FINALITE) AND (A.IN_ETAT = ''V'') AND (A.IN_DATE BETWEEN :DEBUTR AND :FINR)';
RequeteRapportAEnvoyer.Sql.Text := RequeteRapportAEnvoyer.Sql.Text + ' ORDER BY IN_DATE DESC';
RequeteRapportAEnvoyer.Sql.Text := RequeteRapportAEnvoyer.Sql.Text + ' UNION ALL ';
RequeteRapportAEnvoyer.Sql.Text := RequeteRapportAEnvoyer.Sql.Text + 'SELECT A.TYPE_RAP AS IN_TYPE,A.S_ID,A.ANNEE AS IN_ID,to_date(CONCAT(''31/12/'',A.ANNEE),''DD/MM/YYYY'') AS IN_DATE,CAST(TRIM(CONCAT(CONCAT(C.T_PRENOM,'' ''),C.T_NOM)) AS VARCHAR(100)) AS NOM_PRENOM' + ',B.S_NOM,D.LCL_LIBELLE AS LIBELLE,CAST(''Station'' AS VARCHAR(20)) AS TYPE_INTER FROM ((T_RAPPORT_ANNUEL A INNER JOIN T_STEP B ON (A.S_ID = B.S_ID)) LEFT JOIN L_TECHNICIEN C ON (B.S_TECHNICIEN = C.T_ID)) INNER JOIN' + ' L_COURT_LONG D ON (A.TYPE_RAP = D.LCL_ID) WHERE (A.ETAT = ''V'') AND (A.ANNEE BETWEEN :DEBUTA AND :FINA)';
RequeteRapportAEnvoyer.Sql.Text := RequeteRapportAEnvoyer.Sql.Text + ' UNION ALL ';
RequeteRapportAEnvoyer.Sql.Text := RequeteRapportAEnvoyer.Sql.Text + 'SELECT A.IN_TYPE,C.SY_SANDRE AS S_ID,A.IN_ID,A.IN_DATE,CAST(TRIM(CONCAT(CONCAT(B.T_PRENOM,'' ''),B.T_NOM)) AS VARCHAR(100)) AS NOM_PRENOM,C.SY_LIBELLE AS S_NOM,D.LIBELLE,' + 'CAST(''Réseau'' AS VARCHAR(20)) AS TYPE_INTER FROM T_INTER_RES A,L_TECHNICIEN B,T_SYST_COLL C,L_FINALITE_RES D WHERE' + ' (A.IN_CONTACT1 = B.T_ID) AND (A.SY_ID = C.SY_ID) AND (A.IN_TYPE = D.CODE_FINALITE) AND (A.IN_ETAT = ''V'') AND (A.IN_DATE BETWEEN :DEBUTR AND :FINR)';
RequeteRapportAEnvoyer.Sql.Text := RequeteRapportAEnvoyer.Sql.Text + ' ORDER BY IN_DATE DESC';
The field is LIBELLE a varchar(50). I have the problem only with Postgres With Oracle it work fine.
My versions :
Unidac version 9.3
Delphi XE8
Oracle 23c
Postgres 15
Thanks