Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision b66801e2

Von Tamino Steinert vor 10 Monaten hinzugefügt

  • ID b66801e2ac8aab53073b1b4e96e43a1d7a67f15f
  • Vorgänger a304b407
  • Nachfolger fefc824c

S:Presenter:Record: Alias Funktion "show" in verwendeten Objekten

Verknüpfte Belege nutzt folgende Objekte:
    DeliveryOrder, Dunning, EmailJournal, GL, Invoice, Letter, Order,
    Reclamation, RequirementSpec, ShopOrder

Unterschiede anzeigen:

SL/Presenter/Order.pm
6 6 
use SL::Presenter::Tag         qw(link_tag);
7 7 

  		




  8
  8
  
    
use Exporter qw(import);


  		




  9
  
  
    
our @EXPORT_OK = qw(sales_quotation sales_order request_quotation purchase_order purchase_order_confirmation);


  		




  
  9
  
    
our @EXPORT_OK = qw(show order sales_quotation sales_order_intake sales_order request_quotation purchase_quotation_intake purchase_order purchase_order_confirmation);


  		




  10
  10
  
    

  		




  11
  11
  
    
use Carp;


  		




  12
  12
  
    

  		




  13
  
  
    
sub sales_quotation {


  		




  14
  
  
    
  my ($order, %params) = @_;


  		




  15
  
  
    

  		




  16
  
  
    
  return _oe_record($order, 'sales_quotation', %params);


  		




  17
  
  
    
}


  		




  18
  
  
    

  		




  19
  
  
    
sub sales_order_intake {


  		




  20
  
  
    
  my ($order, %params) = @_;


  		




  21
  
  
    

  		




  22
  
  
    
  return _oe_record($order, 'sales_order_intake', %params);


  		




  23
  
  
    
}


  		




  24
  
  
    

  		




  25
  
  
    
sub sales_order {


  		




  26
  
  
    
  my ($order, %params) = @_;


  		




  
  13
  
    
sub show {goto &order}


  		




  27
  14
  
    

  		




  28
  
  
    
  return _oe_record($order, 'sales_order', %params);


  		




  29
  
  
    
}


  		




  
  15
  
    
sub sales_quotation {goto &order}


  		




  30
  16
  
    

  		




  31
  
  
    
sub request_quotation {


  		




  32
  
  
    
  my ($order, %params) = @_;


  		




  
  17
  
    
sub sales_order_intake {goto &order}


  		




  33
  18
  
    

  		




  34
  
  
    
  return _oe_record($order, 'request_quotation', %params);


  		




  35
  
  
    
}


  		




  
  19
  
    
sub sales_order {goto &order}


  		




  36
  20
  
    

  		




  37
  
  
    
sub purchase_quotation_intake {


  		




  38
  
  
    
  my ($order, %params) = @_;


  		




  
  21
  
    
sub request_quotation {goto &order}


  		




  39
  22
  
    

  		




  40
  
  
    
  return _oe_record($order, 'purchase_quotation_intake', %params);


  		




  41
  
  
    
}


  		




  
  23
  
    
sub purchase_quotation_intake {goto &order}


  		




  42
  24
  
    

  		




  43
  
  
    
sub purchase_order {


  		




  44
  
  
    
  my ($order, %params) = @_;


  		




  
  25
  
    
sub purchase_order {goto &order}


  		




  45
  26
  
    

  		




  46
  
  
    
  return _oe_record($order, 'purchase_order', %params);


  		




  47
  
  
    
}


  		




  
  27
  
    
sub purchase_order_confirmation {goto &order}


  		




  48
  28
  
    

  		




  49
  
  
    
sub purchase_order_confirmation {


  		




  
  29
  
    
sub order {


  		




  50
  30
  
    
  my ($order, %params) = @_;


  		




  51
  
  
    

  		




  52
  
  
    
  return _oe_record($order, 'purchase_order_confirmation', %params);


  		




  53
  
  
    
}


  		




  54
  
  
    

  		




  55
  
  
    
sub _oe_record {


  		




  56
  
  
    
  my ($order, $type, %params) = @_;


  		




  
  31
  
    
  my $type = $order->record_type;


  		




  57
  32
  
    

  		




  58
  33
  
    
  $params{display} ||= 'inline';


  		




  59
  34
  
    

  		




  ......




  107
  82
  
    
  my $object = SL::DB::Manager::Order->get_first(where => [ SL::DB::Manager::Order->type_filter('purchase_order') ]);


  		




  108
  83
  
    
  my $html   = SL::Presenter::Order::purchase_order($object, display => 'inline');


  		




  109
  84
  
    

  		




  
  85
  
    
  # or for all types:


  		




  
  86
  
    
  my $html   = SL::Presenter::Order::order($object);


  		




  
  87
  
    
  my $html   = $object->presenter->show();


  		




  
  88
  
    

  		




  110
  89
  
    
=head1 FUNCTIONS


  		




  111
  90
  
    

  		




  112
  91
  
    
=over 4


  		




  113
  92
  
    

  		




  114
  
  
    
=item C<sales_quotation $object, %params>


  		




  
  93
  
    
=item C<show $object %params>


  		




  115
  94
  
    

  		




  116
  
  
    
Returns a rendered version (actually an instance of


  		




  117
  
  
    
L<SL::Presenter::EscapedText>) of the sales quotation object


  		




  118
  
  
    
C<$object>.


  		




  
  95
  
    
Alias for C<order $object %params>.


  		




  119
  96
  
    

  		




  120
  
  
    
Remaining C<%params> are passed to the function


  		




  121
  
  
    
C<SL::Presenter::Tag::link_tag>. It can include:


  		




  
  97
  
    
=item C<sales_quotation $object %params>


  		




  122
  98
  
    

  		




  123
  
  
    
=over 2


  		




  
  99
  
    
Alias for C<order $object %params>.


  		




  124
  100
  
    

  		




  125
  
  
    
=item * display


  		




  
  101
  
    
=item C<sales_order_intake $object %params>


  		




  126
  102
  
    

  		




  127
  
  
    
Either C<inline> (the default) or C<table-cell>. Is passed to the function


  		




  128
  
  
    
C<SL::Presenter::Tag::link_tag>.


  		




  
  103
  
    
Alias for C<order $object %params>.


  		




  129
  104
  
    

  		




  130
  
  
    
=item * no_link


  		




  
  105
  
    
=item C<sales_order $object %params>


  		




  131
  106
  
    

  		




  132
  
  
    
If falsish (the default) then the order number will be linked to the


  		




  133
  
  
    
"edit quotation" dialog from the sales menu.


  		




  
  107
  
    
Alias for C<order $object %params>.


  		




  134
  108
  
    

  		




  135
  
  
    
=back


  		




  
  109
  
    
=item C<request_quotation $object %params>


  		




  136
  110
  
    

  		




  137
  
  
    
=item C<sales_order $object, %params>


  		




  
  111
  
    
Alias for C<order $object %params>.


  		




  138
  112
  
    

  		




  139
  
  
    
Returns a rendered version (actually an instance of


  		




  140
  
  
    
L<SL::Presenter::EscapedText>) of the sales order object C<$object>.


  		




  
  113
  
    
=item C<purchase_quotation_intake $object %params>


  		




  141
  114
  
    

  		




  142
  
  
    
Remaining C<%params> are passed to the function


  		




  143
  
  
    
C<SL::Presenter::Tag::link_tag>. It can include:


  		




  144
  
  
    

  		




  145
  
  
    
=over 2


  		




  146
  
  
    

  		




  147
  
  
    
=item * display


  		




  148
  
  
    

  		




  149
  
  
    
Either C<inline> (the default) or C<table-cell>. Is passed to the function


  		




  150
  
  
    
C<SL::Presenter::Tag::link_tag>.


  		




  
  115
  
    
Alias for C<order $object %params>.


  		




  151
  116
  
    

  		




  152
  
  
    
=item * no_link


  		




  153
  
  
    

  		




  154
  
  
    
If falsish (the default) then the  order number will be linked


  		




  155
  
  
    
to the "edit order" dialog from the sales menu.


  		




  156
  
  
    

  		




  157
  
  
    
=back


  		




  158
  
  
    

  		




  159
  
  
    
=item C<request_quotation $object, %params>


  		




  
  117
  
    
=item C<purchase_order $object %params>


  		




  160
  118
  
    

  		




  161
  
  
    
Returns a rendered version (actually an instance of


  		




  162
  
  
    
L<SL::Presenter::EscapedText>) of the request for quotation object


  		




  163
  
  
    
C<$object>.


  		




  164
  
  
    

  		




  165
  
  
    
Remaining C<%params> are passed to the function


  		




  166
  
  
    
C<SL::Presenter::Tag::link_tag>. It can include:


  		




  167
  
  
    

  		




  168
  
  
    
=over 2


  		




  169
  
  
    

  		




  170
  
  
    
=item * display


  		




  171
  
  
    

  		




  172
  
  
    
Either C<inline> (the default) or C<table-cell>. Is passed to the function


  		




  173
  
  
    
C<SL::Presenter::Tag::link_tag>.


  		




  174
  
  
    

  		




  175
  
  
    
=item * no_link


  		




  176
  
  
    

  		




  177
  
  
    
If falsish (the default) then the order number will be linked to the


  		




  178
  
  
    
"edit request for quotation" dialog from the purchase menu.


  		




  179
  
  
    

  		




  180
  
  
    
=back


  		




  
  119
  
    
Alias for C<order $object %params>.


  		




  181
  120
  
    

  		




  182
  
  
    
=item C<purchase_order $object, %params>


  		




  
  121
  
    
=item C<order $object %params>


  		




  183
  122
  
    

  		




  184
  123
  
    
Returns a rendered version (actually an instance of


  		




  185
  124
  
    
L<SL::Presenter::EscapedText>) of the purchase order object


  		




  ......




  198
  137
  
    
=item * no_link


  		




  199
  138
  
    

  		




  200
  139
  
    
If falsish (the default) then the  order number will be linked


  		




  201
  
  
    
to the "edit order" dialog from the purchase menu.


  		




  
  140
  
    
to the "edit order" dialog.


  		




  202
  141
  
    

  		




  203
  142
  
    
=back


  		




  204
  143
  
    

  		












Auch abrufbar als:  Unified diff