VERSION 5.00
Begin VB.Form Quot_Customer_View 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   7455
   ClientLeft      =   240
   ClientTop       =   495
   ClientWidth     =   8160
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   7455
   ScaleWidth      =   8160
   ShowInTaskbar   =   0   'False
   Visible         =   0   'False
   Begin VB.Frame Frm_Delivery_Address 
      Caption         =   "Delivery address"
      Height          =   3255
      Left            =   0
      TabIndex        =   37
      Top             =   3900
      Width           =   7350
      Begin VB.TextBox txt_DName 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   15
         TabIndex        =   45
         Top             =   360
         Width           =   3615
      End
      Begin VB.TextBox txt_DFax 
         BackColor       =   &H00FFFFFF&
         Height          =   285
         Left            =   4440
         Locked          =   -1  'True
         MaxLength       =   20
         TabIndex        =   44
         Top             =   2220
         Width           =   1920
      End
      Begin VB.TextBox txt_DCountry 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   4440
         Locked          =   -1  'True
         MaxLength       =   15
         TabIndex        =   43
         Top             =   2700
         Width           =   1920
      End
      Begin VB.TextBox txt_DTown 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   30
         TabIndex        =   42
         Top             =   2700
         Width           =   2172
      End
      Begin VB.TextBox txt_DAddress2 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   40
         TabIndex        =   41
         Top             =   1200
         Width           =   3615
      End
      Begin VB.TextBox txt_DPhone 
         BackColor       =   &H00FFFFFF&
         Height          =   285
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   20
         TabIndex        =   40
         Top             =   2220
         Width           =   2172
      End
      Begin VB.TextBox txt_DAddress1 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   40
         TabIndex        =   39
         Top             =   840
         Width           =   3615
      End
      Begin VB.TextBox txt_DContact 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   30
         TabIndex        =   38
         Top             =   1740
         Width           =   2172
      End
      Begin VB.Label lbl_DName 
         Caption         =   "Name"
         Height          =   405
         Left            =   60
         TabIndex        =   52
         Top             =   360
         Width           =   915
      End
      Begin VB.Label lbl_DFax 
         Caption         =   "Fax"
         Height          =   405
         Left            =   3405
         TabIndex        =   51
         Top             =   2220
         Width           =   915
      End
      Begin VB.Label lbl_DCountry 
         Caption         =   "Country"
         Height          =   405
         Left            =   3405
         TabIndex        =   50
         Top             =   2700
         Width           =   915
      End
      Begin VB.Label lbl_DTown 
         Caption         =   "Town"
         Height          =   405
         Left            =   60
         TabIndex        =   49
         Top             =   2700
         Width           =   915
      End
      Begin VB.Label lbl_DPhone 
         Caption         =   "Phone"
         Height          =   405
         Left            =   60
         TabIndex        =   48
         Top             =   2220
         Width           =   915
      End
      Begin VB.Label lbl_DAddress 
         Caption         =   "Address"
         Height          =   405
         Left            =   60
         TabIndex        =   47
         Top             =   840
         Width           =   915
      End
      Begin VB.Label lbl_DContact 
         Caption         =   "Contact"
         Height          =   405
         Left            =   60
         TabIndex        =   46
         Top             =   1740
         Width           =   915
      End
   End
   Begin VB.Frame Frm_Customer 
      Caption         =   "Customer"
      Height          =   3135
      Left            =   0
      TabIndex        =   21
      Top             =   650
      Width           =   7350
      Begin VB.TextBox txt_Country 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   4380
         Locked          =   -1  'True
         MaxLength       =   15
         TabIndex        =   56
         Top             =   1620
         Width           =   1920
      End
      Begin VB.TextBox txt_Phone 
         BackColor       =   &H00FFFFFF&
         Height          =   285
         Left            =   4380
         Locked          =   -1  'True
         MaxLength       =   20
         TabIndex        =   55
         Top             =   2100
         Width           =   2172
      End
      Begin VB.TextBox txt_Email 
         Height          =   288
         Left            =   960
         MaxLength       =   80
         TabIndex        =   53
         Top             =   2640
         Width           =   3375
      End
      Begin VB.TextBox txt_Contact 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   30
         TabIndex        =   28
         Top             =   2100
         Width           =   2172
      End
      Begin VB.TextBox txt_Address1 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   40
         TabIndex        =   27
         Top             =   840
         Width           =   3615
      End
      Begin VB.TextBox txt_Address2 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   40
         TabIndex        =   26
         Top             =   1200
         Width           =   3615
      End
      Begin VB.TextBox txt_SAP 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   5760
         Locked          =   -1  'True
         MaxLength       =   40
         TabIndex        =   25
         Top             =   360
         Width           =   1332
      End
      Begin VB.TextBox txt_Town 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   30
         TabIndex        =   24
         Top             =   1620
         Width           =   2172
      End
      Begin VB.TextBox txt_Fax 
         BackColor       =   &H00FFFFFF&
         Height          =   285
         Left            =   5280
         Locked          =   -1  'True
         MaxLength       =   20
         TabIndex        =   23
         Top             =   2640
         Width           =   1920
      End
      Begin VB.TextBox txt_Name 
         BackColor       =   &H00FFFFFF&
         Height          =   288
         Left            =   960
         Locked          =   -1  'True
         MaxLength       =   15
         TabIndex        =   22
         Top             =   360
         Width           =   3615
      End
      Begin VB.Label lbl_Email 
         Caption         =   "E-mail"
         Height          =   255
         Left            =   120
         TabIndex        =   54
         Top             =   2640
         Width           =   840
      End
      Begin VB.Label lbl_Contact 
         Caption         =   "Contact"
         Height          =   405
         Left            =   120
         TabIndex        =   36
         Top             =   2100
         Width           =   915
      End
      Begin VB.Label lbl_Address 
         Caption         =   "Address"
         Height          =   405
         Left            =   60
         TabIndex        =   35
         Top             =   840
         Width           =   915
      End
      Begin VB.Label lbl_Phone 
         Caption         =   "Phone"
         Height          =   405
         Left            =   3300
         TabIndex        =   34
         Top             =   2100
         Width           =   915
      End
      Begin VB.Label lbl_SAP 
         Caption         =   "SAP code"
         Height          =   405
         Left            =   4800
         TabIndex        =   33
         Top             =   360
         Width           =   915
      End
      Begin VB.Label lbl_Town 
         Caption         =   "Town"
         Height          =   405
         Left            =   60
         TabIndex        =   32
         Top             =   1620
         Width           =   915
      End
      Begin VB.Label lbl_Country 
         Caption         =   "Country"
         Height          =   405
         Left            =   3300
         TabIndex        =   31
         Top             =   1620
         Width           =   915
      End
      Begin VB.Label lbl_Fax 
         Caption         =   "Fax"
         Height          =   405
         Left            =   4500
         TabIndex        =   30
         Top             =   2640
         Width           =   675
      End
      Begin VB.Label lbl_Name 
         Caption         =   "Name"
         Height          =   405
         Left            =   60
         TabIndex        =   29
         Top             =   360
         Width           =   915
      End
   End
   Begin VB.TextBox txt_Status 
      Height          =   315
      Left            =   5220
      Locked          =   -1  'True
      TabIndex        =   16
      TabStop         =   0   'False
      Top             =   0
      Width           =   2775
   End
   Begin VB.Frame SeparateLine 
      Height          =   75
      Left            =   0
      TabIndex        =   15
      Top             =   420
      Width           =   8115
   End
   Begin VB.ComboBox cbo_Version 
      Height          =   315
      Left            =   3660
      Style           =   2  'Dropdown List
      TabIndex        =   14
      Top             =   0
      Width           =   615
   End
   Begin VB.TextBox txt_QuotCode 
      Height          =   315
      Left            =   720
      Locked          =   -1  'True
      TabIndex        =   13
      TabStop         =   0   'False
      Top             =   0
      Width           =   1935
   End
   Begin VB.PictureBox ButtonBox 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      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          =   6495
      Left            =   7440
      ScaleHeight     =   6465
      ScaleWidth      =   630
      TabIndex        =   0
      Top             =   720
      Width           =   665
      Begin VB.PictureBox pic_Order 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         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          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   11
         Top             =   1800
         Width           =   480
      End
      Begin VB.ComboBox Combo2 
         Height          =   315
         Left            =   3660
         TabIndex        =   20
         Text            =   "99"
         Top             =   0
         Width           =   615
      End
      Begin VB.PictureBox pic_Language 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         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          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   10
         Top             =   4800
         Width           =   480
      End
      Begin VB.PictureBox pic_help 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         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            =   8640
         ScaleHeight     =   390
         ScaleWidth      =   390
         TabIndex        =   7
         Top             =   120
         Width           =   384
      End
      Begin VB.PictureBox pic_quit 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         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          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   4
         Top             =   4200
         Width           =   480
      End
      Begin VB.PictureBox pic_add 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         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          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   9
         Top             =   40
         Width           =   480
      End
      Begin VB.PictureBox pic_upd 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         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          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   3
         Top             =   600
         Width           =   480
      End
      Begin VB.PictureBox pic_delete 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         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          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   8
         Top             =   1200
         Width           =   480
      End
      Begin VB.PictureBox pic_search 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         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            =   1920
         ScaleHeight     =   390
         ScaleWidth      =   390
         TabIndex        =   2
         Top             =   120
         Width           =   384
      End
      Begin VB.PictureBox pic_print 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         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          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   6
         Top             =   3000
         Visible         =   0   'False
         Width           =   480
      End
      Begin VB.PictureBox pic_log 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         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          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   5
         Top             =   2400
         Width           =   480
      End
      Begin VB.PictureBox pic_refresh 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DrawStyle       =   5  'Transparent
         Height          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   1
         Top             =   3600
         Width           =   480
      End
   End
   Begin VB.Label lbl_QuotationCode 
      Caption         =   "Code"
      Height          =   315
      Left            =   120
      TabIndex        =   19
      Top             =   60
      Width           =   615
   End
   Begin VB.Label lbl_QuotationStatus 
      Caption         =   "Status"
      Height          =   315
      Left            =   4500
      TabIndex        =   18
      Top             =   60
      Width           =   615
   End
   Begin VB.Label lbl_QuotationVersion 
      Caption         =   "Version"
      Height          =   315
      Left            =   2940
      TabIndex        =   17
      Top             =   60
      Width           =   735
   End
   Begin VB.Label lbl_MessageCount 
      Height          =   312
      Left            =   8640
      TabIndex        =   12
      Top             =   5820
      Visible         =   0   'False
      Width           =   552
   End
End
Attribute VB_Name = "Quot_Customer_View"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Const LST_AQ_NEW = 1
Const LST_AQ_NEW_VERSION = 2

Public mi_TopForm As Integer
Public mi_LeftForm As Integer

Private Sub cbo_Version_Click()
    MouseOff
    If Quotation_UpdateCommonInformation(Txt_Status, cbo_Version) = OK Then
        CustomerData
    End If
    MouseOn
End Sub

Private Sub InitFields()
    Quotation_View_Load txt_QuotCode, Txt_Status, cbo_Version
End Sub

Private Sub Form_Load()
Dim ls_req As String
Dim ll_statement As Long
Dim li_status As Integer
Dim li_MaxVersion As Integer
Dim i As Integer

    MouseOff
    
    If gl_CodePage <> 1252 And gl_CodePage <> 0 Then ChangeCharSet Me
    
    Me.Top = mi_TopForm
    Me.Left = mi_LeftForm
    
    GetCaptions
    
    'Initialize the pictures
    pic_add.Picture = LoadResPicture(RES_ADD, 1)
    pic_upd.Picture = LoadResPicture(RES_MODIFY, 1)
    pic_help.Picture = LoadResPicture(RES_HELP, 1)
    pic_Log.Picture = LoadResPicture(RES_LOG, 1)
    pic_Print.Picture = LoadResPicture(RES_PRINT, 1)
    pic_quit.Picture = LoadResPicture(RES_QUIT, 1)
    pic_refresh.Picture = LoadResPicture(RES_REFRESH, 1)

    pic_delete.Visible = KO
    pic_search.Visible = KO
    pic_add.Visible = KO
    pic_upd.Visible = KO
    
    'Initialize the combobox to unloaded status
    cbo_Version.Tag = UNLOADED
    
    Quotation_View_Load txt_QuotCode, Txt_Status, cbo_Version
    MouseOn

End Sub

Private Sub pic_log_Click()
    
    On Error GoTo pic_log_Err

    MouseOff
    Quotation_Historic
    
    Exit Sub
    
pic_log_Err:
    StdError
End Sub

Private Sub pic_quit_Click()
    Unload Me
End Sub

Private Sub pic_refresh_Click()
    MouseOff
    CustomerData
    MouseOn
End Sub

Private Function CustomerData() As Boolean
Dim ls_req As String
Dim li_status As Integer
Dim ll_statement As Long
Dim ls_InternetFlag As String
Dim i As Integer

    On Error GoTo Cust_Err
    CustomerData = KO
    
    ls_req = "EXEC Quotation_sel4 " & gi_QuotationCode & "," & gi_QuotationVersion & ",'E'"
        
    If SQLSubmit(gl_Environment, gl_Database, ll_statement, ls_req) Then
        li_status = SQL_SUCCESS
        Do While li_status = SQL_SUCCESS Or li_status = SQL_SUCCESS_WITH_INFO
            'Get the row of data
            li_status = SQLFetch(ll_statement)
            If li_status = SQL_SUCCESS Or li_status = SQL_SUCCESS_WITH_INFO Then
                txt_Name.Text = ODBCData(ll_statement, 1)
                txt_SAP.Text = ODBCData(ll_statement, 2)
                txt_Address1.Text = ODBCData(ll_statement, 3)
                txt_Address2.Text = ODBCData(ll_statement, 4)
                txt_Contact.Text = ODBCData(ll_statement, 5)
                txt_Phone.Text = ODBCData(ll_statement, 6)
                txt_Fax.Text = ODBCData(ll_statement, 7)
                txt_Town.Text = ODBCData(ll_statement, 8)
                txt_Country.Text = ODBCData(ll_statement, 9)
                'mi_iConcCustomer = Formatage2(ODBCDataInt(ll_Statement, 10))
                txt_DName.Text = ODBCData(ll_statement, 11)
                txt_DAddress1.Text = ODBCData(ll_statement, 12)
                txt_DAddress2.Text = ODBCData(ll_statement, 13)
                txt_DContact.Text = ODBCData(ll_statement, 14)
                txt_DPhone.Text = ODBCData(ll_statement, 15)
                txt_DFax.Text = ODBCData(ll_statement, 16)
                txt_DTown.Text = ODBCData(ll_statement, 17)
                txt_DCountry.Text = ODBCData(ll_statement, 18)
                txt_Email.Text = ODBCData(ll_statement, 19)
    
            End If
        Loop
    End If
    li_status = SQLFreeStatement(ll_statement, SQL_DROP)
    
    CustomerData = OK
    Exit Function

Cust_Err:
    li_status = SQLFreeStatement(ll_statement, SQL_DROP)
    StdError

End Function

Private Sub GetCaptions()
Dim ls_Field As String
Dim ls_Text As String
Dim ll_statement As Long
Dim li_status As Integer
Dim ls_req As String

    On Error GoTo suite
    ls_req = "EXEC Screen_Csts 'Quot_customer', '" & gut_LangLogin.Code & "'"
    If SQLSubmit(gl_Environment, gl_Database, ll_statement, ls_req) Then
        li_status = SQL_SUCCESS
    Else
        li_status = SQL_ERROR
    End If
    Do While li_status = SQL_SUCCESS Or li_status = SQL_SUCCESS_WITH_INFO
        li_status = SQLFetch(ll_statement)
        If li_status = SQL_SUCCESS Or li_status = SQL_SUCCESS_WITH_INFO Then
            ls_Field = ODBCData(ll_statement, 1)
            ls_Text = ODBCData(ll_statement, 2)
            Select Case ls_Field
                Case "lbl_code": lbl_QuotationCode.Caption = ls_Text
                Case "lbl_version": lbl_QuotationVersion.Caption = ls_Text
                Case "lbl_status": lbl_QuotationStatus.Caption = ls_Text
                Case "lbl_name":
                    lbl_Name.Caption = ls_Text
                    lbl_DName.Caption = ls_Text
                Case "lbl_sapcode": lbl_SAP.Caption = ls_Text
                Case "lbl_address":
                    lbl_Address.Caption = ls_Text
                    lbl_DAddress.Caption = ls_Text
                Case "lbl_contact":
                    lbl_Contact.Caption = ls_Text
                    lbl_DContact.Caption = ls_Text
                Case "lbl_phone":
                    lbl_Phone.Caption = ls_Text
                    lbl_DPhone.Caption = ls_Text
                Case "lbl_fax":
                    lbl_Fax.Caption = ls_Text
                    lbl_DFax.Caption = ls_Text
                Case "lbl_town":
                    lbl_Town.Caption = ls_Text
                    lbl_DTown.Caption = ls_Text
                Case "lbl_country":
                    lbl_Country.Caption = ls_Text
                    lbl_DCountry.Caption = ls_Text
                Case "lbl_email":
                    lbl_Email.Caption = ls_Text
                Case "frm_deladdress": Frm_Delivery_Address.Caption = ls_Text
                Case "frm_customer": Frm_Customer.Caption = ls_Text
            End Select
        End If
    Loop
    li_status = SQLFreeStatement(ll_statement, SQL_DROP)
    Exit Sub
suite:
    StdError
    li_status = SQLFreeStatement(ll_statement, SQL_DROP)
End Sub

