Index: TCHUI/Dlg/TSelectProduct.cls.xml =================================================================== diff -u -r2589 -r2683 --- TCHUI/Dlg/TSelectProduct.cls.xml (.../TSelectProduct.cls.xml) (revision 2589) +++ TCHUI/Dlg/TSelectProduct.cls.xml (.../TSelectProduct.cls.xml) (revision 2683) @@ -383,7 +383,7 @@ - + - + 0 and Levering is null and Beweging="I") + WHERE Klant=:KLNr and Aantal<>0 and Levering is null and Beweging='I') ;aanvullen SQL met TyPes = ??? &sql(OPEN C1) For &sql(FETCH C1) Quit:(SQLCODE '= 0) Do Index: Derde/Klant/Klant.cls.xml =================================================================== diff -u -r1666 -r2683 --- Derde/Klant/Klant.cls.xml (.../Klant.cls.xml) (revision 1666) +++ Derde/Klant/Klant.cls.xml (.../Klant.cls.xml) (revision 2683) @@ -747,7 +747,7 @@ %SQLQuery SELECT ID, Naam, Opmerking1 FROM Derde_Klant.Klant - WHERE (Opmerking1 LIKE "%ProTimeNr%") + WHERE (Opmerking1 LIKE '%ProTimeNr%') @@ -758,7 +758,7 @@ SELECT ID, Naam, Opmerking1 As ProTimeNr FROM Derde_Klant.Klant - WHERE (Opmerking1 = "ProTimeNr " || :ProTimeNr) + WHERE (Opmerking1 = 'ProTimeNr ' || :ProTimeNr) @@ -769,7 +769,7 @@ SELECT ID, Naam, Opmerking12 As ProTimeNr FROM Derde_Klant.Klant - WHERE (Opmerking12 = "ProTimeNr " || :ProTimeNr) + WHERE (Opmerking12 = 'ProTimeNr ' || :ProTimeNr) Index: APPS/PM/OL/ZoektermLogger.cls.xml =================================================================== diff -u -r1073 -r2683 --- APPS/PM/OL/ZoektermLogger.cls.xml (.../ZoektermLogger.cls.xml) (revision 1073) +++ APPS/PM/OL/ZoektermLogger.cls.xml (.../ZoektermLogger.cls.xml) (revision 2683) @@ -30,7 +30,7 @@ %SQLQuery - SELECT Zoekterm, Count(1) As AantalKeerGezocht, CASE WHEN Max(IsHerkendAlsAlias) = 1 THEN "Herkend" ELSE "Niet herkend" END As IsHerkendAlsAlias, Max(Tijd) As LaatstGezocht FROM APPS_PM_OL.ZoektermLogItem + SELECT Zoekterm, Count(1) As AantalKeerGezocht, CASE WHEN Max(IsHerkendAlsAlias) = 1 THEN 'Herkend' ELSE 'Niet herkend' END As IsHerkendAlsAlias, Max(Tijd) As LaatstGezocht FROM APPS_PM_OL.ZoektermLogItem GROUP BY Zoekterm ORDER BY Zoekterm 1 @@ -40,7 +40,7 @@ %SQLQuery Zoekterm:%String="" 1 - SELECT Zoekterm, Count(1) As AantalKeerGezocht, CASE WHEN Max(IsHerkendAlsAlias) = 1 THEN "Herkend" ELSE "Niet herkend" END As IsHerkendAlsAlias, Max(Tijd) As LaatstGezocht FROM APPS_PM_OL.ZoektermLogItem + SELECT Zoekterm, Count(1) As AantalKeerGezocht, CASE WHEN Max(IsHerkendAlsAlias) = 1 THEN 'Herkend' ELSE 'Niet herkend' END As IsHerkendAlsAlias, Max(Tijd) As LaatstGezocht FROM APPS_PM_OL.ZoektermLogItem WHERE Zoekterm = :Zoekterm GROUP BY Zoekterm ORDER BY Zoekterm Index: BL/Derde/Agenda/Agenda.cls.xml =================================================================== diff -u -r2642 -r2683 --- BL/Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 2642) +++ BL/Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 2683) @@ -694,7 +694,7 @@ %SQLQuery KLNr:%Integer - SELECT PersNr as PersoonID, Naam as N2,Naam || ifnull(Voornaam,""," ") || isnull(VoorNaam,"") as Naam, - CASE substring(email,1,1) WHEN "~" THEN "" WHEN "#" THEN substring(email,2,99) ELSE eMail end as eMail + SELECT PersNr as PersoonID, Naam as N2,Naam || ifnull(Voornaam,'',' ') || isnull(VoorNaam,'') as Naam, + CASE substring(email,1,1) WHEN '~' THEN '' WHEN '#' THEN substring(email,2,99) ELSE eMail end as eMail FROM Derde_Klant.Persoon WHERE Derde=:KLNr and not (naam is null) @@ -785,8 +785,8 @@ Ophalen van alle personen van een leverancier %SQLQuery LEVNr:%Integer - SELECT PersNr as PersoonID, Naam as N2,Naam || ifnull(Voornaam,""," ") || isnull(VoorNaam,"") as Naam, - CASE substring(email,1,1) WHEN "~" THEN "" WHEN "#" THEN substring(email,2,99) ELSE eMail end as eMail + SELECT PersNr as PersoonID, Naam as N2,Naam || ifnull(Voornaam,'',' ') || isnull(VoorNaam,'') as Naam, + CASE substring(email,1,1) WHEN '~' THEN '' WHEN '#' THEN substring(email,2,99) ELSE eMail end as eMail FROM Derde_Lev.Persoon WHERE Derde=:LEVNr and not (naam is null) @@ -889,10 +889,10 @@ Ophalen van de gesomeerde agenda gegevens %SQLQuery UserID:%Integer,Datum:%Date -"P" - GROUP BY isnull(type,"*")]]> + WHERE Gebruiker=:UserID and Datum=:Datum and isnull(Type,'*')<>'P' + GROUP BY isnull(type,'*')]]> Index: BL/Derde/Agenda/GeoMobile.cls.xml =================================================================== diff -u -r1443 -r2683 --- BL/Derde/Agenda/GeoMobile.cls.xml (.../GeoMobile.cls.xml) (revision 1443) +++ BL/Derde/Agenda/GeoMobile.cls.xml (.../GeoMobile.cls.xml) (revision 2683) @@ -501,7 +501,7 @@ INTO ID,Type,InsertTijdStip FROM Derde_Agenda.GeoMobile WHERE Datum=:Datum and Gebruiker=:UserID and AgendaSubID is null - and Type<>"INVALID" and Type not like 'skip%' + and Type<>'INVALID' and Type not like 'skip%' ORDER BY Tijd,SubID) Set VolgNr=0 Index: Flow/Cons/TransportAdres.cls.xml =================================================================== diff -u -r1074 -r2683 --- Flow/Cons/TransportAdres.cls.xml (.../TransportAdres.cls.xml) (revision 1074) +++ Flow/Cons/TransportAdres.cls.xml (.../TransportAdres.cls.xml) (revision 2683) @@ -330,7 +330,7 @@ SELECT Transport,Transporteur INTO Transport,Transporteur FROM Flow_Cons.Transport - WHERE Status is null or Status<>"T") + WHERE Status is null or Status<>'T') &sql(OPEN C5) For &sql(FETCH C5) Quit:(SQLCODE '= 0) Do . If $D(BeperkTransporteur),Transporteur'=BeperkTransporteur Quit Index: Derde/Agenda/Agenda.cls.xml =================================================================== diff -u -r2660 -r2683 --- Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 2660) +++ Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 2683) @@ -344,7 +344,7 @@ %SQLQuery paGebruiker:%String,paDatum:%String -Code As LandCode,Leverancier,Prospect,case when isnull(Type,"*")="P" then null else Straat end as Straat,case when isnull(Type,"*")="P" then null else Gemeente end as Gemeente,Afstand,%ID +Code As LandCode,Leverancier,Prospect,case when isnull(Type,'*')='P' then null else Straat end as Straat,case when isnull(Type,'*')='P' then null else Gemeente end as Gemeente,Afstand,%ID FROM Derde_Agenda.Agenda WHERE (Gebruiker = :paGebruiker AND Datum = :paDatum) ORDER BY TijdVan]]> Index: Derde/Klant/Persoon.cls.xml =================================================================== diff -u -r1730 -r2683 --- Derde/Klant/Persoon.cls.xml (.../Persoon.cls.xml) (revision 1730) +++ Derde/Klant/Persoon.cls.xml (.../Persoon.cls.xml) (revision 2683) @@ -111,7 +111,7 @@ %Library.SQLQuery SELECT Case when Derde_Klant.Persoon.Aanspreking IS NOT NULL then Derde_Klant.Persoon.Aanspreking - else "" end As Aanspreking, + else '' end As Aanspreking, Derde_Klant.Persoon.Naam, Derde_Klant.Persoon.VoorNaam As Voornaam, Derde_Klant.Klant.StraatNrBus, @@ -122,14 +122,14 @@ Derde_Klant.Klant.Aktiviteit As Activiteit, Derde_Klant.Klant.Taal As Taal, Derde_Klant.Klant.Nummer As KlantNr, - Case when Derde_Klant.Klant.Aktiviteit NOT IN ("Consument","Relatie") + Case when Derde_Klant.Klant.Aktiviteit NOT IN ('Consument','Relatie') then Derde_Klant.Klant.Naam - else "" end As Bedrijfsnaam, + else '' end As Bedrijfsnaam, Derde_Klant.Klant_GeefExterneVerantw(Derde_Klant.Klant.Nummer) As ExterneVerantwoordelijke FROM Derde_Klant.Persoon INNER JOIN Derde_Klant.Klant ON Derde_Klant.Persoon.Derde = Derde_Klant.Klant.ID - WHERE Derde_Klant.Persoon.PrivacyToelating LIKE '%BM%' AND StraatNrBus != "" + WHERE Derde_Klant.Persoon.PrivacyToelating LIKE '%BM%' AND StraatNrBus != '' Order by Postcode DESC 1