use lib 'C:\Users\Jay\Desktop\SBS DEV\CODE\perl\Utilities';
use AXControl;
use AXSQL;
use AXField;
use Moose;
use DBI;
use DocPart;

	my ($cntl,$dp, $i, $rc); 

	$cntl = AXControl->new(System => "paperless");
	$dp = DocPart->new(ControlObject => $cntl, DocID => 1, Seq => 1);
	
	print "bef call\n";
	$rc = $dp->SetFileName('C:\Users\Jay\Desktop\SBS DEV\CODE\perl\test scripts\testdoc_part.pl');
	print "set filename $rc\n";
	

	my $x = $dp->Save;
	print "save rc $x\n";
	print "Err msg " . $dp->ErrMsg;