hi sergey,
the code is
FUNCTION sql_1004()
*---------------------------------------------
LOCAL cCondit,;
cOrderBy,;
lnSelect,;
lnretval,;
csql
lnSelect = SELECT( 0 )
m.cOrderBy = THIS.cOrderBy && Teleph.cnomteleph
m.cCondit = THIS.cCondit &&
* on fait une tables avec pour chaque heure possible une ligne si qté.
* ex 8 heures insuline
* 10 heures insuline
*==================================================================
TEXT To cSql NOSHOW TEXTMERGE PRETEXT 15
SELECT Teleph.cnomteleph AS "CnomResident" ,
Teleph.iid AS ItelephId,
T.iid AS "iidtraiter" , T.ddebut , T.dfin , T.Dlimite ,
T.nmatin , T.ndixh , T.nmidi , T.nseizeh , T.nsoir ,
T.ncouche ,
T.Llundi ,
T.Lmardi ,
T.Lmercredi ,
T.Ljeudi ,
T.Lvendredi ,
T.Lsamedi ,
T.Ldimanche ,
T.Lchariot , T.Linjection , T.gmemo , T.Cpauseid1 ,
T.cpauseid2 , T.Cpauseid3 , T.Cpauseid4 , T.Cpauseid5 ,
T.Cpauseid6 , T.Cpauseid7 , T.nnuit , T.Lpetit_soins , T.lPlanSoins ,
T.iresidentid AS "iidResident" ,
T.sinecessaire , T.Iindicedifficulte , T.Nordretraiter ,
T.Ljourferie , T.Lallowprintmemotaches ,
T.laerosol , T.imedicid ,
T.cho8,T.cho10,T.cho12,T.cho16,T.cho19,T.cho21,T.cho23,
T.cpauseidpreparation AS cprepareMed,
T.cpauseidt1,T.cpauseidt2,T.cpauseidt3,T.cpauseidt4,
T.cpauseidt5,T.cpauseidt6,T.cpauseidt7,
T.dateprescription,
T.cho8 AS ho,
T.dateprescription AS dPrescript ,
C.Cnom AS "CnomChambre" ,
R.cservice , R.cSexe ,
Medicnom.Nordremedictypepause ,
Medicnom.Cnom AS "cNommedi" ,
Medicnom.imedictype ,
Medicnom.imedictypeImpression ,
mtype.CODE ,
mtype.Lmprimetraitement ,
mtype.Nordre ,
mtype.Nordrepause ,
mtype.Cnom AS "cnomtype" ,
CAST( TRANS( NVL( med.cInami , "" ) , "@R 9.99999.99.999" ) AS c(16) ) AS cInami,
CAST( NVL( Tmed.cnomteleph , "" ) AS c(28) ) AS "cNomToubib"
FROM amline!Traiter T
INNER JOIN amline!Resident R ON T.iresidentid = R.iid
INNER JOIN amline!Medicnom Medicnom ON T.imedicid = Medicnom.iid
INNER JOIN amline!Medictype mtype ON Medicnom.imedictypeImpression = mtype.iid
LEFT OUTER JOIN amline!Medictype Medictype ON Medicnom.imedictype = Medictype.iid
INNER JOIN amline!Teleph Teleph ON R.itelephoneid = Teleph.iid
LEFT OUTER JOIN amline!Chambre C ON R.ichambreid = C.iid
LEFT OUTER JOIN amline!medecin med ON T.iidmedecin = med.iidmedecin
LEFT OUTER JOIN amline!Teleph Tmed ON med.itelephoneid = Tmed.iid
WHERE R.noitelephoneidreportactif > 0 AND
DATE() BETWEEN T.ddebut AND EVL( T.dfin , EVL( T.Dlimite ,DATE())) AND T.nmatin > 0
AND Medictype.Lmprimetraitement = .F. AND <>
UNION;
SELECT Teleph.cnomteleph AS "CnomResident" ,
Teleph.iid AS ItelephId,
T.iid AS "iidtraiter" , T.ddebut , T.dfin , T.Dlimite ,
T.nmatin , T.ndixh , T.nmidi , T.nseizeh , T.nsoir ,
T.ncouche ,
T.Llundi ,
T.Lmardi ,
T.Lmercredi ,
T.Ljeudi ,
T.Lvendredi ,
T.Lsamedi ,
T.Ldimanche ,
T.Lchariot , T.Linjection , T.gmemo , T.Cpauseid1 ,
T.cpauseid2 , T.Cpauseid3 , T.Cpauseid4 , T.Cpauseid5 ,
T.Cpauseid6 , T.Cpauseid7 , T.nnuit , T.Lpetit_soins , T.lPlanSoins ,
T.iresidentid AS "iidResident" ,
T.sinecessaire , T.Iindicedifficulte , T.Nordretraiter ,
T.Ljourferie , T.Lallowprintmemotaches ,
T.laerosol , T.imedicid ,
T.cho8,T.cho10,T.cho12,T.cho16,T.cho19,T.cho21,T.cho23,
T.cpauseidpreparation AS cprepareMed,
T.cpauseidt1,T.cpauseidt2,T.cpauseidt3,T.cpauseidt4,
T.cpauseidt5,T.cpauseidt6,T.cpauseidt7,
T.dateprescription,
T.cho10 AS ho,
T.dateprescription AS dPrescript ,
C.Cnom AS "CnomChambre" ,
R.cservice , R.cSexe ,
Medicnom.Nordremedictypepause ,
Medicnom.Cnom AS "cNommedi" ,
Medicnom.imedictype ,
Medicnom.imedictypeImpression ,
mtype.CODE ,
mtype.Lmprimetraitement ,
mtype.Nordre ,
mtype.Nordrepause ,
mtype.Cnom AS "cnomtype" ,
CAST( TRANS( NVL( med.cInami , "" ) , "@R 9.99999.99.999" ) AS c(16) ) AS cInami,
CAST( NVL( Tmed.cnomteleph , "" ) AS c(28) ) AS "cNomToubib"
FROM amline!Traiter T
INNER JOIN amline!Resident R ON T.iresidentid = R.iid
INNER JOIN amline!Medicnom Medicnom ON T.imedicid = Medicnom.iid
INNER JOIN amline!Medictype mtype ON Medicnom.imedictypeImpression = mtype.iid
LEFT OUTER JOIN amline!Medictype Medictype ON Medicnom.imedictype = Medictype.iid
INNER JOIN amline!Teleph Teleph ON R.itelephoneid = Teleph.iid
LEFT OUTER JOIN amline!Chambre C ON R.ichambreid = C.iid
LEFT OUTER JOIN amline!medecin med ON T.iidmedecin = med.iidmedecin
LEFT OUTER JOIN amline!Teleph Tmed ON med.itelephoneid = Tmed.iid
WHERE R.noitelephoneidreportactif > 0 AND
DATE() BETWEEN T.ddebut AND EVL( T.dfin , EVL( T.Dlimite ,DATE() )) AND T.ndixh > 0
AND Medictype.Lmprimetraitement = .F.
AND <>
UNION;
SELECT Teleph.cnomteleph AS "CnomResident" ,
Teleph.iid AS ItelephId,
T.iid AS "iidtraiter" , T.ddebut , T.dfin , T.Dlimite ,
T.nmatin , T.ndixh , T.nmidi , T.nseizeh , T.nsoir ,
T.ncouche ,
T.Llundi ,
T.Lmardi ,
T.Lmercredi ,
T.Ljeudi ,
T.Lvendredi ,
T.Lsamedi ,
T.Ldimanche ,
T.Lchariot , T.Linjection , T.gmemo , T.Cpauseid1 ,
T.cpauseid2 , T.Cpauseid3 , T.Cpauseid4 , T.Cpauseid5 ,
T.Cpauseid6 , T.Cpauseid7 , T.nnuit , T.Lpetit_soins , T.lPlanSoins ,
T.iresidentid AS "iidResident" ,
T.sinecessaire , T.Iindicedifficulte , T.Nordretraiter ,
T.Ljourferie , T.Lallowprintmemotaches ,
T.laerosol , T.imedicid ,
T.cho8,T.cho10,T.cho12,T.cho16,T.cho19,T.cho21,T.cho23,
T.cpauseidpreparation AS cprepareMed,
T.cpauseidt1,T.cpauseidt2,T.cpauseidt3,T.cpauseidt4,
T.cpauseidt5,T.cpauseidt6,T.cpauseidt7,
T.dateprescription,
T.cho12 AS ho,
T.dateprescription AS dPrescript ,
C.Cnom AS "CnomChambre" ,
R.cservice , R.cSexe ,
Medicnom.Nordremedictypepause ,
Medicnom.Cnom AS "cNommedi" ,
Medicnom.imedictype ,
Medicnom.imedictypeImpression ,
mtype.CODE ,
mtype.Lmprimetraitement ,
mtype.Nordre ,
mtype.Nordrepause ,
mtype.Cnom AS "cnomtype" ,
CAST( TRANS( NVL( med.cInami , "" ) , "@R 9.99999.99.999" ) AS c(16) ) AS cInami,
CAST( NVL( Tmed.cnomteleph , "" ) AS c(28) ) AS "cNomToubib"
FROM amline!Traiter T
INNER JOIN amline!Resident R ON T.iresidentid = R.iid
INNER JOIN amline!Medicnom Medicnom ON T.imedicid = Medicnom.iid
INNER JOIN amline!Medictype mtype ON Medicnom.imedictypeImpression = mtype.iid
LEFT OUTER JOIN amline!Medictype Medictype ON Medicnom.imedictype = Medictype.iid
INNER JOIN amline!Teleph Teleph ON R.itelephoneid = Teleph.iid
LEFT OUTER JOIN amline!Chambre C ON R.ichambreid = C.iid
LEFT OUTER JOIN amline!medecin med ON T.iidmedecin = med.iidmedecin
LEFT OUTER JOIN amline!Teleph Tmed ON med.itelephoneid = Tmed.iid
WHERE R.noitelephoneidreportactif > 0 AND
DATE() BETWEEN T.ddebut AND EVL( T.dfin , EVL( T.Dlimite ,DATE() )) AND T.nmidi > 0
AND Medictype.Lmprimetraitement = .F.
AND <>;
UNION;
SELECT Teleph.cnomteleph AS "CnomResident" ,
Teleph.iid AS ItelephId,
T.iid AS "iidtraiter" , T.ddebut , T.dfin , T.Dlimite ,
T.nmatin , T.ndixh , T.nmidi , T.nseizeh , T.nsoir ,
T.ncouche ,
T.Llundi ,
T.Lmardi ,
T.Lmercredi ,
T.Ljeudi ,
T.Lvendredi ,
T.Lsamedi ,
T.Ldimanche ,
T.Lchariot , T.Linjection , T.gmemo , T.Cpauseid1 ,
T.cpauseid2 , T.Cpauseid3 , T.Cpauseid4 , T.Cpauseid5 ,
T.Cpauseid6 , T.Cpauseid7 , T.nnuit , T.Lpetit_soins , T.lPlanSoins ,
T.iresidentid AS "iidResident" ,
T.sinecessaire , T.Iindicedifficulte , T.Nordretraiter ,
T.Ljourferie , T.Lallowprintmemotaches ,
T.laerosol , T.imedicid ,
T.cho08,T.cho10,T.cho12,T.cho16,T.cho19,T.cho21,T.cho23,
T.cpauseidpreparation AS cprepareMed,
T.cpauseidt1,T.cpauseidt2,T.cpauseidt3,T.cpauseidt4,
T.cpauseidt5,T.cpauseidt6,T.cpauseidt7,
T.dateprescription,
T.cho16 AS ho,
T.dateprescription AS dPrescript ,
C.Cnom AS "CnomChambre" ,
R.cservice , R.cSexe ,
Medicnom.Nordremedictypepause ,
Medicnom.Cnom AS "cNommedi" ,
Medicnom.imedictype ,
Medicnom.imedictypeImpression ,
mtype.CODE ,
mtype.Lmprimetraitement ,
mtype.Nordre ,
mtype.Nordrepause ,
mtype.Cnom AS "cnomtype" ,
CAST( TRANS( NVL( med.cInami , "" ) , "@R 9.99999.99.999" ) AS c(16) ) AS cInami,
CAST( NVL( Tmed.cnomteleph , "" ) AS c(28) ) AS "cNomToubib"
FROM amline!Traiter T
INNER JOIN amline!Resident R ON T.iresidentid = R.iid
INNER JOIN amline!Medicnom Medicnom ON T.imedicid = Medicnom.iid
INNER JOIN amline!Medictype mtype ON Medicnom.imedictypeImpression = mtype.iid
LEFT OUTER JOIN amline!Medictype Medictype ON Medicnom.imedictype = Medictype.iid
INNER JOIN amline!Teleph Teleph ON R.itelephoneid = Teleph.iid
LEFT OUTER JOIN amline!Chambre C ON R.ichambreid = C.iid
LEFT OUTER JOIN amline!medecin med ON T.iidmedecin = med.iidmedecin
LEFT OUTER JOIN amline!Teleph Tmed ON med.itelephoneid = Tmed.iid
WHERE R.noitelephoneidreportactif > 0 AND
DATE() BETWEEN T.ddebut AND EVL( T.dfin , EVL( T.Dlimite ,DATE() )) AND T.nseizeh > 0
AND Medictype.Lmprimetraitement = .F.
AND <> ORDER BY <> INTO CURSOR TempCrystal
ENDTEXT
=EXECSCRIPT( csql )
endfun
>The size of any VFP statement is limited to 8k characters. Make sure you don't exceed that limit
>
>>
>>I have a strange error 18 line is too long with a big sql command.
>>
>>Can i turn out ?
>>
>>
>>Thank in advance for help
>>
>>
>>bernhart
