Parcelar Contas e Gerar Duplicatas

vitorlouzada · Maio 29, 2008

Pessoal, tenho mais duas dúvidas.

Possuo um sistema em asp, de gerenciamento financeiro. porém ele ainda é um pouco limitado.

Estava querendo muito agregar duas funções nele, mas não sei como fazer isso em asp.

A primeira seria o seguinte: Quando eu lançar na ficha de inclusão uma conta e ela for parcelada, ao eu colocar o número de parcelas, o sistema lançar todas as parcelas no bd automaticamente, assim evita que eu uma conta parcelada em 24x, seja lançada parcela por parcela no sistema.

Como faço?

A outra função, seria no contas a receber, como faço para estar gerando duplicatas, tipo, possuo um modelo, e queria lançar os dados do cliente, o número das parcelas e os valores, seria mais ou menos o que eu quero fazer acima, quanto a questão do parcelamento, só que gerava as duplicatas a serem impressas. Acho que nem precisa gravar no banco de dados.

E ai alguem sabe como???

Mário Monteiro · Maio 29, 2008

A parte das parcelas creio que possa antes de inserir calcular o valor das prestações prncipalmente se for umbutir juros e no mais insere dentro de um laço de repeticao para incluir todas as parcelas automaticamente

a outra parte nao entendi

vitorlouzada · Maio 29, 2008

na maioria das vezes eu já tenho os valores das parcelas fixas, não precisaria de calculos, seria exatamente lança-las automaticamente nas datas...

como seria esse laço de repetição? tem como dar exemplo?

Eu queria algo do tipo...

prencho o valor da prestação, data e coloco a quantidade de parcela. ai o sistema já lança elas nas datas automaticamente.

A outra parte seria gerar duplicatas para impressão.

Mário Monteiro · Maio 29, 2008

um simples for de 1 ate a quantidade de parcelas

vitorlouzada · Maio 29, 2008

não entendi...

como assim?

Mário Monteiro · Maio 29, 2008

FOR I = 1 TO TOTALPARCELAS
Conn.Execute("INSERT ... CADA PARCELA")

NEXT

vitorlouzada · Maio 30, 2008

Rapaz... dúvida...

aonde eu insiro isso no meu código? como o sistema vai inserir nas datas corretas???

Bom na minah página, as inserções no bd estão aqui:

CODE

<%
If Not IsEmpty(Request.Form) Then

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

  objCon.Open strCon
 
  campo_duplicado = false

  campo_msg = ""
 
  If campo_duplicado = false Then

    Set objRS= Server.CreateObject("ADODB.Recordset")

    objRS.CursorLocation = 3

    objRS.CursorType = 0

    objRS.LockType = 3

    strQ = "SELECT * FROM contas_pagar Where 1 <> 1"

    objRS.Open strQ, objCon, , , &H0001

    objRS.Addnew()

    If objRS.Fields("Código").properties("IsAutoIncrement") = False Then

      objRS("Código") = Trim(Request.Form("Código"))

    End If

    If objRS.Fields("documento").properties("IsAutoIncrement") = False Then

      objRS("documento") = Trim(Request.Form("documento"))

    End If

    If objRS.Fields("descricao").properties("IsAutoIncrement") = False Then

      objRS("descricao") = Trim(Request.Form("descricao"))

    End If

    If objRS.Fields("data_conta").properties("IsAutoIncrement") = False Then

      objRS("data_conta") = Trim(Request.Form("data_conta"))

    End If

    If objRS.Fields("data_vcto").properties("IsAutoIncrement") = False Then

      objRS("data_vcto") = Trim(Request.Form("data_vcto"))

    End If

    If objRS.Fields("fornecedor").properties("IsAutoIncrement") = False Then

      objRS("fornecedor") = Trim(Request.Form("fornecedor"))

    End If

    If objRS.Fields("anotacoes").properties("IsAutoIncrement") = False Then

      objRS("anotacoes") = Trim(Request.Form("anotacoes"))

    End If

    If objRS.Fields("valor").properties("IsAutoIncrement") = False Then

      objRS("valor") = Trim(Replace(Request.Form("valor"), "R$",""))

    End If

    If objRS.Fields("situacao").properties("IsAutoIncrement") = False Then

      objRS("situacao") = Trim(Request.Form("situacao"))

    End If

    If objRS.Fields("Referencia").properties("IsAutoIncrement") = False Then

      objRS("Referencia") = Trim(Request.Form("Referencia"))

    End If

    If objRS.Fields("registro").properties("IsAutoIncrement") = False Then

      objRS("registro") = Trim(Request.Form("registro"))

    End If

    objRS.Update

    objRS.Close

    Set objRS = Nothing

%>

CODE

<%
  End If
 
  objCon.Close

  Set objCon = Nothing

Else

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

  objCon.Open strCon
 
  Set objRS= Server.CreateObject("ADODB.Recordset")

  objRS.CursorLocation = 2

  objRS.CursorType = 0

  objRS.LockType = 3

  strQ = "SELECT * FROM contas_pagar Where 1 <> 1"

  objRS.Open strQ, objCon, , , &H0001

%>

E o meu form:

CODE

<form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onSubmit="return verifica_form(this);">
  <div align="center">

  <TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario>

    <TR class=titulo_campos><TD>Código<br>

      <%If objRS.Fields("Código").properties("IsAutoIncrement") = False Then%>

      <INPUT style="width=100" type="text" name="Código" maxlength="255" value="" onKeyPress="desabilita_cor(this)"  df_verificar="sim" class=campos_formulario>

      <%

Else

  Response.Write "<B>(Automático)</B>"

End If

%>

      </TD></TR>

    <TR class=titulo_campos><TD>Documento<br>

      <%If objRS.Fields("documento").properties("IsAutoIncrement") = False Then%>

      <INPUT style="width=350" type="text" name="documento" maxlength="255" value="" onKeyPress="desabilita_cor(this)"  df_verificar="sim" class=campos_formulario>

      <%

Else

  Response.Write "<B>(Automático)</B>"

End If

%>

      </TD></TR>

    <TR class=titulo_campos><TD>Descrição<br>

      <%If objRS.Fields("descricao").properties("IsAutoIncrement") = False Then%>

      <INPUT style="width=100" type="text" name="descricao" maxlength="255" value="" onKeyPress="desabilita_cor(this)"  df_verificar="sim" class=campos_formulario>

      <%

Else

  Response.Write "<B>(Automático)</B>"

End If

%>

      </TD></TR>

    <TR class=titulo_campos><TD>Competência<br>

      <%If objRS.Fields("data_conta").properties("IsAutoIncrement") = False Then%>

      <INPUT style="width=100" type="text" name="data_conta" maxlength="255" value="" onKeyPress="desabilita_cor(this)"  df_verificar="sim" class=campos_formulario><a href="java script:cal1.popup();"><img src="img/cal.gif" width="16" height="16" border="0" alt="Clique para escolher uma data"></a>

      <%

Else

  Response.Write "<B>(Automático)</B>"

End If

%>

      </TD></TR>

    <TR class=titulo_campos><TD>Data de Vencimento<br>

      <%If objRS.Fields("data_vcto").properties("IsAutoIncrement") = False Then%>

      <INPUT style="width=100" type="text" name="data_vcto" maxlength="255" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim"  class=campos_formulario><a href="java script:cal2.popup();"><img src="img/cal.gif" width="16" height="16" border="0" alt="Clique para escolher uma data"></a>

      <%

Else

  Response.Write "<B>(Automático)</B>"

End If

%>

      </TD></TR>

    <TR class=titulo_campos><TD>Fornecedor<BR>

      <SELECT style="width=350" name="fornecedor" df_verificar="sim" onChange="desabilita_cor(this)" class=campos_formulario>

        <OPTION value=""></OPTION>
 
        <%

  Set objRS2 = Server.CreateObject("ADODB.Recordset")

  objRS2.CursorLocation = 3

  objRS2.CursorType = 3

  objRS2.LockType = 1

  strQ = "SELECT Nome FROM fornecedores ORDER BY Nome ASC"

  objRS2.Open strQ, objCon, , , &H0001

  If Not objRS2.EOF Then

    While Not objRS2.EOF

	  If Trim(objRS2.Fields.Item("Nome").Value) <> "" Then

	    Response.Write "      <OPTION value='" & (objRS2.Fields.Item("Nome").Value) & "'>" & (objRS2.Fields.Item("Nome").Value) & "</OPTION>"

	  End If

      objRS2.MoveNext

    Wend

  End If

  Response.Write("ok")

%>

        </SELECT>

      </TD></TR>

    <TR class=titulo_campos><TD>Anotações<br>

      <TEXTAREA style="width=350;height=50" name="anotacoes"  onKeyPress="desabilita_cor(this)" class=campos_formulario></TEXTAREA>

      </TD></TR>

    <TR class=titulo_campos><TD>Valor<br>

      <%If objRS.Fields("valor").properties("IsAutoIncrement") = False Then%>

      <INPUT style="width=100" type="text" name="valor" maxlength="255" value=""  onKeyPress="reais(this,event)" onKeyDown="backspace(this,event)" df_verificar="sim" class=campos_formulario>

      <%

Else

  Response.Write "<B>(Automático)</B>"

End If

%>

      </TD></TR>

    <TR class=titulo_campos>

      <TD>Total de Parcelas <br>

        <%If objRS.Fields("totalparcelas").properties("IsAutoIncrement") = False Then%>

        <INPUT style="width=100" type="text" name="totalparcelas" maxlength="255" value=""  onKeyPress="reais(this,event)" onKeyDown="backspace(this,event)" df_verificar="sim" class=campos_formulario>

        <%

Else

  Response.Write "<B>(Automático)</B>"

End If

%></TD>

    </TR>

    <TR class=titulo_campos><TD>Situação<BR>

      <SELECT style="width=350" name="situacao" df_verificar="sim" onChange="desabilita_cor(this)" class=campos_formulario>

        <OPTION value=""></OPTION>

        <OPTION value="Em Aberto">Em Aberto</OPTION>

        <OPTION value="Paga">Paga</OPTION>

        </SELECT>

      </TD></TR>

    <TR class=titulo_campos><TD>Ref.<BR>

      <SELECT style="width=50" name="Referencia" df_verificar="sim" onChange="desabilita_cor(this)" class=campos_formulario>

        <OPTION value=""></OPTION>

        <OPTION value="Jan">Jan</OPTION>

        <OPTION value="Fev">Fev</OPTION>

        <OPTION value="Mar">Mar</OPTION>

        <OPTION value="Abr">Abr</OPTION>

        <OPTION value="Mai">Mai</OPTION>

        <OPTION value="Jun">Jun</OPTION>

        <OPTION value="Jul">Jul</OPTION>

        <OPTION value="Ago">Ago</OPTION>

        <OPTION value="Set">Set</OPTION>

        <OPTION value="Out">Out</OPTION>

        <OPTION value="Nov">Nov</OPTION>

        <OPTION value="Dez">Dez</OPTION>

        </SELECT>

      </TD></TR>

    <TR class=titulo_campos><TD>

      <%If objRS.Fields("registro").properties("IsAutoIncrement") = False Then%>

      <INPUT style="width=350" type="hidden" name="registro" maxlength="255" value="<%=session("admin")%>" onKeyPress="desabilita_cor(this)"  df_verificar="sim" class=campos_formulario>

      <%

Else

  Response.Write "<B>(Automático)</B>"

End If

%>

      </TD></TR>

  </TABLE>

  <input type="submit" name="submit" value="Enviar" class=botao_enviar>

  </div>

</form>

Aonde eu insiro o código que você me passou?

Mário Monteiro · Maio 30, 2008

Daqueles campos todos o que muda de uma parcela para a outra?

vitorlouzada · Maio 30, 2008

Só vai mudar a data, os demais campos serão os mesmos.

Mário Monteiro · Maio 30, 2008

entao faz um for de 1 ate o numero de parcelas

dentro voce poe tudo que precisa para inserir outros registros

Na parte da data voce usa dateadd para somar um mes

Arquivado

Parcelar Contas e Gerar Duplicatas

Recommended Posts

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

vitorlouzada 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante