MESMO DIA NA LISTVIEW

 Tópico anterior Próximo tópico Novo tópico

MESMO DIA NA LISTVIEW

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#496559 - 25/03/2021 23:23:20

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


   Olá, meus amigos,
   para quem puder me ajudar!

com este código eu preencho as datas de 30 em 30 dias
                  ListCondicoes.ListItems.Clear
                   For i = 1 To Qtd
                        Set Item = ListCondicoes.ListItems.Add(, , i)
                        Item.SubItems(1) = dtpVencimento.Value
                        dtpVencimento.Value = dtpVencimento.Value + 30
                        Item.SubItems(2) = Format(vlParcela, 'Currency')
                   Next

como eu faria para que as datas sempre comecem com o dia 10 por exemplo
do jeito que esta, esta preenchendo 10 parcelas  com variações de dias porque esta para 30 em 30 dias  exemplo 20 proximo mês 22 próximo mes 19 / mas queria determinar um dia >>>>

Att,



#496573 - 26/03/2021 22:09:35

EMANUEL
JOAO PESSOA
Cadast. em:Fevereiro/2004


Opa amigo, boa noite!
Eu tenho essa rotina aqui, onde crio as parcelas  baseadas em um lançamento efetuado. Por exemplo:
O cara lançou um pagamento para o dia 10/03/2021, dai depois eu vou nesse lançamento, seleciono e o usuario informa quantas parcelas ele quer duplicar,, vamos supor que ele escolheu 5 parcelas, dai as próximas serão: 10/04/201, 10/05/2021, 10/06/2021, 10/07/2021, 10/08/2021

Veja ai se vc entendeu, qualquer duvida, estou as ordens

Segue o codigo:
Abraço

If MsgBox('Deseja realmente duplicar estas parcelas?', vbQuestion + vbYesNo + vbDefaultButton2, 'Aviso') = vbYes Then
    CnDB.BeginTrans
        vmes = Month(Format(DTVcto(1).Value, 'DD/MM/YYYY'))
        vmes = vmes + 1
        vano = Year(Format(DTVcto(1).Value, 'DD/MM/YYYY'))
        For i = 2 To CInt(TxtQtdPar.Text)
            VTitulo = TxtTitulo.Text & '/' & i
            If i > 2 Then
                GoTo Pula
            End If
            
             vdia = Day(Format(DTVcto(1).Value, 'DD/MM/YYYY'))
             VVctOri1 = vdia & '/' & vmes & '/' & vano
                CnDB.Execute 'INSERT INTO TAB_CONTASPAGAR (NumTit,NomFor,CodFor,DatEmi,VctOri,VlrOri,VctPro,NumNFE,VlrPag,SitTit,OriTit,ObsTcr,VlrDsc)VALUES' & _
                '('' & FmtValor(VTitulo, True) & '','' & LblNomFor.Caption & '',' & CmbCodFor.Text & ','' & Format(DTEmi.Value, 'DD/MM/YYYY') & '','' & _
                Format(VVctOri1, 'DD/MM/YYYY') & '',' & FmtValor(CDbl(RibaVlrTit.Text)) & ','' & Format(VVctOri1, 'DD/MM/YYYY') & '','0',' & _
                FmtValor(CDbl(RibaVlrPag.Text)) & ', 'AB' ,'D','' & FmtValor(TxtObs.Text, True) & '',' & FmtValor(CDbl(RibaVlrDsc.Text)) & ')'
                GoTo Proximo
Pula:
            'VTxtPrazo = CInt(TxtPrazo.Text) * (i - 1)
            vdia = Day(Format(DTVcto(1).Value, 'DD/MM/YYYY'))
            
            vmes = vmes + 1
            If vmes > 12 Then
                vmes = 1
                vano = vano + 1
            End If
                        
            'VVctOri = DTVcto(0).Value + VTxtPrazo
            VVctOri = vdia & '/' & vmes & '/' & vano

                CnDB.Execute 'INSERT INTO TAB_CONTASPAGAR (NumTit,NomFor,CodFor,DatEmi,VctOri,VlrOri,VctPro,NumNFE,VlrPag,SitTit,OriTit,ObsTcr,VlrDsc )VALUES' & _
                '('' & FmtValor(VTitulo, True) & '','' & LblNomFor.Caption & '',' & CmbCodFor.Text & ','' & Format(DTEmi.Value, 'DD/MM/YYYY') & '','' & _
                Format(VVctOri, 'DD/MM/YYYY') & '',' & FmtValor(CDbl(RibaVlrTit.Text)) & ','' & Format(VVctOri, 'DD/MM/YYYY') & '','0',' & _
                FmtValor(CDbl(RibaVlrPag.Text)) & ', 'AB' ,'D','' & FmtValor(TxtObs.Text, True) & '',' & FmtValor(CDbl(RibaVlrDsc.Text)) & ')'

Proximo:
        Next i
        
            MsgBox 'Geração efetuada com sucesso', vbInformation, 'Aviso'
    CnDB.CommitTrans

Emanuel A Andrade


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário