picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

ord.l (1888B)

      1 # 17jul13abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 (must "Order" Order)
      5 
      6 (menu ,"Order"
      7    (idForm ,"Order" '(choOrd) 'nr '+Ord T '(may Delete) '((: nr))
      8       (<grid> 4
      9          ,"Date" NIL
     10          (gui '(+E/R +DateField) '(dat : home obj) 10)
     11          (gui '(+View +TextField)
     12             '(text ,"(@1 Positions)" (length (: home obj pos))) )
     13          ,"Customer" (choCuSu 0)
     14          (gui '(+E/R +Obj +TextField) '(cus : home obj) '(nm +CuSu) 30)
     15          (gui '(+View +TextField) '(field -1 'obj 'ort) 30) )
     16       (--)
     17       (gui '(+Set +E/R +Chart) '((L) (filter bool L)) '(pos : home obj) 8
     18          '((Pos I)
     19             (with Pos
     20                (list I NIL (: itm) (or (: pr) (: itm pr)) (: cnt) (sum> Pos)) ) )
     21          '((L D)
     22             (cond
     23                (D
     24                   (put!> D 'itm (caddr L))
     25                   (put!> D 'pr (cadddr L))
     26                   (put!> D 'cnt (; L 5))
     27                   (and (; D itm) D) )
     28                ((caddr L)
     29                   (new! '(+Pos) 'itm (caddr L)) ) ) ) )
     30       (<table> NIL NIL
     31          '(("align em2") (btn) (NIL ,"Item") (NIL ,"Price") (NIL ,"Quantity") (NIL ,"Total"))
     32          (do 8
     33             (<row> NIL
     34                (gui 1 '(+NumField))
     35                (choItem 2)
     36                (gui 3 '(+Obj +TextField) '(nm +Item) 30)
     37                (gui 4 '(+FixField) 2 12)
     38                (gui 5 '(+NumField) 8)
     39                (gui 6 '(+Sgn +Lock +FixField) 2 12)
     40                (gui 7 '(+DelRowButton))
     41                (gui 8 '(+BubbleButton)) ) )
     42          (<row> NIL NIL NIL (scroll 8 T) NIL NIL
     43             (gui '(+Sgn +View +FixField) '(sum> (: home obj)) 2 12) ) )
     44       (<spread>
     45          (gui '(+Rid +Button) ,"PDF-Print"
     46             '(if (check> (: home obj))
     47                (note ,"Can't print order" (uniq @))
     48                (psOut 0 ,"Order" (ps> (: home obj))) ) )
     49          (editButton T) ) ) )
     50 
     51 # vi:et:ts=3:sw=3