Problemão

[shumi 0]

Tudo bem! Sem problemas!É que achei que você estava esperando uma atitude minha...Quando você puder to aqui! Eu não sei sai do lugar, mas to preparando todo design...Valeu!!!!

[Salgado 4]

Vamos lá. As novas formas de pagamento necessitam de dados que se encontram naquele Form?

[shumi 0]

No form que fiz sim...Hoje a Loja tem poucas opções de pagamentos ela só possui depósito bancário e boleto e essas opções como você sabe não precisa de nenhuma informação adicional, mas o dono da loja quer inserir essas duas novas formas e ele precisa de informações adicionais, ai então eu fiz um form separado para elas e no form que fiz separado ele roda direitinho... Só que não sei ligar o meu form no restante da loja...Obrigado.

[Salgado 4]

Vamos lá então, vamos fazer como eu estava indicando anteriormente.

 

1º Cadastre as novas formas de pagamento no BD e não coloque seu INCLUDE na tela do FORM.

Mostre também como está o seu arquivo.

[Salgado 4]

E ai? Já fez?

[shumi 0]

Salgado,

 

Segui suas instruções e segue o script(finaliza.asp)

 

<!--#include file="Includes/Config.asp"--><!--#include file="Includes/ADOVBS.inc" --><link href="Includes/Styles.css" rel="stylesheet" type="text/css"><%Session("Finaliza") = "Sim"%><!--#include file="Includes/Travar3.asp" --><%Dim VarClienteDim VarActDim EstadoDim ClientesVarAct = Request.QueryString("Act")VarCliente = Session.SessionIDSession("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING")If Session("Regiao") = "" Then	Response.Redirect "Cesta.asp?Mensagem=Erro"End IfCall AbreBancoDim VarRegiaoSet Clientes = Banco.Execute("Select * From Clientes Where Cod="& Session("Cliente"))Nome = Clientes("Nome")Endereco = Clientes("Endereco")Numero = Clientes("Numero")Complemento = Clientes("Complemento")Cep = Clientes("Cep")Bairro = Clientes("Bairro")Cidade = Clientes("Cidade")Estado = Clientes("Estado")Dim PedidosSet Pedidos = Banco.Execute("Select * From Pedidos Where Secao = '"& VarCliente &"'")Dim SomaTotalSet SomaTotal = Banco.Execute("Select SUM(PrecoTotal) AS SomaTotal FROM Pedidos WHERE Secao = '"& VarCliente &"'")%><!--#include file="Includes/Form.asp"--><table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>	<td><!--#include file="Includes/BarraCima.asp"--></td>  </tr>  <tr>	<td>		<table width="100%"  border="0" cellspacing="0" cellpadding="0">			  <tr>				<td width="176" height="100%" valign="top"><!--#include file="Includes/BarraEsq.asp"--></td>				<td width="0" valign="top" bgcolor="#FFFFFF">					<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">						  <tr>							<td height="9%" align="center"><img src="Imagens/SpacerCima.gif" width="1" height="9"></td>						</tr>		 				<tr>		 				  <td height="20" align="center" bgcolor="<%=FundoTitulo%>"><div align="left">  <span class="TextTahoma11AzulBold">Finalizar compras </span></div></td>	   				  </tr>		 				<tr>							<td height="9%" align="center"> </td>						  </tr>						<%If SomaTotal("SomaTotal") < Minimo Then%>		 				<tr>		 				  <td height="5%" align="center" class="TextTahoma11AzulBold">Você deve comprar no mínimo R$ <%=Minimo%><br>	   					  <br>	   					  <br></td>	   				  </tr>		 				<tr>		 				  <td height="5%" align="center" class="TextTahoma11AzulBold"><%=Voltar%></td>	   				  </tr>					  <%Else%>		 				<tr>		 				  <td height="10%" align="center" class="TextTahoma11AzulBold">Informe o local de entrega do produto</td>	   				  </tr>						  <tr>							<td align="center" valign="middle">						  <%						  						  If VarAct = "" Then						  						  With Response						  							.Write "<br><table>"							.Write "<form action="& Chr(34) &"Finaliza.asp?Act=Cadastrar"& Chr(34) &" method="& Chr(34) &"post"& Chr(34) &" name="& Chr(34) &"Cadastro"& Chr(34) &">"							.Write LinhaHorizontal							.Write FCampos(1)							.Write LinhaHorizontal							.Write FCampos(4)							.Write LinhaHorizontal							.Write FCampos(5)							.Write LinhaHorizontal							.Write FCampos(16)							.Write LinhaHorizontal							.Write FCampos(9)							.Write LinhaHorizontal							.Write FCampos(6)							.Write LinhaHorizontal							.Write FCampos(7)							.Write LinhaHorizontal							.Write "<tr><td><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">Estado:* </span></td><td><select name=Estado class="& Chr(34) &"FormEstado"& Chr(34) &"><option value="& Estado &">"& Estado &"</option><option value=AC>AC</option><option value=AL>AL</option><option value=AP>AP</option><option value=AM>AM</option><option value=BA>BA</option><option value=CE>CE</option><option value=DF>DF</option><option value=ES>ES</option><option value=GO>GO</option><option value=MA>MA</option><option value=MS>MS</option><option value=MT>MT</option><option value=MG>MG</option><option value=PA>PA</option><option value=PB>PB</option><option value=PE>PE</option><option value=PI>PI</option><option value=PR>PR</option><option value=RJ>RJ</option><option value=RN>RN</option><option value=RS>RS</option><option value=RO>RO</option><option value=RR>RR</option><option value=SC>SC</option><option value=SE>SE</option><option value=SP>SP</option><option value=TO>TO</option></select> <span class="& Chr(34) &"TextTahoma11CinzaClaro"& Chr(34) &"> Ex: SP)</span></td></tr>"							.Write LinhaHorizontal						End With												%>														<tr><td></table>								<table>									<%																		Dim objPagamentos									Set objPagamentos = Banco.Execute("SELECT * FROM Pagamentos WHERE Status = True ORDER BY Forma ASC")																		While not objPagamentos.EOF										Response.Write "<tr><td><input type=radio name=FormaPagamento value="& objPagamentos("Cod") &"></td><td><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">"& objPagamentos("Forma") &"</td></tr>"									objPagamentos.MoveNext : Wend																		%>									</table>									<table><tr><td> <p>	  <input type="submit" name="Submit" value="Enviar">	</p></td></tr></table>																								</td></tr>													<%												With Response							.Write LinhaHorizontal														.Write "</table>"						End With						  						  Else						  							  Dim VarNome							  Dim VarEndereco							  Dim VarNumero							  Dim VarComplemento							  Dim VarCep							  Dim VarBairro							  Dim VarCidade							  Dim VarEstado							  Dim AltBd							  Dim VarPagamento																						  VarPagamento = Request.Form("FormaPagamento")							  VarNome = Trim(Replace(Request.Form("Nome"), "'", "''"))							  VarEndereco = Trim(Replace(Request.Form("Endereco"), "'", "''"))							  VarNumero = Trim(Replace(Request.Form("Numero"), "'", "''"))							  VarComplemento = Trim(Replace(Request.Form("Complemento"), "'", "''"))							  VarCep = Trim(Replace(Request.Form("Cep"), "'", ""))							  VarBairro = Trim(Replace(Request.Form("Bairro"), "'", "''"))							  VarCidade = Trim(Replace(Request.Form("Cidade"), "'", "''"))							  VarEstado = Trim(Replace(Request.Form("Estado"), "'", "''"))							  								  If VarComplemento = "" Then								  VarComplemento = ""								  Else								  VarComplemento = VarComplemento&", "								  End If																								  If VarNome = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo nome!</span><br /><br />" & Voltar								  ElseIf VarEndereco = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo endereço!</span><br /><br />" & Voltar								  ElseIf VarNumero = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo numero!</span><br /><br />" & Voltar								  ElseIf VarCep = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo CEP!</span><br /><br />" & Voltar								  ElseIf VarBairro = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo bairro!</span><br /><br />" & Voltar								  ElseIf VarCidade = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Preencha o campo cidade!</span><br /><br />" & Voltar								  ElseIf VarEstado = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Selecione o estado!</span><br /><br />" & Voltar								  ElseIf VarPagamento = "" Then									  Response.Write "<br><span class="& Chr(34) &"TextTahoma11VermelhoBold"& Chr(34) &">Selecione a forma de pagamento!</span><br /><br />" & Voltar								  Else																									  Set AltBd = Server.CreateObject("ADODB.Recordset")									  AltBd.CursorLocation = adUseServer									  AltBd.CursorType = adOpenForwardOnly									  AltBd.LockType = adLockOptimistic									  AltBd.Open "SELECT * FROM Pedidos WHERE Secao = '"& VarCliente &"'", Banco, , , adCmdText									  									  Do While Not AltBd.Eof									  										  AltBd("CodCliente") = Session("Cliente")										  AltBd("Entrega") = VarNome &", "& VarEndereco &", "& VarNumero &", "& VarComplemento &" CEP: "& VarCep &", "& VarBairro &", "& VarCidade &", "& VarEstado										  AltBd("Pagamento") = VarPagamento										  AltBd("Finalizado") = True										  									  AltBd.Update									  									  AltBd.Movenext									  									  Loop									  									  AltBd.Close								  Set AltBd = Nothing								  								Response.Redirect "Recibo.asp?Pagamento="& VarPagamento																								End If						  						  End If						  						  %>						  </td>	   				  </tr>					  <%End If%>   			  </table>			  </td>				<td width="148" height="100%" valign="top"></td>			  </tr>   	  </table>	</td>  </tr>  <tr>	<td><!--#include file="Includes/Rodape.asp"--></td>  </tr></table><%Call FechaBanco%>

Desculpa a demora, é que fui comer alguma coisa, que hoje ta f***... fui assaltado logo de manhã, um motoqueiro enfiou a arma na minha cabeça e robou meu mp3 que tinha acabado de comprar. http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

 

Abraços

[Salgado 4]

Putz véio, sinto muito mesmo.

 

Mas vamos continuar que o mundo não para e não é um MP3Player que vai acabar com seu dia.

 

 

Ele já está listando as novas formas de pagamento?

Mostre seu arquivo Carne.asp.

[shumi 0]

Esta listando já as novas formas sim....mas eu não tenho o arquivo carne.asp eu teria que ter criado esse arquivo???abs

[Salgado 4]

É que eu vi no 1º post um include seu com esse nome, por isso pedi. Mas deixa.

Poste o arquivo que você fez com as novas formas de pagamento.

[shumi 0]

É que como voltei o backup aquele arquivo eu não tinha salvo, mas fiz um outro agora...

 

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("BDados\DB.mdb")Conexcao.openDim Conexcaoforma_pag = Request.Form("forma_pag")nun = Request.Form("nun")cod = Request.Form("cod")nome_q_aparece = Request.Form("nome_q_aparece")dia_validade = Request.Form("dia_validade")mes_validade = Request.Form("mes_validade")ano_validade = Request.Form("ano_validade")Response.Expires = 0	sSQL = "INSERT INTO novas_pag(forma_pag,nun,cod,nome_q_aparece,dia_validade,mes_validade,ano_validade) VALUES ('"& forma_pag &"','"& nun &"','"& cod &"','"& nome_q_aparece &"','"& dia_validade &"','"& mes_validade &"','"& ano_validade &"')"	Conexcao.Execute sSQL,intRetornoset RS=nothingConexcao.closeSet Conexcao=nothing			response.redirect "default.asp"%>

Obrigado!!!!

[Salgado 4]

De onde vem essa parte:

forma_pag = Request.Form("forma_pag")
nun = Request.Form("nun")
cod = Request.Form("cod")
nome_q_aparece = Request.Form("nome_q_aparece")
dia_validade = Request.Form("dia_validade")
mes_validade = Request.Form("mes_validade")
ano_validade = Request.Form("ano_validade")

????

[shumi 0]

De um formulario normal que fiz pra testar se as novas formas de pagamento funcionam individuais...

 

<form action="valida.asp" method="post" name="cad">   	<table width="95%" border="0">			  	  <tr> 		<td width="12%"><div align="center"><img src="/Imagens/carne.gif" width="42" height="26"></div></td>		<td width="11%"><div align="center"><img src="/Imagens/cart_loja.gif" width="42" height="26"></div></td>			  </tr>	  <tr> 		<td><div align="center"> 			<input class="radio" type="radio" name="forma_pag" value="carne">		  </div></td>		<td><div align="center"> 			<input class="radio" type="radio" name="forma_pag" value="cartao_loja">		  </div></td>	   	  </tr>	  <tr> 		<td><div align="center"><span class="TextTahoma11Cinza">Carne</span></div></td>		<td><div align="center"><span class="TextTahoma11Cinza">Cartão da Loja</span></div></td>			 	  </tr>	</table>	<table width="95%" border="0" cellspacing="0" cellpadding="0">			<tr> 			  		<td height="203"> <div align="center">			<table border="0" width="61%">			  <tr> 				<td width="45%" height="187" align="left"> 				  <table cellSpacing="0" cellPadding="0" border="0" width="108%">					<tr> 					  <td width="49%"><b><span class="TextTahoma11Cinza">Número</span></b></td>					  <td width="51%"><b><span class="TextTahoma11Cinza">Código</span></b></td>					</tr>					<tr> 					  <td width="49%" height="41" class="text"> <input name="nun" id="nun" size="30" maxLength="20"> 					  </td>					  <td width="51%" class="text" id="CVC_TD"><p><span class="TextTahoma11Cinza"> 						   - </span> 						  <input name="cod" type="text" id="cod" size="5" maxlength="4">						</p></td>					</tr>					<tr> 					  <td colspan="2" class="text"> <span class="TextTahoma11Cinza"> 					 </span><br> <input maxlength="80" size="40" name="nome_q_aparece"> 						<br> <span class="TextTahoma11Cinza"> </td>					</tr>					<tr> 					  <td height="22" colspan="2" valign="top" class="text"><span class="TextTahoma11Cinza">Nome 						Impresso do beneficio </span></td>					</tr>				  </table>				  <b><br>				  <span class="TextTahoma11Cinza">Data de Validade<br>				  <input name="dia_validade" id="dia_validade" size="3" maxlength="2">				  				  /				  <input maxlength="2" size="3" name="mes_validade">				  <span class="TextTahoma11Cinza">/ 20 </span> 				  <input maxlength="2" size="3" name="ano_validade">				  <span class="TextTahoma11Cinza">  (Ex. mm / aa) </span> 				  </span></b>			</table>					  </div></table> 	<p>			  	  <input type="submit" name="Submit" value="Enviar">	</p>  </form>

Abraços

[Salgado 4]

Saquei.

 

Essa tela será uma complementação dos dados da compra, correto?

 

Então no Recibo.ASP você vai acrescentar uns Ifs, naquela sequencia que exibe o boleto.

[shumi 0]

Saquei.Essa tela será uma complementação dos dados da compra, correto?

Isso!!!!Essa tela seria os dados adionais que as novas formas de pagamento precisa

Então no Recibo.ASP você vai acrescentar uns Ifs, naquela sequencia que exibe o boleto.

como faço esses ifzinhos???VALEU!!!!!!!!!!!!

[Salgado 4]

Aqui:

						  <%If VarPagamento = "1" Then%>
					  <!--#include file="Pagamento/Deposito.asp" -->
					  <%ElseIf VarPagamento = "2" Then%>
					  <!--#include file="Pagamento/BoletoItau.asp" -->
					  <%ElseIf VarPagamento = "3" Then%>
					  <!--#include file="Pagamento/BoletoBradesco.asp" -->
					  <%ElseIf VarPagamento = "4" Then%>
					  <!--#include file="Pagamento/BoletoCaixa.asp" -->
					  <%ElseIf VarPagamento = "5" Then%>
					  <!--#include file="Pagamento/BoletoBB.asp" -->
					  <%ElseIf VarPagamento = "6" Then%>
					  <!--#include file="Pagamento/BoletoReal.asp" -->
					  <%ElseIf VarPagamento = "?" Then%>
					  <!--#include file="Seu_Novo_Form.asp" -->
					  <%ElseIf VarPagamento = "?" Then%>
					  <!--#include file="Seu_Novo_Form.asp" -->
					  <%End If%>

Onde está a "?" você coloca o ID de cada forma nova de pagamento e onde está Seu_Novo_Form.asp é para apontar para o seu arquivo que tem o form adcional.

[shumi 0]

Salgado,Quando escolho uma das novas formas de pagamento o sistema indica que a compra foi efetuada com sucesso, envia um e-mail para o administrador informando que uma nova compra foi efetuada, mas não escreve na minha nova tabela do banco...ai eu abilitei no DB que não poderia conter campos com valor nulo ele dá o erro que o campo não pode ser de sequencia nulo...o que poderia ser???abraços

[Salgado 4]

Uhm, entendi, volte o BD para como estava, sem essa alteração.

 

Vamos ter que alterar o arquivo dele para inserir o seu form nele.

 

Altere seu form para receber em campos ocultos as variáveis que ele recupera do FORM.

 

Nesse trecho:

Else

							  Set AltBd = Server.CreateObject("ADODB.Recordset")
								  AltBd.CursorLocation = adUseServer
								  AltBd.CursorType = adOpenForwardOnly
								  AltBd.LockType = adLockOptimistic
								  AltBd.Open "SELECT * FROM Pedidos WHERE Secao = '"& VarCliente &"'", Banco, , , adCmdText

o ELSE vai virar um ELSEIF e você vai INCLUIR o seu form nele.

[shumi 0]

Seria assim???????

 

 

ElseIf <!--#include file="novas_formas.asp" -->else																									  Set AltBd = Server.CreateObject("ADODB.Recordset")									  AltBd.CursorLocation = adUseServer									  AltBd.CursorType = adOpenForwardOnly									  AltBd.LockType = adLockOptimistic									  AltBd.Open "SELECT * FROM Pedidos WHERE Secao = '"& VarCliente &"'", Banco, , , adCmdText

 

 

abraços

[Salgado 4]

Quase: ElseIf VarPagamento = "Aqui_o_ID_das_novas_formas" OR VarPagamento = "Aqui_o_ID_das_novas_formas" Then

[shumi 0]

Salgado,Eu fiz assim:no Finaliza.asp

<%																		Dim objPagamentos									Set objPagamentos = Banco.Execute("SELECT * FROM Pagamentos WHERE Status = True ORDER BY Forma ASC")																		While not objPagamentos.EOF										Response.Write "<tr><td><input type=radio name=FormaPagamento value="& objPagamentos("Cod") &"></td><td><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">"& objPagamentos("Forma") &"</td></tr>"									objPagamentos.MoveNext : Wend																		%></table><table>									<tr><td><!--#include file="novas_formas.asp" --></td></tr>									</table>

e mais a baixo ficou assim

ElseIf VarPagamento = "6" OR VarPagamento = "7" Then									%>								<!--#include file="valida.asp" -->									<%								else																   								  Set AltBd = Server.CreateObject("ADODB.Recordset")									  AltBd.CursorLocation = adUseServer									  AltBd.CursorType = adOpenForwardOnly									  AltBd.LockType = adLockOptimistic									  AltBd.Open "SELECT * FROM Pedidos WHERE Secao = '"& VarCliente &"'", Banco, , , adCmdText

ai no recibo.asp

<!--#include file="Pagamento/Deposito.asp" -->						  <%ElseIf VarPagamento = "2" Then%>						  <!--#include file="Pagamento/BoletoItau.asp" -->						  <%ElseIf VarPagamento = "3" Then%>						  <!--#include file="Pagamento/BoletoBradesco.asp" -->						  <%ElseIf VarPagamento = "4" Then%>						  <!--#include file="Pagamento/BoletoCaixa.asp" -->						  <%ElseIf VarPagamento = "5" Then%>						  <!--#include file="Pagamento/BoletoBB.asp" -->						  <%ElseIf VarPagamento = "6" Then%>						  <!--#include file="valida.asp" -->						  <%ElseIf VarPagamento = "7" Then%>							<!--#include file="valida.asp" -->

eu tirei os 2 ultimos ficou ate o boletoBB.aspe no banco eu deixei as novas formas.e deu o erro:

Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][Driver ODBC para Microsoft Access] O campo 'novas_formas.forma_pag' não pode ser uma seqüência de caracteres de comprimento nulo. /teste/valida.asp, line 21

o que fiz de errado meu caro!!Abraços e obrigado