MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Gerar mensalidades automaticamente

    avatar
    bruno.mhf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 23/05/2011

    [Resolvido]Gerar mensalidades automaticamente Empty [Resolvido]Gerar mensalidades automaticamente

    Mensagem  bruno.mhf em 19/5/2020, 00:31

    Boa Noite!

    Estou criando um Sistema para gerar uma arquivo de débito automático de uma associação para o banco debitar as mensalidades, já temos o convenio, o layout do arquivo, por hora estou fazendo o BD com os formulários, após vou pra parte de gerar o arquivo.REM (um arquivo texto com linha reader e determinados dados).

    Quero um formulário onde eu selecione o convenio ; e gere as mensalidades para todos os clientes com situação "Ativa" e valores de acordo com a tabela clientes, com vencimento na data que digitar no formulario.
    Atualmente o software que o banco fornece tem que gerar um por um, como a mensalidade é de valor fixo, deve haver uma forma de automatizar

    Será que é muito difícil?

    Bd até onde fui

    https://drive.google.com/open?id=1YbyHjJ8uUvxFbxymByzp5Dmpr6FUy9Uj
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 602
    Registrado : 23/03/2010

    [Resolvido]Gerar mensalidades automaticamente Empty Re: [Resolvido]Gerar mensalidades automaticamente

    Mensagem  Finformática em 19/5/2020, 12:59

    Caro Amigo,

    Onde tem o convênio do cliente?
    Onde vai gravar os resultados para cada cliente com tabelas com uma chave primária?

    Abraços
    avatar
    bruno.mhf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 23/05/2011

    [Resolvido]Gerar mensalidades automaticamente Empty Re: [Resolvido]Gerar mensalidades automaticamente

    Mensagem  bruno.mhf em 19/5/2020, 14:45

    Onde tem o convênio do cliente?
    (como vai ser um sistema só pro nosso convenio, nao vinculei, existe o convenio só pra ter a informação no arquivo)


    Onde vai gravar os resultados para cada cliente com tabelas com uma chave primária?
    ( na tabela débitos )


    To meio perdido, faz tempo que não uso access, e surgiu essa necessidade, me deem uma luz!
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 602
    Registrado : 23/03/2010

    [Resolvido]Gerar mensalidades automaticamente Empty Re: [Resolvido]Gerar mensalidades automaticamente

    Mensagem  Finformática em 19/5/2020, 15:50

    Caro Bruno,

    Veja este botão Gerar. Seria isso mesmo?
    Lembrando que não está criticando o convênio. Conforme você falou, só vai trabalhar com um. Aconselho criar logo esse campo na tabela de Clientes, lá na frente aparece outro convênio, como vai separar? Pense no futuro.

    Abraços
    Anexos
    [Resolvido]Gerar mensalidades automaticamente AttachmentBJW Com código gerar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (218 Kb) Baixado 12 vez(es)
    avatar
    bruno.mhf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 23/05/2011

    [Resolvido]Gerar mensalidades automaticamente Empty Re: [Resolvido]Gerar mensalidades automaticamente

    Mensagem  bruno.mhf em 19/5/2020, 16:03

    Bah show de bola, daqui pra diante vou tentando me virar rsrsrs


    Poderia fazerum comentário no código pra eu tentar entender como funciona?? talvez outras situações conseguirei fazer sozinho:

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Dim rs3 As DAO.Recordset
    Dim TotalX As Integer
    TotalX = 0
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT * FROM [Clientes]")
    Set rs2 = db.OpenRecordset("SELECT * FROM [Remessa]")
    Set rs3 = db.OpenRecordset("SELECT * FROM [debitos]")

    Do While Not rs.EOF
    rs3.AddNew
    If rs![situacao] = "Ativo" Then ' And Me.[Convenio] Then
    rs3![Id_mensalidade] = Me.[Id_remessa]
    rs3![Cliente] = rs![Cod_Cliente]
    rs3![Vencimento] = Me.[Vencimento]
    rs3![vlr_Mensalidade] = Me.[vlr_Mensalidade]
    TotalX = TotalX + Me.[vlr_Mensalidade]
    End If


    rs3.Update
    rs3.Requery

    rs.MoveNext
    Loop
    Me.[Total] = TotalX


    rs.Close
    Set rs = Nothing
    rs2.Close
    Set rs2 = Nothing
    rs3.Close
    Set rs3 = Nothing
    db.Close
    Set db = Nothing

    Exit Sub
    trata_erro:

    'Call MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Call MsgBox("Erro nº " & Err.Number & " - " & Err.Description)

    MsgBox "TERMINADO..."
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 602
    Registrado : 23/03/2010

    [Resolvido]Gerar mensalidades automaticamente Empty Re: [Resolvido]Gerar mensalidades automaticamente

    Mensagem  Finformática em 19/5/2020, 17:29


    Dim db As DAO.Database

    'definição de variáveis
    Dim rs As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Dim rs3 As DAO.Recordset
    Dim TotalX As Integer
    TotalX = 0
    Set db = CurrentDb()

    'cria conjunto de registo para trabalho
    Set rs = db.OpenRecordset("SELECT * FROM [Clientes]")
    Set rs2 = db.OpenRecordset("SELECT * FROM [Remessa]")
    Set rs3 = db.OpenRecordset("SELECT * FROM [debitos]")

    'Faz um laço até chegar no fim da tabela (End Of File)
    Do While Not rs.EOF

    'Adicionar novo registro
    rs3.AddNew

    If rs![situacao] = "Ativo" Then ' And Me.[Convenio] Then ' Verifica se campo situação é igual a Ativo. Se Sim, grava os conteúdos na tabela Débitos (rs3), se Não, não faz nada. O laço vai mandar para próximo registro.

    'Gravando conteúdo na tabela
    rs3![Id_mensalidade] = Me.[Id_remessa]
    rs3![Cliente] = rs![Cod_Cliente]
    rs3![Vencimento] = Me.[Vencimento]
    rs3![vlr_Mensalidade] = Me.[vlr_Mensalidade]

    TotalX = TotalX + Me.[vlr_Mensalidade] ' Acumula total das mensalidades para gravar no final do processo
    End If

    'Grava atualiza tabelas
    rs3.Update
    rs3.Requery

    'Vai para próximo registro
    rs.MoveNext
    'Faz retornar o laço
    Loop

    'Grava total de mensalidades
    Me.[Total] = TotalX


    'Fecha recordset, conexões...
    rs.Close
    Set rs = Nothing
    rs2.Close
    Set rs2 = Nothing
    rs3.Close
    Set rs3 = Nothing
    db.Close
    Set db = Nothing

    Exit Sub
    trata_erro:

    'Call MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Call MsgBox("Erro nº " & Err.Number & " - " & Err.Description)

    MsgBox "TERMINADO..."
    avatar
    bruno.mhf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 23/05/2011

    [Resolvido]Gerar mensalidades automaticamente Empty Re: [Resolvido]Gerar mensalidades automaticamente

    Mensagem  bruno.mhf em 19/5/2020, 17:37

    Obrigado! Como encerro o topico?
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 602
    Registrado : 23/03/2010

    [Resolvido]Gerar mensalidades automaticamente Empty Re: [Resolvido]Gerar mensalidades automaticamente

    Mensagem  Finformática em 19/5/2020, 20:28

    Vá para Responder. A última linha da janela que abre tem um botão Resolvido. Click
    avatar
    bruno.mhf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 23/05/2011

    [Resolvido]Gerar mensalidades automaticamente Empty Re: [Resolvido]Gerar mensalidades automaticamente

    Mensagem  bruno.mhf em 19/5/2020, 22:21

    Obrigado!

      Data/hora atual: 4/12/2020, 07:14