none
consultar facturas vendidas RRS feed

  • Pregunta

  • Buenas a todos/as

    Programo en vb.net y usos sql Sever

    con este código trato de consultas las facturas que estén vencidas. 

    If CboBuscarConsultaPrestamo.Text = "FACTURAS BENDECIDAS" Then
                    Using cn As New SqlConnection(cadenaConexion)
                        cn.Open()
                        Dim consultaSQL As String = " Select FACT.fecha_registro as Fecha_Registro,FACT.FechaVencimientoFactura,DATEDIFF(DAY, FechaVencimientoFactura, GETDATE()) as Total_Días_Vencida, FACT.codigo_factura as codigo_factura,FACT.codigo_cliente as codigo_cliente, CLI.nom_cli as Nombre, CLI.apell_cli as Apellido,FACT.total_pagar as Total_pagar,FACT.valorPagado as Valor_Pagado,FACT.balanceFactura as Balance_Factura from Tbla_Factura FACT  LEFT JOIN tbla_clientes CLI ON FACT.codigo_cliente=CLI.codigo_cliente where  FACT.fecha_registro BETWEEN ('" & Fechini & "') AND ('" & Fechfin & "')"
    
                        Dim adap As New SqlDataAdapter(consultaSQL, cn)
                        Dim dt As New DataTable()
                        adap.Fill(dt)
    
                        DgvConsultaFactura.DataSource = dt
    
                        Me.DgvConsultaFactura.Columns("Total_pagar").DefaultCellStyle.Format = "N2"
                        Me.DgvConsultaFactura.Columns("Valor_Pagado").DefaultCellStyle.Format = "N2"
                        Me.DgvConsultaFactura.Columns("Balance_Factura").DefaultCellStyle.Format = "N2"
                        TxtTotalPrestamoConsulta.Text = CStr(DgvConsultaFactura.Rows.Count)
                    End Using
    
    
                End If

    en ejecución  se ve así: 

    Pero como pueden observar en la imagen no me está filtrando las facturas vendidas,

    Me halando una factura que todavía le faltan 15 días para vencerse.

    Lo que le falta es otra condición donde el total días vencida sea mayor que 1, pero no me sale.

    Espero en Dios y en ustedes que me puedan ayudar.


    • Editado EliannyRD domingo, 26 de noviembre de 2017 18:08
    domingo, 26 de noviembre de 2017 18:08

Respuestas

  • Buenas,

    Lo que podrías hacer es añadir esa condición

    Dim consultaSQL As String = " Select FACT.fecha_registro as Fecha_Registro,FACT.FechaVencimientoFactura,DATEDIFF(DAY, FechaVencimientoFactura, GETDATE()) as Total_Días_Vencida, FACT.codigo_factura as codigo_factura,FACT.codigo_cliente as codigo_cliente, CLI.nom_cli as Nombre, CLI.apell_cli as Apellido,FACT.total_pagar as Total_pagar,FACT.valorPagado as Valor_Pagado,FACT.balanceFactura as Balance_Factura from Tbla_Factura FACT  LEFT JOIN tbla_clientes CLI ON FACT.codigo_cliente=CLI.codigo_cliente where  FACT.fecha_registro BETWEEN ('" & Fechini & "') AND ('" & Fechfin & "') AND DATEDIFF(DAY, FACT.FechaVencimientoFactura, GETDATE()) > 0"

    Fíjate que solo he puesto la condicion con la que la calculas en el where, y le he dicho que sea mayor que 0 (1 o más). 

    Nos comentas el resultado

    Atte


    No olvides votar mi comentario si te ha ayudado y marcarlo como respuesta si ha sido la solución, con eso ayudas a mejorar mi reputación en la comunidad y a identificar la respuesta a la gente que tenga el mismo problema.

    Para obtener una respuesta lo más rápida y concisa posible, te recomiendo:


    • Editado Jorge TurradoMVP domingo, 26 de noviembre de 2017 18:14
    • Marcado como respuesta EliannyRD domingo, 26 de noviembre de 2017 18:27
    domingo, 26 de noviembre de 2017 18:13

Todas las respuestas

  • Buenas,

    Lo que podrías hacer es añadir esa condición

    Dim consultaSQL As String = " Select FACT.fecha_registro as Fecha_Registro,FACT.FechaVencimientoFactura,DATEDIFF(DAY, FechaVencimientoFactura, GETDATE()) as Total_Días_Vencida, FACT.codigo_factura as codigo_factura,FACT.codigo_cliente as codigo_cliente, CLI.nom_cli as Nombre, CLI.apell_cli as Apellido,FACT.total_pagar as Total_pagar,FACT.valorPagado as Valor_Pagado,FACT.balanceFactura as Balance_Factura from Tbla_Factura FACT  LEFT JOIN tbla_clientes CLI ON FACT.codigo_cliente=CLI.codigo_cliente where  FACT.fecha_registro BETWEEN ('" & Fechini & "') AND ('" & Fechfin & "') AND DATEDIFF(DAY, FACT.FechaVencimientoFactura, GETDATE()) > 0"

    Fíjate que solo he puesto la condicion con la que la calculas en el where, y le he dicho que sea mayor que 0 (1 o más). 

    Nos comentas el resultado

    Atte


    No olvides votar mi comentario si te ha ayudado y marcarlo como respuesta si ha sido la solución, con eso ayudas a mejorar mi reputación en la comunidad y a identificar la respuesta a la gente que tenga el mismo problema.

    Para obtener una respuesta lo más rápida y concisa posible, te recomiendo:


    • Editado Jorge TurradoMVP domingo, 26 de noviembre de 2017 18:14
    • Marcado como respuesta EliannyRD domingo, 26 de noviembre de 2017 18:27
    domingo, 26 de noviembre de 2017 18:13
  • Resuelto 100x%

    Gracias....

    le agregué otra condición mas. 

    el código me quedó así: 

    If CboBuscarConsultaPrestamo.Text = "FACTURAS BENDECIDAS" Then
                    Using cn As New SqlConnection(cadenaConexion)
                        cn.Open()
                        Dim consultaSQL As String = " Select FACT.fecha_registro as Fecha_Registro,FACT.FechaVencimientoFactura,DATEDIFF(DAY, FechaVencimientoFactura, GETDATE()) as Total_Días_Vencida, FACT.codigo_factura as codigo_factura,FACT.codigo_cliente as codigo_cliente, CLI.nom_cli as Nombre, CLI.apell_cli as Apellido,FACT.total_pagar as Total_pagar,FACT.valorPagado as Valor_Pagado,FACT.balanceFactura as Balance_Factura from Tbla_Factura FACT  LEFT JOIN tbla_clientes CLI ON FACT.codigo_cliente=CLI.codigo_cliente where  FACT.fecha_registro BETWEEN ('" & Fechini & "') AND ('" & Fechfin & "')AND DATEDIFF(DAY, FACT.FechaVencimientoFactura, GETDATE()) > 0 and FACT.balanceFactura > 0 "
    
                        Dim adap As New SqlDataAdapter(consultaSQL, cn)
                        Dim dt As New DataTable()
                        adap.Fill(dt)
    
                        DgvConsultaFactura.DataSource = dt
    
                        Me.DgvConsultaFactura.Columns("Total_pagar").DefaultCellStyle.Format = "N2"
                        Me.DgvConsultaFactura.Columns("Valor_Pagado").DefaultCellStyle.Format = "N2"
                        Me.DgvConsultaFactura.Columns("Balance_Factura").DefaultCellStyle.Format = "N2"
                        TxtTotalPrestamoConsulta.Text = CStr(DgvConsultaFactura.Rows.Count)
                    End Using
    
    
                End If

    domingo, 26 de noviembre de 2017 18:27