VERIFIVAR PENDENCIAS DO SISTEMA

ERINALDO 25/11/2006 11:44:15
#186230

Galera criei essa rotina para notificar as pendencias do sistema
eis a duvida como eu exibo essas verificações para o usuario
so uma Mensagem,ou eu coloco um form para abrir com as pendencias
a fuà±ção vai exibir Pedidos e Orçamentos que estiverem Com data inferior A hoje ou que vence no periodo de um dia


[txt-color=#ff0000]Sub CriaNotificacoes()
Hoje = Format(Date, "mm/dd/yy")

'Verifica Pedidos Vencidos
DataNotif.RecordSource = "Select NumPedido from VendasPedidos where Alarme = true and DataVencimento <= #" & Hoje & "#": DataNotif.Refresh
If DataNotif.Recordset.RecordCount > 0 Then
DataNotif.Recordset.MoveFirst
Do While Not DataNotif.Recordset.EOF
Banco.Execute "Insert Into Notificacoes (Mensagem) values ('" & "Pedido Nº " & DataNotif.Recordset("NumPedido") & " Vencido." & "')"
DataNotif.Recordset.MoveNext
Loop
End If

'Verifica Orcamentos Vencidos
DataNotif.RecordSource = "Select Codigo from VendasOrcamento where Alarme = true and DataVencimento <= #" & Hoje & "#": DataNotif.Refresh
If DataNotif.Recordset.RecordCount > 0 Then
DataNotif.Recordset.MoveFirst
Do While Not DataNotif.Recordset.EOF
Banco.Execute "Insert Into Notificacoes (Mensagem) values ('" & "Orçamento Nº " & DataNotif.Recordset("Codigo") & " Vencido." & "')"
DataNotif.Recordset.MoveNext
Loop
End If


End Sub[/txt-color]