Reprise du message précédent :
 www.3d-ring.de

[quotemsg=1343780,196,85471]

CREATE procedure icsd_FilterGet
(
 @applicationName as varchar(3),
 @filterName as varchar(20),
 @objType as varchar(10)
)
AS
 select tableau, ligne, colonne, name, label, vbType, picklist, nbCol, mandatory
 from filter
 where application = @applicationName
 and filter = @filterName
 and objType = @objType
 order by tableau, ligne, colonne
GO

Pseudo supprimé avec succès de la base

S520EX

Bah koi ?
 
<!--#INCLUDE FILE="../include/inc_chx_picklist.asp"-->

v4eroux sur corfu
(administrateur/administrateur)
 salarié de l'equipe addictologie.

3923956 |      204 |    -29 |        1 |         20 | {264,1e-307,118.1568,1e-307,86.31773,1e-307,71.56492,1e-307,62.92619,1e-307,57.25738,1e-
307,53.28061,1e-307,50.36591,1e-307,48.16252,1e-307,46.45824,1e-307}               |          |          |          1 |

   cmd.Parameters.Append cmd.CreateParameter("@userid", adInteger, adParamInput, , userID)

$this->infos->title = utf8_decode($elem->getAttribute('title'));

CheckTypeHOfPHs

       sMessageErreur = "qqch pour pas que la fenêtre ne se ferme"

loadByUserId

COMMON /RUNLAB/ TITLE(10),ANAM(MXATM),BNAM(MXATM),BFLAB(MXAO)

http://curl.haxx.se/

B'10001' & B'01101'

 EnvelopID

[/#00639b]

@@identity

Tout(

en conso mémoire

[/quotemsg]

Harko, sors de mareek

CREATE procedure icsd_ARTCustomerList
(
 @orgid   int,
 @userid   int,
 @leasescheduleid int = 0,
 @orderby  varchar(255) = 'org'
)
AS
BEGIN
 -- Recherche de la liste des schedules à afficher
 select orgid, name, leasescheduleid, schedule, nbContracts, nbAssets, nbProducts
 from (
  select o.orgid, o.name, ls.LeaseScheduleid, ls.schedule, count(distinct lc.LeaseContractId) nbContracts, count(distinct a.assetid) nbAssets, count(distinct a.ProductCode) nbProducts
  from asset a, zLoyer zl, contractline cl, LeaseContract lc, LeaseSchedule ls, zUserContractPerimeter zu, organization o, UserOrg uo
  where (uo.orgid = @orgid or @orgid = 0)
  and uo.userid = @userid
  and o.orgid = uo.orgid
  and o.type = 'C'
  and o.active = 'A'
  and zu.orgid = o.orgid
  and zu.userid = uo.userid
  and (zu.scheduleid = @leasescheduleid or @leasescheduleid = 0)
  and ls.orgid = zu.orgid
  and ls.userights = 1
  and ls.LeaseScheduleId = zu.scheduleid
  and ls.active = 'A'
  and lc.orgid = ls.orgid
  and lc.Leasescheduleid = ls.LeaseScheduleid
  and (lc.LeaseContractId = zu.ContractId or zu.ContractId = -1)
  and lc.active = 'A'
  and cl.contractlineid = (select max(cl2.contractlineid)
      from contractline cl2
      where cl2.leasecontractid = lc.leasecontractid
      and cl2.active = 'A')
  and zl.leasecontractid = cl.leasecontractid
  and zl.contractlineid = cl.ContractLineID
  and a.orgid = o.orgid
  and a.assetid = zl.assetid
  and a.linetype in ('B', 'S')
  group by o.orgid, o.name, ls.LeaseScheduleid, ls.schedule
  union all
  select o.orgid, o.name, ls.LeaseScheduleid, ls.schedule, count(distinct lc.LeaseContractid) nbContracts, count(distinct a.assetid) nbAssets, count(distinct a.ProductCode) nbProducts
  from asset a, zLoyer zl, ContractLine cl, LeaseContract lc, LeaseSchedule ls, organization o, UserOrg uo
  where (uo.orgid = @orgid or @orgid = 0)
  and uo.userid = @userid
  and o.type = 'C'
  and o.active = 'A'
  and o.orgid = uo.orgid
  and ls.userights = 0
  and (ls.leasescheduleid = @leasescheduleid or @leasescheduleid = 0)
  and ls.active = 'A'
  and lc.orgid = ls.orgid
  and lc.LeaseScheduleID = ls.LeaseScheduleid
  and lc.active = 'A'
  and zl.LeaseContractId = lc.leasecontractid
  and zl.contractlineid = (select max(cl.ContractLineID)  
      from contractline cl
      where cl.leasecontractid = lc.leasecontractid
      and cl.active = 'A')
  and a.orgid = o.orgid
  and a.assetid = zl.assetid
  and a.linetype in ('B', 'S')
  group by o.orgid, o.name, ls.LeaseScheduleid, ls.schedule
 ) tmp
 order by case @orderby  
    when 'org'     then name
    when 'nbContracts' then right('0000000000' + nbContracts, 10)
    when 'nbAssets'    then right('0000000000' + nbAssets, 10)
    when 'nbProducts'  then right('0000000000' + nbProducts, 10)
   end,
   case @orderby  
    when 'org'     then schedule
    when 'nbContracts' then right('0000000000' + nbContracts, 10)
    when 'nbAssets'    then right('0000000000' + nbAssets, 10)
    when 'nbProducts'  then right('0000000000' + nbProducts, 10)
   end
END
GO
 
 
(t'ain, je bosse à fond là... j'ai mis ça en mémoire avant d'aller manger )

                           bStop = False
                            While Not bStop
                              oRs.MoveNext
                              If oRs.EOF Then
                                bStop = True
                              Else
                                bStop = (lIDAffCH <> dataAccess.Null2Long(oRs(F_AFFCH_IDAFFCH)))
                              End If
                            Wend

19h26 c'est plus une heure pourcoder du VB!

Mareek, juste comme ça... Pourquoi tu fais pas :
 

 
C'est plus clair non

pas à mes yeux

Ben aux mien, si

C'est marrant, à chaque fois que tu postes, je me réjoui de ne pas travailler avec toi

y'a pas de break en vb ?

ah bin si

Jamais de Exit Do, ni de Return, ni de Goto, ni de tentative de code spaghetti