<%
Dim tp,h2,h2e,lista,itens,grupos,grupo,grup,x
Dim oitem(),tds,tabela
Dim nome,empresa,telefone,ramal,departamento,celular,email
Dim servico,guarda_data,data_retirada,hora_retirada,data_entrega,hora_entrega,cep_retirada,cep_entrega
Dim endereco_retirada,numero_retirada,complemento_retirada,bairro_retirada,cidade_retirada,uf_retirada,referencia_retirada
Dim endereco_entrega,numero_entrega,complemento_entrega,bairro_entrega,cidade_entrega,uf_entrega,referencia_entrega
Dim desmontar_moveis,montar_moveis,embalagens,seguro
Dim volumes,peso_real,altura,comprimento,largura,material,valor_mercadoria
Dim observacoes,erro,resposta,submit
Dim assunto,dados,conteudo,corpo,subt,mm,ncampo,vncampo,subtitulo,quantidade,cubagem,cubagemtotal
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
nome = Limpa(Request.Form("nome"))
empresa = Limpa(Request.Form("empresa"))
telefone = Limpa(Request.Form("telefone"))
ramal = Limpa(Request.Form("ramal"))
departamento = Limpa(Request.Form("departamento"))
celular = Limpa(Request.Form("celular"))
email = Limpa(Request.Form("email"))
servico = Limpa(Request.Form("servico"))
data_retirada = Limpa(Request.Form("data_retirada"))
hora_retirada = Limpa(Request.Form("hora_retirada"))
data_entrega = Limpa(Request.Form("data_entrega"))
hora_entrega = Limpa(Request.Form("hora_entrega"))
cep_retirada = Limpa(Request.Form("cep_retirada"))
cep_entrega = Limpa(Request.Form("cep_entrega"))
endereco_retirada = Limpa(Request.Form("endereco_retirada"))
numero_retirada = Limpa(Request.Form("numero_retirada"))
complemento_retirada = Limpa(Request.Form("complemento_retirada"))
bairro_retirada = Limpa(Request.Form("bairro_retirada"))
cidade_retirada = Limpa(Request.Form("cidade_retirada"))
uf_retirada = Limpa(Request.Form("uf_retirada"))
referencia_retirada = Limpa(Request.Form("referencia_retirada"))
endereco_entrega = Limpa(Request.Form("endereco_entrega"))
numero_entrega = Limpa(Request.Form("numero_entrega"))
complemento_entrega = Limpa(Request.Form("complemento_entrega"))
bairro_entrega = Limpa(Request.Form("bairro_entrega"))
cidade_entrega = Limpa(Request.Form("cidade_entrega"))
uf_entrega = Limpa(Request.Form("uf_entrega"))
referencia_entrega = Limpa(Request.Form("referencia_entrega"))
desmontar_moveis = Limpa(Request.Form("desmontar_moveis"))
montar_moveis = Limpa(Request.Form("montar_moveis"))
embalagens = Limpa(Request.Form("embalagens"))
seguro = Limpa(Request.Form("seguro"))
observacoes = Limpa(Request.Form("observacoes"))
submit = Limpa(Request.Form("enviado"))
erro = 0
'Response.Write(corpo)
'Response.End()
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
if embalagens="" then embalagens="nao"
if montar_moveis="" then montar_moveis="nao"
if desmontar_moveis="" then desmontar_moveis="nao"
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
lista=Split(Replace(LeArquivo(Server.MapPath("inc/itens_orcamento.txt"),""),"|","*"),"------------------------------------------------------------")
Redim Preserve oitem(Ubound(lista))
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
if ValidaNome(nome,"",submit) <> ok then
erro=erro + 1
aviso=ValidaNome(nome,"",submit)
campo="nome"
elseif Condicional(ValidaSimples("",empresa,"sim",submit),empresa,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Empresa",empresa,"sim",submit)
campo="empresa"
elseif ValidaTelefone(telefone,1,submit) <> ok then
erro=erro + 1
aviso=ValidaTelefone(telefone,1,submit)
campo="telefone"
elseif Condicional(ValidaNumeral(ramal,"",submit),ramal,"",submit) <> ok then
erro=erro + 1
aviso=ValidaNumeral(ramal,"Ramal",submit)
campo="ramal"
elseif Condicional(ValidaTelefone(celular,2,submit),celular,"",submit) <> ok then
erro=erro + 1
aviso=ValidaTelefone(celular,2,submit)
campo="celular"
elseif Condicional(ValidaSimples("",departamento,"sim",submit),departamento,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Departamento",departamento,"sim",submit)
campo="departamento"
elseif ValidaEmail(email,"","",submit) <> ok then
erro=erro + 1
aviso=ValidaEmail(email,"","",submit)
campo="email"
elseif Condicional(ValidaData(data_retirada),data_retirada,"",submit) <> ok then
erro=erro + 1
aviso=ValidaData(data_retirada)
campo="data_retirada"
elseif Condicional(ValidaData(data_entrega),data_entrega,"",submit) <> ok then
erro=erro + 1
aviso=ValidaData(data_entrega)
campo="data_entrega"
elseif Condicional(ValidaData(hora_entrega),hora_entrega,"",submit) <> ok then
erro=erro + 1
aviso=ValidaData(hora_entrega)
campo="hora_entrega"
elseif Condicional(ValidaSimples("",servico,"",submit),servico,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Serviço",servico,"",submit)
campo="servico"
elseif Condicional(ValidaNumeral(Replace(cep_retirada,"-",""),"",submit),cep_retirada,"",submit) <> ok then
erro=erro + 1
aviso=ValidaNumeral(Replace(cep_retirada,"-",""),"CEP de Retirada",submit)
campo="cep_retirada"
elseif Condicional(ValidaSimples("",endereco_retirada,"sim",submit),endereco_retirada,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Endereço de Retirada",endereco_retirada,"sim",submit)
campo="endereco_retirada"
elseif Condicional(ValidaNumeral(numero_retirada,"",submit),numero_retirada,"",submit) <> ok then
erro=erro + 1
aviso=ValidaNumeral(numero_retirada,"Número de Retirada",submit)
campo="numero_retirada"
elseif Condicional(ValidaSimples("",cidade_retirada,"sim",submit),cidade_retirada,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Cidade de Retirada",cidade_retirada,"sim",submit)
campo="cidade_retirada"
elseif Condicional(ValidaSimples("",uf_retirada,"",submit),uf_retirada,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("UF de Retirada",uf_retirada,"",submit)
campo="uf_retirada"
elseif Condicional(ValidaSimples("",referencia_retirada,"sim",submit),referencia_retirada,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Referência de Retirada",referencia_retirada,"sim",submit)
campo="referencia_retirada"
elseif Condicional(ValidaNumeral(Replace(cep_entrega,"-",""),"",submit),cep_entrega,"",submit) <> ok then
erro=erro + 1
aviso=ValidaNumeral(Replace(cep_entrega,"-",""),"CEP de Entrega",submit)
campo="cep_entrega"
elseif Condicional(ValidaSimples("",endereco_entrega,"sim",submit),endereco_entrega,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Endereço de Entrega",endereco_entrega,"sim",submit)
campo="endereco_entrega"
elseif Condicional(ValidaNumeral(numero_entrega,"",submit),numero_entrega,"",submit) <> ok then
erro=erro + 1
aviso=ValidaNumeral(numero_entrega,"Número de Entrega",submit)
campo="numero_entrega"
elseif Condicional(ValidaSimples("",cidade_entrega,"sim",submit),cidade_entrega,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Cidade de Entrega",cidade_entrega,"sim",submit)
campo="cidade_entrega"
elseif Condicional(ValidaSimples("",uf_entrega,"",submit),uf_entrega,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("UF de Entrega",uf_entrega,"",submit)
campo="uf_entrega"
elseif Condicional(ValidaSimples("",referencia_entrega,"sim",submit),referencia_entrega,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Referência de Entrega",referencia_entrega,"sim",submit)
campo="referencia_entrega"
elseif ValidaSimples("",desmontar_moveis,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Desmontar Móveis",desmontar_moveis,"",submit)
campo="desmontar_moveis"
elseif ValidaSimples("",montar_moveis,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Montar Móveis",montar_moveis,"",submit)
campo="montar_moveis"
elseif ValidaSimples("",embalagens,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Embalagens",embalagens,"",submit)
campo="embalagens"
elseif Condicional(ValidaSimples("",seguro,"",submit),seguro,"",submit) <> ok then
erro=erro + 1
aviso=ValidaSimples("Valor Assegurado",seguro,"sim",submit)
campo="seguro"
elseif Condicional(ValidaTextarea(observacoes,"",5,1024,submit),observacoes,"",submit) <> ok then
erro=erro + 1
aviso=ValidaTextarea(observacoes,"Observaç\xF5es",5,1024,submit)
campo="observacoes"
end if
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
if IsDate(data_retirada)=True and IsDate(data_entrega)=True then
if DateValue(data_retirada) > DateValue(data_entrega) then
guarda_data=data_retirada
data_retirada=data_entrega
data_entrega=guarda_data
aviso="Como a data de retirada era maior que a data de entrega, elas foram invertidas."
if hora_retirada="" then
campo="hora_retirada"
else
campo="hora_entrega"
end if
end if
end if
'--------------------------------------------------------------------------------------------------------------
if erro=0 then
'--------------------------------------------------------------------------------------------------------------
dados = ""
if not nome="" then dados=dados & "|Nome:|"&nome
if not empresa="" then dados=dados & "|Empresa:|"&empresa
if not telefone="" then dados=dados & "|Telefone:|"&FormataTelefone(telefone,"","","")
if not ramal="" then dados=dados & "|Ramal:|"&ramal
if not celular="" then dados=dados & "|Celular:|"&FormataTelefone(celular,"","","")
if not departamento="" then dados=dados & "|Departamento:|"&departamento
if not email="" then dados=dados & "|Email:|"&email
if not data_retirada="" then dados=dados & "|Data de Retirada:|"&data_retirada
if not hora_retirada="" then dados=dados & "|Hora de Retirada:|"&hora_retirada
if not endereco_retirada="" then dados=dados & "|Endereço R.:|"&endereco_retirada&", "&numero_retirada&" "&complemento_retirada
if not bairro_retirada="" then dados=dados & "|Bairro R.:|"&bairro_retirada
if not cidade_retirada="" then dados=dados & "|Cidade R.:|"&cidade_retirada&"/"&uf_retirada
if not cep_retirada="" then dados=dados & "|CEP R.:|"&cep_retirada
if not referencia_retirada="" then dados=dados & "|Referncia R.:|"&referencia_retirada
if not data_entrega="" then dados=dados & "|Data de Entrega:|"&data_entrega
if not hora_entrega="" then dados=dados & "|Hora de Entrega:|"&hora_entrega
if not endereco_entrega="" then dados=dados & "|Endereço E.:|"&endereco_entrega&", "&numero_entrega&" "&complemento_entrega
if not bairro_entrega="" then dados=dados & "|Bairro E.:|"&bairro_entrega
if not cidade_entrega="" then dados=dados & "|Cidade E.:|"&cidade_entrega&"/"&uf_entrega
if not cep_entrega="" then dados=dados & "|CEP E.:|"&cep_entrega
if not referencia_entrega="" then dados=dados & "|Referncia E.:|"&referencia_entrega
if not desmontar_moveis="" then dados=dados & "|Desm. Móveis:|"&desmontar_moveis
if not montar_moveis="" then dados=dados & "|Mont. Móveis:|"&montar_moveis
if not embalagens="" then dados=dados & "|Embalagens:|"&embalagens
if not seguro="" then dados=dados & "|Valor Assegurado:|R$ "&seguro
if not observacoes="" then dados=dados & "|Observações:|"&Troca(observacoes,""," ")
if not dados="" then tabela=GeraTabela("","",2,3,3,Split(Replace(dados,"|","*")&"*","*"))
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
for x=1 to Ubound(lista)
mm=0
dados=""
for each grupos in Prepara(lista(x))
if InStr(grupos,"*")> 0 then
grup=Split(grupos,"*")
if not grup(0)="" then cubagem=Replace(grup(0),".",",")
grupo=grup(1)
else
grupo=grupos
end if
mm=mm+1
if mm=1 then subtitulo=grupo
ncampo=FormName(subtitulo)&"_"&FormName(grupo)
if mm=3 then
end if
quantidade=Request.Form(ncampo)
if IsNumeric(quantidade) then
cubagemtotal=cubagemtotal+(quantidade*cubagem)
if dados="" then
dados=Zero(quantidade,3)&"|"&quantidade*cubagem&"|"&Alternados(grupo)
else
dados=dados&"|"&Zero(quantidade,3)&"|"&quantidade*cubagem&"|"&Alternados(grupo)
end if
end if
next
if x=1 then tabela=tabela&"
Itens
"&Vbcrlf
tabela=tabela&GeraTabela("","",6,3,2,Split(Replace("|"&dados&"|"," "," "),"|"))
next
tabela=tabela&"
Cubagem Total: "&cubagemtotal&"m³
"
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
assunto="Orçamento"
'--------------------------------------------------------------------------------------------------------------
'PARA O ADMINISTRADOR
corpo=LeArquivo(Server.MapPath("inc/orcamento.html"),"")
corpo=Replace(corpo,"#saudacao","Olá "&nome_adm&", recentemente um visitante do site entrou em contato e aguarda brevemente uma resposta para este orçamento.")
corpo=Replace(corpo,"#titulo",assunto)
corpo=Replace(corpo,"#dados",conteudo)
corpo=Replace(corpo,"#tabela",tabela)
corpo=Replace(corpo,"#ass",assinatura_int)
corpo=Replace(corpo,"#email",email)
Call EnviarEmail(nome,email_adm,nome_adm,email_adm,assunto&" "&servico&" - "&nome&" - "&email,corpo,"",submit)
'--------------------------------------------------------------------------------------------------------------
'PARA O VISITANTE
corpo=LeArquivo(Server.MapPath("inc/orcamento.html"),"")
corpo=Replace(corpo,"#saudacao","Olá "&nome&", recentemente você esteve em nosso site e solicitou o orçamento abaixo.")
corpo=Replace(corpo,"#titulo",assunto)
corpo=Replace(corpo,"#dados",conteudo)
corpo=Replace(corpo,"#tabela",tabela)
corpo=Replace(corpo,"#ass",assinatura_adm)
corpo=Replace(corpo,"#email",email)
Call EnviarEmail(nome_adm,email_adm,nome,email,assunto&" "&servico&" - "&site,corpo,"",submit)
'Response.Write(corpo)
'Response.End()
'--------------------------------------------------------------------------------------------------------------
resposta="Muito obrigado "&nome&",seu orçamento foi enviado com sucesso! Verifique seu email com a confirmação desta solicitação e aguarde nosso contato em breve."
aviso=resposta
Response.AddHeader "refresh","10;URL="&estapagina&""
end if
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
%>
Formulário de Orçamento