Parcelas

fabio Avila · Abril 2, 2008

Pessoal

Gostaria de saber como eu faço pra colocar no meu sistema um esquema q ele gere as parcelas .. minha tabela possue os campos:

Nome

Valor

Parcela

Vencimnto

Algueum pode me ajudar

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Ted k' · Abril 2, 2008

de que formato de parcelas??

fabio Avila · Abril 3, 2008

O Funcionari vai digitar a Qtdade de Parcelas , o Valor e o Vencimento e depois quando clicar no botao gerar parcelas e de as parcelas e seus vencimentos , entendeu né...

[]ços

RogerFe · Abril 3, 2008

Você faz um select em sua base de dados.

Minha sugestão é a seguinte estrututa da tabela:

Nome = texto

ValorTotal = Single ou Double

Parcelas = Inteiro

ValorParcela = Single ou Double

DataVencimento = Date

e usa mais ou menos isso:

'Resgata o valor da tabela
SngValor = Rs("Valor")
DtVencimento = Rs("DataVencimento")
IntParcelas = Rs("Parcelas")

'Calcula o valor das parcelas
SgnResultado = SngValor / IntParcelas 

'Calcula as datas de Vencimento
Dim DatasVenc() : Redim DatasVenc(IntParcelas) 'Cria um array com as datas

For n = 0 to IntParcelas
DatasVenc(n) = DateIff(n,'m',DtVencimento)
Next

'No final você vai ter o seguinte
IntParcelas = Valor das parcelas, aqui você pode formatar casas decimais se necessário

'Estou assumindo que o parcelamento é em 3x
'Pode ser em quantas vezes for necessário, com isso muda somente o total de itens no array criado acima
DatasVenc(0) = 1° data de vencimento = a DtVencimento + 30 dias
DatasVenc(1) = 2° data de vencimento = a DtVencimento + 60 dias 
DatasVenc(2) = 3° data de vencimento  = a DtVencimento + 90 dias

'No dateiff acima eu coloquei 'm' que seguinifica acréscimo de meses sobre a data de vencimento
'voce pode colocar dias 'd' e até anos 'y', e pode ser valores inteiros também, por exemplo '10' dias

Espero ter ajudado, digitei este codigo direto no post, desculpe se cometi algum erro

Qualquer duvida, manda ai.

Valeu

fabio Avila · Abril 3, 2008

Roger

Aonde eu coloco esse codigo , no Botao Gerar Parcelas???

RogerFe · Abril 4, 2008

Fabio

O Codigo acima é só um exemplo, tem que ser adaptado a sua necessidade.

Se quiser, posta seu codigo ai, onde você carrega a tebela, e mostra para o cliente, que te ajudo, sem problemas.

RogerFe · Abril 4, 2008

Fabio

Vê se é isso:

<html>
<body>
<form name="parcelas" action="parcelas.asp" method="post">
<table>
	<tr>
		<td>Valor</td>
		<td>Parcelas</td>
		<td>1° Vencimento</td>
	</tr>
	<tr>
		<td><input type="text" name="valor"></td>
		<td><input type="text" name="parcelas"></td>
		<td><input type="text" name="vencimento"></td>
	</tr>
	<tr>
		<td colspan="3" align="center"><input type="submit" name="calcular" value="Calcular"></td>
	</tr>
</table>
</form>
<%
If Request.Form("calcular") <> "" then
	'Pego os dados do Form
	IntParcelas = Cint(Request.Form("parcelas"))
	SngValor = Cdbl(Request.Form("valor"))
	DtVencimento = Cdate(Request.Form("vencimento"))
	
	'Declaro o array Dt e Calculo a parcela
	Dim Dt() : Redim Dt(IntParcelas)
	SngParcela = (SngValor / IntParcelas)
	
	'Se for Decimal, calcula o resto da divisão
	Resto = Cdbl(SngValor - (FormatNumber(SngParcela,2) * IntParcelas))
	
	'Mostra o resulta na tela
	Response.Write("Valor Total = " & FormatCurrency(SngValor) &"<br>")
	Response.Write("Total de Parcelas : " & IntParcelas & "<br>")
	
	For n = 0 to IntParcelas - 1
		Dt(n) = DateAdd("m", n, DtVencimento)
		'O 1 vencimento é adicionado o resto da divisão, caso ela exista
		If Resto > 0 and n = 0 then
			Response.Write( n + 1 & " Parcela = " & FormatCurrency(SngParcela + Resto) & " com Vencimento em : " & Dt(n) & "<br>")
		'As parcelas finais, tem o valor da divisão
		Else
			Response.Write( n + 1 & " Parcela = " & FormatCurrency(SngParcela) & " com Vencimento em : " & Dt(n) & "<br>")
		End if
	Next
End if
%>
</body>
</html>

fabio Avila · Abril 4, 2008

Roger segue o codigo mas da dando erro:

<TITLE>:. FGCOM ADMIN - Controle de Associaddos v1.0 :. </TITLE>

<!--

window.defaultStatus=":: ACISC - Associação Comercial e Industrial de Siqueira Campos - PR ::"

// -->

</script>

<TABLE cellSpacing=0 cellPadding=0 width=774 align=center

background="../Sites/etiq/VPSA%20TECNOLOGIA%20E%20INFORMÁTICA%20LTDA_arquivos/back_temp.gif"

border=0 height="58">

<TR>

<TABLE cellSpacing=0 cellPadding=0 width=774 align=center

background="../Sites/etiq/VPSA%20TECNOLOGIA%20E%20INFORMÁTICA%20LTDA_arquivos/back_temp.gif"

border=0 height="1">

<TR>

</map>

<TR>

</TD>

</TR>

<tr>

<b><font face="Tahoma" color="#6E9F4D">Movimentação de Mensalidades</font></b></TD>

</tr>

<tr>

<tr>

</td>

<br>

</td>

</tr>

<tr>

</td>

<b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Promoção<br>

</font><font face="Tahoma" color="#FFFFFF">

<INPUT id=email3 maxLength=40 name=promocao

style="BACKGROUND-COLOR: #F4FFF4; FONT-SIZE: 8pt" size="77"></font></b></td>

</tr>

<tr>

</td>

<b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Data Sorteio<br>

</font><font face="Tahoma" color="#FFFFFF">

<INPUT id=email2 maxLength=40 name=datasorteio

style="BACKGROUND-COLOR: #F4FFF4; FONT-SIZE: 8pt" size="11"></font></b></td>

</tr>

<tr>

</td>

<b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Local<br>

</font><font face="Tahoma" color="#FFFFFF">

<INPUT id=email1 maxLength=40 name=local

style="BACKGROUND-COLOR: #F4FFF4; FONT-SIZE: 8pt" size="61"></font></b></td>

</tr>

<tr>

</td>

<b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Premiação</font></b><br>

</tr>

<tr>

</td>

<b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Nome do Associado

</font></b><font face="Tahoma"><b><font color="#FFFFFF" style="font-size: 8pt"><br>

<%

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPAth("contato.mdb")

strQ = "SELECT * FROM contato ORDER BY nomefantasia ASC"

Set objRS = objCon.Execute(strQ)

Response.Write "<SELECT NAME='associado'>"

Response.Write "<OPTION VALUE='' SELECTED></OPTION> "

If Not objRS.EOF Then

While Not objRS.EOF

Response.Write "<OPTION VALUE='" & objRS("nomefantasia") & "'"

If Request("associado") = objRS("nomefantasia") Then Response.Write " selected"

Response.Write ">" & objRS("nomefantasia") & "</OPTION>"

objRS.MoveNext

Wend

End If

Response.Write "</SELECT>"

objCon.Close

Set objRS = Nothing

Set objCon = Nothing

%>

</font></b></font></td>

</tr>

<tr>

</td>

<table>

<tr>

<td>Valor</td>

<td>Parcelas</td>

<td>1° Vencimento</td>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</td>

</tr>

<tr>

</td>

</td>

</td>

</td>

</tr>

<tr>

</td>

</td>

</td>

</tr>

<tr>

</td>

</td>

</tr>

<tr>

<br>

<br>

</font></span></td>

</tr>

</table>

</center>

</div>

</form>

</td>

</tr> <%

If Request.Form("calcular") <> "" then

'Pego os dados do Form

IntParcelas = Cint(Request.Form("parcelas"))

SngValor = Cdbl(Request.Form("valor"))

DtVencimento = Cdate(Request.Form("vencimento"))

'Declaro o array Dt e Calculo a parcela

Dim Dt() : Redim Dt(IntParcelas)

SngParcela = (SngValor / IntParcelas)

'Se for Decimal, calcula o resto da divisão

Resto = Cdbl(SngValor - (FormatNumber(SngParcela,2) * IntParcelas))

'Mostra o resulta na tela

Response.Write("Valor Total = " & FormatCurrency(SngValor) &"<br>")

Response.Write("Total de Parcelas : " & IntParcelas & "<br>")

For n = 0 to IntParcelas - 1

Dt(n) = DateAdd("m", n, DtVencimento)

'O 1 vencimento é adicionado o resto da divisão, caso ela exista

If Resto > 0 and n = 0 then

Response.Write( n + 1 & " Parcela = " & FormatCurrency(SngParcela + Resto) & " com Vencimento em : " & Dt(n) & "<br>")

'As parcelas finais, tem o valor da divisão

Else

Response.Write( n + 1 & " Parcela = " & FormatCurrency(SngParcela) & " com Vencimento em : " & Dt(n) & "<br>")

End if

%>

<tr>

</TD>

</tr>

<TR>

</p>

</center>

</TD>

</TR></TABLE>

</TD></TR>

</TABLE>

[]ços

RogerFe · Abril 5, 2008

Fabio, mexi um pouco no seu codigo, dá uma olhada se resolve agora.

<body bgcolor="#E4E4E4">

<center>

<TITLE>:. FGCOM ADMIN - Controle de Associaddos v1.0 :. </TITLE>

<script language="JavaScript">
<!--
window.defaultStatus=":: ACISC - Associação Comercial e Industrial de Siqueira Campos - PR ::"
// -->
</script>
<TABLE cellSpacing=0 cellPadding=0 width=774 align=center background="../Sites/etiq/VPSA%20TECNOLOGIA%20E%20INFORMÁTICA%20LTDA_arquivos/back_temp.gif" border=0 height="58">
	<TR>
		<TD align=middle valign="top" bgcolor="#FFFFFF" height="97" style="font-family: VPSA online system">
			<TABLE cellSpacing=0 cellPadding=0 width=774 align=center background="../Sites/etiq/VPSA%20TECNOLOGIA%20E%20INFORMÁTICA%20LTDA_arquivos/back_temp.gif" border=0 height="1">
				<TR>
					<TD align=middle valign="top" bgcolor="#FFFFFF" height="97" style="font-family: VPSA online system">
						<map name="FPMap0">
							<area href="java script:pop1()" shape="rect" coords="11, 105, 63, 155" alt="Cadastro de Associados">
							<area alt="Consulta" coords="132, 108, 181, 149" shape="rect" href="java script:pop2()">
							<area alt="Mensalidades" coords="78, 111, 118, 146" shape="rect" href="mensalidades.asp">
							<area alt="Incluir Cliente" href="inclusao_juridico.asp" shape="rect" coords="195, 110, 233, 151">
							<area alt="Cadastro Cliente" coords="246, 112, 287, 150" shape="rect" href="cadastro_devedor.asp">
							<area href="acisc.asp" shape="rect" coords="724, 125, 782, 141">
							<area href="consulta_mensalidades.asp" shape="rect" coords="319, 107, 371, 157">
							<area href="consulta_inclusao.asp" shape="rect" coords="385, 109, 426, 156">
						</map>
						<img border="0" src="topo2.jpg" usemap="#FPMap0" width="808" height="160">
						</TD>
					</TR>
					<TR>
						<TD align=middle bgcolor="#F7F7F7" height="22" style="font-family: VPSA online system"> </TD>
					</TR>
					<tr>
						<TD align=middle bgcolor="#F7F7F7" height="39" style="font-family: VPSA online system" valign="middle">
							<b><font face="Tahoma" color="#6E9F4D">Movimentação de Mensalidades</font></b>
						</TD>
					</tr>
					<tr>
						<td width="100%" bgcolor="#F7F7F7" height="188" style="border-style:none; border-width:medium; " valign="top">
							<form method="POST" action="oposto3.asp" name="frmparcelas">
								<input type="hidden" name="enviado" value="sim">
								<p> </p>
								<div align="center">
								<center>
									<table border="0" cellpadding="0" width="546" height="1" style="border-collapse: collapse" bordercolor="#111111" cellspacing="0">
										<tr>
											<td width="272" height="32" bgcolor="#6E9F4D"> 
										</td>
											<td width="864" colspan="3" height="32" bgcolor="#6E9F4D"><br> </td>
										</tr>
										<tr>
											<td width="272" height="32" bgcolor="#6E9F4D"> </td>
											<td width="864" colspan="3" height="32" bgcolor="#6E9F4D">
												<b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Promoção<br>
												</font><font face="Tahoma" color="#FFFFFF">
												<INPUT id=email3 maxLength=40 name=promocao style="BACKGROUND-COLOR: #F4FFF4; FONT-SIZE: 8pt" size="77"></font></b>
											</td>
										</tr>
										<tr>
											<td width="272" height="32" bgcolor="#6E9F4D"> </td>
											<td width="864" colspan="3" height="32" bgcolor="#6E9F4D">
												<b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Data Sorteio<br></font><font face="Tahoma" color="#FFFFFF">
												<INPUT id=email2 maxLength=40 name=datasorteio style="BACKGROUND-COLOR: #F4FFF4; FONT-SIZE: 8pt" size="11"></font></b>
											</td>
										</tr>
										<tr>
											<td width="272" height="32" bgcolor="#6E9F4D"> </td>
											<td width="864" colspan="3" height="32" bgcolor="#6E9F4D"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Local<br></font><font face="Tahoma" color="#FFFFFF">
												<INPUT id=email1 maxLength=40 name=local style="BACKGROUND-COLOR: #F4FFF4; FONT-SIZE: 8pt" size="61"></font></b>
											</td>
										</tr>
										<tr>
											<td width="272" height="32" bgcolor="#6E9F4D"> </td>
											<td width="864" colspan="3" height="32" bgcolor="#6E9F4D"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Premiação</font></b><br><font size="2" face="Verdana" style="font-size: 8pt" color="#FFFFFF">
												<textarea cols="59" name="premiacao" rows="7" style="border:1px solid #000000; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-size:8 pt; font-family:Tahoma; color:#000000; background-color:#ECE9D8"></textarea></font>
											</td>
										</tr>
										<tr>
											<td width="272" height="32" bgcolor="#6E9F4D"> </td>
											<td width="864" colspan="3" height="32" bgcolor="#6E9F4D"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Nome do Associado</font></b><font face="Tahoma"><b><font color="#FFFFFF" style="font-size: 8pt"><br>
												<%
												'============================================================================
==
												Set Conexao = Server.CreateObject("ADODB.Connection")
												Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPAth("contato.mdb")
												
												strQ = "SELECT * FROM contato ORDER BY nomefantasia ASC"
												Set objRS = objCon.Execute(strQ)
												
												Response.Write "<SELECT NAME='associado'>"
												Response.Write "<OPTION VALUE='' SELECTED></OPTION> "
												
												If Not objRS.EOF Then
													While Not objRS.EOF
														Response.Write "<OPTION VALUE='" & objRS("nomefantasia") & "'"
														If Request("associado") = objRS("nomefantasia") Then Response.Write " selected"
															Response.Write ">" & objRS("nomefantasia") & "</OPTION>"
														objRS.MoveNext
													Wend
												End If
												
												Response.Write "</SELECT>"
												
												objCon.Close
												
												Set objRS = Nothing
												Set objCon = Nothing 
												===========================================================================
===
												%>
												</font></b></font>
											</td>
										</tr>
										<tr>
											<td width="272" height="32" bgcolor="#6E9F4D"> </td>
											<td width="864" colspan="3" height="32" bgcolor="#6E9F4D"> 
												<table width="303">
													<tr>
														<td width="82" align="center"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Valor</font></b></td>
														<td width="52" align="center"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Parcelas</font></b></td>
														<td align="left" colspan="2"><b><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">1° Vencimento</font></b></td>
													</tr>
													<tr>
														<td><input type="text" name="valor" size="10" maxlength="10"></td>
														<td><input type="text" name="parcelas" size="5" maxlength="5"></td>
														<td width="63"><input type="text" name="vencimento" size="10" maxlength="10"></td>
														<td width="86" align="right"><input style="BACKGROUND: #F4FFF4; BORDER-BOTTOM: 1px solid #000000; BORDER-LEFT: 0px solid #336699; BORDER-RIGHT: 1px solid #000000; BORDER-TOP: 0px solid #336699; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="submit" name="calcular" value="Calcular"></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="#006633"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Parcela</font></span></td>
														<td align="center" bgcolor="#006633"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Vencimentos</font></span></td>
														<td align="center" colspan="2" bgcolor="#006633"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Valor das Parcelas</font></span></td>
													</tr>
													<%
													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	
													%>
													<tr>
														<td align="center"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF"><%=n+1%></font></span></td>
														<td align="center"><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"><span style="font-size: 10pt"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF"><%=FormatCurrency(Parc)%></font></span></td>
													</tr>
													<%
													Next
													End if
													%>
													<tr>
														<td align="center" bgcolor="#006633"><span style="font-weight: bold"><font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Total</font></span></td>
														<td colspan="3" align="center" bgcolor="#006633"><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"></td>
											<td width="321" height="1"></td>
											<td width="24" height="1"></td>
											<td width="526" height="1"></td>
										</tr>
										<tr>
											<td width="1" valign="top" height="1"></td>
											<td width="345" valign="top" height="1" colspan="2"></td>
											<td width="526" valign="top" height="1"></td>
										</tr>
										<tr>
											<td align="center" width="377" height="1"></td>
											<td align="center" width="969" colspan="3" height="1"></td>
										</tr>
										<tr>
											<td align="center" width="1346" valign="bottom" colspan="4" height="50">
												<font color="#008000" face="Tahoma" style="font-size: 8pt"><br><br>
												<input style="BACKGROUND: #F4FFF4; BORDER-BOTTOM: 1px solid #000000; BORDER-LEFT: 0px solid #336699; BORDER-RIGHT: 1px solid #000000; BORDER-TOP: 0px solid #336699; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="submit" value="Cadastrar " name="Submit">         </font><span style="font-size: 8pt">
												<font face="Tahoma" color="#008000">
												<input style="BACKGROUND: #F4FFF4; BORDER-BOTTOM: 1px solid #000000; BORDER-LEFT: 0px solid #336699; BORDER-RIGHT: 1px solid #000000; BORDER-TOP: 0px solid #336699; font-family:Tahoma; font-size:8 pt; font-weight:bold" type="reset" value="Limpar" name="Reset">
												<br><br><br> </font></span>
											</td>
										</tr>
									</table>
								</center>
							</div>
						</form>
					</td>
				</tr> 
				<tr>
					<TD align=middle bgcolor="#E3E0DB" height="39" style="font-family: VPSA online system" valign="bottom"> </TD>
				</tr>
				<TR>
					<TD align=middle bgcolor="#E3E0DB" height="1" style="font-family: VPSA online system"></p></TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>
</center>

fabio Avila · Abril 7, 2008

E ae Roger beleza

Seguinte da erro no codigq me passou :

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

[]ços

fabio Avila · Abril 7, 2008

Roger encontrei o erro, mas o seguinte apos eu clicar no CALCULAR PARCELAS ele ja ta gravando direto nao teria q aparecer na Tela pra Depois gravar ??

[]ços

Arquivado

Parcelas

Recommended Posts

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

RogerFe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

RogerFe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

RogerFe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

RogerFe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

fabio Avila 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante