Attribute VB_Name = "ProgrammModule"
Public CurrentRecord As Integer
Public RecordQuantity As Integer

Public WS As Workspace
Public db As Database
Public RcSetFirm As Recordset
Public RcSetFirmList As Recordset
Public RcSetRepresentatives As Recordset
Public RcSetContract As Recordset
Enum ButtonStatus
    OK
    Change
    Add
    CancelAdd
End Enum
Public OKButtonStatus As ButtonStatus

Enum EFormStatus
    FSNone
    FSChange
    FSAdd
    FSNoRecord
End Enum
Public FormStatus As EFormStatus

Public SQLContract As String
Public SQLMainContract As String
Public SQLStatus As String
Public SQLSort As String
'Public SQLInformation As String
'Public SQLContract2 As String
'Public Criterium As String
