XCS BUILDR ORACLE
Fabuleux !!! XCS et la base oracle peuvent tourner sous windows 10 !! pour oracle, il n'y a rien à faire, celui ci s'installe de toute façon dans son dossier…
Fabuleux !!! XCS et la base oracle peuvent tourner sous windows 10 !! pour oracle, il n'y a rien à faire, celui ci s'installe de toute façon dans son dossier…
Utiliser l'ocx suivant richtx32.ocx Function RtfToTxt(Texte) Set objRTF = CreateObject("RichText.RichTextCtrl") objRTF() = Texte n = objRTF.Text m = 1 Do Until m = 0 n = Replace(n, Chr(13) & Chr(10),…
La fonction : /// ALTER FUNCTION dbo.EXT_SelonTVA ( @pincode varchar(10), @pcvid int, @CodeTVA int, @Champ varchar(10) ) RETURNS real AS BEGIN DECLARE @Resultat real DECLARE @TypeDoc int if left(@pincode,3) =…
Exemple /// ALTER FUNCTION dbo.EXT_TEST ( @pcvid int, @CODETVA int ) RETURNS @PCV TABLE (CODETAXE int, PTVBASETVA real,PTVMNTTVA real,PTVTAUXtVA real) AS BEGIN insert into @PCV Select CODETAXE, PTVBASETVA, PTVMNTTVA, PTVTAUXtVA…
Exemple : /// select * from ( SELECT P.PINCODE AS TYPEDOC, P.PCVNUM AS NUMDOC, P.PCVDATEEFFET AS DATEDOC, T.TIRCODE AS CODECLIENT, A.ADRSOCIETE AS NOMCLIENT, A.ADRVILLE AS VILLE, P.PCVNUMEXT AS NUMEXT, P.PCVMNTHT…
Pour utiliser l'Éditeur du Registre pour activer la connexion automatique, procédez comme suit : Cliquez sur Démarrer, puis cliquez sur exécuter. Dans la zone Ouvrir , tapez Regedt32.exe, puis appuyez…
/// PARAMETERS [Date debut] DateTime, [Date fin] DateTime, [Journal] text; SELECT Facture.Code, Facture.DateDoc, Facture.CodeClient, Facture.FacNomSite, Facture.TotalTTC FROM Facture WHERE (((Facture.Code) Not In (SELECT Ecritures.Reference FROM [E:\SagePE\Services\v12\API2S\CPTSER\CPTOMNIP\compta.mdb].Ecritures GROUP BY Ecritures.Journal, Ecritures.Reference…
/// PageDef "HautPage...BasPage" Form Demander "Ancien code Article",Cdoldart,texte,25,ELEMEN Demander "Nouveau code Article " CdNewart,texte,25 finform execute "update AnaConso set CodeElement = '"&CdNewart&"' where CodeElement ='"&Cdoldcl&"' " execute "update AnaConsoDate set…
/// 'Decimalisation de la qté '-------------------------- qte = LIGNE.Qte qtesortie = "" si qte 0 alors ' pas de decimales a = (qte) - (arrondi(qte,0)) si a = 0 alors…
/// PageDef "HautPage...BasPage" Form Demander "Ancien code Article",Cdoldart,texte,25,ELEMEN Demander "Nouveau code Article " CdNewart,texte,25,ELEMEN finform execute "update AnaConso set CodeElement = '"&CdNewart&"' where CodeElement ='"&Cdoldcl&"' " execute "update AnaConsoDate set…