If não funciona

Discussão em 'Progress 4GL' iniciado por antenor, Março 25, 2014.

  1. antenor

    antenor Membro Participativo

    Estou tentando fazer o seguinte if, mas não está sendo respeitado. Se alguém puder me ajudar (Trecho em negrito). Ele sempre faz o primeiro. obrigado
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
    <title></title>
    <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
    <meta name="ProgId" content="FrontPage.Editor.Document">
    </head>
    <frameset cols="220,*" framespacing="0" border="0" frameborder="0">
    <script language="SpeedScript">
    def var flag as int.
    assign flag = 2.
    if flag = 1 then
    </script>
    <frame name="menu" src="http://boitata/scripts/cgiip.exe/WService=sisconum/prg/sisconum_menu.htm" target="programa" scrolling="auto" marginwidth="0" marginheight="16"> <frame name="programa" src="branco.htm" target="_self" scrolling="auto">
    </frameset>
    <script language="SpeedScript">
    if flag = 2 then
    </script>
    <frame name="menu" src="http://boitata/scripts/cgiip.exe/WService=sisconum1/prg/sisconum_menu.htm" target="programa" scrolling="auto" marginwidth="0" marginheight="16"> <frame name="programa" src="branco.htm" target="_self" scrolling="auto">
    </frameset>
    </html>
  2. Agnaldo

    Agnaldo Membro Ativo

    Precisa usar marcação de bloco "DO END."
    Algo assim:
    HTML:
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
    <title></title>
    <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
    <meta name="ProgId" content="FrontPage.Editor.Document">
    </head>
    <frameset cols="220,*" framespacing="0" border="0" frameborder="0">
    <script language="SpeedScript">
    def var flag as int.
    assign flag = 2.
    if flag = 1 then
    DO:
    </script>
    <frame name="menu" src="http://boitata/scripts/cgiip.exe/WService=sisconum/prg/sisconum_menu.htm" target="programa" scrolling="auto" marginwidth="0" marginheight="16"> <frame name="programa" src="branco.htm" target="_self" scrolling="auto">
    </frameset>
    <script language="SpeedScript">
    END.
    if flag = 2 then
    DO:
    </script>
    <frame name="menu" src="http://boitata/scripts/cgiip.exe/WService=sisconum1/prg/sisconum_menu.htm" target="programa" scrolling="auto" marginwidth="0" marginheight="16"> <frame name="programa" src="branco.htm" target="_self" scrolling="auto">
    </frameset>
    <script language="SpeedScript">
    END.
    </script>
    </html>
    
    Última edição: Março 27, 2014
  3. antenor

    antenor Membro Participativo

    Bom dia Aguinaldo, desculpe a demora. Não consigo entender, ele não respeita o if. Sempre seta no primeiro if.
  4. Agnaldo

    Agnaldo Membro Ativo

    Voce testou/entendeu a alteração que colei acima??
  5. antenor

    antenor Membro Participativo

    Sim, testei mas não funcionou.
  6. Agnaldo

    Agnaldo Membro Ativo

    Aqui tem uma versão mais limpa, que podes usar como exemplo.
    Verifique se o problema não esta na tua montagem do frameset, ou seja, o flag esta sendo testado de maneira correta, mas o teu frameset podr estar sendo desenhado errado.
    Código:
    <html>
       <head>
          <title>Teste</title>
       </head>
       <body bgcolor="#FFFFFF">
          <h1>teste</h1>
          <script language="SpeedScript">
             DEFINE VARIABLE flag AS INTEGER.
             ASSIGN flag = 1.
             IF flag = 1 
                THEN
                    DO:
          </script>
                       No then, flag vale <b>`flag`</b>
          <script language="SpeedScript">
                    END.
                ELSE
                    DO:
           </script>
                       No else, flag vale <b>`flag`</b>
           <script language="SpeedScript">
                    END.
           </script>
       </body>
    </html>
    

Compartilhe esta Página