VERSION 5.00
Begin VB.Form Quot_Customer_mtnc 
   Caption         =   "Quotation : customer maintenance"
   ClientHeight    =   6150
   ClientLeft      =   45
   ClientTop       =   390
   ClientWidth     =   10980
   ClipControls    =   0   'False
   LinkTopic       =   "Claims"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   6150
   ScaleWidth      =   10980
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Height          =   3255
      Left            =   0
      TabIndex        =   5
      Top             =   600
      Width           =   9375
      Begin VB.TextBox txt_Name 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   1140
         Locked          =   -1  'True
         MaxLength       =   15
         TabIndex        =   25
         Top             =   240
         Width           =   4392
      End
      Begin VB.TextBox txt_ZipCode 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   1140
         Locked          =   -1  'True
         MaxLength       =   15
         TabIndex        =   23
         Top             =   1680
         Width           =   1932
      End
      Begin VB.TextBox txt_Fax 
         BackColor       =   &H00FFFFFF&
         Height          =   285
         Left            =   6600
         Locked          =   -1  'True
         MaxLength       =   20
         TabIndex        =   21
         Top             =   1680
         Width           =   1680
      End
      Begin VB.TextBox txt_Country 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   1140
         Locked          =   -1  'True
         MaxLength       =   15
         TabIndex        =   19
         Top             =   2640
         Width           =   2652
      End
      Begin VB.TextBox txt_Town 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   1140
         Locked          =   -1  'True
         MaxLength       =   30
         TabIndex        =   16
         Top             =   2160
         Width           =   2652
      End
      Begin VB.TextBox txt_SAP 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   6600
         Locked          =   -1  'True
         MaxLength       =   40
         TabIndex        =   15
         Top             =   2160
         Width           =   1332
      End
      Begin VB.TextBox txt_Address2 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   1140
         Locked          =   -1  'True
         MaxLength       =   40
         TabIndex        =   13
         Top             =   1200
         Width           =   3852
      End
      Begin VB.TextBox txt_Phone 
         BackColor       =   &H00FFFFFF&
         Height          =   285
         Left            =   6600
         Locked          =   -1  'True
         MaxLength       =   20
         TabIndex        =   12
         Top             =   1200
         Width           =   1680
      End
      Begin VB.TextBox txt_Address1 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   1140
         Locked          =   -1  'True
         MaxLength       =   40
         TabIndex        =   9
         Top             =   720
         Width           =   3852
      End
      Begin VB.TextBox txt_Contact 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   6600
         Locked          =   -1  'True
         MaxLength       =   30
         TabIndex        =   8
         Top             =   720
         Width           =   2172
      End
      Begin VB.TextBox txt_Code 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   5040
         MaxLength       =   15
         TabIndex        =   7
         Top             =   240
         Visible         =   0   'False
         Width           =   492
      End
      Begin VB.PictureBox pic_Cust 
         AutoSize        =   -1  'True
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   312
         Left            =   5500
         ScaleHeight     =   315
         ScaleWidth      =   255
         TabIndex        =   6
         Top             =   240
         Width           =   252
      End
      Begin VB.Label lbl_Name 
         Caption         =   "Name :"
         Height          =   285
         Left            =   60
         TabIndex        =   26
         Top             =   240
         Width           =   1050
      End
      Begin VB.Label lbl_ZipCode 
         Caption         =   "Zip code :"
         Height          =   285
         Left            =   60
         TabIndex        =   24
         Top             =   1200
         Width           =   1035
      End
      Begin VB.Label lbl_Fax 
         Caption         =   "Fax :"
         Height          =   285
         Left            =   5400
         TabIndex        =   22
         Top             =   1680
         Width           =   1155
      End
      Begin VB.Label lbl_Country 
         Caption         =   "Country :"
         Height          =   285
         Left            =   60
         TabIndex        =   20
         Top             =   2640
         Width           =   1035
      End
      Begin VB.Label lbl_Town 
         Caption         =   "Town :"
         Height          =   285
         Left            =   60
         TabIndex        =   18
         Top             =   2160
         Width           =   1035
      End
      Begin VB.Label lbl_SAP 
         Caption         =   "SAP code :"
         Height          =   285
         Left            =   5400
         TabIndex        =   17
         Top             =   2160
         Width           =   1110
      End
      Begin VB.Label lbl_Phone 
         Caption         =   "Phone :"
         Height          =   285
         Left            =   5400
         TabIndex        =   14
         Top             =   1200
         Width           =   1155
      End
      Begin VB.Label lbl_Address 
         Caption         =   "Address :"
         Height          =   285
         Left            =   60
         TabIndex        =   11
         Top             =   720
         Width           =   1035
      End
      Begin VB.Label lbl_Contact 
         Caption         =   "Contact :"
         Height          =   285
         Left            =   5400
         TabIndex        =   10
         Top             =   720
         Width           =   1155
      End
   End
   Begin VB.TextBox txt_CountryCode 
      BackColor       =   &H00FFFFFF&
      Height          =   288
      Left            =   4140
      MaxLength       =   15
      TabIndex        =   4
      Top             =   9660
      Visible         =   0   'False
      Width           =   492
   End
   Begin VB.PictureBox pic_pics 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   570
      Left            =   0
      ScaleHeight     =   570
      ScaleWidth      =   9495
      TabIndex        =   3
      Top             =   0
      Width           =   9495
      Begin VB.PictureBox pic_Save 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         ClipControls    =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   384
         Left            =   60
         ScaleHeight     =   390
         ScaleWidth      =   390
         TabIndex        =   0
         Top             =   60
         Width           =   384
      End
      Begin VB.PictureBox pic_UnDo 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         ClipControls    =   0   'False
         ForeColor       =   &H80000008&
         Height          =   384
         Left            =   660
         ScaleHeight     =   390
         ScaleWidth      =   390
         TabIndex        =   1
         Top             =   60
         Width           =   384
      End
      Begin VB.PictureBox pic_quit 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         ClipControls    =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   384
         Left            =   1380
         ScaleHeight     =   390
         ScaleWidth      =   390
         TabIndex        =   2
         Top             =   60
         Width           =   384
      End
   End
End
Attribute VB_Name = "Quot_Customer_mtnc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim mi_Concurrency As Integer
Private Function Control() As Boolean

Control = KO
'If txt_ReportDate = "" Then
'    tab_Info.Tab = GENERAL_INFO
'   txt_ReportDate.SetFocus
'    SendMessage 8, "Value must be filled in"
'    Exit Function
'End If
Control = OK

End Function


Private Function InsertCustomer() As Boolean

Dim ls_req As String
Dim ls_Field As String
Dim ll_statement As Long
Dim ll_NbRows As Long
Dim li_status As Integer

On Error GoTo suite

InsertCustomer = KO
'ls_Req = "EXEC Claim_Plant_ins '" & gs_ClaimCode & "', '" & txt_Item & "', '"
If SQLSubmit(gl_Environment, gl_Database, ll_statement, ls_req) Then
    li_status = SQL_SUCCESS
    InsertCustomer = OK
End If
li_status = SQLFreeStatement(ll_statement, SQL_DROP)
Exit Function

suite:
li_status = SQLFreeStatement(ll_statement, SQL_DROP)
StdError
End Function
Private Function UpdateCustomer() As Boolean

Dim ls_req As String
Dim ls_Field As String
Dim ll_statement As Long
Dim ll_NbRows As Long
Dim li_status As Integer
Dim ll_Lngrows As Long

On Error GoTo suite

UpdateCustomer = KO
'ls_Req = "EXEC Claim_Plant_upd '" & gs_ClaimCode & "', '" & txt_Item & "', '"
If SQLSubmit(gl_Environment, gl_Database, ll_statement, ls_req) Then
    li_status = SQLRowCount(ll_statement, ll_Lngrows)
    If ll_Lngrows <> 0 Then
        UpdateCustomer = OK
        mi_Concurrency = mi_Concurrency + 1
    End If
End If
li_status = SQLFreeStatement(ll_statement, SQL_DROP)
Exit Function

suite:
li_status = SQLFreeStatement(ll_statement, SQL_DROP)
StdError
End Function
Private Sub Form_Load()

On Error GoTo suite

MouseOff
pic_Save.Picture = LoadResPicture(RES_OK, 1)
pic_quit.Picture = LoadResPicture(RES_QUIT, 1)
pic_UnDo.Picture = LoadResPicture(RES_CANCEL, 1)
pic_Cust.Picture = LoadResPicture(RES_COMBOCOPY, 1)
' Return to the empty state
'SetCaptions
MouseOn
Exit Sub

suite:
StdError
End Sub
Private Sub pic_cust_Click()

MouseOff
gut_Param.Str1 = "SAP"
gut_Param.Str2 = "Claim"
'gut_Param.Str3 = "EXEC Claim_Customer_del "
gut_Param.Str4 = "EXEC screen_csts 'Customer_C_Sel','" & gut_LangLogin.Code & "'"
'gut_Param.Str5 = txt_ContCountryCode
'gut_Param.Str6 = txt_ContCountry
'gut_Param.Str7 = txt_ContCode
gut_Param2.Str1 = "Claim_Customer"
gut_Param2.Str3 = "EXEC screen_csts 'Mtnc_Claim_Cust','" & gut_LangLogin.Code & "'"
'gut_Param2.Str4 = txt_DistCode
'gut_Param2.Str5 = gi_DistConcurrency
gb_Return = KO
C_Selection.Show 1
If gb_Return Then
'    txt_DistCode = gut_Param2.Str4
'    gi_DistConcurrency = gut_Param2.Str5
End If
MouseOn

End Sub

Private Sub pic_quit_Click()

MouseOff
gb_Return = KO
Unload Me
MouseOn

End Sub
Private Sub pic_Save_Click()

On Error GoTo suite

MouseOff
If Control Then
End If
MouseOn
Exit Sub

suite:
StdError
End Sub
Private Sub pic_UnDo_Click()

MouseOff
' Refresh actual display
MouseOn

End Sub

Private Sub InitFields()

End Sub


