[Bug 33956] CCD Calculator (VB6 app) reports 'Run-time error 458: Variable uses an Automation type not supported in Visual Basic' (VarRound doesn't support VT_DECIMAL)

https://bugs.winehq.org/show_bug.cgi?id=33956

Anastasius Focht  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
          Component|-unknown                    |oleaut32
         Resolution|---                         |DUPLICATE
            Summary|CCD Calculator: Run-time    |CCD Calculator (VB6 app)
                   |error '458'                 |reports 'Run-time error
                   |                            |458: Variable uses an
                   |                            |Automation type not
                   |                            |supported in Visual Basic'
                   |                            |(VarRound doesn't support
                   |                            |VT_DECIMAL)

--- Comment #11 from Anastasius Focht  ---
Hello folks,

dupe of bug 26653

--- snip ---
$ pwd
/home/focht/.wine/drive_c/Program Files/CCDCalc

$ WINEDEBUG=+tid,+seh,+relay,+ole,+variant wine ./ccdCalc.exe >>log.txt 2>&1
...
0023:Call oleaut32.VarRound(0033dd28,00000001,0033db1c) ret=734fdfe4
0023:trace:variant:VariantInit (0x33da60)
0023:trace:variant:VarRound (0x33dd28 {vt VT_DECIMAL},1)
0023:fixme:variant:VarRound unimplemented part, V_VT(pVarIn) == 0xE, deci == 1
0023:trace:variant:VariantClear (0x33da60 {VT_EMPTY})
0023:trace:variant:VarRound returning 0x80020008 0x33db1c {VT_EMPTY}
0023:Ret  oleaut32.VarRound() retval=80020008 ret=734fdfe4
...
0023:Call KERNEL32.RaiseException(c000008f,00000001,00000002,0033daa0)
ret=734f0c29
0023:trace:seh:raise_exception code=c000008f flags=1 addr=0x7b83b39f
ip=7b83b39f tid=0023
0023:trace:seh:raise_exception  info[0]=deadcafe
0023:trace:seh:raise_exception  info[1]=deadcafe
0023:trace:seh:raise_exception  eax=7b827025 ebx=7b8bf000 ecx=deadcafe
edx=0033d9f4 esi=0033daa0 edi=0033da60
0023:trace:seh:raise_exception  ebp=0033da38 esp=0033d9d4 cs=0023 ds=002b
es=002b fs=0063 gs=006b flags=00200283
0023:trace:seh:call_stack_handlers calling handler at 0x401c96 code=c000008f
flags=1 
...
0023:Call ole32.CreateErrorInfo(0033d490) ret=734f8633
...
0023:Ret  ole32.CreateErrorInfo() retval=00000000 ret=734f8633
...
0023:trace:ole:ICreateErrorInfoImpl_SetSource (0x1068058): L"NewAstroCCDCalc"
...
0023:trace:ole:ICreateErrorInfoImpl_SetDescription (0x1068058): L"Variable uses
an Automation type not supported in Visual Basic" 
...
0023:Call winex11.drv.SetWindowText(000100f8,01078a60 L"Run-time error
'458':\n\nVariable uses an Automation type not supported in Visual Basic")
ret=7ec58809 
--- snip ---

$ sha1sum ccdcalcfull.exe 
b1dc30794628fcff9a0bdd4f0083afcf6fe5c57b  ccdcalcfull.exe

$ du -sh ccdcalcfull.exe 
3.5M    ccdcalcfull.exe

$ wine --version
wine-1.7.33-158-g25f24f2

Regards

*** This bug has been marked as a duplicate of bug 26653 ***