Avisar sobre pedido pendente

Boa tarde

Tenho em minha tabela de fornecedores (sistema de compras),
300 fornecedores , que serão efetuados pedidos uma vez por mes.

Preciso que quando selecionar um fornecedor (no formulario) para um novo pedido, o sistema me avise
se já tem algum pedido desse fornecedor efetuado e pendente de entrega.

Tenho um campo na tabela com a opção entregue ou não ( sim/não), pois os pedidos levam em média
20 dias para serem entregues. Preciso desse alerta para não correr o risco de comprar novamente.

E assim que o campo for marcado como entregue, o cliente volta ao status normal, ou seja,
fica novamente sem o alerta.

saudações

Almir

boa tarde amigo Almir, tente postar o Bd ou parte dele para tentarmos ajudar abraço Nogaro !

Dropbox este é um meio prático de postar → https://db.tt/q5hoX89l

https://www.dropbox.com/sh/4wutml0gzfb2f1x/AACrM09k6c1RXbmHlCgbnO7ba?dl=0

Bom dia

Segue link Dropbox com meu projeto.

Fico no aguardo, pois são muitas as duvidas.
Mas vamos por etapas, primeiro preciso que o sistema me alerte sobre pedidos
já realizados e pendentes de entregas.

Atenciosamente

Almir

boa tarde Almir fis uma pequena alteração no form Compras coloquei um alerta " Livre para Pedidos "
mediante marcar o campo entregue abraço Nogaro !

https://goo.gl/9QOaZT

Bom dia

Grato pela atenção.

Achei interessante a alteração, me passa depois como fez isso ou algum tópico que tenha esse exemplo.

Vou tentar explicar melhor:
No inicio das compras essa alteração atenderia, porem quando o BD ficar carregado de pedidos(acima de 1000),
não será produtivo ficar consultando pedido a pedido. a necessidade do alerta é entre o pedido efetuado do fornecedor
e a data dessa entrega, pois nesse período é que preciso da informação se existe pedido em transito, devido ao prazo
de entrega ser em média 20 dias úteis. Então, enquanto eu não marcar o campo entregue corre-se o risco de comprar
novamente, pois são mais de 300 fornecedores e média de 400 pedidos mês. Após a entrega eu ja tenho o produto em
estoque daí o sistema não me sugere comprar, pois as consultas seguem parâmetros de estoque mínimo e máximo.
Para uma melhor funcionalidade o sistema necessita de alerta de pedido pendente de entrega ou ambos:

Livre para pedidos
ou
Há pedido pendente entrega

No menu inicial do BD (Btn Relatórios), mostra a pesquisa das necessidades de compras em R$ por fornecedor em
ordem decrescente. As compras seguem essa ordem, daí a necessidade do alerta para pedidos pendentes.
Eu poderia gerar um relatório de compras pendentes de entrega e ficar consultando antes de comprar, só que
daí seria manual, a ideia é automatizar a informação.


Espero ter conseguido explicar melhor

att

Almir

boa noite Almir este exemplo que fiz seria o limite do que eu poderia te ajudar vamos aguardar por outros membros do Fórum com mais conhecimentos que possam te ajudar abraço Nogaro !

https://www.dropbox.com/sh/4wutml0gzfb2f1x/AACrM09k6c1RXbmHlCgbnO7ba?dl=0

bom dia

Prezados,
Quanto a opção de verificar sobre pedidos pendentes de entrega, já consegui resolver
vinculando um FR de pesquisa de pedidos, vinculado ao fornecedor. sempre que seleciono
um fornecedor, o FR realiza uma consulta dos ultimos pedidos.
O BD alterado esta disponível no link acima.

Tentei adaptar um módulo baixado do site (parcelas_2008), porem quando executo o
parcelamento o sistema não dá erro, porem nada acontece.
Se puderem me ajudar analisando o que fiz de errado, ficarei muito grato.


Att.

Almir

Bom dia a todos

Consegui gerar as parcelas, mas ainda tenho problemas:

Prezados, consultei alguns tópicos , sobre o retorno no resultado
ano "1900", porem não consegui resolver a minha duvida.
Sistema de compras (access 2013 - windows 8)em que
no processo da geração das parcelas da compra, os vencimentos resultam ano
1900.
seguem os códigos que utilizo para gerar as parcelas:

Private Sub BT_PARC_Click()

If (DLookup("PARCELAS", "TAB_DET_PAGTO", "[CODPED] = " & [PEDCOMPRA]) = 1) Then
MsgBox "ESSE PEDIDO JÁ FOI PARCELADO, PARA NOVO CÁLCULO EXCLUA AS PARCELAS OU O PEDIDO.", vbInformation, "ATENÇÃO"
Exit Sub

ElseIf (Me.VALOR_FINAL) > 0 And (Me.PAGAR > 0) Then

Dim DB
Dim RS
Dim I As Integer

Correct = DD_VENC
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("TAB_DET_PAGTO")

For I = 1 To Me.PAGAR
RS.AddNew
RS("codped") = Me.PEDCOMPRA
RS("PARCELAS") = I
RS("VALOR") = Round(Me.VALOR_FINAL / Me.PAGAR, 2)
RS("VENCIMENTO") = DateAdd("d", (I - 1) * Correct, DD_VENC)

RS.Update

Next

RS.Close
DB.Close

Me.FR_FR_SUB_CS_PAGTO_DET.Requery
Me.DATA.SetFocus

Else
End If

End Sub

Tenho um campo no Formulário principal (data_parc), que utilizo para determinar a data do vencimento
da primeira parcela e um campo (dd_venc), que utilizo para colocar os dias de prazo entre cada parcela,
que podem variar, ex: 21, 28, 30, 45...etc
As parcelas podem variar de "1" até "12" no máximo
Nesse campo, data da primeira parcela, o sistema entende como 30/12/1900, pois sempre faz os cálculos a partir do
dia 30, mesmo que digite 22/12/2015

Além desse problema do ano 1900, preciso também que o vencimento da 1º parcela seja igual a data do campo data_parc,
e as outras subsequentes obedecendo os intervalos em dias.

Espero ter conseguido explicar direito a minha necessidade.

Atenciosamente

Almir Cumpri