TEST OUVERTURE DOCUMENT

Forum consacré aux développements d'applications interfacées avec les logiciels Sage

Modérateurs: Modérateurs, Super Modérateur

Règles du forum
Merci de prendre connaissance des règles d'utilisation du forum

Avant de poster un nouveau message, utilisez la fonction RECHERCHER. Indiquez la VERSION de votre logiciel et toutes informations utiles à la résolution de votre question. Ne rédigez pas vos messages en MAJUSCULES. Soyez courtois et pensez aux formules de POLITESSE d'usage. Les messages à vocation COMMERCIALE ou PUBLICITAIRE seront supprimés.

*** LORSQU'UN SUJET EST RESOLU, SON AUTEUR DOIT EDITER LE 1ER MESSAGE DU SUJET EN HAUT DE PAGE ET COCHER "SUJET RESOLU" ***

TEST OUVERTURE DOCUMENT

Messagede yanmeunier » Lun 2 Mar 2009 12:41

Bonjour,

Je voudrais savoir comment faire pour savoir si un document est ouvert ou fermé. Ceci en Objet V3.

Merci
yanmeunier
Posteur actif
Posteur actif
 
Messages: 36
Inscription: Jeu 14 Sep 2006 11:17

Re: TEST OUVERTURE DOCUMENT

Messagede ricil78 » Lun 9 Mar 2009 14:02

Si c'est comme en v2 il y a la fonction CouldModified sur ton objet
si la fonction ne renvoie pas d'erreur c'est que le doc n'est pas ouvert.


sinon en sql tu peux le savoir avec ma fonction ci-dessous, par contre ça marche seulement avec la clé primaire => le champ cbmarq

(fonction vb.net)
Code: Tout sélectionner
   
Public Function IsRecordLock(ByVal CnxSQL As SqlClient.SqlConnection, ByVal Table As String, ByVal CbMarq As String) As Boolean
        Dim IsBloquer As Boolean = True

        Try
            Using cmd = CnxSQL.CreateCommand
                With cmd
                    .CommandType = CommandType.StoredProcedure
                    .CommandText = "CB_IsRecordLock"  ' @cbFile sysname, @cbMarq as int, @lRes int OUTPUT AS

                    .Parameters.Add(New SqlClient.SqlParameter("@cbFile", SqlDbType.NVarChar) With {.Value = Table})
                    .Parameters.Add(New SqlClient.SqlParameter("@cbMarq", SqlDbType.Int) With {.Value = CbMarq})
                    .Parameters.Add(New SqlClient.SqlParameter("@lRes", SqlDbType.Int) With {.Direction = ParameterDirection.Output})

                    .ExecuteScalar()

                    IsBloquer = (.Parameters("@lRes").Value = 1)

                End With
            End Using
        Catch ex As Exception
            Throw ex
        End Try

        Return IsBloquer
    End Function
ricil78
Super Contributeur
Super Contributeur
 
Messages: 104
Inscription: Lun 20 Nov 2006 14:16


Retourner vers Développements ODBC, Objets métiers, SQL

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités