Product_Manager/MainForm.vb

@@ -53,8 +53,8 @@ Public Class MainForm
     End Enum
 
     Private Enum TypeCodeList
-        Eye = 1
-        Face
+        Face = 1
+        Eye
         Body
         MAXType
     End Enum
@@ -441,18 +441,6 @@ End_Finish:
         End If
     End Function
 
-    Private Function TypeCodeSetting() As Int16
-        If rdbIfFace.Checked = True Then
-            Return TypeCodeList.Face
-        ElseIf rdbIfEye.Checked = True Then
-            Return TypeCodeList.Eye
-        ElseIf rdbIfBody.Checked = True Then
-            Return TypeCodeList.Body
-        Else
-            Return TypeCodeList.MAXType
-        End If
-    End Function
-
     Private Sub DUALSONIC_WriteFunc()
         Dim StageCnt As Int16 = ErrorList.NonError
         Try
@@ -522,10 +510,8 @@ End_Finish:
             ''*******    Cart Type 전송   ********
             ''************************************
 
-            Dim TypeCodeNum As Int16 = TypeCodeSetting()
-
             tmpCmdMessage = "carttype"
-            cmdMessage = "[sb" & tmpCmdMessage & " " & TypeCodeNum & "]"
+            cmdMessage = "[sb" & tmpCmdMessage & " " & TypeCode & "]"
 
             If SendData(cmdMessage) Then
                 StageCnt = ErrorList.SendError