#!/usr/bin/php
<?php


    require_once "/var/www/html/prgdmug/F_DMUG.php";
    require_once "/var/www/html/prgdmug/inc/AppConfig.php";
    require_once "/var/www/html/prgdmug/inc/PostgreClass.php";
    require_once "/var/www/html/prgdmug/inc/ObtieneDatosPg.php";
  
    if ( file_exists("/tmp/InterFactFis.blk") )
    {
       $fec = date('l jS \of F Y h:i:s A');
       echo "$fec:Existe Otro Programa Corriendo \n Verifique PID en archivo /tmp/InterFactFis.blk , si no existe el pid , elimine el archivo \n";
       exit();
    }      
    $pid = getmypid();


    

    system( "/bin/echo 'Inicia Proceso Ejecutandose PID = $pid \n' > /tmp/InterFactFis.blk " );
    
    $fec = date('l jS \of F Y h:i:s A');
    echo "$fec:Inicia Proceso InterFactFis ....\n";

    $server= "192.168.1.5";
    $port  =  1030; //1030
    $hs    = "DEMIURGO10-MCANET";
    $user  = "general";
    $pass  = "123456789";
    
    $pid = getmypid();
    $limit = 5;
    $veces_error_server = 0;
    $appConfig =& new AppConfig;

    /* Crea un objeto para el manejo postgres */
    
    $dataBD_PG    =& $appConfig->BASE_DATOS_PG;

    $manejaBD_PG  =& new PostgreClass($dataBD_PG["host"], $dataBD_PG["name"],
                               $dataBD_PG["user"], $dataBD_PG["pass"]);


    $obtieneDatos_pg = & new ObtieneDatos_PG($appConfig, $manejaBD_PG);

    $pg_sql_factu = "SELECT * FROM forumvta.factu WHERE fac_trans = 0 AND (fac_tip = 'PV' OR fac_tip = 'PN') AND fac_nexti > 0  LIMIT $limit";
       
    $v_FACTU = $obtieneDatos_pg->obtenerDatos($pg_sql_factu);
  
    $v_i=0;	
   
    $control = count( $v_FACTU[0] );    
    
    //echo "control = $control\n";//responde 101 campos si leyo OK 
    
    if ( $control < 10 )
    {
	echo "NO HAY FACTURAS PARA TRANSFERIR\n";
        Finalizar();
    }
	
    for( $v_i=0  ; $v_FACTU[$v_i]['fac_nro'] ;  $v_i++ )
    {

        $FAC_SUC = $v_FACTU[$v_i]['fac_suc'] ;
        $FAC_TIP = $v_FACTU[$v_i]['fac_tip'] ;
        $FAC_STIP= $v_FACTU[$v_i]['fac_stip'] ;
        $FAC_NRO = $v_FACTU[$v_i]['fac_nro'] ;
        $NROEXT  = $v_FACTU[$v_i]['fac_nexti'];
	
        $fec = date('l jS \of F Y h:i:s A');
        echo "$fec .... FACTURA pos = $v_i sucu = $FAC_SUC  tip=$FAC_TIP  nro = $FAC_NRO NEXT = $NROEXT  \n";

	$ConDMUG = new ConexDMUG( $server , $port , $hs ,$user , $pass );

        $ConDMUG->SetProgram( "Interfaz_FacFisPG_Forum" );
        
        Carga_CABECERA(  $ConDMUG   ,  $v_FACTU  , $v_i  );

        $ConDMUG->SetParameter( "CANTIDAD_CABECERAS" , 1  );
        $ConDMUG->SetParameter( "FECHA_TRASMITE"     , date()  );
        $ConDMUG->SetParameter( "HORA_TRASMITE"      , time() );
  
        if ( $ConDMUG->Execute_DMUG() < 0)
	{
             $fec = date('l jS \of F Y h:i:s A');
             echo "$fec : ERROR EN CONEXION CON SERVER , esperando 3 segundos para continuar ....\n";
             $veces_error_server++; 
             if ( $veces_error_server > 2 )
             {   
                $fec = date('l jS \of F Y h:i:s A');
                echo "$fec :FINALIZA POR ERROR DE CONEXION CON SERVER !!!!!!!!!!\n";
                 Finalizar();       
             }
             sleep(3);
		     continue;	
	}		
	

    	$RESULTADO = $ConDMUG->GetChild( "STRERROR" );
        
	echo  "RESULTADO:".$RESULTADO."\n" ;
        echo  "ERROR:".$ConDMUG->GetChild( "ERROR" )."\n" ;
     	echo  "INFORME  :".$ConDMUG->GetChild( "INFO1" )."\n" ;
    	echo  "INFORME  :".$ConDMUG->GetChild( "INFO2" )."\n" ;
        echo  "PUTRECORD:".$ConDMUG->GetChild( "PUTRECORD" )."\n" ;
        echo  "REGISTROS:".$ConDMUG->GetChild( "REGISTROS" )."\n" ;
    
        $ConDMUG->CloseConex();
    

        if (  $RESULTADO== "EXACTO" )	
        {
  	        echo "Se marca FACTU  $FAC_NRO en PG TRANS es 1 \n";
        	Marca_CABECERA(  $obtieneDatos_pg ,  $v_FACTU  , $v_i );
        }          
        else
        {
		echo "ERROR en $FAC_NRO \n";
        }        
        echo "-------------------------------------------------------\n";       

        sleep(1);
        
    }        

    unset($v_FACTU);
    Finalizar();

/***********************************************************************/
function Finalizar()
{
    system( "/bin/rm /tmp/InterFactFis.blk" );
    exit();
}
/***********************************************************************/
/*----------------------- function Carga_CABECERA ---------------------*/
/***********************************************************************/
function Carga_CABECERA(  $ConDMUG  , $p_FACTU  , $v_i )
{    
    

# define FACTU_FAC_SUC (dbfield) 0x0a01 /* Integer /
   $ConDMUG->SetParameter("FAC_SUC"   ,  $p_FACTU[$v_i]['fac_suc'] );

	if (  $p_FACTU[$v_i]['fac_tip']== "PV" )
        	$FAC_TIP = "pv" ;
	if (  $p_FACTU[$v_i]['fac_tip']== "PN" )
        	$FAC_TIP = "pn" ;
        echo "FACTURA pos tip=$FAC_TIP  \n";
# define FACTU_FAC_TIP (dbfield) 0x0a02 /* String    
#   $ConDMUG->SetParameter("FAC_TIP"   ,  $p_FACTU[$v_i]['fac_tip']  );
   $ConDMUG->SetParameter("FAC_TIP"   ,  $FAC_TIP  );

# define FACTU_FAC_STIP (dbfield) 0x0a03    /* Integer   
   $ConDMUG->SetParameter("FAC_STIP"  ,  $p_FACTU[$v_i]['fac_stip']   );

# define FACTU_FAC_NRO (dbfield) 0x0a04 /* Long    
   $ConDMUG->SetParameter("FAC_NRO"   ,  $p_FACTU[$v_i]['fac_nro']   );

# define FACTU_FAC_SEXT (dbfield) 0x0a47    /* String /
    $ConDMUG->SetParameter("FAC_SEXT" ,  $p_FACTU[$v_i]['fac_sext']    );

# define FACTU_FAC_NEXTI (dbfield) 0x0a48   /* Long /
    $ConDMUG->SetParameter("FAC_NEXTI",  $p_FACTU[$v_i]['fac_nexti']    );
    
# define FACTU_FAC_NEXTF (dbfield) 0x0a49   /* Long /
    $ConDMUG->SetParameter("FAC_NEXTF",  $p_FACTU[$v_i]['fac_nextf']    );

# define FACTU_FAC_EMP (dbfield) 0x0a60 /* Integer /
    $ConDMUG->SetParameter("FAC_EMP"   ,  $p_FACTU[$v_i]['fac_emp']   );

}

/***********************************************************************/
/*----------------------- function Carga_CABECERA ---------------------*/
/***********************************************************************/
function Marca_CABECERA(  $obtieneDatos_pg , $p_FACTU  , $v_i )
{
   
   $SUC = $p_FACTU[$v_i]['fac_suc'];
   $TIP = $p_FACTU[$v_i]['fac_tip'];
   $STIP = $p_FACTU[$v_i]['fac_stip'];
   $NRO = $p_FACTU[$v_i]['fac_nro'];

        echo "FACTURA sucu = $SUC  tip=$TIP  nro = $NRO STIP = $STIP  \n";
   $pg_sql_factu = "UPDATE forumvta.factu SET fac_trans = 1 WHERE fac_suc = $SUC AND fac_tip = '$TIP' ";
   $pg_sql_factu .="AND fac_stip = $STIP AND fac_nro = $NRO ";
  
   $obtieneDatos_pg->obtenerDatos( $pg_sql_factu );
   
   return 1;

}

?>