function calculaSubtotal_1_4(){

  if (document.formulario.icms_result4.value.length == 0 &&
    document.formulario.cofins_result4.value.length == 0 &&
	document.formulario.pis_result4.value.length == 0 && 
	document.formulario.outros_result4.value.length == 0 && 
	document.formulario.lucro_result4.value.length == 0 &&
	document.formulario.embalagem_result4.value.length == 0 && 
	document.formulario.comissao_result4.value.length == 0 &&
	document.formulario.despprop_result4.value.length == 0 &&
	document.formulario.despdist_result4.value.length == 0 &&
	document.formulario.despout_result4.value.length == 0){
    alert(' Você precisa fornecer pelo menos um dos valores acima para \n calcular o subtotal dos \"Componentes do Preço no Mercado Interno\".\n Se os campos já foram preenchidos, clique no botão \"ATUALIZA DADOS\".');
  } 
  else{
  
	var soma = 0;
	var pi = 0;
	if (document.formulario.icms_result4.value.length != 0){
	  soma = soma + parseFloat(document.formulario.icms_result4.value)
	} 
	if (document.formulario.cofins_result4.value.length != 0){
	  soma = soma + parseFloat(document.formulario.cofins_result4.value)
	}
	if (document.formulario.pis_result4.value.length != 0){
	  soma = soma + parseFloat(document.formulario.pis_result4.value)
	}
	if (document.formulario.outros_result4.value.length != 0){
	  soma = soma + parseFloat(document.formulario.outros_result4.value)
	}
	if (document.formulario.lucro_result4.value.length != 0){
	  soma = soma + parseFloat(document.formulario.lucro_result4.value)
	}
	if (document.formulario.embalagem_result4.value.length != 0){
	  soma = soma + parseFloat(document.formulario.embalagem_result4.value)
	}
	if (document.formulario.comissao_result4.value.length != 0){
	  soma = soma + parseFloat(document.formulario.comissao_result4.value)
	}
	if (document.formulario.despprop_result4.value.length != 0){
	  soma = soma + parseFloat(document.formulario.despprop_result4.value)
	}
	if (document.formulario.despdist_result4.value.length != 0){
	  soma = soma + parseFloat(document.formulario.despdist_result4.value)
	}
	if (document.formulario.despout_result4.value.length != 0){
	  soma = soma + parseFloat(document.formulario.despout_result4.value)
	}
	pi = document.formulario.controle_preco_mi.value.substr(0,document.formulario.controle_preco_mi.value.length-2) + "." + document.formulario.controle_preco_mi.value.substr(document.formulario.controle_preco_mi.value.length-2,document.formulario.controle_preco_mi.value.length);
	document.formulario.subtotal4.value = parseFloat(pi - soma);
	
	if (document.formulario.subtotal4.value.indexOf(".") != -1){
	  document.formulario.subtotal4.value = document.formulario.subtotal4.value.substr(0,document.formulario.subtotal4.value.indexOf(".")) + "." + document.formulario.subtotal4.value.substr(document.formulario.subtotal4.value.indexOf(".")+1, 2);
	}
    else {
	  document.formulario.subtotal4.value = document.formulario.subtotal4.value + ".00"
	}
	enviaMostra(document.formulario.subtotal4,document.formulario.subtotal_mostra4);
  }
}

function calculaSubtotal_2_4(){

	var soma2 = 0;
	if (document.formulario.ex_embalagens_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_embalagens_result4.value)
	} 
	if (document.formulario.ex_carrega_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_carrega_result4.value)
	} 
	if (document.formulario.ex_transpint_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_transpint_result4.value)
	} 
	if (document.formulario.ex_desembexpo_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_desembexpo_result4.value)
	} 
	if (document.formulario.ex_despport_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_despport_result4.value)
	} 
	if (document.formulario.ex_despaero_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_despaero_result4.value)
	} 
	if (document.formulario.ex_alugcont_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_alugcont_result4.value)
	} 
	if (document.formulario.ex_transpseg_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_transpseg_result4.value)
	} 
	if (document.formulario.ex_cargadesc_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_cargadesc_result4.value)
	} 
	if (document.formulario.ex_capport_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_capport_result4.value)
	} 
	if (document.formulario.ex_despout_result4.value.length != 0){
	  soma2 = soma2 + parseFloat(document.formulario.ex_despout_result4.value)
	} 

    document.formulario.total4.value = soma2;
	if (document.formulario.total4.value.indexOf(".") != -1){
	  document.formulario.total4.value = document.formulario.total4.value.substr(0,document.formulario.total4.value.indexOf(".")) + "." + document.formulario.total4.value.substr(document.formulario.total4.value.indexOf(".")+1, 2);
	}
    else {
	  document.formulario.total4.value = document.formulario.total4.value + ".00"
	}

   	enviaMostra(document.formulario.total4,document.formulario.total_mostra4);

	//SOMA SUBTOTAL INT com SUBTOTAL EXT se subtotal int não for vazio
	if (document.formulario.subtotal4.value.length != 0){
  	  document.formulario.custo_total4.value = parseFloat(document.formulario.subtotal4.value) + parseFloat(document.formulario.total4.value);
      if (document.formulario.custo_total4.value.indexOf(".") != -1){
	    document.formulario.custo_total4.value = document.formulario.custo_total4.value.substr(0,document.formulario.custo_total4.value.indexOf(".")) + "." + document.formulario.custo_total4.value.substr(document.formulario.custo_total4.value.indexOf(".")+1, 2);
	  }
      else {
	    document.formulario.custo_total4.value = document.formulario.custo_total4.value + ".00"
	  }	
    }  
	
   	enviaMostra(document.formulario.custo_total4,document.formulario.custo_total_mostra4);
}