emogen

Não estou inserindo Dinho, apenas consultando a base de dados o data como critério. O problema é que o tipo de dados da base é timestamp e tenho que compará-lo com, por exemplo, a data de hoje!

Como deixar os dois no mesmo tipo ou converter um dos dois?

Ai vai o código que fiz:

Código da Seção Detalhe

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
On Error GoTo trata
Dim SQL As String
Dim rs As New Recordset
Dim Horas, CustoFinal, total_horas_normais As Double
Dim I As Integer

For I = 1 To 3
Set rs = New ADODB.Recordset
If I = 1 Then
SQL = "select total_extra from t_horarios where datepart('w',data) in (2,3,4,5,6) and login='" & Me.ACESSOS.Text & "'"
ElseIf I = 2 Then
SQL = "select total_extra from t_horarios where datepart('w',data)=1 and login='" & Me.ACESSOS.Text & "'"
ElseIf I = 3 Then
SQL = "select total_extra from t_horarios where datepart('w',data)=7 and login='" & Me.ACESSOS.Text & "'"
End If
rs.Open SQL, _
CurrentProject.Connection, _
adOpenKeyset, _
adLockOptimistic

While Not rs.EOF
If Not IsNull(rs(0)) Then
Horas = Horas + CDbl(CDate(rs(0)))
End If
rs.MoveNext
Wend
If I = 1 Then
Me.txt_extra20.Value = Horas * 24
ElseIf I = 2 Then
Me.txt_extra50.Value = Horas * 24
ElseIf I = 3 Then
Me.txt_extra30.Value = Horas * 24
End If
Horas = 0
rs.Close
Set rs = Nothing
Next I
CustoFinal = CDbl(Me.cust_final.Text)
totalhorasnormais = totalhorasnormais + CDbl(Me.tot_horas_normais.Text)
totalhe = totalhe + CDbl(Me.tot_horas_adicionais.Text)
totcom = totcom + CDbl(Me.txt_comissao.Value)
totaj = totaj + CDbl(Me.tot_aj_custo.Value)
totcoop = totcoop + CDbl(Me.tot_cooperado.Value)
encprod = encprod + CDbl(Me.tot_encargos.Value)
encaj = encaj + CDbl(Me.encargos_ajcusto.Value)
vinss = vinss + CDbl(Me.tot_inss.Value)
Total_Parcial = Total_Parcial + CustoFinal
Exit Sub
trata:
Exit Sub
End Sub


Código que chama as variáveis da Seção Detalhe:

Private Sub RodapéDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
Me.total_FINAL.Value = Total_Parcial
Me.txt_totg_hn.Value = totalhorasnormais
Me.txt_totg_he.Value = totalhe
Me.txt_tot_comissao.Value = totcom
Me.txt_totg_aj.Value = totaj
Me.txt_tog_coop.Value = totcoop
Me.txt_totg_encprod.Value = encprod
Me.txt_tog_encaj.Value = encaj
Me.txt_totg_inss.Value = vinss
End Sub

A aplicação é em VB6! Que eu saiba o Setup Wizard existe na versão 5 do VB.

Você diz a JVM? Vou tentar e depois te escrevo o que aconteceu!

Olá galera,

Olha, fiz uma gambi que deu certo, só não sei se vale a pena fazer isto em várias máquinas. No Sistema da máquina da pessoa, vá nas variáveis de ambiente inclua no path o caminho do aplicativo que você deseja executar.

EX: vamos supor que o aplicativo seja o Word. Seu caminho seria:
C:\arquivos de programas\microsoft office\office

o path da máquina do usuário seria:
C:\windows;C:\windows\command

Você acrescentaria ao path um ponto e virgula + o caminho do word focando assim:

C:\windows;C:\windows\command;C:\arquivos de programas\microsoft office\office

Depois no Flash bastaria colocar como argumento apenas winword

O caminho ficaria por conta do path do windows.