scalar => [ qw(table) ],
);
+sub set_profile_defaults {
+};
+
sub init_class {
my ($self) = @_;
$self->class('SL::DB::Shipto');
sub check_objects {
my ($self) = @_;
+ $self->controller->track_progress(phase => 'building data', progress => 0);
+
+ my $i;
+ my $num_data = scalar @{ $self->controller->data };
foreach my $entry (@{ $self->controller->data }) {
+ $self->controller->track_progress(progress => $i/$num_data * 100) if $i % 100 == 0;
+
$self->check_vc($entry, 'trans_id');
$entry->{object}->module('CT');
+ } continue {
+ $i++;
}
$self->add_info_columns({ header => $::locale->text('Customer/Vendor'), method => 'vc_name' });
};
}
-sub field_lengths {
- return ( shiptoname => 75,
- shiptodepartment_1 => 75,
- shiptodepartment_2 => 75,
- shiptostreet => 75,
- shiptozipcode => 75,
- shiptocity => 75,
- shiptocountry => 75,
- shiptocontact => 75,
- shiptophone => 30,
- shiptofax => 30,
- );
-}
-
sub init_profile {
my ($self) = @_;
{ name => 'shiptodepartment_2', description => $::locale->text('Department 2') },
{ name => 'shiptoemail', description => $::locale->text('E-mail') },
{ name => 'shiptofax', description => $::locale->text('Fax') },
+ { name => 'shiptogln', description => $::locale->text('GLN') },
{ name => 'shiptoname', description => $::locale->text('Name') },
{ name => 'shiptophone', description => $::locale->text('Phone') },
{ name => 'shiptostreet', description => $::locale->text('Street') },
);
}
-1;
\ No newline at end of file
+1;