ifs asp

[Jessi_1412 0]

Bom dia, Galera

 

Novamente estou com dificuldades com asp :(. Seguinte tenho 3 'regras'

 

Verde = Finalizado

Vermelho = em atraso

amarelo = pendente

 

Preciso criar uma logica para que

 

Quando Data for diferente de null entra no if;

Ai compara se data de saida esta preenchida status verde

se a data prevista de entrega esta no prazo status amarelo

se a data prevista de entrega passou do prazo vermelho,

 

Porem nao tenho ideia de como fazer isso. :(

[Gilberto Jr 26]

Acho que é assim vai funcionar.

<%
if data_saida <> null then
response.Write("verde")
elseif data_entrega >= Date then
response.Write("amarelo")
elseif data_entrega < Date then
response.Write("vermelho")
end if
%>

Att;

[Gabriel Jansen 0]

Bom não testei o código mas a lógica talvez seja essa

IF NOT isNull(DATA) THEN  ' Também da para usar IF data <> "" THEN


   Response.Write "VERDE"

   IF data_prevista < Date() THEN ' Verifica se a data prevista esta menor que a data está no prazo


   Response.Write "Amarelo"

   ELSEIF data_prevista>Date() THEN ' Verifica se a data passou do prazo 

   Response.Write "Vermelho"   

   Else  

   Response.Write "Não satisfez a condição Erro...."

   END IF


Else ' Caso a data seja nula 


   Response.Write "Data encontra-se vazia"


END IF

[Ronaldo Bueno 23]

Passei pela mesma situação, esta com if meu trabalho, mas resolvi fazer o seguinte:

 

Criei um campo etapa e toda ação alterava 1, 2 e 3

 

Fica muito mais funcional.

[xanburzum 169]

pode-se usar o SELECT CASE também.

[Jessi_1412 0]

Bom dia,

 

Não deu certo pq tenho algumas datas vazias,

 

Alguem tem ideia do que posso tentar fazer?

 

 

Desde já grata.

[wilnet 92]

O Post #3 do Gabriel faz essa verificação de data vazia, além das outras funções solicitadas.

[Jessi_1412 0]

Ola wilNet usei o dele, mas nao deu certo. Pois tenho datasaida no banco vazia. Logo como vou comprar se a dataprevista > datasaida. A datasaida só pode ser preenchida se o trabalho já vou concluido.

 

Desculpa não saber explicar bem, pois nao sei mto programaçao.

While Not RS.EOF
If RS("id") <> "" Then
 Response.Write "<tbody> "
 Response.Write "<tr> "
 Response.Write "<td>"
 Response.Write (RS("id"))
 Response.Write "</td> "
 Response.Write "<td>Teste 1</td>"
 Response.Write "<td>"
						
If Not isNull(datasaida) Then 
  Response.Write "<div class='circulo_verde'><img src='imagens/bolaverde.png'></div>  "
 Response.Write "<div class='descricao'>Passa o mouse e aparece o que conteudo da div, porém essa div</div>"
  If dataprevista <= datasaida () Then 
   Response.Write "<div class='circulo_amarelo'><img src='imagens/bolaamarela.png'></div>  "
    Response.Write "<div class='descricao'>Passa o mouse e aparece o que conteudo da div, porém essa div</div>"
   Elseif dataprevista > datasaida() Then 
     Response.Write "<div class='circulo_vermelho'><img src='imagens/bolavermelho.png'></div>"
    Response.Write "<div class='descricao'>Passa o mouse e aparece o que conteudo da div, porém essa div precisa ter o tamanho da tela do usuario</div>"
 Else  
 Response.Write "Não satisfez ND Erro...."
END IF
 Else ' Caso a data seja nula '
 Response.Write "Data encontra-se vazia"
 Response.Write "</td>"
 Response.Write "<tr> "
 Response.Write "</tbody> "
 End If	
 Else
 Response.Write "Nada encontrado"
 Response.Write "<br>"
 End If
 RS.MoveNext
 Wend
 rs.close
 set rs=nothing
 conecta.close
 set conecta = nothing

[wilnet 92]

Tente trocar isso:

If Not isNull(datasaida) Then

Por:

If datasaida <> "" THEN

ou

If SuaVariavel ("datasaida") <> "" THEN

E veja se resolve quando tiver data vazia.

[xanburzum 169]

qual erro esta sendo gerado ?

[Gabriel Jansen 0]

Pelo o que eu vi no seu código:

 If dataprevista <= datasaida () Then 

Tente assim:

 If dataprevista <= datasaida Then

Aquele código que postei esta com um pequeno erro no IF, sou iniciante em asp... Retire "()" para ver o que vai dar, peço desculpas pela falta de atenção, o " Date() " Puxa a data atual, ela não é uma variável como datasaida

 
dataprevista = "02/02/2000"

datasaida = "04/02/2000"


If dataprevista <= datasaida () Then  ' Retira () só para testar mesmo

[Jessi_1412 0]

Boa Tarde. Obrigado a todos deu certo :D

 

Usei um pedaço do codigo de todos kkk.

While Not RS.EOF
	If RS("id") <> "" Then

		Response.Write "<tbody> "
		Response.Write "<tr> "
		Response.Write "<td>"
		Response.Write (RS("id"))
		Response.Write "</td> "
		Response.Write "<td>Teste 1</td>"
						
	If RS("datasaida") <> "" Then 
		'If  isNull(datasaida) Then  'se nao for null a data entra a bolinha verde'
		Response.Write "<td>"
		Response.Write "<div class='circulo_verde'><img src='imagens/bolaverde.png'></div>  "
		Response.Write "<div class='descricao'>Passa o mouse e aparece o que conteudo da div, porém essa div</div>"
		Response.Write "</td>"
						
							
		'elseif cdate(dataprevista) <= date() then	
							Elseif RS("dataprevista") >= Date Then  ' Verifica se a data prevista esta menor que a data de saida
								Response.Write "<td>"
								Response.Write "<div class='circulo_amarelo'><img src='imagens/bolaamarela.png'></div>  "
								Response.Write "<div class='descricao'>Passa o mouse e aparece o que conteudo da div, porém essa div</div>"
								Response.Write "</td>"
								
							'elseif cdate(dataprevista) > date() then
							Elseif RS("dataprevista") < DATE  Then ' Verifica se a data passou do prazo 
							Response.Write "<td>"
							Response.Write "<div class='circulo_vermelho'><img src='imagens/bolavermelho.png'></div>"
							Response.Write "<div class='descricao'>Passa o mouse e aparece o que conteudo da div, porém essa div precisa ter o tamanho da tela do usuario</div>"
							Response.Write "</td>"
							
							Else  
							Response.Write "<td>"
							Response.Write "<p>Data de previsao vazia</p>"
							Response.Write "</td>"
							END IF
						Response.Write "</tr> "
						Response.Write "</tbody> "
						
											
					Else

						Response.Write "Nada encontrado"
						Response.Write "<br>"

				End If
				RS.MoveNext
				
				Wend

					
					rs.close
					set rs=nothing
					conecta.close
					set conecta = nothing

[Gilberto Jr 26]

Por nada moça...

Precisando estaremos sempre as ordens pra tentar ajudar.

 

Att;