#TEMPLATE(qsServerAutoInc,'Qualitas''s Server Side Auto Increment Templates'),FAMILY('ABC')
#!--------------------------------------------------------------------------------------
#!
#!
#! All Rights Reserved World Wide
#! 
#!
#!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#!                                               APPLICATION EXTENSION
#!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#!
#EXTENSION(qsServerAutoIncGlobal,'Activate Qualitas''s Server Side Auto Increment Global Template'),APPLICATION
#!
#SHEET
#! Custom for this template
#!------------------------------------------------------------------------------------------------------------------------
 #TAB('General')
    #INSERT  (%SETCC)
    #INSERT  (%SETAPP)
    #DISPLAY ('')
    #BOXED   ('Debugging'),Section,AT(,70,,20)
       #PROMPT  ('Disable Qualitas''s Server Side Auto Inc Templates',Check),%qsDisableServerAutoInc,AT(10)
    #ENDBOXED
 #ENDTAB
#ENDSHEET

#!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#!                                Procedure Extension
#!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
#!
#EXTENSION(qsServerAutoIncProc,'Qualitas''s Server Side Auto Increment Settings - Procedure'),PROCEDURE,REQ(qsServerAutoIncGlobal),Multi
#SHEET
 #TAB('Server Side Auto Increment Procedure Settings')
   #DISPLAY ('')
   #PROMPT  ('Disable Qualitas''s Server Side Auto Inc Code',Check),%qsDisableServerAutoIncProc,AT(10)
   #ENABLE(%qsDisableServerAutoIncProc = %False)
     #DISPLAY ('')
     #DISPLAY ('Auto Increment Table')
     #PROMPT  ('',FILE),%qsAutoIncTable,REQ
     #DISPLAY ('')
     #DISPLAY ('Field Number that receives SQL Auto Increment Value')
     #PROMPT  ('',@n1),%qsAutoIncField,REQ,DEFAULT(1)
     #DISPLAY ('')
     #DISPLAY ('')
   #ENDENABLE
 #ENDTAB
#ENDSHEET


#!------------------------------------------------------------------------------------------------------------------------
#AT(%WindowManagerMethodcodeSection,'Init','(),BYTE'),PRIORITY(7600)
 #IF(%qsDisableServerAutoInc=%False)
 #IF(%qsDisableServerAutoInc=%False)
  !Qualitas's Server Auto Increment
  %qsAutoIncTable{Prop:ServerAutoInc,%qsAutoIncField} = 1           
 #ENDIF
 #ENDIF
#ENDAT



#!------------------------------------------------------------------------------------------------------------------------
#AT(%WindowManagerMethodcodeSection,'PrimeUpdate','(),BYTE'),PRIORITY(2500)
 #IF(%qsDisableServerAutoInc=%False)
 #IF(%qsDisableServerAutoInc=%False)
 !Qualitas's Server Auto Increment
 If Self.Request = InsertRecord
    %qsAutoIncTable{PROP:ServerAutoInc} = 1
  Else
  End
 #ENDIF
 #ENDIF
#ENDAT


#!------------------------------------------------------------------------------------------------------------------------
#GROUP(%SETCC)
  #BOXED (''),Section,AT(,10,180,60)
     #DISPLAY ('Qualitas Solutions''s Server Side Auto Increment'),PROP(PROP:FontStyle,700),PROP(PROP:FontName,%AppTPLFontName)
     #DISPLAY ('Version 1.02'),PROP(PROP:FontStyle,700),PROP(PROP:FontName,%AppTPLFontName)
     #DISPLAY ('Copyright © 2015 by'),PROP(PROP:FontName,%AppTPLFontName)
     #DISPLAY ('Qualitas Solutions (Pty) Ltd'),PROP(PROP:FontName,%AppTPLFontName)
     #DISPLAY ('www.qualitas-solutions.co.za'),PROP(PROP:FontName,%AppTPLFontName)
  #ENDBOXED

#GROUP(%SETAPP)
  #BOXED('Qualitas Solutions Server Side Auto Increment Template'),SECTION,AT(,10,180,40)
     #DISPLAY ('')
     #DISPLAY ('This Template will impliment server side auto ')
     #DISPLAY ('incrementing on a MS SQL server using Clarion 10')
  #ENDBOXED