Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Macro para gerar parcelas no Base.

Saudações, colegas.

Comecei a desenvolver um banco de dados com o LibreOffice Base (pode-se classificá-lo como mini-ERP) para gerenciar minhas atividades administrativas e financeiras.

Logo, necessito automatizá-lo com um botão "gerar parcelas", para certos modos de pagamento, dos "pedidos" realizados. É uma questão comum nesses tipos de sistemas, e há uma certa facilidade em encontrar tais rotinas em fóruns de MS Access. Contudo, meu objetivo é trabalhar exclusivamente com o LibreOffice.

Alguém pode me apresentar um código, ou me orientar como encontrá-lo?

Desde já, agradeço por sua colaboração.

Macro para gerar parcelas no Base.

Saudações, colegas.

Comecei a desenvolver um banco de dados com o LibreOffice Base (pode-se classificá-lo como mini-ERP) para gerenciar minhas atividades administrativas e financeiras.

Logo, necessito automatizá-lo com um botão "gerar parcelas", para certos modos de pagamento, dos "pedidos" realizados. É uma questão comum nesses tipos de sistemas, e há uma certa facilidade em encontrar tais rotinas em fóruns de MS Access. Contudo, meu objetivo é trabalhar exclusivamente com o LibreOffice.

Alguém pode me apresentar um código, ou me orientar como encontrá-lo?

Desde já, agradeço por sua colaboração.



Exemplo de macro para esta finalidade no MSAccess:

    Private Sub  btnGerarParcelas_Click()
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("csPedidosPagar") 'Abre csPedidosPagar
    ValorParcela = txtSubTotal / txtQdadeParcelas 'Valor de cada parcela

    For f = 1 To QdadeParcelas 'Calcula o Loop (Insere as parcelas na csPedidosPagar)
        'Campos e valores a serem preenchidos
        rs.AddNew
        rs("IdPedido") = Me.IdPedido
        rs("ParcelaNo") = f
        rs("VlrParcela") = ValorParcela
        rs("DataVenc") = DateAdd("m", f - 1, Me.txtDataVenc)
        rs.Update
    Next        'Move para o Proximo

    rs.close()
    db.close()
end sub

Como eu adaptaria isso?

Macro para gerar parcelas no Base.

Saudações, colegas.

Comecei a desenvolver um banco de dados com o LibreOffice Base (pode-se classificá-lo como mini-ERP) para gerenciar minhas atividades administrativas e financeiras.

Logo, necessito automatizá-lo com um botão "gerar parcelas", para certos modos de pagamento, dos "pedidos" realizados. É uma questão comum nesses tipos de sistemas, e há uma certa facilidade em encontrar tais rotinas em fóruns de MS Access. Contudo, meu objetivo é trabalhar exclusivamente com o LibreOffice.

Alguém pode me apresentar um código, ou me orientar como encontrá-lo?

Desde já, agradeço por sua colaboração.



Exemplo de macro para esta finalidade no MSAccess:

    Private Sub  btnGerarParcelas_Click()
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("csPedidosPagar") 'Abre csPedidosPagar
    ValorParcela = txtSubTotal / txtQdadeParcelas 'Valor de cada parcela

    For f = 1 To QdadeParcelas 'Calcula o Loop (Insere as parcelas na csPedidosPagar)
        'Campos e valores a serem preenchidos
        rs.AddNew
        rs("IdPedido") = Me.IdPedido
        rs("ParcelaNo") = f
        rs("VlrParcela") = ValorParcela
        rs("DataVenc") = DateAdd("m", f - 1, Me.txtDataVenc)
        rs.Update
    Next        'Move para o Proximo

    rs.close()
    db.close()
end sub

Como eu adaptaria isso?