#!/usr/bin/perl

use strict;
use warnings;

use IO::File;
use XML::LibXML;
use XML::LibXSLT;
use Win32::OLE::Const;
Win32::OLE->Option(Warn => 2);

use File::Slurp;
use XML::TreeBuilder;



my $name_reported_to_quickbooks = "Test App";
my $qb_company_file = "";
my $request_xml_file = "vendor_query.xml";
my $stylesheet_file = "update_bill_line_item_account.xslt";

main();

sub main {
  my $qbxmlrp_const = Win32::OLE::Const->Load("QBXMLRP2 1.0 Type Libra
+ry");
  my $request_processor = Win32::OLE->new("QBXMLRP2.RequestProcessor",
+ sub {$_[0]->CloseConnection();}) or die "oops\n";
  $request_processor->OpenConnection2("", $name_reported_to_quickbooks
+, $qbxmlrp_const->{"localQBD"});
  my $ticket = $request_processor->BeginSession($qb_company_file, $qbx
+mlrp_const->{"qbFileOpenDoNotCare"});

  my $request_xml_string = File::Slurp::read_file($request_xml_file);
  my $response_xml_string = $request_processor->ProcessRequest($ticket
+, $request_xml_string);

  my $tree = XML::TreeBuilder->new({ 'NoExpand' => 0, 'ErrorContext' =
+> 0 }); # empty tree
  $tree->parse($response_xml_string);
  my @node = $tree->look_down('_tag' => 'Name');
  for my $node (@node) {
      warn $node->content_list;
  }

}

# Read the contents of a file into a string.
# Accepts filename as a parameter and returns the file contents.
sub read_file($) {
  my $filename = shift;
  my $file_data;
  local($/) = undef;
  my $file_handle = IO::File->new();
  $file_handle->open($filename);
  $file_data = <$file_handle>;
  $file_handle->close();
  return $file_data;
}

[download]
<?xml version="1.0"?>
<?qbxml version="10.0"?>
<QBXML>
   <QBXMLMsgsRq onError="continueOnError">
      <VendorQueryRq>

      </VendorQueryRq>
   </QBXMLMsgsRq>
</QBXML>

[download]




The mantra of every experienced web application developer is the same: thou shalt separate business logic from display. Ironically, almost all template engines allow violation of this separation principle, which is the very impetus for HTML template engine development.

-- Terence Parr, "Enforcing Strict Model View Separation in Template Engines"

In reply to version using qbXML by metaperl
in thread Control Windows Quickbooks with Win32::OLE by metaperl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.