QUERY CONTAS A VENCER

MOREIRA 14/11/2012 23:50:40
#414255
Pessoal boa noite.. estou usando essa função para pegar as contas a vencer, mas infelizmente nao funcionar.
estou usando o bando de dados MYSQL, e o campo é do tipo date..


Dim Retorno As String
Set Rst = New ADODB.Recordset
Sql = [Ô]Select Sum(Vlr_Lancado_Despesa) As TotalVencer, Dt_Vencto, Vlr_Lancado_Despesa From Tb_Lanctos_Financ Where Tipo_Lancto = [ô]DESPESA[ô] Group By Dt_Vencto, Vlr_Lancado_Despesa [Ô]
Rst.Open Sql, Conexao
If Not Rst.EOF Then
Do While Not Rst.EOF
Retorno = Rst!Dt_Vencto
If Retorno > Format(CDate(Date), [Ô]yyyy/mm/dd[Ô]) Then
LblTotal_Cont_Pagar_Vencer.Caption = Format(Rst!TotalVencer, [Ô]###,##0.00[Ô])
End If
Rst.MoveNext
Loop
End If
Rst.Close
Set Rst = Nothing
MOREIRA 15/11/2012 11:27:01
#414267
pessoal, alguma sugestão ?
OMAR2011 15/11/2012 12:55:12
#414272 Resposta escolhida
Ela funciona de forma normal,porém o objetivo não vai ser satisfatório.
If Not Rst.EOF Then
Do While Not Rst.EOF
Retorno = Format(Rst!Dt_Vencto, [Ô]yyyy/mm/dd[Ô]) [ô][txt-color=#e80000] Faça deste jeito[/txt-color]
If Retorno > Format(CDate(Date), [Ô]yyyy/mm/dd[Ô]) Then
LblTotal_Cont_Pagar_Vencer.Caption = Format(Rst!TotalVencer, [Ô]###,##0.00[Ô])
End If
Rst.MoveNext
Loop
End If
[txt-color=#e80000]Preencher um Label??????????????[/txt-color]
MOREIRA 15/11/2012 13:18:50
#414274

OMAR2011, é... já percebir que nao está retornando com o preenchimento na label. com o valor correto...


alguma sugestão, como retornaria o valor com mais precisão ... ?
OMAR2011 15/11/2012 13:58:04
#414275
Label não é indicado para retornar os valores da pesquisa.
Você tem que usar um grid,pois terá vários registros na consulta.
Aconselho a usar entre Datas.

Dt_Vencto between [ô][Ô] & Format(DataAtual, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô] AND [ô][Ô] & Format(DataFinal, [Ô]yyyy/mm/dd[Ô]) & [Ô][ô]

Depois preenche o grid.
MOREIRA 15/11/2012 22:35:41
#414300
encontrei uma saída, fazendo assim...
  
Public Sub Select_Grid_Contas_Pagar()
On Error GoTo Trataerro

Sgrid_Contas_Pagar.Clear
LblTotal_Cont_Pagar_Atrasada.Caption = [Ô]0,00[Ô]
LblTotal_Cont_Pagar_Vencer.Caption = [Ô]0,00[Ô]
LblTotal_Cont_Pagar_Hoje.Caption = [Ô]0,00[Ô]

Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tb_Lanctos_Financ Where Tipo_Lancto = [ô]DESPESA[ô][Ô]
Rst.Open Sql, Conexao, 3

If Not Rst.EOF Then
[ô]Carrega Alguns Itens
Do While Not Rst.EOF
     With Sgrid_Contas_Pagar
    .ImageList = img
    .Editable = True
    .HighlightSelectedIcons = False
    .RowMode = True
    .Redraw = False
    .Rows = .Rows + 1
    
    .CellDetails .Rows, 1, Rst!Id_Lcto_Finc, DT_CENTER
    .CellDetails .Rows, 2, Rst!Descricao_Lancamento, DT_LEFT, 0
    .CellDetails .Rows, 3, Rst!Favorecido, DT_LEFT
    .CellDetails .Rows, 4, Format(Rst!Dt_Vencto, [Ô]dd/mm/yyyy[Ô]), DT_RIGHT
    .CellDetails .Rows, 5, Format(Rst!Vlr_Lancado_Despesa, [Ô]###,##0.00[Ô]), DT_RIGHT
    .CellDetails .Rows, 6, Format(Rst!Dt_Pagto, [Ô]dd/mm/yyyy[Ô]), DT_RIGHT
    
     If Rst!Status_Condicao_Lacto = [Ô]REAL[Ô] Then
       .CellDetails .Rows, 7, Rst!Status_Condicao_Lacto, DT_LEFT, 4
    End If
    
     If Rst!Status_Condicao_Lacto = [Ô]PREVISTA[Ô] Then
        .CellDetails .Rows, 7, Rst!Status_Condicao_Lacto, DT_LEFT, 6
     End If
     
    
    .CellDetails .Rows, 8, Rst!Status_Condicao_Lacto, DT_LEFT
    .CellDetails .Rows, 9, Rst!NumDoc_Orcmto, DT_LEFT
    
     Rst.MoveNext
    .Redraw = True
        
    If Format(.CellText(.Rows, 4), [Ô]yyyy/mm/dd[Ô]) = Format(CDate(Date), [Ô]yyyy/mm/dd[Ô]) Then
        LblTotal_Cont_Pagar_Hoje.Caption = Format(LblTotal_Cont_Pagar_Hoje.Caption + CDbl(.CellText(.Rows, 5)), [Ô]###,##0.00[Ô])
    End If
    
    If Format(.CellText(.Rows, 4), [Ô]yyyy/mm/dd[Ô]) > Format(CDate(Date), [Ô]yyyy/mm/dd[Ô]) Then
        LblTotal_Cont_Pagar_Vencer.Caption = Format(LblTotal_Cont_Pagar_Vencer.Caption + CDbl(.CellText(.Rows, 5)), [Ô]###,##0.00[Ô])
    End If
    
    If Format(.CellText(.Rows, 4), [Ô]yyyy/mm/dd[Ô]) < Format(CDate(Date), [Ô]yyyy/mm/dd[Ô]) Then
        LblTotal_Cont_Pagar_Atrasada.Caption = Format(LblTotal_Cont_Pagar_Atrasada.Caption + CDbl(.CellText(.Rows, 5)), [Ô]###,##0.00[Ô])
    End If
    
    Dim A As Double
    Dim B As Double
    Dim C As Double
    Dim ResultFinal As Double
    A = LblTotal_Cont_Pagar_Atrasada.Caption
    B = LblTotal_Cont_Pagar_Vencer.Caption
    C = LblTotal_Cont_Pagar_Hoje.Caption
    
    ResultFinal = Abs(A) + Abs(B) + Abs(C)
    LblTotalContas_Pagar.Caption = Format(Abs(ResultFinal), [Ô]###,##0.00[Ô])
    
End With
Loop

Else
    MsgBox ([Ô]Não foi possivel localizar os registros solicitados[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
End If
Rst.Close
Set Rst = Nothing
Exit Sub
Trataerro:
MsgBox Err.Description, vbCritical, [Ô]Erro no Sistema[Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar