FORMULAIRE DEVIS CONFIGURABLE – NE PAS IMPRIMER LA MO
Ouverture - ligne 5 WgeFlagSANSMO est un booléen Avant impression du corps - ligne 960 // C'est de la main d'oeuvre SI LIGNEDEV.IDCOD_RUBRIQUE = 2 ET WgeFlagSANSMO = Vrai ALORS…
Ouverture - ligne 5 WgeFlagSANSMO est un booléen Avant impression du corps - ligne 960 // C'est de la main d'oeuvre SI LIGNEDEV.IDCOD_RUBRIQUE = 2 ET WgeFlagSANSMO = Vrai ALORS…
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…