| Lines 38-45
          It permit to write a new order as 'received'.
      
      
        Link Here | 
        
          | 38 |  | 38 |  | 
        
          | 39 | to know on what supplier this script has to display receive order. | 39 | to know on what supplier this script has to display receive order. | 
        
          | 40 |  | 40 |  | 
            
              | 41 | =item receive |  |  | 
            
              | 42 |  | 
        
          | 43 | =item invoice | 41 | =item invoice | 
        
          | 44 |  | 42 |  | 
        
          | 45 | the number of this invoice. | 43 | the number of this invoice. | 
  
    | Lines 84-90
          my $input      = new CGI;
      
      
        Link Here | 
        
          | 84 | my $dbh          = C4::Context->dbh; | 82 | my $dbh          = C4::Context->dbh; | 
        
          | 85 | my $booksellerid = $input->param('booksellerid'); | 83 | my $booksellerid = $input->param('booksellerid'); | 
        
          | 86 | my $ordernumber  = $input->param('ordernumber'); | 84 | my $ordernumber  = $input->param('ordernumber'); | 
            
              | 87 | my $search       = $input->param('receive'); |  |  | 
        
          | 88 | my $invoice      = $input->param('invoice'); | 85 | my $invoice      = $input->param('invoice'); | 
        
          | 89 | my $freight      = $input->param('freight'); | 86 | my $freight      = $input->param('freight'); | 
        
          | 90 | my $datereceived = $input->param('datereceived'); | 87 | my $datereceived = $input->param('datereceived'); | 
  
    | Lines 95-101
          $datereceived = $datereceived ? C4::Dates->new($datereceived, 'iso') : C4::Dates
      
      
        Link Here | 
        
          | 95 | my $bookseller = GetBookSellerFromId($booksellerid); | 92 | my $bookseller = GetBookSellerFromId($booksellerid); | 
        
          | 96 | my $input_gst = ($input->param('gst') eq '' ? undef : $input->param('gst')); | 93 | my $input_gst = ($input->param('gst') eq '' ? undef : $input->param('gst')); | 
        
          | 97 | my $gst= $input_gst // $bookseller->{gstrate} // C4::Context->preference("gist") // 0; | 94 | my $gst= $input_gst // $bookseller->{gstrate} // C4::Context->preference("gist") // 0; | 
          
            
              | 98 | my $results = SearchOrder($ordernumber,$search); | 95 | my $results; | 
            
              |  |  | 96 | $results = SearchOrder($ordernumber) if $ordernumber; | 
        
          | 99 |  | 97 |  | 
        
          | 100 | my ( $template, $loggedinuser, $cookie ) = get_template_and_user( | 98 | my ( $template, $loggedinuser, $cookie ) = get_template_and_user( | 
        
          | 101 |     { | 99 |     { | 
  
    | Lines 108-114
          my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
      
      
        Link Here | 
        
          | 108 |     } | 106 |     } | 
        
          | 109 | ); | 107 | ); | 
        
          | 110 |  | 108 |  | 
          
            
              | 111 | unless ( @$results ) { | 109 | unless ( $results and @$results) { | 
        
          | 112 |     output_html_with_http_headers $input, $cookie, $template->output; | 110 |     output_html_with_http_headers $input, $cookie, $template->output; | 
        
          | 113 |     exit; | 111 |     exit; | 
        
          | 114 | } | 112 | } | 
            
              | 115 | -  |  |  |