MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Baixa automática

    RDuarte
    RDuarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 23/11/2012

    [Resolvido]Baixa automática Empty [Resolvido]Baixa automática

    Mensagem  RDuarte 8/8/2014, 17:04

    Senhores do Fórum, boa tarde.

    Estou criando um projeto(está em fase de estudo),a minha questão é sobre baixa automática dos pagamentos enviados no relatório em txt do banco recebedor, porém o código criado baixa todas as parcelas do Contas a Receber. Queria apenas que fosse baixado as parcelas que constam no relatório somente.

    Segue o código em vba que está no botão (baixa automática) no formulário "Relação de Parcelas"

    .................................................................................
    Private Sub cmdBaixar_Click()

    Dim strSql As String
    Dim db As Database
    Dim rs As Recordset
    Dim rsP As Recordset
    Dim dtBaixa As Date
    Dim i As Integer

    Set db = CurrentDb

    dtBaixa = Me.txtData.Value

    If IsNull(Me.txtData) Then
    MsgBox ("Necessário digitar uma data válida!"), vbInformation, "Atenção!"
    Exit Sub
    End If
           
    i = 0

    strSql = "SELECT * FROM tabDetRetornoBanco WHERE tabDetRetornoBanco.pagtoRetorno Like '" & dtBaixa & "'"

    Set rs = db.OpenRecordset(strSql)

    Set rsP = db.OpenRecordset("tabDetParcelas", dbOpenTable)

    Do While Not rsP.EOF

      rsP.Edit
      rsP!pagtoParcela = rs!pagtoRetorno
      rsP!valorPagoParcela = rs!valorPagoRetorno
      rsP.Update
     
      rsP.MoveNext
     
      i = i + 1
       
    Loop

    rs.Close
    rsP.Close

    Set rs = Nothing
    Set rsP = Nothing

    MsgBox ("Foram atualizados " & i & " registros!"), vbInformation, "Atualização"

    Me.Requery

    Me.txtData = Null
    Me.txtData.SetFocus

    End Sub
    .................................................................................

    Segue também em anexo o bd e o modelo do relatório em txt.

    Grato a todos!

    RDuarte
    Anexos
    [Resolvido]Baixa automática AttachmentImportaBanco.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (450 Kb) Baixado 12 vez(es)
    RDuarte
    RDuarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 23/11/2012

    [Resolvido]Baixa automática Empty Baixa automática

    Mensagem  RDuarte 8/8/2014, 17:06

    Estou enviando o modelo do relatório em txt enviado pelo banco (apenas um rascunho).

    Obrigado.
    RDuarte
    Anexos
    [Resolvido]Baixa automática AttachmentCobrança Simples_10_09_2014.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Kb) Baixado 18 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Baixa automática Empty Re: [Resolvido]Baixa automática

    Mensagem  Noobezinho 8/8/2014, 17:54

    Olá

    Romi escreveu:
    Segue também em anexo o bd e o modelo do relatório em txt.


    Cadê o bd?

    Abraços


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    RDuarte
    RDuarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 23/11/2012

    [Resolvido]Baixa automática Empty Baixa automática

    Mensagem  RDuarte 9/8/2014, 02:16

    Noobezinho, tudo bem.

    O anexo referente ao bd está na mensagem inicial, ok.

    RDuarte
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Baixa automática Empty Re: [Resolvido]Baixa automática

    Mensagem  Noobezinho 9/8/2014, 14:07

    Romi

    Tai o teu exemplo modificado

    O campo pagtoRetorno mudei para DtpagtoRetorno por ser um campo data( estava me confundindo)  Razz 

    Ao invés de código criei 2 consultas:

    -Uma seleção onde refina os dados pela data digitada no formulário Relação das parcelas
    -E  a consulta Atualização que contem a consulta seleção acima + a tabela das parcelas.

    Teste bastante, veja se funfou legal

    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    RDuarte
    RDuarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 23/11/2012

    [Resolvido]Baixa automática Empty Baixa automática

    Mensagem  RDuarte 14/8/2014, 03:00

    Noobezinho.

    Muito obrigado.

    Desculpe a demora no retorno é que tem alguns dias que não acesso o meu computador.
    Realmente com as consultas funcionam, ficou show.

    Por isso estou dando o tópico como resolvido.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Baixa automática Empty Re: [Resolvido]Baixa automática

    Mensagem  Noobezinho 14/8/2014, 04:14

    Ótimo

    Valeu o retorno

    Boa sorte!

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Baixa automática Empty Re: [Resolvido]Baixa automática

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 09:59