[Resolvido]Doze linhas (uma para cada mês do ano) com totais no rodapé do relatório

Bom dia amigos do Fórum.
Me deparei com outra pedra no meu trabalho.
Ainda no mesmo arquivo que nosso amigo FranklinJSP me ajudou, agora preciso de que no final do bloco de registros Q100 sejam exibidas 12 linhas Q200 uma para cada mês do ano com os totais como se pede no manual.

* Esta é uma das páginas do manual de preenchimento do Livro Digital do Produtor Rural.



* O problema é que mesmo eu agrupando por mês como segue abaixo ele continua me mostrando uma linha com saldo para cada dia e não é isso que eu preciso.



* O relatório está sendo exibido assim:


Segue o arquivo de exemplo para alguém que possa me dar essa ajuda, existem lançamentos de janeiro de 2020 e fevereiro de 2020, os lançamentos de março a dezembro eu tirei para diminuir o tamanho do BD de exemplo.

Olá Claudinei!

Fiz um exemplo para Janeiro e Fevereiro, é a sua vez de fazer os outros meses, melhorando o código.

Saludos

Segue o código resolvido com a ajuda do nosso amigo FranklinJSP.

Código:


Private Sub PieDelInforme_Format(Cancel As Integer, FormatCount As Integer)

'Créditos para FranklinJSP

Dim DataI As Date, DataF As Date, Anio As Integer
Dim TotalEntradas1, TotalSalidas1, SaldoMes1, PosiNega1
Dim TotalEntradas2, TotalSalidas2, SaldoMes2, PosiNega2
Dim TotalEntradas3, TotalSalidas3, SaldoMes3, PosiNega3
Dim TotalEntradas4, TotalSalidas4, SaldoMes4, PosiNega4
Dim TotalEntradas5, TotalSalidas5, SaldoMes5, PosiNega5
Dim TotalEntradas6, TotalSalidas6, SaldoMes6, PosiNega6
Dim TotalEntradas7, TotalSalidas7, SaldoMes7, PosiNega7
Dim TotalEntradas8, TotalSalidas8, SaldoMes8, PosiNega8
Dim TotalEntradas9, TotalSalidas9, SaldoMes9, PosiNega9
Dim TotalEntradas10, TotalSalidas10, SaldoMes10, PosiNega10
Dim TotalEntradas11, TotalSalidas11, SaldoMes11, PosiNega11
Dim TotalEntradas12, TotalSalidas12, SaldoMes12, PosiNega12
Anio = Year([Forms]![frmAdministrativoFiltroIRPF]![txtAPartir])
    
'Mes 1 ********************************************************************************************************************
DataI = "01/01/" & Anio
DataF = "31/01/" & Anio
TotalEntradas1 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
TotalSalidas1 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
SaldoMes1 = Nz(TotalEntradas1) - Nz(TotalSalidas1)
If SaldoMes1 > 0 Then
PosiNega1 = "P"
Else
PosiNega1 = "N"
End If
    
    'Mes 2 ********************************************************************************************************************
    DataI = "01/02/" & Anio
    DataF = "29/02/" & Anio
    TotalEntradas2 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    TotalSalidas2 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    SaldoMes2 = Nz(TotalEntradas2) - Nz(TotalSalidas2)
    If SaldoMes2 > 0 Then
    PosiNega2 = "P"
    Else
    PosiNega2 = "N"
    End If

'Mes 3 **********************************************************************************************************************
DataI = "01/03/" & Anio
DataF = "31/03/" & Anio
TotalEntradas3 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
TotalSalidas3 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
SaldoMes3 = Nz(TotalEntradas3) - Nz(TotalSalidas3)
If SaldoMes3 > 0 Then
PosiNega3 = "P"
Else
PosiNega3 = "N"
End If
        
    'Mes 4 ********************************************************************************************************************
    DataI = "01/04/" & Anio
    DataF = "30/04/" & Anio
    TotalEntradas4 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    TotalSalidas4 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    SaldoMes4 = Nz(TotalEntradas4) - Nz(TotalSalidas4)
    If SaldoMes4 > 0 Then
    PosiNega4 = "P"
    Else
    PosiNega4 = "N"
    End If

'Mes 5 **********************************************************************************************************************
DataI = "01/05/" & Anio
DataF = "31/05/" & Anio
TotalEntradas5 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
TotalSalidas5 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
SaldoMes5 = Nz(TotalEntradas5) - Nz(TotalSalidas5)
If SaldoMes5 > 0 Then
PosiNega5 = "P"
Else
PosiNega5 = "N"
End If

    'Mes 6 ********************************************************************************************************************
    DataI = "01/06/" & Anio
    DataF = "30/06/" & Anio
    TotalEntradas6 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    TotalSalidas6 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    SaldoMes6 = Nz(TotalEntradas6) - Nz(TotalSalidas6)
    If SaldoMes6 > 0 Then
    PosiNega6 = "P"
    Else
    PosiNega6 = "N"
    End If

'Mes 7 *********************************************************************************************************************
DataI = "01/07/" & Anio
DataF = "31/07/" & Anio
TotalEntradas7 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
TotalSalidas7 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
SaldoMes7 = Nz(TotalEntradas7) - Nz(TotalSalidas7)
If SaldoMes7 > 0 Then
PosiNega7 = "P"
Else
PosiNega7 = "N"
End If

    'Mes 8 *******************************************************************************************************************
    DataI = "01/08/" & Anio
    DataF = "31/08/" & Anio
    TotalEntradas8 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    TotalSalidas8 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    SaldoMes8 = Nz(TotalEntradas8) - Nz(TotalSalidas8)
    If SaldoMes8 > 0 Then
    PosiNega8 = "P"
    Else
    PosiNega8 = "N"
    End If

'Mes 9 *********************************************************************************************************************
DataI = "01/09/" & Anio
DataF = "30/09/" & Anio
TotalEntradas9 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
TotalSalidas9 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
SaldoMes9 = Nz(TotalEntradas9) - Nz(TotalSalidas9)
If SaldoMes9 > 0 Then
PosiNega9 = "P"
Else
PosiNega9 = "N"
End If

    'Mes 10 *******************************************************************************************************************
    DataI = "01/10/" & Anio
    DataF = "30/10/" & Anio
    TotalEntradas10 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    TotalSalidas10 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    SaldoMes10 = Nz(TotalEntradas10) - Nz(TotalSalidas10)
    If SaldoMes10 > 0 Then
    PosiNega10 = "P"
    Else
    PosiNega10 = "N"
    End If

'Mes 11 *********************************************************************************************************************
DataI = "01/11/" & Anio
DataF = "30/11/" & Anio
TotalEntradas11 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
TotalSalidas11 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
SaldoMes11 = Nz(TotalEntradas11) - Nz(TotalSalidas11)
If SaldoMes11 > 0 Then
PosiNega11 = "P"
Else
PosiNega11 = "N"
End If

    'Mes 12 ******************************************************************************************************************
    DataI = "01/12/" & Anio
    DataF = "31/12/" & Anio
    TotalEntradas12 = DSum("Entrada", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    TotalSalidas12 = DSum("Saida", "Movimento", "DataLanc BETWEEN #" & Format(DataI, "mm/dd/yyyy") & "# AND #" & Format(DataF, "mm/dd/yyyy") & "#")
    SaldoMes12 = Nz(TotalEntradas12) - Nz(TotalSalidas12)
    If SaldoMes12 > 0 Then
    PosiNega12 = "P"
    Else
    PosiNega12 = "N"
    End If

'Resultados  *****************************************************************************************************************
Me.Mes1 = "Q200 | " & "01" & Anio & " | " & TotalEntradas1 & " | " & TotalSalidas1 & " | " & SaldoMes1 & " | " & PosiNega1
Me.Mes2 = "Q200 | " & "02" & Anio & " | " & TotalEntradas2 & " | " & TotalSalidas2 & " | " & SaldoMes2 & " | " & PosiNega2
Me.Mes3 = "Q200 | " & "03" & Anio & " | " & TotalEntradas3 & " | " & TotalSalidas3 & " | " & SaldoMes3 & " | " & PosiNega3
Me.Mes4 = "Q200 | " & "04" & Anio & " | " & TotalEntradas4 & " | " & TotalSalidas4 & " | " & SaldoMes4 & " | " & PosiNega4
Me.Mes5 = "Q200 | " & "05" & Anio & " | " & TotalEntradas5 & " | " & TotalSalidas5 & " | " & SaldoMes5 & " | " & PosiNega5
Me.Mes6 = "Q200 | " & "06" & Anio & " | " & TotalEntradas6 & " | " & TotalSalidas6 & " | " & SaldoMes6 & " | " & PosiNega6
Me.Mes7 = "Q200 | " & "07" & Anio & " | " & TotalEntradas7 & " | " & TotalSalidas7 & " | " & SaldoMes7 & " | " & PosiNega7
Me.Mes8 = "Q200 | " & "08" & Anio & " | " & TotalEntradas8 & " | " & TotalSalidas8 & " | " & SaldoMes8 & " | " & PosiNega8
Me.Mes9 = "Q200 | " & "09" & Anio & " | " & TotalEntradas9 & " | " & TotalSalidas9 & " | " & SaldoMes9 & " | " & PosiNega9
Me.Mes10 = "Q200 | " & "10" & Anio & " | " & TotalEntradas10 & " | " & TotalSalidas10 & " | " & SaldoMes10 & " | " & PosiNega10
Me.Mes11 = "Q200 | " & "11" & Anio & " | " & TotalEntradas11 & " | " & TotalSalidas11 & " | " & SaldoMes11 & " | " & PosiNega11
Me.Mes12 = "Q200 | " & "12" & Anio & " | " & TotalEntradas12 & " | " & TotalSalidas12 & " | " & SaldoMes12 & " | " & PosiNega12

End Sub