Forum AtoutFox : Re: code un peu spécial : prise 2   

jeu. 03 novembre 2016, 08h36

GLS
France
atoutfox.public.association

Re: code un peu spécial : prise 2

Bonjour,
j'ai découvert ce type de macro-substitution avec ConviSAV.

C'est un peu ardu, mais cela permet facilement de pouvoir traiter avec la même méthode des tables différentes comportant des champs aux noms identiques, voir à séquence de nom d'objets type monbouton1, monbouton2, monbouton3 etc..
*
*/ Définition et activation des boutons vendeurs caisse
*
LOCAL ntop as Integer, nleft as Integer, nnumtf as Integer, i as Integer, a as String, ccmd as String

WITH m.THISFORM
  IF .cmodemaj = "C" AND THIS.VALUE = DATE() AND m.oappli.lcaisse  = .T. && Ticket de caise
    ntop = 25
    nleft = 85
    nnumtf = 5
    FOR i = 1 TO 5
      a = STR(m.i,1)
      IF NOT EMPTY(.ccoddep&a)
        IF NOT PEMSTAT(m.THISFORM, "cmdboutvend" + m.a, 5)
          =.ADDOBJECT("cmdboutvend" + m.a, "cmdboutvend")
          .cmdboutvend&a..TOP = m.ntop
          .cmdboutvend&a..LEFT = m.nleft
          .cmdboutvend&a..CAPTION = "F" + STR(m.nnumtf, 1) + " Vend. " + .ccoddep&a
          .cmdboutvend&a..coddep = .ccoddep&a
          nleft = m.nleft + .cmdboutvend&a..WIDTH
          nnumtf = m.nnumtf + 1
        ENDIF
        .cmdboutvend&a..VISIBLE = .T.
        IF ogene.nversionfox >= 7
          .cmdboutvend&a..VISUALEFFECT = 0
        ENDIF
        ccmd = ogene.exprthisform("THISFORM.clicvendeur(m.THISFORM.cmdboutvend" + m.a + ".coddep," + m.a + ")", m.THISFORM)
        ON KEY LABEL "F" + STR(m.i+4, 1) &ccmd
      ENDIF
    ENDFOR
  ENDIF
ENDWITH


Cordialement
Gilles

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017942