Programando em VB com ScriptReport

[filipe.sistemas]

Olá bom dia a todos,

Atualmente programo em C, estou começando agora a programar em VB, gostaria de uma orientação para programar em ScriptReport, se teria alguma apostila postada no forum falando sobre criação de relatórios.

Gostaria de desenvolver para esse relatório

Option Explicit

Dim Posicao As Date

Dim QParcelas As Object

Dim QMov As Object

Dim valor As Currency

Dim dias As Long

Dim s As String

Dim s1 As String

Dim r As Object

Dim t As String

Public Sub REPORT_BeforePrint(PrintReport As Boolean)

Set QParcelas = REPORT.QueryByName("FN_PARCELAS")

s = "SELECT SUM(VALORESBAIXADOS) BAIXAS FROM FN_PARCELAS WHERE HANDLE = :PARCELA AND VCTOPRORROGADO <= :POSICAO"

Set QMov = NewQuery

QMov.Clear

QMov.Add(s)

End Sub

Public Sub REPORT_DestroyData()

Set QParcelas = Nothing

Set QMov = Nothing

End Sub

Public Sub REPORT_OnMacroValue(ByVal Name As String, ResultValue As Variant)

' resultvalue = 0

Select Case Name

Case "CATEGORIA"

t = ""

t = t + " SELECT NOME FROM GN_CATEGORIASCLIENTE WHERE HANDLE IN (SELECT CATEGORIACLIENTE FROM GN_PESSOAS WHERE HANDLE IN "

t = t + " (SELECT PESSOA FROM FN_DOCUMENTOS WHERE HANDLE=:DOCUMENTO)) "

Set r=NewQuery

r.Add(t)

'' MsgBox(QParcelas.FieldByName("DOCUMENTO").AsString)

r.ParamByName("DOCUMENTO").AsInteger = QParcelas.FieldByName("DOCUMENTO").AsInteger

r.Active=True

If r.FieldByName("NOME").AsString="" Then

ResultValue= "Cliente Sem Polo Associado"

Else

ResultValue= r.FieldByName("NOME").AsString

End If

r.Active=False

Set r = Nothing

Case "VENC1A10"

dias = DateDiff("d",QParcelas.FieldByName("VCTOPRORROGADO").AsDateTime,Posicao)

QMov.ParamByName("PARCELA").Value = QParcelas.FieldByName("HANDLE").Value

QMov.ParamByName("POSICAO").Value = Posicao

QMov.Active = True

If QMov.EOF Then

MsgBox "fim"

End If

If (QMov.EOF Or QMov.FieldByName("BAIXAS").IsNull) Then

valor = QParcelas.FieldByName("VALOR").AsFloat

Else

valor = (QParcelas.FieldByName("VALOR").AsFloat - QMov.FieldByName("BAIXAS").AsFloat)

End If

QMov.Active = False

If (dias >= 1 And dias <= 10) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "VENC11A30"

If (dias >= 11 And dias <= 30) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "VENC31A60"

If (dias >= 31 And dias <= 60) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "VENC61a90"

If (dias >= 61 And dias <= 90) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "VENC91a120"

If (dias >= 91 And dias <= 120) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "VENC121a180"

If (dias >= 121 And dias <= 180) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "VENC181a360"

If (dias >= 181 And dias <= 360) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "VENCAC361"

If (dias >= 361) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "VENCTOTAL"

If (dias >= 1) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "AVENC1A5"

If (dias >= -5 And dias <= 0) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "AVENC6A30"

If (dias >= -30 And dias <= -6) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "AVENC31A60"

If (dias >= -60 And dias <= -31) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "AVENCAC60"

If (dias < -60) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "AVENCTOTAL"

If (dias <= 0) Then

ResultValue = valor

Else

ResultValue = 0.0000

End If

Case "TOTAL"

ResultValue = valor

valor = 0.0000

End Select

End Sub

Public Sub REPORT_SetParams(ByVal aParams As String)

Dim i As Long

Dim D As String

D = ShortHint(aParams)

i = StrPos("=",D)

Posicao = CDate(Mid(D,i+1,Len(D)-i))

End Sub