Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Célido

[Resolvido] Parcelamento em ASP - Access

Por , em ASP Clássico

Recommended Posts

Célido    0

Célido
Postado

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Célido    0

Célido
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Célido    0

Célido
Postado

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

 

 

 

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
next

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>
<!--
   window.open("Contratoslist.asp","_self");
-->
</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

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito