MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]alerta Vencimento

    Compartilhe

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    [Resolvido]alerta Vencimento

    Mensagem  fazerbem em 6/7/2018, 22:26

    Tenho uma agenda que me mostra numa caixa de texto todos os boletos que tenho a pagar no m6es corrente.
    Ao lado tenho um caixa Texto "A" onde quero que mostre quantos dias faltam para o boleto vencer de 5 dias pra baixo. 5, 4, 3, 2, 1, 0, -1, -2
    Caso venca hj entao em outro caixa texto "B" ira aparecer Boleto vencendo hoje e se nao for pago no dia seguinte ira aparecer BOLETO VENCIDO na caixa Texto "B"
    Podem me ajudar novamente ?

    A tabela onde estao essas Inf : tbl_ParcelaCompras

    [Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]" />

    Abaixo a agenda criei uma consulta , ode colho as inf pra por na caixa texto "C"que mostra o total de boletos do mes corrente, onde em "

    Fonte de controle de "C" = =DPesquisa("valorparcela";"CsinfContasApagarMes_2")

    [Você precisa estar registrado e conectado para ver esta imagem.]

    [Você precisa estar registrado e conectado para ver esta imagem.]



    Grato

    Andre
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 762
    Registrado : 09/11/2012

    Re: [Resolvido]alerta Vencimento

    Mensagem  =>Nois em 10/7/2018, 11:38

    bom se entendi direito voce precisa fazer isso na consulta

    crie um campo: dias_Vencimento e o outro Status


    dias_Vencimento: seimed([DataPagemento]>0;[vencimento]-[DataPagamento];[vencimento]-date)


    Status: seimed([dias_Vencimento]>1;"Boleto No Prazo";seimed([dias_Vencimento]=1;"Boleto Vencendo";"Boleto Vencido"))


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/01/2018

    Re: [Resolvido]alerta Vencimento

    Mensagem  livio.sfranca em 10/7/2018, 13:54

    Bom dia Andre,

    Use a fórmula DConta para contas a quantidade dos boletos à vencer:

    =DContar("IdParcelaCompra";"tbl_ParcelaCompras";"(Vencimento BETWEEN #" & Format(Data()-5;"mm/dd/yyyy") & "# AND #" & Format(Data()-1;"mm/dd/yyyy") & "#) AND (DataPagamento IS NULL)")

    Confira os nomes dos campos que coloquei, e corrija se estiverem errados.

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]alerta Vencimento

    Mensagem  fazerbem em 10/7/2018, 21:13

    Livio, mudei o projeto e vou aceitar a sua formula, porem alterei - sinal "-" para "+"

    =DContar("IdParcelaCompra";"tbl_ParcelaCompras";"(Vencimento BETWEEN #" & Format(Data()+5;"mm/dd/yyyy") & "# AND #" & Format(Data()+1;"mm/dd/yyyy") & "#) AND (DataPagamento IS NULL)")

    Grato

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]alerta Vencimento

    Mensagem  fazerbem em 11/7/2018, 23:48

    Reabrindo aqui

    Se um Boleto esta atrasado a formula abaixo me mostra o seu Valor ou os valores dos boletos., neste caso coloquei pra -1 dia.
    Por exemplo hj e dia 10/07 e tenho 2 boletos a pagar. Digamos que eu pague 1 e outro nao na mesma data de vencimento 10/07,
    Amanha dia 11/07 ao abrir o Form, a caixa de texto da formula abaixo, somará o Boleto pago e o nao pago.
    Eu quero que some somente aqueles que nao foram pagos. Desta forma como adapto uma extencao a esta formaula abaixo ?


    =Nz(DSoma("ValorParcela";"tbl_ParcelaCompras";"Vencimento=#" & Format(Data()-1;"mm/dd/yyyy") & "#");0)

    Como faco tb uma formula que pegue nao somente o dia anerior mas todos os dias anterios a data de hj que nao foram pagos ?

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Perceba que tem duas datas iguais 1 paga e outra nao, quero que na caixa de texto apareca o somatorio de todos os boletos que nao foram pagos abaixo da data atual.

    Quero tb por ao lado desta caixa, outra caixa de texto com uma formula que some a QNT de boletos em atraso. Neste caso da imagem QNT=1

    Esse forum aqui é bom Demais !!

    Grato

    Andre
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/01/2018

    Re: [Resolvido]alerta Vencimento

    Mensagem  livio.sfranca em 12/7/2018, 01:50

    Coloque uma condição em que quando o campo DataPagamento seja nulo, o valor do registro entrará na soma:
    AND DataPagamento IS NULL

    =Nz(DSoma("ValorParcela";"tbl_ParcelaCompras";"(Vencimento=#" & Format(Data()-1;"mm/dd/yyyy") & "#) AND (DataPagamento IS NULL)");0)


    E no caso de contar os boletos vencidos, use a mesma fórmula que passei antes, DContar, porém alterando o período "BETWEEN" por MENOR (<):

    =DContar("IdParcelaCompra";"tbl_ParcelaCompras";"(Vencimento < #" & Format(Data();"mm/dd/yyyy") & "#) AND (DataPagamento IS NULL)")

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]alerta Vencimento

    Mensagem  fazerbem em 12/7/2018, 02:22

    Vou fazer aqui e amanha te falo valeu Livio !

    Aproveitando, tenho uma outra funcao na minha agenda que funciona assim:

    Caixa 1 = Total das vendas do mês
    Caixa 2 = Minha meta do Mes ( R$ )
    caixa 3 = Restante para bater a meta do mês ( Caixa 2 - caixa 1)
    Caixa 4 = Media diaria para que a meta doo mes seja alcançada.

    Todas as caixas de 1 a 3 estao funcionando, somente a caixa 4 eu preciso fazer com que essa media seja = Caixa 3 / pelo total restante que falta para completar o mês )
    Assim conforme maior for a caixa 1, menor sera a media do dia.

    Por exemplo: esse mês sao 31 dias, hj é dia 11, entao 31-11= 20 . Entao na caixa 4 o resultado será = Caixa 3/20.
    Assim todo dia eu visualizo a minha meta diaria de vendas.

    Nem que pra isso eu inicio de cada mes coloque numa caixa texto separada a QNT de dias do mes corrente.

    Eu tenho isso em excel porque antes meu gerenciado era todo feito em Excel, Excel eu ate aprendi a dominar com o tempo, mas Access estou aprendendo ainda, por isso peco tanta ajuda aqui, mas ja esta 99% pronto meu sistema aqui.

    Grato amigo

    Andre



    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]alerta Vencimento

    Mensagem  fazerbem em 12/7/2018, 02:50

    Livio todos os 2 codigos funcionaram 100% muito obrigado !
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 09/01/2018

    Re: [Resolvido]alerta Vencimento

    Mensagem  livio.sfranca em 12/7/2018, 12:55

    Caixa 1 = Total das vendas do mês
    Caixa 2 = Minha meta do Mes ( R$ )
    caixa 3 = Restante para bater a meta do mês ( Caixa 2 - caixa 1)
    Caixa 4 = Media diaria para que a meta doo mes seja alcançada.
    Caixa4 = [txtCaixa3]/(DataSerial(Ano(Data());Mês(Data())+1;0)-Data())

    Troque Caixa3 pelo nome do seu TextBox.

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]alerta Vencimento

    Mensagem  fazerbem em 12/7/2018, 14:05

    Livio, de novo so tenho a lhe agradecer por mais esta ajuda.
    Ficou perfeito aqui.

    Andre

      Data/hora atual: 19/12/2018, 16:20