;;; *********************************************************************************
;;; 				Starting command				     
;;; *********************************************************************************

;; reactiate in the odcl file if this is used

;(defun c:oSTKBK_Form1_OnDocActivated (/)
;(dcl_Form_Show oSTKBK_Form1)
;)
(vl-load-com)   ;;<--remove this line when all have 2012
(defun oSTKBK (/ cmdecho check_file)
	;; Ensure OpenDCL Runtime is (quietly) loaded
	(setq cmdecho (getvar "CMDECHO"))
	(setvar "CMDECHO" 0)
	(command "_OPENDCL")
	(setvar "CMDECHO" cmdecho)

; call the method to load the odcl file.
(dcl_Project_Load "oSTKBK" T)

; call the method to show the Hello World dialog box example
;(dcl_sendstring "oSTKBK_LIST ")
(dcl_Form_Show oSTKBK_Form1)

	  
(princ)
); c:STKBK


;;; *********************************************************************************
;;; 				Show-list command				     
;;; *********************************************************************************

  ;; subfunction for getting active searchstring
  
  (defun get_text (/ strText)
    (if (/= (setq strText (strcase (vl-string-trim " " (dcl_Control_GetText oSTKBK_Form1_TextBox1)))) "")
      (setq strText (strcat "*" strText "*"))
      (setq strText nil)
    ); if
  ); get_text

  ;; subform for changing textstring
  
  (defun change_text (/ lstSel entText)
    (while (and (setq lstSel (vl-catch-all-apply 'entsel (list "\nSelect Text <Enter to Exit>: ")))
		(not (vl-catch-all-error-p lstSel))
		(setq entText (car lstSel))
		(setq lstSel (entget entText))
		(= (cdr (assoc 0 lstSel)) "TEXT"))
      (entmod (subst (cons 1 strStockBookNumber) (assoc 1 lstSel) lstSel))
    ); while
(dcl_Control_SetKeepFocus oSTKBK_Form1 T)
  ); change_text

  ;; subform's initialization
  ;; make sure the the list is filled
(defun wcmatch_first ( lst2lines pattern flag / result )
       (setq flasher nil)
       (setq pattern (if flag (strcase pattern) pattern))
	   (setq p pattern)
       (vl-some
         '(lambda (str) (if (wcmatch str pattern) (setq result str)))
          (if flag (mapcar 'strcase lst2lines) lst2lines)
       )
       result
	   (setq flasher result)
     )
  
(defun special (/)
 (if (wcmatch_first lst2lines "*`**" nil)
    (if (wcmatch flasher "*`**")   
     (PROGN
       (dcl_Control_SetList oSTKBK_Form2_ListBox2 flasher)
       (dcl_Control_SetBackColor oSTKBK_Form2_ListBox2 1)
     )
    ) 
   (PROGN   
    (dcl_Control_SetList oSTKBK_Form2_ListBox2 "")
    (dcl_Control_SetBackColor oSTKBK_Form2_ListBox2 -5)
   )
 )
) ; special

(defun show_dwg_scale (/)
   (setq msg (cadr (assoc (getvar "dimscale")
                           '((  1 " 12\"=1'-0\"")
                             (  2 " 6\"=1'-0\"")
                             (  3 " 4\"=1'-0\"")
                             (  4 " 3\"=1'-0\"")
                             (  6 " 2\"=1'-0\"")
                             (  8 " 1-1/2\"=1'-0\"")
                             ( 12 " 1\"=1'-0\"")
                             ( 16 " 3/4\"=1'-0\"")
                             ( 24 " 1/2\"=1'-0\"")
                             ( 32 " 3/8\"=1'-0\"")
                             ( 48 " 1/4\"=1'-0\"")
                             ( 64 " 3/16\"=1'-0\"")
                             ( 96 " 1/8\"=1'-0\"")
                             (128 " 3/32\"=1'-0\"")
                             (192 " 1/16\"=1'-0\"")
                             (384 " 1/32\"=1'-0\"")
                            )
                        )
                    )
      )
)

  (defun c:oSTKBK_Form1_OnInitialize (/)
  (setq orderval 0) 
  (setq dwgval 0)
  
(princ)
;(dcl_Control_SetCaption oSTKBK_Form1_dwg_scale msg)
;(dcl_Control_SetText oSTKBK_Form1_TextBox1 msg)
 
   ;(dcl_Control_ZOrder oSTKBK_Form1_TextBox1 1)
    (if (zerop (dcl_ListBox_GetCount oSTKBK_Form1_ListBox1))
      (c:oSTKBK_Form1_search_OnClicked)
    ); if
   ;(dcl_Control_SetCaption oSTKBK_Form1_Label8 check_file)
;(dcl_Control_SetKeepFocus oSTKBK_Form1 T)

); c:oSTKBK_Form1_OnInitialize


  ;(defun c:oSTKBK_Form1_OnCancelClose (intIsESC /)
  ;  (if (zerop intIsESC) (c:oSTKBK_Form1_search_OnClicked))
  ;  (/= intIsESC 1)
  ;); c:oSTKBK_Form1_OnCancelClose

  ;; event handler for filter command

  (defun c:oSTKBK_Form1_search_OnClicked (/ strSearch strFile filFile lstLines is_text)
    (dcl_ListBox_Clear oSTKBK_Form1_ListBox1)
    (setq strSearch (get_text))

    (if strSearch
      (defun is_text (strText) 
         (wcmatch 
          (strcase strText) 
            (strcase (vl-string-subst "`#" "#" strSearch))
         )
      )
    ); if

    (if (and (findfile (setq strFile "f:\\stock\\partdes.txt"))
	     (setq filFile (open strFile "r")))
      (progn
	(if strSearch
	  (while (setq strLine (read-line filFile))
	    (if (is_text strLine) (setq lstLines (cons strLine lstLines)))
	  ); while
	  (while (setq strLine (read-line filFile))
	    (setq lstLines (cons strLine lstLines))
	  ); while
	); if
	(close filFile)
            (setq lst2lines (reverse lstlines))
      ); progn
    ); if
    (if lstLines (dcl_ListBox_AddList oSTKBK_Form1_ListBox1 (reverse lstLines)))


  ;; start the endless (!!!) loop
  
  (setq doContinue T)
  (while doContinue
    (setq doContinue nil)

    ;; show the form and save the return value
    ;; 1 = OK
    ;; 2 = ESC
    ;; any other values passing with close method
    
    (setq intRes (dcl_Form_Show oSTKBK_Form1))
    (cond
      ((= intRes 3) (change_text) (setq doContinue T))   
    ); cond
  ); while
  (princ)
); c:oSTKBK_FORM1_SEARCH


(defun c:oSTKBK_Form1_TextBox1_OnReturnPressed (/)
(if (= orderval 1)
(c:oSTKBK_Form1_open_doc_OnClicked)
)

(if (= dwgval 1)
(opendir)
 )

 (if (or (= orderval 0) (= dwgval 0))
    (c:oSTKBK_Form1_search_OnClicked)
 )
 
(princ)
)

(defun c:oSTKBK_Form1_ListBox1_OnSelChanged (ItemIndexOrCount Value / full_desc desc)
(setq stock_num (SUBSTR value 1 21))
(setq full_desc (SUBSTR value 22))
(if (wcmatch full_desc "*\t*")
  (setq desc (vl-string-trim "\t" full_desc))
  (setq desc (vl-string-trim " " full_desc))
)

)
  (defun c:oSTKBK_Form1_ListBox1_OnDblClicked (/ stock_num stocknum stockassoc stocktx stockassoc)
     (dcl_Control_SetKeepFocus oSTKBK_Form1 NIL)
     (setq strStockBookNumber (substr (dcl_ListBox_GetSelectedItems oSTKBK_Form1_ListBox1) 1 21))
     (change_text)
     (princ)
  )

(defun c:oSTKBK_Form1_expand_OnClicked (/)
(dcl_Form_Show oSTKBK_Form2)
)

(defun c:oSTKBK_Form2_OnInitialize (/)
(dcl_ListBox_Clear oSTKBK_Form2_ListBox1)
(dcl_ListBox_AddList oSTKBK_Form2_ListBox1 lst2lines)
(dcl_ListBox_Clear oSTKBK_Form1_ListBox1)
(special)
)

(defun c:oSTKBK_Form2_OnClose (UpperLeftX UpperLeftY /)
  (setq lst2lines nil)
  (c:oSTKBK_Form1_search_OnClicked)
)

(defun c:oSTKBK_Form2_ListBox1_OnDblClicked (/)
  (setq strStockBookNumber (substr (dcl_ListBox_GetSelectedItems oSTKBK_Form2_ListBox1) 1 21))
  (dcl_Form_Close oSTKBK_Form2)
  (c:oSTKBK_Form1_search_OnClicked)
  (change_text)

(princ)
)

(defun c:oSTKBK_Form2_ListBox2_OnDblClicked (/)
     (setq strStockBookNumber (substr (dcl_ListBox_GetSelectedItems oSTKBK_Form2_ListBox2) 1 21))
     (dcl_Form_Close oSTKBK_Form2)
     (change_text)
(princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;; stock request ;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun data ( / sset i TEXT ans txt)
  (setq sset (ssget '((0 . "TEXT"))))
  (setq text "")
  (setq i 0)

  (repeat (sslengtH sset)
    (setq text (strcat text (cdr (assoc 1 (entget (ssname sset i))))" "))
    (setq i (1+ i))
  ) ;repeat

   (SETQ TXT (list (STRCAT TEXT "\n")))
   (setq new_stock_lst (APPEND new_stock_lst TXT))
   (initget 1 "Yes No")
   (setq ans (getkword "Select Again? [Y/N]:"))
    (if (= ans "Yes")
       (progn
        (data)
       ) ;progn

       (progn
         (setq manual_entry (apply 'strcat (mapcar '(lambda (x) (strcat " "x)) NEW_STOCK_LST)))
        (email)
       ) ;progn
    ) ; if
(princ)
) ; defun

(defun email ()
         (setq olApp (vlax-get-or-create-object "Outlook.Application"))
         (setq objMail (vlax-invoke olApp 'CreateItem 0))
         (vlax-put-property objMail 'Subject "Stock number request")
         (vlax-put-property objMail 'To "julia@nao.com")   ;<-----specified email
         (vlax-put-property objMail 'Body (strcat "Non Stock numbers needed for the following:" "\n" "\n"
                                           manual_entry
                                           "\n" "\n" "\n" "\n" "This is an automated email request via Autocad")
         )

         (vlax-invoke objMail 'Send)
)
(princ)
(defun c:oSTKBK_Form1_send_email_OnClicked (/)
    (setq manual_entry NIL)
    (setq new_stock_lst NIL)
    (setq manual_entry (dcl_Control_GetText oSTKBK_Form1_TextBox1))
    (email)
)


(defun c:oSTKBK_Form1_stkreq_OnClicked (/)
    (dcl_Control_SetText oSTKBK_Form1_TextBox1 "")
    (setq new_stock_lst NIL)
    (setq manual_entry NIL)
    (data)

)
(princ)

;;;;;;;;;;;;;;;;;;;;;;;;;;TEXT SCAN

(defun c:oSTKBK_Form1_release_OnClicked (/)
(dcl_project_load "dwgbrowser.odcl")  
(dcl_Form_Show dwgbrowser_Form3)
)
;;;;;;;;;;;;;;;;;;; open order write up  ;;;;;;;;;;;;;;;;;;;;

(defun c:oSTKBK_Form1_CheckBox2_OnClicked (Value /)
 (setq orderval Value)
 (dcl_Control_SetValue oSTKBK_Form1_CheckBox1 0)
 (setq dwgval (dcl_Control_GetValue oSTKBK_Form1_CheckBox1))
 (dcl_Control_SetFocus oSTKBK_Form1_TextBox1)
 )
 

 
(defun openfile	(file / sh)
  (setq sh (vlax-get-or-create-object "Shell.Application"))
  (vlax-invoke-method sh 'open (findfile file))
  (vlax-release-object sh)
)

(defun c:oSTKBK_Form1_open_doc_OnClicked (/ nlst dir ndir job dlst path)

(SETQ dlst (VL-DIRECTORY-FILES "O:/" nil -1))

(defun wcmatch_first ( dlst pattern flag / result )
    (setq pattern (if flag (strcase pattern) pattern))
    (vl-some
       '(lambda (str) (if (wcmatch str pattern) (setq result str)))
        (if flag (mapcar 'strcase dlst) dlst)
    )
    result
)

(defun wcmatch_second ( nlst npattern nflag / nresult )
    (setq npattern (if nflag (strcase npattern) npattern))
    (vl-some
       '(lambda (nstr) (if (wcmatch nstr npattern) (setq nresult nstr)))
        (if nflag (mapcar 'strcase nlst) nlst)
    )
    nresult
)

(SETQ job (dcl_Control_GetText oSTKBK_Form1_TextBox1))

(if (setq dir (strcat "O:\\" (wcmatch_first dlst (strcat "*" job "*") nil)))
		 (progn
		   (SETQ NLST (VL-DIRECTORY-FILES DIR "*.DOC"))
		   (if (setq ndir (wcmatch_second nlst (strcat "*" "MASTER" "*") nil))
		     (progn
			  (setq path (findfile (strcat dir "/" ndir))) 
              (openfile path)
			 ) ;progn
              (alert "File Has no been created yet") ; not found 			   
            ) ;if
		 ) ;progn
         (alert "No such Order exists") ; not found	
) ;if
(princ)
)

(defun c:oSTKBK_Form1_history_OnClicked (/)
  ;(dcl_project_load "dwgbrowser.odcl")  
  ;(dcl_Form_Show dwgbrowser_Form1)
  (load "dwghist")
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  open drawing sub directory in 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   acad arch parent directory
 


(defun c:oSTKBK_Form1_CheckBox1_OnClicked (Value / LST DIRLST VAR ORDER FILENAME OPENPATH)
(setq dwgval Value)
(dcl_Control_SetValue oSTKBK_Form1_CheckBox2 0)
(setq orderval (dcl_Control_GetValue oSTKBK_Form1_CheckBox2))
(dcl_Control_SetFocus oSTKBK_Form1_TextBox1)

(defun opendir ()
   
	 ;; © Lee Mac 2010
(defun LM:Open ( target / Shell result ) (vl-load-com)
  (setq Shell (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))
  (setq result
    (and (or (eq 'INT (type target)) (setq target (findfile target)))
      (not
        (vl-catch-all-error-p
          (vl-catch-all-apply 'vlax-invoke (list Shell 'Open target))
        )
      )
    )
  )
  (vlax-release-object Shell)
  result
)

(setq dirlst "Q:\\100000__Series\\")
(SETQ lst (VL-DIRECTORY-FILES dirlst nil -1))

(defun wcmatch_first ( lst pattern flag / result )
    (setq pattern (if flag (strcase pattern) pattern))
    (vl-some
       '(lambda (str) (if (wcmatch str pattern) (setq result str)))
        (if flag (mapcar 'strcase lst) lst)
    )
    result
)

(SETQ var (strcase (dcl_Control_GetText oSTKBK_Form1_TextBox1)))
	   (cond ((= (substr var 1 1) "5") (setq dirlst (strcat "Q:\\50000 Series\\")))
             ((= (substr var 1 1) "4") (setq dirlst (strcat "Q:\\40000 Series\\")))
             ((= (substr var 1 1) "3") (setq dirlst (strcat "Q:\\30000 Series\\")))
             ((= (substr var 1 1) "2") (setq dirlst (strcat "Q:\\20000 Series\\")))
             ((= (strlen var) 5) (setq dirlst (strcat "Q:\\10000 Series\\")))
	   	  ((= (strlen var) 6) (setq dirlst (strcat "Q:\\100000__Series\\")))
       ) ; end cond
	   (SETQ lst (VL-DIRECTORY-FILES dirlst nil -1))
(if (setq order (strcat dirlst (wcmatch_first lst (strcat "*" var "*") nil) "\\"))
		 (progn
		  	(setq filename (apply 'strcat (dos_getfilenav "Select Files" order  "dwg" 4356)))
		 ) ;progn		  
 ) ;if
			
 (if (setq openpath filename)
	 (lm:open openpath)
 )
  ) ; end opendir

(princ)
) ;end defun checkbox1
(princ)