Attribute VB_Name = "MyDeclaration"
' LP 0022, 0025
Public Type PLU
    PluCode As Integer
    CommCode As Long
    CommName1 As String
    CommName2 As String
    UnitPrice As Long
    ValidDate As Integer
    PgmTare As Integer
    PartCode As Integer
    Ingred_Code As Integer

End Type

Public Type INGRED
    IngredCode As Integer
    Message1 As String
    Message2 As String
    Message3 As String
    Message4 As String
    Message5 As String
    Message6 As String
    Message7 As String
    Message8 As String
   
    
End Type

' XP 0021
Public Type PLU_XP0021

    PluCode As Integer
    CommName As String
    UnitPrice As Long
    Life1 As Integer
    Life2 As Integer
    PgmTare As Integer
    ItemCode As Long
    PartCode As Integer
    CheckWeight As Integer
    
    
End Type