Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Tenho uma tela que gera as parcelas das contas dos clientes e gostaria de enviar estas informações da tela para a o BD.. mas não sei como fazer isso alguem pode me dar uma força ae...
Estrutura da Tabela que via receber os dados é : ID , CLIENTE , VENCIMENTO, VALOR , PARCELAS
Codigo que gera as parcelas :
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nova pagina 3</title>
</head>
<body>
<table border="0" cellpadding="0" width="546" height="1" style="border-collapse: collapse" bordercolor="#111111" cellspacing="0">
<tr>
<td width="864" colspan="3" height="32" bgcolor="#EFEFEF"><br> </td>
</tr>
<tr>
<td width="864" colspan="3" height="33" bgcolor="#EFEFEF"><b>
<font face="Tahoma" style="font-size: 8pt">Nome do Associado</font></b><font face="Tahoma"><b><font style="font-size: 8pt"><br>Response.Write "<SELECT NAME='Cliente'>"
Response.Write "<OPTION VALUE='' SELECTED></OPTION> "If Not objRS.EOF Then
While Not objRS.EOF
Response.Write "<OPTION VALUE='" & objRS("nome") & "'"
If Request("cliente") = objRS("nome") Then Response.Write " selected"
Response.Write ">" & objRS("nome") & "</OPTION>"
objRS.MoveNext
WendResponse.Write "</SELECT>"
objCon.Close
Set objRS = Nothing
Set objCon = Nothing
%> </font></b></font>
</td>
</tr>
<tr>
<td width="1346" height="32" bgcolor="#EFEFEF">
<table width="303" height="38">
<tr>
<td width="82" align="center" height="9"><b>
<font face="Tahoma" style="font-size: 8pt">
Valor</font></b></td>
<td width="52" align="center" height="9"><b>
<font face="Tahoma" style="font-size: 8pt">
Parcelas</font></b></td>
<td align="left" colspan="2" height="9"><b>
<font face="Tahoma" style="font-size: 8pt">
1° Vencimento</font></b></td>
</tr>
<tr>
<td height="21"><font color="#FF0000">
<input type="text" name="valor" size="10" maxlength="10" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #A1C094"></font></td>
<td height="21">
<font color="#FF0000">
<input type="text" name="parcelas" size="5" maxlength="5" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #A1C094"></font></td>
<td width="63" height="21"><font color="#FF0000">
<input type="text" name="vencimento" size="10" maxlength="10" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #A1C094"></font></td>
<td width="86" align="right" height="21">
<font color="#FF0000">
<input style="padding:0; background:#A1C094; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="submit" name="calcular" value="Calcular"></font></td>
</tr>
</table>
<%
'==============================================================================
'Calcula as Parcelas
If Request.Form("calcular") <> "" then
'Pego os dados do Form
Parcelas = cInt(Request.Form("parcelas"))
ValorTotal = cSng(Request.Form("valor"))
DtVencimento = cDate(Request.Form("vencimento"))
'Declaro o array Dt e Calculo a parcela
Dim Dt() : Redim Dt(Parcelas)
ValorParcelas = (ValorTotal / Parcelas)
'Se for Decimal, calcula o resto da divisão
Resultado = FormatNumber(ValorParcelas) * Parcelas
Resto = FormatNumber(Resultado - ValorTotal,2)
%>
<table>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td align="center" bgcolor="#A1C094"><span style="font-weight: bold">
<font face="Tahoma" style="font-size: 8pt">
Parcela</font></span></td>
<td align="center" bgcolor="#A1C094"><span style="font-weight: bold">
<font face="Tahoma" style="font-size: 8pt">
Vencimentos</font></span></td>
<td align="center" colspan="2" bgcolor="#A1C094"><span style="font-weight: bold">
<font face="Tahoma" style="font-size: 8pt">
Valor das Parcelas</font></span></td>
</tr>
<font color="#FF0000">
<% i = 1
For n = 0 to Parcelas - 1
Dt(n) = DateAdd("m", n, DtVencimento)
Parc = ValorParcelas
If Resto > 0 then
If n = (Parcelas - 1) Then
Parc = FormatNumber(ValorParcelas - Resto)
End if
Elseif Resto < 0 Then
If n = 0 Then
Parc = FormatNumber(ValorParcelas + (Resto*-1))
End if
End if
%></font>
<tr>
<td align="center" bgcolor="#A1C094"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">
<%=n+1%></font></span></td>
<td align="center" bgcolor="#A1C094"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">
<%=FormatDateTime(Dt(n),0)%> </font></span></td>
<td colspan="2" align="center" bgcolor="#A1C094"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">
<%=FormatCurrency(Parc)%></font></span></td>
</tr>
<%
i = i + 1
Next
end if
%></font>
<tr>
<td align="center" bgcolor="#A1C094"><span style="font-weight: bold">
<font face="Tahoma" style="font-size: 8pt">
Total</font></span></td>
<td colspan="3" align="center" bgcolor="#A1C094"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF"><%=FormatCurrency(ValorTotal)%></font></span></td>
</tr>
</table></td>
</tr>
<tr>
<td width="1" height="1" bgcolor="#EFEFEF"></td>
<td width="321" height="1" bgcolor="#EFEFEF"></td>
<td width="24" height="1" bgcolor="#EFEFEF"></td>
<td width="526" height="1" bgcolor="#EFEFEF"></td>
</tr>
<tr>
<td width="1" valign="top" height="1" bgcolor="#EFEFEF"></td>
<td width="345" valign="top" height="1" colspan="2" bgcolor="#EFEFEF"></td>
<td width="526" valign="top" height="1" bgcolor="#EFEFEF"></td>
</tr>
<tr>
<td align="center" width="377" height="1" bgcolor="#EFEFEF"></td>
<td align="center" width="969" colspan="3" height="1" bgcolor="#EFEFEF"></td>
</tr>
<tr>
<td align="center" width="1346" valign="bottom" colspan="4" height="50" bgcolor="#EFEFEF">
<font face="Tahoma" style="font-size: 8pt"><br><br>
</font>
<font color="#FF0000" face="Tahoma" style="font-size: 8pt">
<input style="padding:0; background:#A1C094; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="submit" value="Cadastrar " name="Submit"></font><font face="Tahoma" style="font-size: 8pt"> </font><span style="font-size: 8pt">
<font face="Tahoma" color="#FF0000">
<input style="BACKGROUND: #A1C094; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="reset" value="Limpar" name="Reset"></font><font face="Tahoma">
<br> </font></span></td>
</tr>
</table>
</body>
</html>xanburzum
Mais menos assim ?
cont = 1
geral = Request.Form("parcelas")
for cont = 0 to geral step 1
' v1 = Request.Form("npar" & cont) 'aqui da parcela
data = Request.Form("vencimento" & cont) 'aqui a data da parcela
valor = Request.Form("valor" & cont) 'aqui o valor de cada parcela
if v1 <> "" then
Sql = "INSERT INTO vendas (vencimento, valor, parcela,cliente) "
Sql = Sql & "VALUES('" & vencimento & "', '" & valor & "', , '" & parcela& "','" & Request.Form("associado") & "')"
Conexao.Execute(Sql)
end ifOu nada a ver ?
:D
olha este exemplo, aqui tem um formulário, onde antes de inserir verifico se existe os dados, caso exista ele redireciona para o form novamente, senão faz o INSERT,
xanburzum,
Acho que n soube te explicar, no codigo que postei acima ele gera as parcelas , vecimento e valor de cada parcela de acordo com a quantidade .. isso que não consigo fazer exemplo :
Cliente: JOAO LOPES
VALOR PARCELA VENCIMENTO
R$ 40,00 1 01/07/2012
R$ 40,00 2 01/08/2012
R$ 40,00 3 01/09/2012
R$ 40,00 4 01/10/2012
Ou seja como gravar estes dados acima na minha tabela...
Abraços
é com o você colocou no post #3 e como mencionei no post#4, você deve usar o SQL INSERT, recuperando os dados e executando o INSERT, o meio exemplo ele esta mais detalhado, pois antes de inserir eu verifico se já existe os dados caso exista nao insere e se nao existir ele executa o INSERT
Ola amigos,
Coloquei o seguinte código..
<!--#include file="config2.asp"-->
<%
If request.form("enviado") = "sim" Then
Cadastrado =False
set Dicionario = CreateObject("scripting.dictionary")
i = 0
Vet = Dicionario.items
if Dicionario.Count<>0 then
Response.Write "<b><center><font face=verdana size=1>"
Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>"Else
cont = 1
geral = Request.Form("parcelas")
for cont = 0 to geral step 1
v1 = Request.Form("npar" & cont) 'aqui da parcela
data = Request.Form("vencimento" & cont) 'aqui a data da parcela
valor = Request.Form("valor" & cont) 'aqui o valor de cada parcela
if v1 <> "" then
Sql = "INSERT INTO vendas (vencimento, valor, npar,cliente) "
Sql = Sql & "VALUES('" & vencimento & "', '" & valor & "', , '" & npar & "','" & Request.Form("cliente") & "')"response.Write(sql)
Cadastrado = True
End If
If Cadastrado = False Then
Else
set rs=nothing
%>
Mas da o erro abaixo :
Microsoft VBScript compilation error '800a03fc'
Expected 'Next'
/sistema/mensalidades.asp, line 205
O que pode ser ?
O próprio erro diz o que falta, você tem um for, para um for precisa de um next
for
....
next
depois da sua string SQl coloque o Next
Ola ,
Coloquei o NEXT como no exemplo abaixo :
Sql = "INSERT INTO vendas (vencimento, valor, npar,cliente) "
Sql = Sql & "VALUES('" & vencimento & "', '" & valor & "', , '" & npar & "','" & Request.Form("cliente") & "')"
end if
[b] next[/b]response.Write(sql)
Cadastrado = True
End If
If Cadastrado = False Then
Else
set rs=nothing
E agora ele abre a pagina e só mostra os Botoes Enviar e Cancelar ... o que fiz de errado?
poste o código inteiro para analisarmos.
Segue o código completo ,
<!--#include file="config2.asp"-->
<%
If request.form("enviado") = "sim" Then
Cadastrado =False
set Dicionario = CreateObject("scripting.dictionary")
i = 0
Vet = Dicionario.items
if Dicionario.Count<>0 then
Response.Write "<b><center><font face=verdana size=1>"
Response.Write "O(s) seguintes dado(s) est�(�o) incorreto(s)<BR><br>"Else
cont = 1
geral = Request.Form("parcelas")
for cont = 0 to geral step 1
v1 = Request.Form("npar" & cont) 'aqui da parcela
data = Request.Form("vencimento" & cont) 'aqui a data da parcela
valor = Request.Form("valor" & cont) 'aqui o valor de cada parcela
if v1 <> "" then
Sql = "INSERT INTO vendas (vencimento, valor, npar,cliente) "
Sql = Sql & "VALUES('" & vencimento & "', '" & valor & "', , '" & npar & "','" & Request.Form("cliente") & "')"
end if
nextresponse.Write(sql)
Cadastrado = True
End If
If Cadastrado = False Then
Else
set rs=nothing
%>
<body bgcolor="#E4E4E4">
<center>
<TITLE>:. :. </TITLE>
<TABLE cellSpacing=0 cellPadding=0 width=774 align=center background="back_temp.gif" border=0 height="58">
<TR>
<TD align=middle valign="top" bgcolor="#EFEFEF" height="97" >
<div align="center">
<center>
<TABLE cellSpacing=0 cellPadding=0 width=207 border=0 height="1" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<TD align=middle bgcolor="#EFEFEF" height="39" valign="middle" bordercolor="#EFEFEF" width="3419" colspan="6">
<b><font face="Tahoma">Cadastro de Mensalidades</font></b></TD>
</tr>
<tr>
<td width="576" bgcolor="#EFEFEF" height="1" style="border-style:none; border-width:medium; " valign="top" bordercolor="#EFEFEF">
</td>
<td width="550" bgcolor="#EFEFEF" height="1" style="border-style:none; border-width:medium; " valign="top" bordercolor="#EFEFEF">
</td>
<td width="515" bgcolor="#EFEFEF" height="1" style="border-style:none; border-width:medium; " valign="top" bordercolor="#EFEFEF">
</td>
<td width="434" bgcolor="#EFEFEF" height="1" style="border-style:none; border-width:medium; " valign="top" bordercolor="#EFEFEF">
</td>
<td width="310" bgcolor="#EFEFEF" height="1" style="border-style:none; border-width:medium; " valign="top" bordercolor="#EFEFEF">
</td>
<td width="1034" bgcolor="#EFEFEF" height="1" style="border-style:none; border-width:medium; " valign="top" bordercolor="#EFEFEF">
<form method="POST" name="frmparcelas">
<font color="#FF0000">
<input type="hidden" name="enviado" value="sim">
<input type="hidden" name="opc" value=""> </font>
<div align="center">
<center>
<table border="0" cellpadding="0" width="546" height="47" style="border-collapse: collapse" bordercolor="#111111" cellspacing="0">
<tr>
<td width="848" colspan="3" height="32" bgcolor="#EFEFEF"><br> </td>
</tr>
<tr>
<td width="848" colspan="3" height="32" bgcolor="#EFEFEF">
<font color="#FF0000">
<input type="text" name="cliente" size="56" maxlength="10" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #A1C094"></font></td>
</tr>
<tr>
<td width="1242" height="32" bgcolor="#EFEFEF">
<table width="303" height="38">
<tr>
<td width="82" align="center" height="9"><b>
<font face="Tahoma" style="font-size: 8pt">
Valor</font></b></td>
<td width="52" align="center" height="9"><b>
<font face="Tahoma" style="font-size: 8pt">
Parcelas</font></b></td>
<td align="left" colspan="2" height="9"><b>
<font face="Tahoma" style="font-size: 8pt">
1� Vencimento</font></b></td>
</tr>
<tr>
<td height="21"><font color="#FF0000">
<input type="text" name="valor" size="10" maxlength="10" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #A1C094"></font></td>
<td height="21">
<font color="#FF0000">
<input type="text" name="parcelas" size="5" maxlength="5" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #A1C094"></font></td>
<td width="63" height="21"><font color="#FF0000">
<input type="text" name="vencimento" size="10" maxlength="10" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #A1C094"></font></td>
<td width="86" align="right" height="21">
<font color="#FF0000">
<input style="padding:0; background:#A1C094; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="submit" name="calcular" value="Calcular"></font></td>
</tr>
</table>
<%
'==============================================================================
'Calcula as Parcelas
If Request.Form("calcular") <> "" then
'Pego os dados do Form
Parcelas = cInt(Request.Form("parcelas"))
ValorTotal = cSng(Request.Form("valor"))
DtVencimento = cDate(Request.Form("vencimento"))
'Declaro o array Dt e Calculo a parcela
Dim Dt() : Redim Dt(Parcelas)
ValorParcelas = (ValorTotal / Parcelas)
'Se for Decimal, calcula o resto da divis�o
Resultado = FormatNumber(ValorParcelas) * Parcelas
Resto = FormatNumber(Resultado - ValorTotal,2)
%>
<table>
<tr>
<td colspan="4"> </td>
</tr>
<tr>
<td align="center" bgcolor="#A1C094"><span style="font-weight: bold">
<font face="Tahoma" style="font-size: 8pt">
Parcela</font></span></td>
<td align="center" bgcolor="#A1C094"><span style="font-weight: bold">
<font face="Tahoma" style="font-size: 8pt">
Vencimentos</font></span></td>
<td align="center" colspan="2" bgcolor="#A1C094"><span style="font-weight: bold">
<font face="Tahoma" style="font-size: 8pt">
Valor das Parcelas</font></span></td>
</tr>
<font color="#FF0000">
<% i = 1
For n = 0 to Parcelas - 1
Dt(n) = DateAdd("m", n, DtVencimento)
Parc = ValorParcelas
If Resto > 0 then
If n = (Parcelas - 1) Then
Parc = FormatNumber(ValorParcelas - Resto)
End if
Elseif Resto < 0 Then
If n = 0 Then
Parc = FormatNumber(ValorParcelas + (Resto*-1))
End if
End if
%></font>
<tr>
<td align="center" bgcolor="#A1C094"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">
<%=n+1%></font></span></td>
<td align="center" bgcolor="#A1C094"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">
<%=FormatDateTime(Dt(n),0)%> </font></span></td>
<td colspan="2" align="center" bgcolor="#A1C094"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">
<%=FormatCurrency(Parc)%></font></span></td>
</tr>
<%
i = i + 1
Next
end if
%></font>
<tr>
<td align="center" bgcolor="#A1C094">
<p align="left"><span style="font-weight: bold">
<font face="Tahoma" style="font-size: 8pt">
Total</font></span></td><%end if%>
<td colspan="3" align="center" bgcolor="#A1C094"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF"><%=FormatCurrency(ValorTotal)%></font></span></td><%end if%>
</tr>
</table></td>
</tr>
<tr>
<td width="1" height="1" bgcolor="#EFEFEF"></td>
<td width="425" height="1" bgcolor="#EFEFEF"></td>
<td width="8" height="1" bgcolor="#EFEFEF"></td>
<td width="542" height="1" bgcolor="#EFEFEF"></td>
</tr>
<tr>
<td width="1" valign="top" height="1" bgcolor="#EFEFEF"></td>
<td width="433" valign="top" height="1" colspan="2" bgcolor="#EFEFEF"></td>
<td width="542" valign="top" height="1" bgcolor="#EFEFEF"></td>
</tr>
<tr>
<td align="center" width="273" height="1" bgcolor="#EFEFEF"></td>
<td align="center" width="1073" colspan="3" height="1" bgcolor="#EFEFEF"></td>
</tr>
<tr>
<td align="center" width="1346" valign="middle" colspan="4" height="47" bgcolor="#EFEFEF">
<font color="#FF0000" face="Tahoma" style="font-size: 8pt">
<input style="padding:0; background:#A1C094; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="submit" value="Cadastrar " name="Submit"></font><font face="Tahoma" style="font-size: 8pt"> </font><span style="font-size: 8pt">
<font face="Tahoma" color="#FF0000">
<input style="BACKGROUND: #A1C094; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="reset" value="Limpar" name="Reset"></font><font face="Tahoma"> </font></span></td>
</tr>
</table>
</center>
</div>
</form>
</td>
</tr>
</TABLE>
</center>
</div>
</TD>
</TR>
</TABLE>
</center>Obrigado
E ae galera .. beleza..
Alguem pode me dar uma luz ae , hehehe
valeu :thumbsup:
aqui aparece o calcular, cadastrar e limpar
Então localmente ele aparece aqui também só que quand posto no site não pq ele só mostra os 2 botões...rss.. vai entender...
valeu
Bom Dia ,
Alguem pode me dar uma luz nesta questão do parcelamento , como ja disse localmente ele mostrar normal os dados parcelamentos e tudo mais , mas quando eu mando pro site ele n mostra nada apenas os botões de CADASTRAR e LIMPAR...
Valeu!
verifique se o path (caminho) estão corretos
qual o conteúdo do include file="config2.asp
Ola ,
O conteudo do config2.asp é apenas o caminho do bd.
<%
' Endereço do Banco de Dados
'Desabilitado ## Dados = "driver=MySQL;server=temis;uid=root;pwd=;database=noticias" '## MySQL
'Desabilitado ## Dados = "DBQ=D:\temisnet\noticias\noticias.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Dados ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("noticias.mdb")
%>
verifique também as permissões em aruivos e pastas
de um SQL InSERT