QBXML(
		QBXMLMsgsRq( {onError => "stopOnError"},
			     inner()
			     ));

##</code><code>##

augment 'as_xml' => sub {
    my ($self, $name)=@_;

      VendorAddRq(
	  VendorAdd(
	      Name($name)));
};

##</code><code>##

  <?xml version="1.0" encoding="utf-8"?>
  <?qbxml version="10.0"?>
  <QBXML>
    <QBXMLMsgsRq onError="stopOnError"> 
      <VendorAddRq> 
	<VendorAdd> <!-- required --> 
	  <Name >STRTYPE</Name> <!-- required -->
	</VendorAdd>
      </VendorAddRq>
    </QBXMLMsgsRq>
  </QBXML>

##</code><code>##

  <?xml version="1.0" encoding="utf-8"?>
  <?qbxml version="10.0"?>
  <QBXML>
    <QBXMLMsgsRq onError="stopOnError"> 
      <VendorAddRq> 
	<VendorAdd> <!-- required --> 
	  <Name >STRTYPE</Name> <!-- required -->
	  <IsActive >BOOLTYPE</IsActive> <!-- optional -->
	  <CompanyName >STRTYPE</CompanyName> <!-- optional -->
	  <Salutation >STRTYPE</Salutation> <!-- optional -->
	  <FirstName >STRTYPE</FirstName> <!-- optional -->
	  <MiddleName >STRTYPE</MiddleName> <!-- optional -->
	  <LastName >STRTYPE</LastName> <!-- optional -->
	  <VendorAddress> <!-- optional --> 
	    <Addr1 >STRTYPE</Addr1> <!-- optional -->
	    <Addr2 >STRTYPE</Addr2> <!-- optional -->
	    <Addr3 >STRTYPE</Addr3> <!-- optional -->
	    <Addr4 >STRTYPE</Addr4> <!-- optional -->
	    <Addr5 >STRTYPE</Addr5> <!-- optional -->
	    <City >STRTYPE</City> <!-- optional -->
	    <State >STRTYPE</State> <!-- optional -->
	    <PostalCode >STRTYPE</PostalCode> <!-- optional -->
           </VendorAddress>
	</VendorAdd>
      </VendorAddRq>
    </QBXMLMsgsRq>
  </QBXML>

##</code><code>##

{ my $VendorAddRq = XML::Writer::Nest->new(tag => 'VendorAddRq');

   { my $VendorAdd = $VendorAddRq->nest('VendorAdd');
   
     { my $Name = $VendorAdd->data(Name => $name) }
  }
}

##</code><code>##

   { my $VendorAdd = $VendorAddRq->nest('VendorAdd');
   
     { my $Name = $VendorAdd->data(Name => $name) }
     { my $IsActive = $row->{active} ? $VendorAdd->data(IsActive => 1) : 0 }
  }
   

##</code><code>##

      VendorAddRq(
	  VendorAdd(
	      Name($name),
              maybeRenderIsActive($row)
           )
       )

##</code><code>##


augment 'as_xml' => sub {
    my ($self, $name, $optionaldata)=@_;

      VendorAddRq(
	  VendorAdd(
	      Name($name),
              $self->logic_engine->maybeRenderIsActive(@_) # just give it the whole indata
           )
       )

##</code><code>##


package XML::Quickbooks::LogicEngine;

sub IsActive {
  my ($self, $name, $databaserow)=@_;

  $databaserow->{active};
}

1;