Parcelamento
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
WendEnd If
Response.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>Discussão (18)
Carregando comentários...