Accpac multi lingual item description 2

[johnhugh]

Hi, is there any way or maybe an add-on for Accpac 6 which allows for item descriptions in a 2nd language?
Really desperate to get this. There must be something I can do?

 

[DjangMan]

Where do you want the descriptions to appear? On the screen, when you print out? What about optional fields?

 

[ettienne]

IC price lists can support multiple languages - you setup a price list per language.

 

[DjangMan]

A star for Ettienne - excellent idea!

 

[johnhugh]

Price lists per language are a good idea, however I would need the user to be able to see an alternative item description in POs and internal usage.
Price lists only apply to O/E as far as I know.

Just wondering whether there is another option besides optional fields?

 

[ettienne]

There are the 4 lines for additional item information, each line is 80 characters. They do not show up in any of the screens you mentioned, but some custom programming can pull them up.
North49 have something called Notes Alert, it allows you to have popup notes for items, customers, vendors, etc. But that may be a bit intrusive. North49 also do custom development, they're pretty good with the IC/OE/PO stuff, so talk to them and see if they can help you.

 

[DjangMan]

You could customize the screens with macros and override how the description field is updated. You can even customize the finder when the user clicks on the item number finder and then display a specific optional field (based on the language setting for the user/company/vendor/customer).

 

[ettienne]

Just a comment on the finder fields: you can add fields (including optional fields) to the finders without any customization.
Open any finder and then click Settings, Columns. You will see Unselected and Selected fields, the rest is pretty obvious. You can also change the order in which fields appear in the finder and remove fields that are not required.

 

[ettienne]

Just another note, optional fields have a max of 60 characters, the 4 additional item info fields are 80 characters each.

 

[johnhugh]

Thanks all for your replies.
Didn't know about the North49 product. Looks good as well, but can't search for it in the item finder.
Optional fields I can search for and also reuse them when printing stock count sheets etc.

DjangMan - when you say customize the screen, you mean to drop the OCX on a form in a macro right?
Users always seem to struggle with this, because when I run a macro with a form like this it does not dock to the task bar and the user ends up opening the macro 5 times because it might have moved to the back.

 

[DjangMan]

There's code (which I actually got from Ettienne a long time ago) that will put your macro on the task bar:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long

Private Const GWL_STYLE As Long = (-16)
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000

Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const GWL_EXSTYLE = (-20)
Private Const HWND_TOP = 0
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_SHOWWINDOW = &H40
Private Const WS_EX_APPWINDOW = &H40000
Private Const SWP_FRAMECHANGED = &H20
Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&

Private Sub AddMinimizeButton()
    Dim hWnd As Long
    hWnd = GetActiveWindow
    Call SetWindowLong(hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) Or WS_MINIMIZEBOX)
    Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE)
End Sub

Private Sub AppTasklist(myForm)
    Dim WStyle As Long
    Dim Result As Long
    Dim hWnd As Long

    hWnd = FindWindow(vbNullString, myForm.Caption)
    WStyle = GetWindowLong(hWnd, GWL_EXSTYLE)
    WStyle = WStyle Or WS_EX_APPWINDOW
    Result = SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE Or SWP_HIDEWINDOW)
    Result = SetWindowLong(hWnd, GWL_EXSTYLE, WStyle)
    Result = SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOACTIVATE Or SWP_SHOWWINDOW)
    
End Sub

Private Sub UserForm_Activate()
    AddMinimizeButton
    AppTasklist Me
End Sub

 

[johnhugh]

Awesome. Will give that a try!