//////////////////////////////////////////////////////////////////////////////
// Arquivo:  pedido-assinatura.js
// Autor:    Star Sistemas e Projetos Graficos Ltda.
// Data:     14/03/2001, 12-13/11/2001, 16/09/2004, 29/09/2005
// Conteudo: Funcoes de suporte `a montagem e processamento da pagina
//				 do formulario de pedido de assinatura.
//////////////////////////////////////////////////////////////////////////////

var gRenewal = false;

// Insercao - 29/09/2005
var gEdition537 = false;
// Fim Insercao - 29/09/2005

var index;

var TabelaAssinBasica = new Array();
for (index = 1; index <= 12; index++)
   TabelaAssinBasica[index] = new Array();
// Linhas indicam o numero de parcelas.
// Colunas indicam duração da assinatura, da seguinte forma:
// 1 = 4 edições, quadrimestral
// 2 = 6 edições, semestral
// 3 = 12 edições, anual
// 4 = 24 edições, bienal
TabelaAssinBasica[1][1] = 0.00; TabelaAssinBasica[1][2] = 112.0; TabelaAssinBasica[1][3] = 217.00; TabelaAssinBasica[1][4] = 414.00;
TabelaAssinBasica[2][1] = 0.0; TabelaAssinBasica[2][2] = 56.50; TabelaAssinBasica[2][3] = 109.50; TabelaAssinBasica[2][4] = 208.50;
TabelaAssinBasica[3][1] = 0.0 ; TabelaAssinBasica[3][2] = 38.00; TabelaAssinBasica[3][3] = 73.60; TabelaAssinBasica[3][4] = 139.50; 
TabelaAssinBasica[4][1] = 0.0; TabelaAssinBasica[4][2] = 28.70; TabelaAssinBasica[4][3] = 55.60; TabelaAssinBasica[4][4] = 105.50; 
TabelaAssinBasica[5][1] = 0.00; TabelaAssinBasica[5][2] = 0.0; TabelaAssinBasica[5][3] = 44.90; TabelaAssinBasica[5][4] = 85.0; 
TabelaAssinBasica[6][1] = 0.00; TabelaAssinBasica[6][2] = 0.0; TabelaAssinBasica[6][3] = 37.70; TabelaAssinBasica[6][4] = 71.0; 
TabelaAssinBasica[7][1] = 0.00; TabelaAssinBasica[7][2] = 0.00; TabelaAssinBasica[7][3] = 32.43; TabelaAssinBasica[7][4] = 61.30; 
TabelaAssinBasica[8][1] = 0.00; TabelaAssinBasica[8][2] = 0.00; TabelaAssinBasica[8][3] = 28.50; TabelaAssinBasica[8][4] = 54.0; 
TabelaAssinBasica[9][1] = 0.00; TabelaAssinBasica[9][2] = 0.00; TabelaAssinBasica[9][3] = 0.0; TabelaAssinBasica[9][4] = 0.0; 
TabelaAssinBasica[10][1] = 0.00; TabelaAssinBasica[10][2] = 0.00; TabelaAssinBasica[10][3] = 0.0; TabelaAssinBasica[10][4] = 0.0;
TabelaAssinBasica[11][1] = 0.00; TabelaAssinBasica[11][2] = 0.00; TabelaAssinBasica[11][3] = 0.0; TabelaAssinBasica[11][4] = 0.0; 
TabelaAssinBasica[12][1] = 0.00; TabelaAssinBasica[12][2] = 0.00; TabelaAssinBasica[12][3] = 0.00; TabelaAssinBasica[12][4] = 0.00; 

//============================================================================
// Variaveis relativas as alternativas de envio e pagamento da assinatura.

// Insercao - 20/12/2005 
//var formValueFirstIssue = "";
// Fim Insercao - 20/12/2005 
var formValueDispatchMode = "";
var formValuePaymentMode = "";
var formValuePaymentCondition = "";
var formValueSubscriptionPeriod = "";
var formValueAutomaticRenewal = false;
var formValueBoletoPorEmail = false;

gFormName = "subscriptionOrderForm";

//============================================================================
// Calcula o valor total do pedido de acordo com opcoes escolhidas pelo
// assinante.

function CalcOrderPrice (showAlert)
{
   var retval = false;
   var theForm = GetDocumentElement (gFormName);

   var subscriptionValueStr = "";
   var numSubscriptions = parseInt (theForm.Exemplares.value);
   var dispatchMode = formValueDispatchMode;
   var paymentMode = formValuePaymentMode;
   var paymentCondition = formValuePaymentCondition;
   var subscriptionPeriod = formValueSubscriptionPeriod;
   // Modificacao - 29/09/2005
   //var state = siglasEstados[(theForm.Estado.selectedIndex > 0 ? theForm.Estado.selectedIndex : 0)];
   //var country = countryNames[(theForm.PaisRemessa.selectedIndex > 0 ? theForm.PaisRemessa.selectedIndex : 0)];
   var state = (gRenewal ? "SP" : siglasEstados[(theForm.Estado.selectedIndex > 0 ? theForm.Estado.selectedIndex : 0)]);
   var country = (dispatchMode == "Economico" || dispatchMode == "Prioritario" ? 
      countryNames[(theForm.PaisRemessa.selectedIndex > 0 ? theForm.PaisRemessa.selectedIndex : 0)] : "");
   // Fim Modificacao - 29/09/2005
   //alert (String(numSubscriptions) + " - " + dispatchMode + " - " + 
   //   paymentMode + " - " + paymentCondition + " - " + subscriptionPeriod + " - " + country);

   var numSubscriptionsIsMissing = (isNaN (numSubscriptions) || numSubscriptions <= 0);
   
	// Insercao - 20/12/2005
   /*var firstIssue;
   if (gEdition537)
      firstIssue = "Especial/537";
   else if (gRenewal)
      firstIssue = "Volume mais recente";
   else
      firstIssue = (theForm.VolumeInicial.selectedIndex >= 0 ? 
         theForm.VolumeInicial.children(theForm.VolumeInicial.selectedIndex).innerText : 
         theForm.VolumeInicial.children(0).innerText);
   var firstIssueIsMissing = ((firstIssue == null) || (firstIssue == ""));*/
   // Fim Insercao - 20/12/2005
   
	var dispatchModeIsMissing = ((dispatchMode == null) || (dispatchMode == ""));
   //var paymentModeIsMissing = ((paymentMode == null) || (paymentMode == ""));
   var paymentConditionIsMissing = ((paymentCondition == null) || (paymentCondition == ""));
   var subscriptionPeriodIsMissing = ((subscriptionPeriod == null) || (subscriptionPeriod == ""));
   var countryIsMissing = ((dispatchMode == "Economico" || dispatchMode == "Prioritario") ?
      ((country == null) || (country == "")) : false);

   if (numSubscriptionsIsMissing || dispatchModeIsMissing || //paymentModeIsMissing ||
      // Modificacao - 20/12/2005
   	paymentConditionIsMissing || subscriptionPeriodIsMissing || countryIsMissing)
   	//firstIssueIsMissing || paymentConditionIsMissing || subscriptionPeriodIsMissing || countryIsMissing)
      // Fim Modificacao - 20/12/2005
   {
      if (showAlert)
      {
         var message = "Os seguintes campos devem ser preenchidos corretamente " +
            "para que o valor possa ser calculado:\n\n";
         if (numSubscriptionsIsMissing) 	message += "- Número de pedidos de assinatura\n";
         // Insercao - 20/12/2005
         //if (firstIssueIsMissing) 	      message += "- Volume inicial da assinatura\n";
         // Fim Insercao - 20/12/2005
         if (dispatchModeIsMissing)      	message += "- Forma de envio\n";
         //if (paymentModeIsMissing)      	message += "- Forma de pagamento\n";
         if (paymentConditionIsMissing) 	message += "- Condição de pagamento\n";
         if (subscriptionPeriodIsMissing)	message += "- Período da assinatura\n";
         if (countryIsMissing)        		message += "- País\n";
         alert (message);
      }
    	theForm.ValorFinal.value = "";

      retval = false;
   }
   else
   {
      var categoriaParcelamento;
      var numPayments = 1;
      if (paymentCondition == "A vista")
         categoriaParcelamento = numPayments = 1;
      else
      {
         categoriaParcelamento = parseInt (paymentCondition.substr (3,2));
         if (categoriaParcelamento < 1 || categoriaParcelamento > 12) categoriaParcelamento = 1;
         numPayments = categoriaParcelamento;
      } 

      var categoriaDuracao = 0;
      var numIssues = 0;

      // Insercao - 29/09/2005
      if (gEdition537)
      {
         if (subscriptionPeriod == "Semestral")
         {
            categoriaDuracao = 2;
            numIssues = 6;
         }
         else if (subscriptionPeriod == "Anual")
         {
            categoriaDuracao = 3;
            numIssues = 12;
         }
         else if (subscriptionPeriod == "Bienal")
         {
            categoriaDuracao = 4;
            numIssues = 24;
         }
      }
      else
      {
      // Fim Insercao - 29/09/2005

      if (subscriptionPeriod == "Quadrimestral")
      {
         categoriaDuracao = 1;
         numIssues = 4;
      }
      else if (subscriptionPeriod == "Semestral")
      {
         categoriaDuracao = 2;
         numIssues = 6;
      }
      else if (subscriptionPeriod == "Anual")
      {
         categoriaDuracao = 3;
         numIssues = 12;
      }
      else if (subscriptionPeriod == "Bienal")
      {
         categoriaDuracao = 4;
         numIssues = 24;
      }

      // Insercao - 29/09/2005
      }
      // Fim Insercao - 29/09/2005

      var subscriptionBaseValue = TabelaAssinBasica[categoriaParcelamento][categoriaDuracao];
      // Insercao - 20/12/2005
      if (gEdition537)
         subscriptionBaseValue /= 2.5;
      // Fim Insercao - 20/12/2005
      if (subscriptionBaseValue > 0.0)
      {
         var dispatchFee = CalcTaxaRemessa ("AS", dispatchMode, numSubscriptions, 250*numSubscriptions, state, country);
         var subscriptionValue = (numSubscriptions * subscriptionBaseValue) + (numIssues * dispatchFee) / numPayments;

         // Concede 10% de desconto para assinaturas multiplas
         if (numSubscriptions > 1) 
            subscriptionValue = 0.9 * subscriptionValue;

         // Insercao - 18/11/2006 - Verifica prazo da promocao 
         /*var dataHoje = new Date();
         var dataLimite = new Date (2007, 7-1, 31, 23, 59, 59);
         if (dataHoje <= dataLimite)
         {*/
			// Fim Insercao - 18/11/2006 - Verifica prazo da promocao 

				/*if (!gEdition537)
				{
					// Insercao - 25/06/2007 - Promocao de desconto até 31/07/2007
					if (numPayments == 1)
					{
						if (formValuePaymentMode != "Cartao de Credito")
							subscriptionValue = 0.85 * subscriptionValue; // 15%
						else
							subscriptionValue = 0.90 * subscriptionValue; // 10%
					}
					else
						subscriptionValue = 0.95 * subscriptionValue; // 5%
					// Fim Insercao - 25/06/2007 - Promocao de desconto até 31/07/2007

				}*/

         // Insercao - 18/11/2006 - Verifica prazo da promocao 
         //}
         // Fim Insercao - 18/11/2006 - Verifica prazo da promocao 
      
         var subscriptionValueIntegral = Math.floor(subscriptionValue);
         var subscriptionValueRemainder = subscriptionValue - subscriptionValueIntegral;
         if (numPayments > 1)
            subscriptionValueStr = String(numPayments) + " x ";
         else
            subscriptionValueStr = "";
         var subscriptionValueRemainderInt = Math.round(100*subscriptionValueRemainder);
         var subscriptionValueRemainderStr = (subscriptionValueRemainderInt < 10 ?
            "0" + String(subscriptionValueRemainderInt) : String(subscriptionValueRemainderInt));
         subscriptionValueStr += 
      	   "R$ " + (subscriptionValueRemainder != 0.0 ?
      	   subscriptionValueIntegral + "," + subscriptionValueRemainderStr :
      	   subscriptionValueIntegral + ",00");

         retval = true;
      }
   }

   theForm.ValorFinal.value = subscriptionValueStr;

   return retval;
}

//============================================================================
// Verificacao de validade do formulario preenchido.

function CheckForm()
{
   var retval;
   var theForm = GetDocumentElement (gFormName);

   var numSubscriptions = parseInt (theForm.Exemplares.value);
   // Insercao - 20/12/2005 
   //var firstIssue = formValueFirstIssue;
   // Fim Insercao - 20/12/2005 
   var dispatchMode = formValueDispatchMode;
   var paymentMode = formValuePaymentMode;
   var paymentCondition = formValuePaymentCondition;
   var subscriptionPeriod = formValueSubscriptionPeriod;
   // Modificacao - 29/09/2005
   //var country = countryNames[(theForm.Pais.selectedIndex > 0 ? theForm.Pais.selectedIndex : 0)];
   var country = (dispatchMode == "Economico" || dispatchMode == "Prioritario" ? 
      countryNames[(theForm.Pais.selectedIndex > 0 ? theForm.Pais.selectedIndex : 0)] : "");
   // Fim Modificacao - 29/09/2005

   var nameIsMissing = ((theForm.Nome.value == null) || (theForm.Nome.value == ""));
   var subscriberCodeIsMissing, cpfIsMissing, addressIsMissing, 
      districtIsMissing, cityIsMissing, stateIsMissing, zipCodeIsMissing,
      emailIsMissing;

   if (gRenewal)
   {
      subscriberCodeIsMissing = ((theForm.CodigoCliente.value == null) ||
         (theForm.CodigoCliente.value == ""));
      
      cpfIsMissing = addressIsMissing = districtIsMissing = false;
   	cityIsMissing = stateIsMissing = zipCodeIsMissing = false;
      emailIsMissing = false;
   }
   else
   {
      subscriberCodeIsMissing = false;
      cpfIsMissing = ((theForm.CPF.value == null) ||
         (theForm.CPF.value == ""));
      addressIsMissing = ((theForm.Endereco.value == null) ||
         (theForm.Endereco.value == ""));
      districtIsMissing = ((theForm.Bairro.value == null) ||
         (theForm.Bairro.value == ""));
      cityIsMissing = ((theForm.Cidade.value == null) ||
         (theForm.Cidade.value == ""));
      stateIsMissing = (theForm.Estado.selectedIndex <= 0); 
      zipCodeIsMissing = ((theForm.CEP.value == null) ||
         (theForm.CEP.value == ""));
      emailIsMissing = ((theForm.AnyFormFrom.value == null) ||
         (theForm.AnyFormFrom.value == ""));
   }

   var numSubscriptionsIsMissing = (isNaN (numSubscriptions) || numSubscriptions <= 0);

   // Insercao - 20/12/2005 
   if (gEdition537)
      firstIssue = "Especial/537";
   else if (gRenewal)
      firstIssue = "Volume de renovação";
   else
	{
      // Modificacao - 05/07/2007
		/*firstIssue = (theForm.VolumeInicial.selectedIndex >= 0 ? 
         theForm.VolumeInicial.children(theForm.VolumeInicial.selectedIndex).innerText : 
         theForm.VolumeInicial.children(0).innerText);*/
		firstIssue = theForm.VolumeInicial.options[theForm.VolumeInicial.selectedIndex].text;
      // Fim Modificacao - 05/07/2007
   }
	// Modificacao - 05/07/2007
	//var firstIssueIsMissing = ((firstIssue == null) || (firstIssue == ""));
	var firstIssueIsMissing;
   if (gEdition537 || gRenewal)
      firstIssueIsMissing = false;
   else
	{
      //alert(firstIssue);
		firstIssueIsMissing = ((firstIssue == null) || (firstIssue == "") || (firstIssue.length != 7));
	}
	// Fim Modificacao - 05/07/2007
   // Fim Insercao - 20/12/2005 

   var dispatchModeIsMissing = ((dispatchMode == null) || (dispatchMode == ""));
   var paymentModeIsMissing = ((paymentMode == null) || (paymentMode == ""));
   var paymentConditionIsMissing = ((paymentCondition == null) || (paymentCondition == ""));
   var subscriptionPeriodIsMissing = ((subscriptionPeriod == null) || (subscriptionPeriod == ""));
   var countryIsMissing = ((dispatchMode == "Economico" || dispatchMode == "Prioritario") ?
      ((country == null) || (country == "")) : false);

   if (nameIsMissing || subscriberCodeIsMissing || cpfIsMissing || addressIsMissing || 
   	districtIsMissing || cityIsMissing || stateIsMissing || zipCodeIsMissing || emailIsMissing || 
      numSubscriptionsIsMissing || dispatchModeIsMissing || paymentModeIsMissing ||
      // Modificacao - 20/12/2005 
   	//paymentConditionIsMissing || subscriptionPeriodIsMissing || countryIsMissing)
   	firstIssueIsMissing || paymentConditionIsMissing || subscriptionPeriodIsMissing || countryIsMissing)
      // Fim Modificacao - 20/12/2005 
   {
      var message = "Os seguintes campos devem ser preenchidos corretamente \n" +
         "para que os dados do assinante possam ser enviados:\n\n";
      if (nameIsMissing) message += "- Nome\n";
      if (subscriberCodeIsMissing) message += "- Código de assinante/cliente\n";
      if (cpfIsMissing) message += "- Número de CPF ou CGC\n";
      if (addressIsMissing) message += "- Endereço\n";
      if (districtIsMissing) message += "- Bairro\n";
      if (cityIsMissing) message += "- Cidade\n";
      if (stateIsMissing) message += "- Estado\n";
      if (zipCodeIsMissing) message += "- CEP\n";
      if (emailIsMissing) message += "- Endereço de e-mail principal\n";
      if (numSubscriptionsIsMissing) message += "- Número de pedidos de assinatura\n";
      // Insercao - 20/12/2005
      if (firstIssueIsMissing) message += "- Volume inicial da assinatura\n";
      // Fim Insercao - 20/12/2005
      if (dispatchModeIsMissing) message += "- Forma de envio\n";
      if (paymentModeIsMissing) message += "- Forma de pagamento\n";
      if (paymentConditionIsMissing) message += "- Condição de pagamento\n";
      if (subscriptionPeriodIsMissing)	message += "- Período da assinatura\n";
      if (countryIsMissing) message += "- País\n";

      if (emailIsMissing) 
         message += "\nCaso você realmente não possua algum " +
      	     "endereço de e-mail, \nescreva \"nenhum\" no campo correspondente.\n";
      
      alert (message);

      retval = false;
   }
   else
   {
      // Ajusta endereco da pagina de destino.
      theForm.AnyFormDisplay.value =
         GetSiteBaseDir() + "port/pedido-assinatura-concluido.html?FormaPag=" +
         escape (paymentMode);
      retval = true;
   }

   return retval;
}

//============================================================================
// Apresentacao dos elementos principais da pagina.

// Modificacao - 29/09/2005
//function DisplaySubscriptionPageElements (renewal)
function DisplaySubscriptionPageElements (renewal, edition537)
// Fim Modificacao - 29/09/2005
{
   // Insercao - 29/09/2005
   if (edition537 == null) 
      edition537 = false;
   else if (edition537)
      renewal = true;
   gEdition537 = edition537;
   // Fim Insercao - 29/09/2005

   if (renewal == null) renewal = false;
   gRenewal = renewal;

   var proceed = true;

    document.writeln ("<P>Através desta página, você poderá efetuar sua assinatura " +
        " de volumes da série <em>Perry Rhodan</em> publicados pela SSPG Editora. " +
        "Para isso, preencha por favor o formulário abaixo e " +
        "remeta-o através do botão no final da página.");
   document.writeln ("<P>Os dados enviados por meio deste formulário serão " +
      "remetidos à SSPG e serão utilizados exclusivamente pela editora para " +
      "a realização da assinatura. Os dados aqui fornecidos pelo assinante " +
      "não serão repassados a terceiros.");
   document.writeln ("<P>Para sua conveniência, o valor total a ser pago " +
      "pela assinatura é calculado automaticamente de acordo com a escolha " +
      "das opções de envio e pagamento nos campos correspondentes abaixo.");

   // Modificacao - 22/10/2009
   /*if (!renewal)
   {
      document.writeln ("<P>A assinatura solicitada começa com " +
         BuildLink ("o volume mais recente da nova edição.", "port/lancamentos.html", 
         "Lançamento do Mês") + " Para completar a sua coleção e adquirir os volumes " +
         "anteriores dessa edição, faça o pedido dos volumes avulsos " +
         BuildLink ("nesta página", "port/pedido-volumes-avulsos.asp", 
         "Pedido de Volumes Avulsos") + ", após enviar o seu pedido de assinatura.");
   }*/
	document.writeln ("<P><b>Importante: antes de enviar seu pedido, leia " +
		"com atenção todas as condições de realização da assinatura definidas " +
		"pela SSPG " + BuildLink ("neste link.", "port/assinatura.html", 
		"Assinatura") + "</b>");
   // Fim Modificacao - 22/10/2009

   /*if (!edition537)
   {
      document.writeln ("<P class=\"emphasis\">Aproveite a promoção e efetue seu " +
         "pedido de assinatura de 9 exemplares com remessa via Simples em 5 x R$ 49,00! " +
         "Não perca, ela vale por tempo limitado!");
   }*/
   // Modificacao - 29/09/2005
   //var subject = "PERRY RHODAN - Pedido de " + (renewal ? "Renovacao de " : "") + "Assinatura";
   var subject = "PERRY RHODAN - Pedido de ";
   if (edition537)
      subject += "Pre-Assinatura dos Episódios 537-649";
   else if (renewal)
      subject += "Renovacao de Assinatura";
   else
      subject += "Assinatura";
   // Fim Modificacao - 29/09/2005
   
   document.writeln ("<P><form action=\"http://www2.sspg.com.br/perry-rhodan/Engine/form2mail.asp\"\n" +
      "method=\"GET\" onsubmit=\"return(CheckForm());\" name=\"" + gFormName + "\">\n" +
      "<input type=\"hidden\" name=\"AnyFormMode\" value=\"Mail\">\n" +
      "<input type=\"hidden\" name=\"AnyFormDisplay\" " +
      "value=\"" + GetSiteBaseDir() + "port/pedido-assinatura-concluido.html\">\n" +
      "<input type=\"hidden\" name=\"AnyFormTo\" value=\"pedidos@sspg.com.br\">\n" +
      "<input type=\"hidden\" name=\"AnyFormSubject\" value=\"" + subject + "\">");

   // Modificacao - 29/09/2005
   //if (renewal)
   if (renewal || edition537)
   // Fim Modificacao - 29/09/2005
   {
      document.writeln ("Nome:<br>\n" +
         "<input type=\"text\" name=\"Nome\" value=\"\" size=\"60\"><br>\n" +
         "Código de assinante:<br>\n" +
         "<input type=\"text\" name=\"CodigoCliente\" size=\"20\"><br><br>");
      document.writeln ("Endereço(s) de e-mail:<br>\n" +
         "<input type=\"text\" name=\"AnyFormFrom\" size=\"30\"><br><br>");
   }
   else
   {
      DisplayPersonalDataFields (true);
      DisplayDiscoveryFields();
   }

   // Insercao - 29/09/2005
   if (edition537)
   {
      document.writeln ("<em>(Caso você não seja cliente da SSPG e portanto não possua " +
         "ainda um código de cliente, por favor entre em contato com nosso serviço " +
         "de atendimento pelo número (0xx31) 3047-7540 para efetuar seu pedido de " +
         "pré-assinatura dos episódios 537 a 649.)</em><br><br>");
   }
   // Fim Insercao - 29/09/2005

   document.writeln ("Número de pedidos de assinatura:<br>\n" +
      "(Esse número corresponde à quantidade de exemplares <em>de cada volume</em> " +
      "que o assinante gostaria de receber (1, 2, 3, etc.). Ao pedir mais de um exemplar " +
      "do mesmo volume, voc&ecirc; ganha 10% de desconto no valor da assinatura, e, a partir do volume 700/701, o " +
      "exemplar adicional &eacute; enviado com uma capa alternativa: " +
      "a do segundo epis&oacute;dio do volume.)<br>\n" +
      "<input type=\"text\" name=\"Exemplares\" size=\"50\"" +
      "onchange=\"CalcOrderPrice(false)\"><br><br>");

   // Insercao - 20/12/2005
   if (edition537)
      formValueFirstIssue = "Especial/537";
   else if (gRenewal)
      formValueFirstIssue = "Volume mais recente";
   else
   {
      document.writeln ("Volume inicial da assinatura:<br>\n" +
         "<select name=\"VolumeInicial\" size=\"1\">");
      var numVolume;
      // Remocao - 28/02/2007
      //document.writeln ("<option>Volume mais recente");
      // Fim Remocao - 28/02/2007
		// Insercao - 05/07/2007
      document.writeln ("<option>Escolha um volume");
		// Fim Insercao - 05/07/2007
      // Modificacao - 28/02/2007
      //for (numVolume = PRNumIssuesBr-7; numVolume >= PRFirstPublishedIssueNumberBr; numVolume -= 2)
      for (numVolume = PRNumIssuesBr-15; numVolume >= PRFirstPublishedIssueNumberBr; numVolume -= 2)
      // Fim Modificacao - 28/02/2007
         document.writeln ("<option>" + numVolume + "/" + (numVolume+1));
      document.writeln ("</select><br><br>");
   }
   // Fim Insercao - 20/12/2005

   // Insercao - 29/09/2005
   if (edition537)
   {
   document.writeln ("Duração da assinatura:<br>\n" +
      "<input type=\"radio\" name=\"Periodo\" value=\"Semestral\" " +
      "onclick=\"formValueSubscriptionPeriod = 'Semestral'; CalcOrderPrice(false)\"> " +
      "6 volumes<br>\n" +
      "<input type=\"radio\" name=\"Periodo\" value=\"Anual\" " +
      "onClick=\"formValueSubscriptionPeriod = 'Anual'; CalcOrderPrice(false)\"> " +
      "12 volumes<br>\n" +
      "<input type=\"radio\" name=\"Periodo\" value=\"Bienal\" " +
      "onClick=\"formValueSubscriptionPeriod = 'Bienal'; CalcOrderPrice(false)\"> " +
      "24 volumes<br>");
   }
   else
   {
   // Fim Insercao - 29/09/2005
   
   document.writeln ("Duração da assinatura:<br>\n" +
      // Insercao - 20/12/2005
      /*"<input type=\"radio\" name=\"Periodo\" value=\"Quadrimestral\" " +
      "onClick=\"formValueSubscriptionPeriod = 'Quadrimestral'; CalcOrderPrice(false)\"> " +
      "Quadrimestral (10 volumes)<br>\n" +*/
      // Fim Insercao - 20/12/2005
      "<input type=\"radio\" name=\"Periodo\" value=\"Semestral\" " +
      "onClick=\"formValueSubscriptionPeriod = 'Semestral'; CalcOrderPrice(false)\"> " +
      "6 volumes<br>\n" +
      "<input type=\"radio\" name=\"Periodo\" value=\"Anual\" " +
      "onClick=\"formValueSubscriptionPeriod = 'Anual'; CalcOrderPrice(false)\"> " +
      "12 volumes<br>\n" +
      "<input type=\"radio\" name=\"Periodo\" value=\"Bienal\" " +
      "onClick=\"formValueSubscriptionPeriod = 'Bienal'; CalcOrderPrice(false)\"> " +
      "24 volumes<br>\n" +
      "<br>");
   
   // Insercao - 29/09/2005
   }
   // Fim Insercao - 29/09/2005

   document.writeln ("<input type=\"checkbox\" name=\"RenovacaoAutomatica\" value=\"Sim\" " +
      "onClick=\"formValueAutomaticRenewal = !formValueAutomaticRenewal;\"> " +
      "Sim, desejo optar pela renovação automática da minha assinatura.<br>" +
      "<em>(<!--Válido apenas no caso de pagamento via boleto. -->O assinante será " +
      "avisado com antecedência na época de renovação)</em><br><br>");

   document.writeln ("<span class=\"emphasis\">" +
      "Escolha a forma de envio dos volumes da assinatura:</span>");
   DisplayDispatchOptions (true, false, 4);

   document.writeln ("<span class=\"emphasis\">" +
      "Escolha a condição de pagamento da assinatura:</span>");
   document.writeln ("<br><br><input type=\"radio\" name=\"CondicaoPagamento\" value=\"A vista\" " +
      "onClick=\"formValuePaymentCondition = 'A vista'; CalcOrderPrice(false)\"> " +
      "À vista<br>\n" +
      "<input type=\"radio\" name=\"CondicaoPagamento\" value=\"Em 2 parcelas iguais\" " +
      "onClick=\"formValuePaymentCondition = 'Em 2 parcelas iguais'; CalcOrderPrice(false)\"> " +
      "Em 2 parcelas iguais<br>" +
      "<input type=\"radio\" name=\"CondicaoPagamento\" value=\"Em 3 parcelas iguais\" " +
      "onClick=\"formValuePaymentCondition = 'Em 3 parcelas iguais'; CalcOrderPrice(false)\"> " +
      "Em 3 parcelas iguais<br>" +
      "<input type=\"radio\" name=\"CondicaoPagamento\" value=\"Em 4 parcelas iguais\" " +
      "onClick=\"formValuePaymentCondition = 'Em 4 parcelas iguais'; CalcOrderPrice(false)\"> " +
      "Em 4 parcelas iguais<br>");

   if (!edition537)
   {
   document.writeln (
      "<input type=\"radio\" name=\"CondicaoPagamento\" value=\"Em 5 parcelas iguais\" " +
      "onClick=\"formValuePaymentCondition = 'Em 5 parcelas iguais'; CalcOrderPrice(false)\"> " +
      "Em 5 parcelas iguais (apenas para assinatura de 12 e 24 volumes)<br>" +
      "<input type=\"radio\" name=\"CondicaoPagamento\" value=\"Em 6 parcelas iguais\" " +
      "onClick=\"formValuePaymentCondition = 'Em 6 parcelas iguais'; CalcOrderPrice(false)\"> " +
      "Em 6 parcelas iguais (apenas para assinatura de 12 e 24 volumes)<br>" +
      "<input type=\"radio\" name=\"CondicaoPagamento\" value=\"Em 7 parcelas iguais\" " +
      "onClick=\"formValuePaymentCondition = 'Em 7 parcelas iguais'; CalcOrderPrice(false)\"> " +
      "Em 7 parcelas iguais (apenas para assinatura de 12 e 24 volumes)<br>" +
      "<input type=\"radio\" name=\"CondicaoPagamento\" value=\"Em 8 parcelas iguais\" " +
      "onClick=\"formValuePaymentCondition = 'Em 8 parcelas iguais'; CalcOrderPrice(false)\"> " +
      "Em 8 parcelas iguais (apenas para assinatura de 12 e 24 volumes)<br>");
   }
   document.writeln ("<br>");

   DisplayTotalValueFields (false);
   // Insercao - 06/10/2005
   if (gEdition537)
   {
      document.writeln ("<em>" +
         "(Atenção: o valor calculado acima é apenas uma estimativa para referência do futuro assinante. O valor efetivo da assinatura será determinado na época de pagamento, mas a editora pretende que seja proporcional ao valor da assinatura da edição normal da série).</em><br><br>");
   }
   // Fim Insercao - 06/10/2005

   document.writeln ("<span class=\"emphasis\">" +
      "Escolha a forma de pagamento da assinatura:</span>");
   DisplayPaymentOptions();
   DisplayCreditCardDataFields();
   DisplaySubmitButtons();

   document.writeln ("</form>\n<p>&nbsp;</p>");

   return proceed;
}