dim entra_promocao
Sub tdMenuBarItemDacasa_onClick
  window.location = "http://www.dacasa.com.br"

End Sub

Sub Dacasa_OnClick
  Dim Result

  Set Result = window.open ("Main.asp", "Main")
  Result.focus

  Set Result = Nothing

End Sub


' Menu Principal

Sub Logon_onClick
  Dim varReturnValue , varJava, varReturnValue2
  Dim varTamanho, varCidade', varEstado

  varReturnValue = window.showModalDialog (_
   "Logon.asp", ,_
   "DialogHeight: 217px; DialogWidth: 448px; center: yes; help: no; resizable: no; status: no")

'varJava  = openchromeless("Logon.asp","CHROMELESSWIN",440,172,"fechar.bmp","fechar.bmp","fechar.bmp","a.gif","a.gif","Dacasa Financeira","Dacasa Finaceira","#63a576","#63a576","#63a576","#63a576")       
if varReturnValue <> "" then

	varReturnValue = Split(varReturnValue, ";")

  If  (varReturnValue(0) <> "") Then
    
     varTamanho = len("Você está operando pela loja " & varReturnValue(0) & ".") + 20    
     varJava = openITString("Seja bem vindo à Dacasa Net! <br>Você está operando pela loja " & varReturnValue(0) & ".",450,190)
      entra_promocao =varReturnValue(2) 
  
        'if (varReturnValue(2)  = "1") Then    
         ' call window.open("PopUpMain.htm","","resizable=no,status= no,height=370,width=650, center: yes")
          'window.open "PopUpMain.asp",,"scrollbars=no,location=no,menubar=no,resizable=no,height=500px,width=780px,top=50,left=50"
		'end if
	 'Somente para os lojistas que estão nas seguintes cidades:
	 'Vitória, Vila Velha, Cariacica, Serra, Viana, Guarapari e Fundão
	 varCidade = varReturnValue(1)
	 varEstado = varReturnValue(3)
	 varCd_Lojista = varReturnValue(4)
	 'frmmain.local.value =  varCidade
	' 	document.getElementById("imagemFundo").align="right"
	 '	document.getElementById("imagemFundo").style.visibility="hidden"
	   
call window.open("PopUpMain.htm","","resizable=no,status= no,height=280,width=400, center: yes")
'if(varCd_Lojista <> "283")then
'call window.open("PopUp_novo.htm","","resizable=no,status= no,height=298,width=368, center: yes")
'end if
	 varCidade =UCase(varCidade)
	 If ((varCidade = "VITÓRIA")or(varCidade = "VILA VELHA")or(varCidade = "CARIACICA")or(varCidade = "VIANA")or(varCidade = "SERRA")or(varCidade = "GUARAPARI")or(varCidade = "FUNDÃO")) Then
	
		varReturnValue2 = window.showModalDialog (_
			"Proposta_Cartao.asp", ,_
			"DialogHeight: 353px; DialogWidth: 433px; center: yes; help: no;  status: no")
	    
	 End If
'	if (varEstado = "BA") or (varEstado="RJ") then
'	    call window.open("PopUp_novo.htm","","resizable=no,status= no,height=300,width=700, center: yes")
'	end if
    
  End If

End If
End Sub

Sub Logoff_onClick
  Dim varReturnValue, varJava

  varReturnValue = window.showModalDialog (_
    "Logoff.asp", ,_
    "DialogHeight: 197px; DialogWidth: 447px; center: yes; help: no; resizable: no; status: no")

  If Not (varReturnValue = "") Then
     varJava = openITString("Obrigado por utilizar o nosso sistema!",450,190)

  End If
 

End Sub

Sub Consulta_Cliente_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 730) / 2
  PosY = (screen.height - 290) / 2

  Set Result = window.open ("Consulta_Cliente.asp", "Consulta_Cliente", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=720, height=260, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing

End Sub

Sub Simulacao_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 730) / 2
  PosY = (screen.height - 390) / 2

  Set Result = window.open ("Verifica_PA.asp?Pagina=2", "Simulacao", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=730, height=390, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Envia_Ficha_Cliente_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 720) / 2
  PosY = (screen.height - 390) / 2

  Set Result = window.open ("Envia_Ficha_Cliente.asp", "Envia_Ficha_Cliente", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=710, height=360, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Envia_Avalista_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("Envia_Avalista.asp", "Envia_Avalista", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=590, height=220, left=" & PosX & ", top=" & PosY)
  Result.focus
  
  Set Result = Nothing
  
End Sub

Sub Consulta_TA_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("Consulta_TA.asp", "Consulta_TA", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=590, height=220, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Historico_TA_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("ConsultaSituacao.asp", "ConsultaSituacao", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=600, height=250, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Cancela_TA_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 450) / 2
  PosY = (screen.height - 200) / 2

  Set Result = window.open ("Cancela_TA.asp", "Cancela_TA", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=440, height=170, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Atualiza_Ficha_Cliente_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("Atualiza_Ficha_Cliente.asp", "Atualiza_Ficha_Cliente", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=590, height=220, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Atualiza_Ficha_Avalista_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("Atualiza_Ficha_Avalista.asp", "Atualiza_Ficha_Avalista", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=590, height=220, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Cadastra_Usuario_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 510) / 2
  PosY = (screen.height - 200) / 2

  Set Result = window.open ("Cadastra_Usuario.asp", "Cadastra_Usuario", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=500, height=170, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Imprimir_Solicitacao_Usuario_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 680) / 2
  PosY = (screen.height - 300) / 2

  Set Result = window.open ("Imprime_Solicitacao_Usuario.asp", "Imprimir_Solicitacao_Usuario", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=670, height=270, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Alterar_Acesso_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 630) / 2
  PosY = (screen.height - 320) / 2

  Set Result = window.open ("Altera_Acesso.asp?Fl_Inicializa=1", "Altera_Acesso", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=620, height=290, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Imprime_TA_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("Imprime_TA.asp", "Imprime_TA", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=590, height=220, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Lista_Carnes_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("Lista_Carnes.asp", "Lista_Carnes", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=yes, copyhistory=no, width=590, height=220, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Imprime_Carne_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("Imprime_Carne.asp", "Imprime_Carne", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=yes, copyhistory=no, width=450, height=200, left=" & PosX & ", top=" & PosY & """")
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Imprime_Carne_2_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("Imprime_Carne_2.asp", "Imprime_Carne_2", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=590, height=220, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Imprime_Carne_Vencido_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("ImprimirCarneVencido.asp", "Imprime_Carne_Vencido", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=450, height=272, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Parceria_Premiada_onClick
  Dim PosX, PosY
  Dim Result
  
  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2
     
	   Set Result = window.open ("ParceriaPremiada.asp", "Parceria_Premiada", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=450, height=272, left=" & PosX & ", top=" & PosY)
	   Result.focus
   


  Set Result = Nothing
  
End Sub

Sub Alterar_Senha_Loja_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 450) / 2
  PosY = (screen.height - 200) / 2

  Set Result = window.open ("Altera_Senha_Loja.asp", "Altera_Senha_Loja", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=440, height=170, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Alterar_Senha_Usuario_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 450) / 2
  PosY = (screen.height - 200) / 2

  Set Result = window.open ("Altera_Senha_Usuario.asp", "Altera_Senha_Usuario", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=400, height=190, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Imprime_Tabela_Financiamento_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 650) / 2
  PosY = (screen.height - 300) / 2

  Set Result = window.open ("EmissaoTabelaFinanc.aspx","ImpressãoTabelaFinanc", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=no, copyhistory=no, width=750, height=490, left=" & PosX & ", top=" & PosY)
  
  Result.focus

  Set Result = Nothing
  
End Sub

' Sobre

Sub Sobre_onclick
dim varJava

  window.showModalDialog _
    "Sobre.asp", ,_
    "DialogHeight: 307px; DialogWidth: 387px; center: yes; help: no; resizable: no; status: no"

End Sub

Sub Gera_Bordero_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("Fechamento_Bordero.asp", "Gera_Bordero", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=600, height=320, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
  'PosX = (screen.width - 440) / 2
  'PosY = (screen.height - 171) / 2
  
  'window.showModalDialog _
  '"Valida_Senha.asp?url=1", "Gera_Bordero", "DialogHeight: 197px; DialogWidth: 447px; center: yes; help: no; resizable: no; status: no"
  'Set Result = window.open ("Valida_Senha.asp?url=1", "Gera_Bordero", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=440, height=171, left=" & PosX & ", top=" & PosY)
  'Result.focus

  'Set Result = Nothing
  
End Sub

Sub Calcular_Margem_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("Calcula_Margem.asp", "Calcula_Margem", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=374, height=172, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub

Sub Enviar_Comprovante_onClick
  Dim PosX, PosY
  Dim Result

  PosX = (screen.width - 600) / 2
  PosY = (screen.height - 250) / 2

  Set Result = window.open ("EnviarComprovanteCredito.aspx", "Enviar_Comprovante", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no, width=500, height=227, left=" & PosX & ", top=" & PosY)
  Result.focus

  Set Result = Nothing
  
End Sub
sub Ajuda_Envio_onClick
	 window.open("http://www.dacasa.com.br/ta.pps")
end sub
'Sub Informativo_CET_onClick
'  Dim PosX, PosY
'  Dim Result

'  PosX = (screen.width - 600) / 2
'  PosY = (screen.height - 250) / 2

'  Set Result = window.open ("InformeCet.htm", "Informativo_CET", "toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=no, copyhistory=no, width=690, height=800, left=" & PosX & ", top=" & PosY)
'  Result.focus

 ' Set Result = Nothing
  
'End Sub