request_quotation => 'OrderItem',
invoice => 'InvoiceItem',
purchase_invoice => 'InvoiceItem',
+ credit_note => 'InvoiceItem',
purchase_delivery_order => 'DeliveryOrderItem',
sales_delivery_order => 'DeliveryOrderItem',
}->{$::form->{type}};
$obj->${\"$method\_as_date"}($::form->{"$method\_$row"});
} elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::(?:Numeric|Float|DoublePrecsion)$/) {
$obj->${\"$method\_as_number"}($::form->{"$method\_$row"});
+ } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::Boolean$/) {
+ $obj->$method(!!$::form->{$method});
} else {
$obj->$method($::form->{"$method\_$row"});
}
my $class = {
sales_order => 'Order',
- purchase_oder => 'Order',
+ purchase_order => 'Order',
sales_quotation => 'Order',
request_quotation => 'Order',
- invoice => 'Invoice',
purchase_invoice => 'PurchaseInvoice',
purchase_delivery_order => 'DeliveryOrder',
sales_delivery_order => 'DeliveryOrder',
$obj->${\"$method\_as_date"}($::form->{$method});
} elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::(?:Numeric|Float|DoublePrecsion)$/) {
$obj->${\"$method\_as\_number"}($::form->{$method});
+ } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::Boolean$/) {
+ $obj->$method(!!$::form->{$method});
} else {
$obj->$method($::form->{$method});
}
$obj->items(@items) if @items;
}
+ $obj->is_sales(!!$obj->customer_id) if $class eq 'SL::DB::DeliveryOrder';
return $obj;
}