Alaska Software Inc. - COM object
Username: Password:
AuthorTopic: COM object
Altiy Zemlytskiy COM object
on Thu, 19 Jul 2012 13:13:10 +0300
<html>
  <head>

    <meta http-equiv="content-type" content="text/html; charset=UTF-8">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    <font face="Times New Roman"><small><big><big>Hi all,<br>
            <br>
            We have a problem using ActiveX object.<br>
            <br>
            Such code is working properly in VBA:<o:p> </o:p></big></big></small></font>
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
    <!--[if gte mso 9]><xml>
 <o:OfficeDocumentSettings>
  <o:AllowPNG/>
 </o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:View>Normal</w:View>
  <w:Zoom>0</w:Zoom>
  <w:TrackMoves/>
  <w:TrackFormatting/>
  <w:PunctuationKerning/>
  <w:ValidateAgainstSchemas/>
  <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
  <w:IgnoreMixedContent>false</w:IgnoreMixedContent>
  <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
  <w:DoNotPromoteQF/>
  <w:LidThemeOther>RU</w:LidThemeOther>
  <w:LidThemeAsian>X-NONE</w:LidThemeAsian>
  <w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
  <w:Compatibility>
   <w:BreakWrappedTables/>
   <w:SnapToGridInCell/>
   <w:WrapTextWithPunct/>
   <w:UseAsianBreakRules/>
   <w:DontGrowAutofit/>
   <w:SplitPgBreakAndParaMark/>
   <w:EnableOpenTypeKerning/>
   <w:DontFlipMirrorIndents/>
   <w:OverrideTableStyleHps/>
  </w:Compatibility>
  <w:DoNotOptimizeForBrowser/>
  <m:mathPr>
   <m:mathFont m:val="Cambria Math"/>
   <m:brkBin m:val="before"/>
   <m:brkBinSub m:val="&#45;-"/>
   <m:smallFrac m:val="off"/>
   <m:dispDef/>
   <m:lMargin m:val="0"/>
   <m:rMargin m:val="0"/>
   <m:defJc m:val="centerGroup"/>
   <m:wrapIndent m:val="1440"/>
   <m:intLim m:val="subSup"/>
   <m:naryLim m:val="undOvr"/>
  </m:mathPr></w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
  DefSemiHidden="true" DefQFormat="false" DefPriority="99"
  LatentStyleCount="267">
  <w:LsdException Locked="false" Priority="0" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
  <w:LsdException Locked="false" Priority="9" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
  <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
  <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
  <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
  <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
  <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
  <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
  <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
  <w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
  <w:LsdException Locked="false" Priority="39" Name="toc 1"/>
  <w:LsdException Locked="false" Priority="39" Name="toc 2"/>
  <w:LsdException Locked="false" Priority="39" Name="toc 3"/>
  <w:LsdException Locked="false" Priority="39" Name="toc 4"/>
  <w:LsdException Locked="false" Priority="39" Name="toc 5"/>
  <w:LsdException Locked="false" Priority="39" Name="toc 6"/>
  <w:LsdException Locked="false" Priority="39" Name="toc 7"/>
  <w:LsdException Locked="false" Priority="39" Name="toc 8"/>
  <w:LsdException Locked="false" Priority="39" Name="toc 9"/>
  <w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
  <w:LsdException Locked="false" Priority="10" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Title"/>
  <w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
  <w:LsdException Locked="false" Priority="11" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
  <w:LsdException Locked="false" Priority="22" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
  <w:LsdException Locked="false" Priority="20" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
  <w:LsdException Locked="false" Priority="59" SemiHidden="false"
   UnhideWhenUsed="false" Name="Table Grid"/>
  <w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
  <w:LsdException Locked="false" Priority="1" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
  <w:LsdException Locked="false" Priority="60" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Shading"/>
  <w:LsdException Locked="false" Priority="61" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light List"/>
  <w:LsdException Locked="false" Priority="62" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Grid"/>
  <w:LsdException Locked="false" Priority="63" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 1"/>
  <w:LsdException Locked="false" Priority="64" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 2"/>
  <w:LsdException Locked="false" Priority="65" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 1"/>
  <w:LsdException Locked="false" Priority="66" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 2"/>
  <w:LsdException Locked="false" Priority="67" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 1"/>
  <w:LsdException Locked="false" Priority="68" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 2"/>
  <w:LsdException Locked="false" Priority="69" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 3"/>
  <w:LsdException Locked="false" Priority="70" SemiHidden="false"
   UnhideWhenUsed="false" Name="Dark List"/>
  <w:LsdException Locked="false" Priority="71" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Shading"/>
  <w:LsdException Locked="false" Priority="72" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful List"/>
  <w:LsdException Locked="false" Priority="73" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Grid"/>
  <w:LsdException Locked="false" Priority="60" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
  <w:LsdException Locked="false" Priority="61" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light List Accent 1"/>
  <w:LsdException Locked="false" Priority="62" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
  <w:LsdException Locked="false" Priority="63" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
  <w:LsdException Locked="false" Priority="64" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
  <w:LsdException Locked="false" Priority="65" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
  <w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
  <w:LsdException Locked="false" Priority="34" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
  <w:LsdException Locked="false" Priority="29" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
  <w:LsdException Locked="false" Priority="30" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
  <w:LsdException Locked="false" Priority="66" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
  <w:LsdException Locked="false" Priority="67" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
  <w:LsdException Locked="false" Priority="68" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
  <w:LsdException Locked="false" Priority="69" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
  <w:LsdException Locked="false" Priority="70" SemiHidden="false"
   UnhideWhenUsed="false" Name="Dark List Accent 1"/>
  <w:LsdException Locked="false" Priority="71" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
  <w:LsdException Locked="false" Priority="72" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
  <w:LsdException Locked="false" Priority="73" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
  <w:LsdException Locked="false" Priority="60" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
  <w:LsdException Locked="false" Priority="61" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light List Accent 2"/>
  <w:LsdException Locked="false" Priority="62" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
  <w:LsdException Locked="false" Priority="63" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
  <w:LsdException Locked="false" Priority="64" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
  <w:LsdException Locked="false" Priority="65" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
  <w:LsdException Locked="false" Priority="66" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
  <w:LsdException Locked="false" Priority="67" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
  <w:LsdException Locked="false" Priority="68" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
  <w:LsdException Locked="false" Priority="69" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
  <w:LsdException Locked="false" Priority="70" SemiHidden="false"
   UnhideWhenUsed="false" Name="Dark List Accent 2"/>
  <w:LsdException Locked="false" Priority="71" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
  <w:LsdException Locked="false" Priority="72" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
  <w:LsdException Locked="false" Priority="73" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
  <w:LsdException Locked="false" Priority="60" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
  <w:LsdException Locked="false" Priority="61" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light List Accent 3"/>
  <w:LsdException Locked="false" Priority="62" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
  <w:LsdException Locked="false" Priority="63" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
  <w:LsdException Locked="false" Priority="64" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
  <w:LsdException Locked="false" Priority="65" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
  <w:LsdException Locked="false" Priority="66" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
  <w:LsdException Locked="false" Priority="67" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
  <w:LsdException Locked="false" Priority="68" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
  <w:LsdException Locked="false" Priority="69" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
  <w:LsdException Locked="false" Priority="70" SemiHidden="false"
   UnhideWhenUsed="false" Name="Dark List Accent 3"/>
  <w:LsdException Locked="false" Priority="71" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
  <w:LsdException Locked="false" Priority="72" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
  <w:LsdException Locked="false" Priority="73" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
  <w:LsdException Locked="false" Priority="60" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
  <w:LsdException Locked="false" Priority="61" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light List Accent 4"/>
  <w:LsdException Locked="false" Priority="62" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
  <w:LsdException Locked="false" Priority="63" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
  <w:LsdException Locked="false" Priority="64" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
  <w:LsdException Locked="false" Priority="65" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
  <w:LsdException Locked="false" Priority="66" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
  <w:LsdException Locked="false" Priority="67" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
  <w:LsdException Locked="false" Priority="68" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
  <w:LsdException Locked="false" Priority="69" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
  <w:LsdException Locked="false" Priority="70" SemiHidden="false"
   UnhideWhenUsed="false" Name="Dark List Accent 4"/>
  <w:LsdException Locked="false" Priority="71" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
  <w:LsdException Locked="false" Priority="72" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
  <w:LsdException Locked="false" Priority="73" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
  <w:LsdException Locked="false" Priority="60" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
  <w:LsdException Locked="false" Priority="61" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light List Accent 5"/>
  <w:LsdException Locked="false" Priority="62" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
  <w:LsdException Locked="false" Priority="63" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
  <w:LsdException Locked="false" Priority="64" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
  <w:LsdException Locked="false" Priority="65" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
  <w:LsdException Locked="false" Priority="66" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
  <w:LsdException Locked="false" Priority="67" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
  <w:LsdException Locked="false" Priority="68" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
  <w:LsdException Locked="false" Priority="69" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
  <w:LsdException Locked="false" Priority="70" SemiHidden="false"
   UnhideWhenUsed="false" Name="Dark List Accent 5"/>
  <w:LsdException Locked="false" Priority="71" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
  <w:LsdException Locked="false" Priority="72" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
  <w:LsdException Locked="false" Priority="73" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
  <w:LsdException Locked="false" Priority="60" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
  <w:LsdException Locked="false" Priority="61" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light List Accent 6"/>
  <w:LsdException Locked="false" Priority="62" SemiHidden="false"
   UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
  <w:LsdException Locked="false" Priority="63" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
  <w:LsdException Locked="false" Priority="64" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
  <w:LsdException Locked="false" Priority="65" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
  <w:LsdException Locked="false" Priority="66" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
  <w:LsdException Locked="false" Priority="67" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
  <w:LsdException Locked="false" Priority="68" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
  <w:LsdException Locked="false" Priority="69" SemiHidden="false"
   UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
  <w:LsdException Locked="false" Priority="70" SemiHidden="false"
   UnhideWhenUsed="false" Name="Dark List Accent 6"/>
  <w:LsdException Locked="false" Priority="71" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
  <w:LsdException Locked="false" Priority="72" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
  <w:LsdException Locked="false" Priority="73" SemiHidden="false"
   UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
  <w:LsdException Locked="false" Priority="19" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
  <w:LsdException Locked="false" Priority="21" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
  <w:LsdException Locked="false" Priority="31" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
  <w:LsdException Locked="false" Priority="32" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
  <w:LsdException Locked="false" Priority="33" SemiHidden="false"
   UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
  <w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
  <w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
 </w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
 /* Style Definitions */
 table.MsoNormalTable
	{mso-style-name:"Обычная таблица";
	mso-tstyle-rowband-size:0;
	mso-tstyle-colband-size:0;
	mso-style-noshow:yes;
	mso-style-priority:99;
	mso-style-parent:"";
	mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
	mso-para-margin:0cm;
	mso-para-margin-bottom:.0001pt;
	mso-pagination:widow-orphan;
	font-size:11.0pt;
	font-family:"Calibri","sans-serif";
	mso-ascii-font-family:Calibri;
	mso-ascii-theme-font:minor-latin;
	mso-hansi-font-family:Calibri;
	mso-hansi-theme-font:minor-latin;
	mso-bidi-font-family:"Times New Roman";
	mso-bidi-theme-font:minor-bidi;
	mso-fareast-language:EN-US;}
</style>
<![endif]-->
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>Private
              Sub CommandButton_Connect_Click()<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>Dim odataset<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>On Error Resume
              Next<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>Set
              ThisWorkbook.App = New ZApplication<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>If Err.Number =
              429 Then<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">       </span>MsgBox
              ("Run program M.E.DOC and press button "connect")<br>
            </big></big></small></font></p>
    <font face="Times New Roman"><small><big><big><span
              style="mso-spacerun:yes">       </span>Exit Sub<o:p></o:p></big></big></small></font>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>End If<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>Set odataset =
              ThisWorkbook.App.DocumentsDataSet("CharCode='J0110103'", <o:p></o:p>True)<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>Set
              ThisWorkbook.Doc =
              ThisWorkbook.App.OpenDocumentByCode(odataset.FldVal("Code"))<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>Set
              ThisWorkbook.rsMain = ThisWorkbook.Doc.DataSets("MAIN")<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>Cells(4,
              1).Value = ThisWorkbook.rsMain.FldVal("A0317")<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>Call
              ThisWorkbook.rsMain.Edit<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">   
              </span>ThisWorkbook.rsMain.FldVal("A0317") = 498<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">    </span>Call
              ThisWorkbook.rsMain.Post<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">   
              </span>ThisWorkbook.Doc.Recalc<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><span
                style="mso-spacerun:yes">   
              </span>ThisWorkbook.Doc.Save<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>End
              Sub<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><o:p> </o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>We
              tryed to rewrite with xBase++<br>
            </big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><o:p> </o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>LOCAL
              oMedok, oDataset, oDoc, oMain, nValue, oTab1<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oMedok
              := CreateObject("MEDOC.ZApplication")<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oDataset
              := oMedok:DocumentsDataSet("CharCode='J0110103'",.T.)<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oDoc      
              := oMedok:OpenDocumentByCode(odataset:FldVal("Code"))<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>omain   
              := oDoc:DataSets("MAIN")<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>nValue  
              := oMain:FldVal('A0317')<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oMain:Edit()<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oMain:FldVal("A0317"):=499.0<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oMain:Post()<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oDoc:Recalc()<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oDoc:Save()<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oMain:destroy()<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oMain:=NIL<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oDoc:destroy()<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oDoc:=NIL<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>oMedok:destroy()<o:p></o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big><o:p> </o:p></big></big></small></font></p>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>It
              does not work w/o any messages. I have some dubts about
              such syntax -<br>
            </big></big></small></font></p>
    <font face="Times New Roman"><small><big><big>oMain:FldVal("A0317")
            := 499.0<o:p></o:p></big></big></small></font>
    <p class="MsoPlainText"><font face="Times New Roman"><small><big><big>Do
              somebody have any idea? Unfortunately, the ActiveX object
              of bookkeper program from Ukrainian goverment, so it is a
              bit difficult to try...<br>
              Many thanks in advance</big> <br>
          </big></small></font></p>
    <font face="Times New Roman"><big><br>
        <br>
      </big></font>
    <div class="moz-signature"><font face="Times New Roman"><big>-- <br>
          Best regards,
          Altiy</big></font></div>
  </body>
</html>
AUGE_ OHRRe: COM object
on Thu, 19 Jul 2012 20:18:36 +0200
hi,

some Tips

>oMedok := CreateObject("MEDOC.ZApplication")

check if you get a Object.

btw. if you want to have "response" you need to use
XbpActiveXControl() instead of CreateObject() else
you have to :dynamicCast() it.



>oDataset := oMedok:DocumentsDataSet("CharCode='J0110103'",.T.)

"check" with IsMethod()  if you have a Method with that Name

if you must pass more than 1 Parameter your Style above may fail
try CallMethod (for Method) or o:setProperty() (for Property)



>oDoc       := oMedok:OpenDocumentByCode(odataset:FldVal("Code"))

a active Methode as Parameter ... i would "split" it



if you use Office or OpenOffice you have different activeX Object "level"
"This.Workbook" will be a Object and ".Doc" or ".rsMain"
might be a Property but "This.Workbook.xxx.yyy" most
is not valid.


>It does not work w/o any messages. I have some dubts about such syntax -
>oMain:FldVal("A0317") := 499.0

as i say use CallMethod and o:setProperty()

greetings by OHR
Jimmy
Altiy Zemlytskiy Re: COM object
on Fri, 20 Jul 2012 09:33:24 +0300
Hi Jimmy,

It works. Many thnaks for your help




> hi,
>
> some Tips
>
>> oMedok := CreateObject("MEDOC.ZApplication")
> check if you get a Object.
>
> btw. if you want to have "response" you need to use
> XbpActiveXControl() instead of CreateObject() else
> you have to :dynamicCast() it.
>
>
>
>> oDataset := oMedok:DocumentsDataSet("CharCode='J0110103'",.T.)
> "check" with IsMethod()  if you have a Method with that Name
>
> if you must pass more than 1 Parameter your Style above may fail
> try CallMethod (for Method) or o:setProperty() (for Property)
>
>
>
>> oDoc       := oMedok:OpenDocumentByCode(odataset:FldVal("Code"))
> a active Methode as Parameter ... i would "split" it
>
>
>
> if you use Office or OpenOffice you have different activeX Object "level"
> "This.Workbook" will be a Object and ".Doc" or ".rsMain"
> might be a Property but "This.Workbook.xxx.yyy" most
> is not valid.
>
>
>> It does not work w/o any messages. I have some dubts about such syntax -
>> oMain:FldVal("A0317") := 499.0
> as i say use CallMethod and o:setProperty()
>
> greetings by OHR
> Jimmy
>
>


Best regards, Altiy