CARTAO PONTO NO CRYSTAL REPORTS
Olá.
Gostaria de imprimir cartão ponto em branco no crystal reports 8.
Será que seria possÃvel imprimir em cada linha, um novo dia do mês selecionado?
Mais ou menos assim
dia entrada saida
01
02
.
.
31
Obrigado
Gostaria de imprimir cartão ponto em branco no crystal reports 8.
Será que seria possÃvel imprimir em cada linha, um novo dia do mês selecionado?
Mais ou menos assim
dia entrada saida
01
02
.
.
31
Obrigado
Dá sim.
Você pode criar 31 fórmulas e ir colocando em cada linha. De o nome das fórmulas de @Dia1, @dia2, .... @dia31
as formulas poderiam ser passadas pelo vb Ex:
Private sub Imprimir()
dim wUltimodiaMes as integer
wUltimodiaMes = ultimo_dia_mes(year(date),month(date)) [ô]ou pesse os valores de ano e mes conforme sua necessidade.
for i = 1 to wultimoDiaMes
report1.Formulas(i) = [Ô]dia[Ô] & i & [Ô]=[Ô] & i
next
report1.action = 1
End Sub
Function ULTIMO_DIA_MES(ano, mes) As Integer
ULTIMO_DIA_MES = Day(DateSerial(ano, mes + 1, 1) - 1)
End Function
Você pode criar 31 fórmulas e ir colocando em cada linha. De o nome das fórmulas de @Dia1, @dia2, .... @dia31
as formulas poderiam ser passadas pelo vb Ex:
Private sub Imprimir()
dim wUltimodiaMes as integer
wUltimodiaMes = ultimo_dia_mes(year(date),month(date)) [ô]ou pesse os valores de ano e mes conforme sua necessidade.
for i = 1 to wultimoDiaMes
report1.Formulas(i) = [Ô]dia[Ô] & i & [Ô]=[Ô] & i
next
report1.action = 1
End Sub
Function ULTIMO_DIA_MES(ano, mes) As Integer
ULTIMO_DIA_MES = Day(DateSerial(ano, mes + 1, 1) - 1)
End Function
Tópico encerrado , respostas não são mais permitidas