package FS::svc_export_machine;
+use base qw( FS::Record );
use strict;
-use base qw( FS::Record );
-use FS::Record; # qw( qsearch qsearchs );
use FS::cust_svc;
-use FS::part_export_machine;
+use FS::part_export;
+
+sub _svc_child_partfields { ('exportnum') };
=head1 NAME
primary key
+=item exportnum
+
+Export definition, see L<FS::part_export>
+
=item svcnum
Customer service, see L<FS::cust_svc>
my $error =
$self->ut_numbern('svcexportmachinenum')
- || $self->ut_foreign_key('svcnum', 'cust_svc', 'svcnum')
- || $self->ut_foreign_key('machinenum', 'part_export_machine', 'machinenum' )
+ || $self->ut_foreign_key('svcnum', 'cust_svc', 'svcnum' )
+ || $self->ut_foreign_key('exportnum', 'part_export', 'exportnum' )
+ || $self->ut_foreign_key('machinenum', 'part_export_machine', 'machinenum')
;
return $error if $error;
$self->SUPER::check;
}
+=item part_export_machine
+
=back
=head1 BUGS