<?php

/**
 * fill in any fifo basic entries that have not been processed..
 * -- does not fill in values.. - just qty's
 *
 */
require_once 'ProcessBase.php';
 
class Pman_Xtuple_Fifo_ProcessOldLanded extends Pman_Xtuple_Fifo_ProcessBase
{
     static $cli_desc = "Move old landed costs to new system.";
   
    static $permitError = false;
    
   
    function get()
    {
        // set up the failure code..
        PEAR::setErrorHandling(PEAR_ERROR_CALLBACK, array($this, 'onPearError'));
        
        // old landed costs where stored in
        // a) JE in Cost of freight
        // NE-JE-IR-LANDEDCOST-XXXX-XXXX-IR11216
        
        //
       //DB_DataObject::DebugLevel(1);
        
        $curr = DB_DataObject::Factory('curr_symbol')->base();
        
        //
          $accnt = DB_DataObject::Factory('accnt');
            // ??? 
        $accnt->whereAdd("accnt_descrip like '%Cost of Freight%'");
        $ids = $accnt->fetchAll('accnt_id');
        $gl = DB_DataObject::Factory('gltrans');
        $gl->whereAdd("gltrans_docnumber LIKE 'NS-JE-IR-LANDCOST%'");
        $all = $gl->fetchAll();
        $bad = array();
        foreach($all as $gl) {
            // try and find the item reciept.
            //print_R($gl);
            $m = array();
            //var_dump($gl->gltrans_notes);
            preg_match('/Landed cost for (.*)$/', $gl->gltrans_notes, $m);
            //print_R($m);exit;
            $ir = $m[1];
            if (empty($ir)) {
                echo("NOT FOUND");
                print_R($gl);exit;
            }
            echo "$ir\n";
            $rg = DB_DataObject::Factory('recvgrp');
            if (!$rg->get('recvgrp_number', $ir)) {
                $bad[] = $ir;
                //print_R($gl);
                //die("recgrp not found");;
                continue;
            }
            // do we have a record of it..
            $rgl = DB_DataObject::Factory('recvgrpland');
            if ($rgl->get('recvgrpland_glseries' , $gl->gltrans_sequence)) {
                continue;
            }
            
            
            
            $rgl = DB_DataObject::Factory('recvgrpland');
            $rgl->setFrom(array(
                'recvgrpland_glseries' => $gl->gltrans_sequence,
                
                //'recvgrpland_vohead_id' => null
                'recvgrpland_recvgrp_id' => $rg->pid(),
                'recvgrpland_date' => $gl->gltrans_date,
                'recvgrpland_cost' => abs($gl->gltrans_amount),
                'recvgrpland_curr_id' => $curr->pid(),

                
            ));
            $rgl->insert();
            
            
            
            
        }
        print_R($bad);
        die("DONE");
        
         
   
    }
     
}