[ONLY EXPERT] LIVRO CAIXA - SALDOS

Call ABRIR_BD_SEM_DATA1
SQL = [Ô]SELECT PARCELAS.Hora AS HORA_PARC, Cliente.NOME AS CAMPO01, PARCELAS.VALOR_FINAL AS CAMPO02, [ô]0[ô] AS CAMPO03, (CCUR(CAMPO02)-CCUR(CAMPO03)) AS CAMPO04, PARCELAS.PAGAMENTO, PEDIDOS.Cod_Pedido, PEDIDOS.COD_CLIENTE, Cliente.CODIGO FROM CLIENTE INNER JOIN (PARCELAS INNER JOIN PEDIDOS ON PARCELAS.COD_PEDIDO = PEDIDOS.COD_PEDIDO) ON CLIENTE.CODIGO = PEDIDOS.COD_CLIENTE WHERE PARCELAS.PAGAMENTO = #[Ô] & Format(mskData, [Ô]mm/dd/yy[Ô]) & [Ô]# ORDER BY HORA[Ô] & _
                     [Ô] UNION [Ô] & _
                     [Ô]SELECT PARCELAS.Hora AS HORA_PARC, Cliente.NOME AS CAMPO01, PARCELAS.VALOR_FINAL AS CAMPO02, [ô]0[ô] AS CAMPO03, (CCUR(CAMPO02)-CCUR(CAMPO03)) AS CAMPO04, PARCELAS.PAGAMENTO, OS.Cod_OS, OS.COD_CLIENTE, Cliente.CODIGO FROM CLIENTE INNER JOIN (PARCELAS INNER JOIN OS ON PARCELAS.COD_OS = OS.COD_OS) ON CLIENTE.CODIGO = OS.COD_CLIENTE WHERE PARCELAS.PAGAMENTO = #[Ô] & Format(mskData, [Ô]mm/dd/yy[Ô]) & [Ô]#[Ô] & _
                     [Ô] UNION [Ô] & _
                     [Ô]SELECT HORA AS HORA_PARC, DESCRICAO AS CAMPO01, VALOR AS CAMPO02, [ô]0[ô] AS CAMPO03, (CCUR(CAMPO02)-CCUR(CAMPO03)) AS CAMPO04, COD_HAVER, SETOR, DATA, CODIGO FROM CAIXA_ENTRADA WHERE DATA = #[Ô] & Format(mskData, [Ô]mm/dd/yy[Ô]) & [Ô]#[Ô] & _
                     [Ô] UNION [Ô] & _
                     [Ô]SELECT CAIXA_SAIDA.HORA AS HORA_PARC, CAIXA_SAIDA.DESCRICAO AS CAMPO01, [ô]0[ô] AS CAMPO02, CAIXA_SAIDA.VALOR AS CAMPO03, (CCUR(CAMPO02)-CCUR(CAMPO03)) AS CAMPO04, COD_HAVER, SETOR, DATA, CODIGO FROM CAIXA_SAIDA WHERE DATA = #[Ô] & Format(mskData, [Ô]mm/dd/yy[Ô]) & [Ô]#[Ô]
Set Rs = BD.OpenRecordset(SQL)

FormatarGridEntrada

Private Sub FormatarGridEntrada()
With GridEntrada
    
    .Clear
    .Cols = 6
    .Rows = 2
    
    .ColWidth(0) = 0
    .ColWidth(1) = 650
    .ColWidth(2) = 3100
    .ColWidth(3) = 1150
    .ColWidth(4) = 1150
    .ColWidth(5) = 1150
    
    .TextMatrix(0, 1) = [Ô]HORA[Ô]
    .TextMatrix(0, 2) = [Ô]DESCRIÇÃO[Ô]
    .TextMatrix(0, 3) = [Ô]ENTRADA[Ô]
    .TextMatrix(0, 4) = [Ô]SAÍDA[Ô]
    .TextMatrix(0, 5) = [Ô]SALDO[Ô]
     
    [ô]colocar os cabeçalho em negrito
    Dim X As Integer
    For X = 0 To .Cols - 1
    .Col = X
    .Row = 0
    .CellFontBold = True
    Next X
    
    [ô]centralizar o titulo
    Dim f As Integer
    For f = 0 To .Cols - 1
    .Row = 0
    .Col = f
    .CellAlignment = flexAlignCenterCenter
    Next f
    
    Do Until Rs.EOF
    
    [ô]mudar a cor da coluna
    Dim i As Integer
    For i = 1 To .Rows - 1
   .Row = i
   .Col = 5:   .CellBackColor = &HC0FFFF
    Next

    
    .Redraw = False
    
    [ô]ALINHAMENTO
    .ColAlignment(2) = 1
    
    .Redraw = True
    
    If Not IsNull(Rs!HORA_PARC) Then .TextMatrix(.Rows - 1, 1) = Format(Rs!HORA_PARC, [Ô]hh:mm[Ô])
    If Not IsNull(Rs!CAMPO01) Then .TextMatrix(.Rows - 1, 2) = Rs!CAMPO01
    If Not IsNull(Rs!CAMPO02) Then .TextMatrix(.Rows - 1, 3) = Format(Rs!CAMPO02, [Ô]##,##0.00[Ô])
    If Not IsNull(Rs!CAMPO03) Then .TextMatrix(.Rows - 1, 4) = Format(Rs!CAMPO03, [Ô]##,##0.00[Ô])
    If Not IsNull(Rs!CAMPO04) Then .TextMatrix(.Rows - 1, 5) = Format(Rs!CAMPO04, [Ô]##,##0.00[Ô])
    Rs.MoveNext
    .Rows = .Rows + 1
        
    Loop
    
    .Rows = .Rows - 1
    
End With
End Sub

(CCUR(CAMPO02)-CCUR(CAMPO03)) AS CAMPO04