anchor.diff:  	       (customer (get-customer order-instance)) 
   	       (vendor (get-login-vendor))
   	       (wallet (get-cust-wallet-by-vendor customer vendor company-instance))
  -	       (vendor-order-items (get-order-items-for-vendor-by-order-id  order-instance (get-login-vendor) )))
  -	  
  -	  (progn (if (equal payment-mode "PRE")
  -		     (if (not (check-wallet-balance (get-order-items-total-for-vendor vendor  vendor-order-items) wallet))
  -			 (display-wallet-for-customer wallet "Not enough balance for the transaction.")))
  -		 (set-order-fulfilled "Y"  order-instance company-instance)
  -		 (hunchentoot:redirect "/hhub/dodvendindex?context=pendingorders")))))
  -	
  -
  +	       (vendor-order-items (get-order-items-for-vendor-by-order-id  order-instance (get-login-vendor) ))
  +	       (params nil))
  +
  +	 (setf params (acons "uri" (hunchentoot:request-uri*)  params))
  +	 (setf params (acons "company" company-instance params))
  +	 (with-hhub-transaction "com-hhub-transaction-vendor-order-setfulfilled"  params   
  +	   (progn (if (equal payment-mode "PRE")
  +		      (if (not (check-wallet-balance (get-order-items-total-for-vendor vendor  vendor-order-items) wallet))
  +			  (display-wallet-for-customer wallet "Not enough balance for the transaction.")))
  +		  (set-order-fulfilled "Y"  order-instance company-instance)
  +		  (hunchentoot:redirect "/hhub/dodvendindex?context=pendingorders"))))))
   
   (defun display-wallet-for-customer (wallet-instance custom-message)
     (with-standard-vendor-page (:title "Wallet Display")
  
positive.code: 						   (:input :class "form-control" :name "password" :placeholder "password=demo" :type "password" ))
  					     (:div :class "form-group"
  						   (:button :class "btn btn-lg btn-primary btn-block" :type "submit" "Submit")))
  
  					     (:button :type "button" :class "btn btn-primary" :data-bs-toggle "modal" :data-bs-target (format nil "#dasvendforgotpass-modal") "Forgot Password" ))))
  					     (modal-dialog (format nil "dasvendforgotpass-modal") "Forgot Password?" (modal.vendor-forgot-password)))))
      (clsql:sql-database-data-error (condition)
  					     (if (equal (clsql:sql-error-error-id condition) 2006 ) (progn
  
negative.code:   
  
  
  (defun com-hhub-transaction-vendor-order-setfulfilled ()
    (with-vend-session-check 
  	(let* ((id (hunchentoot:parameter "id"))
  	       (company-instance (hunchentoot:session-value :login-vendor-company))
  