<?php
$sNomeIdJan1 = 'iJan_TbIbpt_Princ';
$sCorBarraInf = '#E8E3CE';
$sIBPT_Versao = SQLVarConfig('IBPT_VERSAO');
//
//  *** ***
If ( $sSubModulo=="*****" ) {
//
//  ** TELA PRINCIPAL **
} Else {
    // Criar objeto Janela
    $oJanelaPrinc = New R_Janela();
    $oJanelaPrinc->sIdObj  = $sNomeIdJan1; 
    $oJanelaPrinc->nTop    = 40;
    $oJanelaPrinc->nLeft   = 5;
    $oJanelaPrinc->nWidth  = 400;   // Largura
    $oJanelaPrinc->nHeight = 0;     // Altura
	$oJanelaPrinc->nLeft  += ($nTela_W/2)-($oJanelaPrinc->nWidth/2);
    $oJanelaPrinc->sTitulo = 'Importação da tabela IBPT dos produtos';
	//
	$sJavaTravarJ = "document.getElementById('".$oJanelaPrinc->sIdObj."_Travar').style.visibility='visible'; ";
    //
    // Preparar para importar o CSV
    If ( $sAcao=="IMP_1" ) {
       $sRet_Javs .=
	       "parent.JanEspera(true,'Aguarde... O arquivo está sendo importado...');".
		   "setTimeout( function () { ".		   
		      "var vff = parent.document.forms.fmPIBPT_R2;".
		      "vff.acao.value='IMP_2'; ".
		      "vff.submit();".
		   "}, 400);".
		   "";
    //
    // Importar
    } ElseIf ( $sAcao=="IMP_2" ) {
	   //
	   $sMsg_Erro = '';
	   If ( ! (ISSET($_FILES['arquivo']) && ISSET( $_FILES['arquivo']['tmp_name'])) ) {
	      $sMsg_Erro = 'Erro no envio';
	   }
	   If ( STRLEN($sMsg_Erro)==0 ) {
	      If ( ! FILE_EXISTS($_FILES['arquivo']['tmp_name']) ) {
	         $sMsg_Erro = 'Arquivo não localizado';
		  }
	   }
	   //
	   If ( STRLEN($sMsg_Erro)==0 ) {
	      $sArq_NomTmp = $_FILES['arquivo']['tmp_name'];
          $nArq_Tamanh = FILESIZE($sArq_NomTmp);
          $nArq_Handle = FOPEN($sArq_NomTmp,"rb");
		  $bImportaDad = False;
		  $nImp_CodigoI = 0;
	      While ( ! FEOF($nArq_Handle) ) {
		     $sArq_LinhaD = FGETS($nArq_Handle,600);
		     
			 If ( STRLEN($sArq_LinhaD)>3 ) {
			    $sArq_LinhaD = STR_REPLACE( CHR(13), '', $sArq_LinhaD );
			    $sArq_LinhaD = STR_REPLACE( CHR(10), '', $sArq_LinhaD );
			    
				$aLinha = EXPLODE(';',$sArq_LinhaD.';');
				
				//
				// Conferir versão do arquivo
				If ( STRTOUPPER($aLinha[0])=="CODIGO" && STRTOUPPER($aLinha[1])=="EX" && STRTOUPPER($aLinha[2])=="TABELA" && STRTOUPPER($aLinha[4])=="ALIQNAC" ) {
				   $bImportaDad = ( (Somente_Numeros($aLinha[6])+0) > (Somente_Numeros($sIBPT_Versao)+0) );
				   If ($bImportaDad) { 
				      SQLVarConfigG('IBPT_VERSAO', $aLinha[6]);
				      $strSQLQuery = "DELETE FROM cad_tabela_ibpt;";
				      MYSQL_QUERY($strSQLQuery) OR DIE( $strSQLQuery.'<br>'.MYSQL_ERROR() );
				   } Else {
	                 $sMsg_Erro = 'Versão inválida '.$aLinha[6].'<br>Ultima versão importada '.$sIBPT_Versao;
				   }
				//
				} ElseIf ($bImportaDad) {
				   $nImp_CodigoI++;
				   $sImp_Cod_NCM = $aLinha[0];    // Código NCM ou NBS
				   $sImp_Excecao = $aLinha[1];    // Exceção fiscal
				   $bImp_Tip_NCM = $aLinha[2]+0;  // Tipo do Codigo: 0=NCM, 1=NBS
				   // descricao nao usa $aLinha[3];
				   $nImp_AliqNac = $aLinha[4]+0;  // Alíquota da mercadoria de origem nacional
				   $nImp_AliqImp = $aLinha[5]+0;  // Alíquota da mercadoria de origem importada
				   
				   //
				   $strSQLQuery =
				      "INSERT INTO cad_tabela_ibpt (".
					      "IBP_CODIGOI,".
						  "IBP_COD_NCM,".
						  "IBP_EXCECAO,".
						  "IBP_TIP_NCM,".
						  "IBP_ALIQNAC,".
						  "IBP_ALIQIMP".
					  ") VALUES (".
					          $nImp_CodigoI. ",".
						  "'".$sImp_Cod_NCM."',".
						  "'".$sImp_Excecao."',".
						      $bImp_Tip_NCM. ",".
						  "'".$nImp_AliqNac."',".
						  "'".$nImp_AliqImp."'".
					  ");";
			       MYSQL_QUERY($strSQLQuery) OR DIE( $strSQLQuery.'<br>'.MYSQL_ERROR() );
				}
				//
			 }
		  }
          FCLOSE($nArq_Handle);
		  If ( $nImp_CodigoI==0 && STRLEN($sMsg_Erro)==0 ) {
	         $sMsg_Erro = 'Formato inválido.<br>Ultima versão importada '.$sIBPT_Versao;
		  }
	   }
	   //
       $sRet_Javs .=
	       "parent.JanEspera(false);".
		   "setTimeout( function () { ".		   
		     "var vff = parent.document.forms.fmPIBPT_R;".
		     "vff.acao.value='AT'; ".
		     "vff.submit();".
		   "}, 200);".
		   (STRLEN($sMsg_Erro)>0 ? 
		     Info_Evento($sMsg_Erro,1)
		   :
		     Info_Evento("Importação efetuada com êxito.",0)
		   ).
           "";		   
    //
    // Atualizar
    } ElseIf ( $sAcao=="AT" ) {
	   //
    //
    // FECHAR
    } ElseIf ( $sAcao=="FECHAR" ) {
	   $aSessao['IBPT_ABERTO'] = False;
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="visible";'.
	      "parent.RmElem('".$oJanelaPrinc->sIdObj."');".
	      "parent.Car_".$sNomeAcesso."2.location.href='about:blank';".
	      "parent.Car_".$sNomeAcesso."1.location.href='about:blank';".
		  "";
    //
    // JANELA TELA PRINCIPAL
	} Else {
	   $aSessao['IBPT_ABERTO'] = True;
	   //
	   $oJanelaPrinc->sJavOnClickF =
	       "document.forms.fmPIBPT_R.acao.value='FECHAR'; ".
           "document.forms.fmPIBPT_R.submit();";
	   //$oJanelaPrinc->sJavKeyDown = "return Car_".$sNomeAcesso."1.Teclas_F(this,event);";
	   //
       // Tela HTML
       $sRet_TelaJ_HTML =
    	  $oJanelaPrinc->MontaJanHTML(True).
          '<form name="fmPIBPT_R" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'2">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
           '<input name="acao" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
          '</form>'.
          '<form name="fmPIBPT_R2" enctype="multipart/form-data" accept-charset="utf-8" method="post" action="./car_js.php" target="car_'.$sNomeAcesso.'3">'.
           '<input type="hidden" name="MAX_FILE_SIZE" value="10000000">'.
           '<input name="mod" type="hidden" value="'.$sModulo.'">'.
           '<input name="submod" type="hidden" value="'.$sSubModulo.'">'.
           '<input name="acao" type="hidden" value="">'.
    	   '<input name="nomeacs" type="hidden" value="'.$sNomeAcesso.'">'.
		  //
		  '<table border="0">'.
		   '<tr>'.
		    '<td width="30px">'.
		    '</td>'.
		    '<td>'.
		     'Arquivo CSV para importação:<br>'.
			 '<input type="file" name="arquivo">'.
		    '</td>'.
		   '</tr>'.
		  '</table>'.
          '</form>'.
		  //
          '<table width="100%" style="background-color:'.$sCorBarraInf.';"></tr>'.
           '<td width="4px" height="40px">&nbsp;</td>'.
           '<td align="left">'.
            HTML_Botao( 3, 'objIBPT_BT_Imp', "var vff = document.forms.fmPIBPT_R;".
		                                       "vff.acao.value='IMP_1'; ".
                                               "vff.submit();".
											   //$sJavaTravarJ.
											   ""
                         , 'Importar' ,'images/btimg_bd_add.png').
		   '</td>'.
           '<td align="right">'.
            HTML_Botao( 3, 'objIBPT_BT_Fch', $oJanelaPrinc->sJavOnClickF
                         , 'Sair' ,'images/btimg_fechar.png').		    
		   '</td>'.
           '<td width="4px">&nbsp;</td>'.
		   '</tr></table>'.		   
		  //
     	  $oJanelaPrinc->MontaJanHTML(False);
       //
	   // Java anterior
       $sRet_Javs .=
	      'parent.document.getElementById("dv_MenuL_Barra").style.visibility="hidden";'.
	      "";
       // Java posterior
       $sRet_JavsPos .=
          "var vff = parent.document.forms.fmPIBPT_R;".
          "vff.acao.value='AT'; ".
          "vff.submit();".
	      "";
    }
}
//
?>