FORMULA NO CRYSTAL REPORTS
ADILSOO
por exemplo
o usuário parcela em 3 vezes para 30 ,60, 90 dias a partir da data da compra.
se ele compra hj 9/03/2012 o primeiro vencimento sera dia 9/04/2012
e assim por diante .
por exemplo
o usuário parcela em 3 vezes para 30 ,60, 90 dias a partir da data da compra.
se ele compra hj 9/03/2012 o primeiro vencimento sera dia 9/04/2012
e assim por diante .
Mas como vc esta alimentando o dataset?
Da uma olhada NESSE TÓPICO e ve se te ajuda, qualquer coisa posta aÃ, comigo deu certo, e a quantidade de parcelas que voce quiser...
estou fazendo da seguinte maneira
Private Sub data()
Dim data As Date
Dim dia As Integer
Dim parcela As Integer
Dim venc As Integer
Dim i As Integer
data = frmVendas.dtVenda.Text
dia = frmVendas.lblDiasVencimento.Text
parcela = frmVendas.lblQtdParcelas.Text
For i = 0 To i <= parcela
venc = data + dia
venc += dia
Next
End Sub
porem da o seguinte erro :
[Ô]O operador [ô]+[ô] não esta definido para os tipos [ô]Date[ô] e [ô]Integer[ô]
Private Sub data()
Dim data As Date
Dim dia As Integer
Dim parcela As Integer
Dim venc As Integer
Dim i As Integer
data = frmVendas.dtVenda.Text
dia = frmVendas.lblDiasVencimento.Text
parcela = frmVendas.lblQtdParcelas.Text
For i = 0 To i <= parcela
venc = data + dia
venc += dia
Next
End Sub
porem da o seguinte erro :
[Ô]O operador [ô]+[ô] não esta definido para os tipos [ô]Date[ô] e [ô]Integer[ô]
Dim PrimeiraParcela As Date
PrimeiraParcela = [Ô]01/01/2012[Ô]
For Parc = 1 To 11
List1.AddItem Parc + 1 & [Ô]ª [Ô] & DateAdd([Ô]m[Ô], Parc, PrimeiraParcela)
Next Parc
use o dateadd fica mais facil no caso de parcelas.
PrimeiraParcela = [Ô]01/01/2012[Ô]
For Parc = 1 To 11
List1.AddItem Parc + 1 & [Ô]ª [Ô] & DateAdd([Ô]m[Ô], Parc, PrimeiraParcela)
Next Parc
use o dateadd fica mais facil no caso de parcelas.
Bom,
Bolei um exemplo aqui para ver se ajuda um pouco.
Bolei um exemplo aqui para ver se ajuda um pouco.
Muito Obrigada mesmo ALTAIR148, deu certinho..
agora so mais uma pergunta
eu tenho um função cliente e uma função data (que voce me passou)
a função cliente eu chamo desse jeito:
Dim cr As New RelatorioVendas
cr.SetDataSource(ConsultaCliente.Tables(0))
frmReciboVenda.CrystalReportViewer1.ReportSource = cr
frmReciboVenda.Show()
Como eu posso chamar a função data junto para que elas aparecem no mesmo crystal reports
agora so mais uma pergunta
eu tenho um função cliente e uma função data (que voce me passou)
a função cliente eu chamo desse jeito:
Dim cr As New RelatorioVendas
cr.SetDataSource(ConsultaCliente.Tables(0))
frmReciboVenda.CrystalReportViewer1.ReportSource = cr
frmReciboVenda.Show()
Como eu posso chamar a função data junto para que elas aparecem no mesmo crystal reports
Esse relatório é preenchido com dados do banco?
A função ConsultaCliente sim
Nesse caso teria que gravar os vencimentos também no banco.
Tópico encerrado , respostas não são mais permitidas