Publicado em 10 de nov.

[Resolvido] Parcelamento em ASP - Access

#asp classico

Resolvido

Tenho a Seguinte Listagem do BD.

Contrato Tipo Emissão Histórico Forma Valor R$ Parcelas Conta Grupo Custos Observações

1 Pagar 2/11/2008 Sabesp Fatura 720,00 12 20049-2 Moradia Agua Edit Parcelas

2 Receber 5/11/2008 Salários Credito 48.000,00 12 20049-2 Salarios Salarios Edit Parcelas

veja exemplo: http://teste.intravisa.com

Ao clicar em Parcelas, gostaria de gerar as parcelas para cada contrato.

Alguem tem um código para estudo e implantação???????

O Sistema é desenvolvido em ASPMAKER. A Rotina que parcela não estou conseguindo fazer.

Sei fazer através de Formulário em access. Mas gostaria de fazê-lo via asp.

Agradeço a atenção.

Discussão (3)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

xanburzum· 10 de nov.

você quer pegar o valor é parcela-lo (dividi-lo) em quantas vezes, ou o proprio usuario tera a opcao de escolher o parcelamento e dia de pagamento, tipo o site da natura, onde o ususario pode escolher ???

senaun você pode deixar os parcelamento fixo, onde ele escolhe a forma (2x, 3x,05x, etc)

dividi sua conta e da um display para o user

Célido· 10 de nov.

>
você quer pegar o valor é parcela-lo (dividi-lo) em quantas vezes, ou o proprio usuario tera a opcao de escolher o parcelamento e dia de pagamento, tipo o site da natura, onde o ususario pode escolher ???

senaun você pode deixar os parcelamento fixo, onde ele escolhe a forma (2x, 3x,05x, etc)

dividi sua conta e da um display para o user

O Sistema é um Controle Financeiro pela Internet.

O Usuário Preenche os Campos, inclusive parcelas.(Contratosadd.asp)

O Lançamento é efetuado na Tabela Contratos. (Contratoslist.asp)

Existe um Link, no (Contratoslist)-Parcelas.

Ao Clicar em Parcelas, o Contrato deve parcelar em Vencimentos de 30 Dias.

Esta é base do Sistema, depois vem Cash Flow, Centro de Custos (Já Está Pronto)

o Que preciso é a rotina de Parcelamento.

veja o Site (http://teste.intravisa.com)

Valeu

Célido

Célido· 12 de nov.

senaun você pode deixar os parcelamento fixo, onde ele escolhe a forma (2x, 3x,05x, etc)

dividi sua conta e da um display para o user

O Sistema é um Controle Financeiro pela Internet.

O Usuário Preenche os Campos, inclusive parcelas.(Contratosadd.asp)

O Lançamento é efetuado na Tabela Contratos. (Contratoslist.asp)

Existe um Link, no (Contratoslist)-Parcelas.

Ao Clicar em Parcelas, o Contrato deve parcelar em Vencimentos de 30 Dias.

Esta é base do Sistema, depois vem Cash Flow, Centro de Custos (Já Está Pronto)

o Que preciso é a rotina de Parcelamento.

veja o Site (http://teste.intravisa.com)

Valeu

Célido

Após buscar instruções no Forum e Partes de Códigos abaixo a Solução:

1 - Código DemoDB.asp (Lista os Dados da Tabela) Seleciona o Contrato a Parcelar.

<%option explicit%>

<html>
<head><title>Contratos Cadastrados</title></head>
<body>

<%
dim conn,rs,x
set conn=Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("Financeiro.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM Contratos",conn
%>

<h2>List Database Table</h2>

<table border="3" width="100%">
<tr bgcolor="#b0c4de">

<%
for each x in rs.Fields
response.write("<th>" & ucase(x.name) & "</th>")
next
%>
</tr>
<%do until rs.EOF%>

<tr bgcolor="ffffff">
<form method="post" action="Testando.asp" target="_blank">

<%
for each x in rs.Fields
if x.name="Contrato" then%>

 <td><input type="submit" name="Contrato" value="<%=x.value%>"></td>
 <%else%>
 <td><%Response.Write(x.value)%> </td>
 <%end if

next
%>
</form>
<%rs.MoveNext%>
</tr>
<%
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

</table>
</body>
</html>

2 - Código Testando.asp (Ativa o Parcelamento)

<%
Contrato=Request.Form("Contrato")
if Contrato="" then response.end
set conn=Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("Financeiro.mdb"))
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from Contratos where Contratos.[Contrato]=" & Contrato , conn
%>

<html>
<head>
<title>ADO - Edit DataBase Record</title>
</head>
<body>
<h2>Edit Database Table</h2>
<form method="post" action="EnviarDadosBD.asp" target="_blank">
<input name="Contrato" type="hidden" value=<%=Contrato%>>
<table bgcolor="#b0c4de">

<%
for each x in rs.Fields
if x.name <> "Contrato" and x.name <> "dateadded" then%>

 <tr>
 <td><%=x.name%> </td>
 <td><input name="<%=x.name%>" value="<%=x.value%>" size="20"></td>
 <%end if

rs.close
conn.close
%>

</tr>
</table>
<br />
<input type="submit" name="action" value="Parcelar">

</form>
</body>
</html>

3 - Código EnviarDadosBD.asp (que Atualiza a Tabela Parcelas)

<%
Dim bookmark
Dim i
Dim strConx
Dim rsParc
Dim você
Dim VP
DIM PC

você = Request.Form("ValorContrato")
PC = Request.Form("Parcelas")
VP = (você / PC)

strConx = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Financeiro.mdb")
'CADASTRANDO AS PARCELAS -----------------------------------------
Set rsParc = Server.CreateObject("ADODB.Recordset")
With rsParc
.Open "Parcelas", strConx, 1, 3, 2
For i = 1 to Request.Form("Parcelas")

 .AddNew
 .Fields("Contrato") = Request.Form ("Contrato")
 .Fields("ValorParcela") = VP
 .Fields("Parcela") = i
 .Fields("Vencimento") = Dateadd("m", i, Request.Form("Emissao"))
 .Update
	Next
	.Close
 End With
 Set rsParc = Nothing

%>
<script LANGUAGE=javascript>

</SCRIPT>
Veja o Exemplo resolvido em http://teste.intravisa.com

Também já esta disponivel a Inclusão, Edição, e Pesquisa por Tipos.

Qualquer dúvida poste aqui.

Valeu, Bom Proveito http://forum.imasters.com.br/public/style_emoticons/default/clap.gif