Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom Dia!!!
Tenho um Sstema de Parcelamento de Contratos desenvolvido em Access, Gostaria de executá-lo via ASP.
Código Abaixo:
Sub cmdParcelas_Click()
If Me.curValor <= 0 Then 'Se valor do contrato for <= 0
Exit Sub
End If
'Salva o contrato
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim db As Database, rs As Recordset
Dim ValParc As Currency, I As Byte
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_Parcelas") 'Abre tbl_Parcelas
ValParc = Me.curValor / Me.bytParcelas 'Valor de cada Parcela
For I = 1 To Me.bytParcelas 'Insere as Parcela na Tabela
rs.AddNew
rs("lngNumContrato") = Me.lngNumContrato
rs("bytParcela") = I
rs("curValor") = ValParc
'Calcula as datas de Vencto através da função DateAdd()
rs("dtVencimento") = DateAdd("m", I - 1, Me.dtContrato)
rs.Update
Next
rs.Close
db.Close
Me.subfrm_Parcelas.SetFocus 'Foco no SubForm Parcelas
Me.cmdParcelas.Enabled = False 'Desativa o botão Parcelas
Me.subfrm_Parcelas.Requery 'Atualiza o SubForm Parcelas
End Sub
Alguem tem uma Idéia ou Conhecimento para o Código em ASP.
Valeu.
Célido
Brother, é isto.
Ja procurei no forum e não vi exemplos que se aplicam.
Voce poderia ajudar no códiogo em ASP.
Valeu....
mas ja esta praicamente pronto pois usa VBScript tambem
Brothers, Obrigado pelos Comentários
O Problema é que sempre fiz sistemas em VBA. Para ASP uso o ASPMAKER. Gosto de usar ferramentas que AGILIZAM e FACILITAM O TRABALHO.
Eu sei. A Essência é aprender. Tenho um site que desenvolvi sózinho. (www.intravisa.com). Fiz este site apenas com os exemplos da Internet e Fóruns.
Agora estou tentando aprender VBscript e ASP.Net.
o Problema é que travei. Bati a cabeça na trave em um jogo de futebol. Agora estou voltando aos poucos,.
Preciso de um Exemplo de Parcelamento em ASP. é Isto.
Se alguem puder postar um modelo. Agradeço. Colocarei a Disposição o Site Intravisa para o pessoal do Forum.
Login : Admnistrador
Senha: 05031963
Agradeço a Todos.
Valeu
>
Bom Dia!!!
Tenho um Sstema de Parcelamento de Contratos desenvolvido em Access, Gostaria de executá-lo via ASP.
Código Abaixo:
Sub cmdParcelas_Click()
If Me.curValor <= 0 Then 'Se valor do contrato for <= 0
Exit Sub
End If
'Salva o contrato
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim db As Database, rs As Recordset
Dim ValParc As Currency, I As Byte
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_Parcelas") 'Abre tbl_Parcelas
ValParc = Me.curValor / Me.bytParcelas 'Valor de cada Parcela
For I = 1 To Me.bytParcelas 'Insere as Parcela na Tabela
rs.AddNew
rs("lngNumContrato") = Me.lngNumContrato
rs("bytParcela") = I
rs("curValor") = ValParc
'Calcula as datas de Vencto através da função DateAdd()
rs("dtVencimento") = DateAdd("m", I - 1, Me.dtContrato)
rs.Update
Next
rs.Close
db.Close
Me.subfrm_Parcelas.SetFocus 'Foco no SubForm Parcelas
Me.cmdParcelas.Enabled = False 'Desativa o botão Parcelas
Me.subfrm_Parcelas.Requery 'Atualiza o SubForm Parcelas
End Sub
Alguem tem uma Idéia ou Conhecimento para o Código em ASP.
Valeu.
Célido
Resolvido
Não tem jeito. A Unica Forma é faze-lo em ASP.
veja: Parcelamento em ASP x access.
veja: Solução em http://teste.intravisa.com
Valeu
Que bom que resolveu mesmo nao senda da forma inicialmente proposta
Que bom que resolveu mesmo nao senda da forma inicialmente proposta
Thanks Man. Living and Learnig.
http://forum.imasters.com.br/public/style_emoticons/default/clap.gif
você quer converter essa rotina para asp? É isso?