none
Alguien me explica este codigo? RRS feed

  • Pregunta

  • Hola que tal a todos, tengo un codigo que ahora se los voy a publicar, lo que necesito saber es lo que queire decir el codigo, no lo logro interpretar.

    Imports Vb = Microsoft.VisualBasic
    Imports System.Data
    Imports System.Data.SqlClient
    Imports System.Configuration
    Public Class frmingresosentrefechas
        Private dsabo As DataSet
        Private daabo As SqlDataAdapter
    
        Private ds1 As DataSet
        Private da1 As SqlDataAdapter
      
        Private dv As New DataView
    
        Protected configuracion As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("cn")
        Dim cn As New SqlConnection(configuracion.ConnectionString)
        Private Sub frmingresosentrefechas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            GroupBox1.Enabled = False
            GroupBox2.Enabled = True
    
            btngrabar.Enabled = False
            btnimprimir.Enabled = False
    
            lblnum.Visible = False
            lblfecini.Visible = False
            lblfecfin.Visible = False
            lblxfecini.Visible = False
            lblxfecfin.Visible = False
            grddetalle1.Visible = False
            btnmostrar.Enabled = False
    
    
            '---------detalle------------------
            daabo = New SqlDataAdapter(" SELECT     numbol, fecemi, estado, total " & _
                                       " FROM         dbo.boleta" & _
                                       " WHERE estado LIKE '%CANCEL%'", cn)
            dsabo = New DataSet
            daabo.Fill(dsabo, "boleta")
            Me.grddetalle.DataSource = dsabo
            Me.grddetalle.DataMember = "boleta"
            FormatearGrid()
            Dim i As Integer
            For i = 0 To grddetalle.Rows.Count
                lblnum.Text = i
            Next
            '---------fin detalle ----------------
    
        End Sub
        Sub FormatearGrid()
    
            grddetalle.Columns.Item(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
            grddetalle.Columns.Item(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
    
            grddetalle.Columns.Item(0).ReadOnly = True
            grddetalle.Columns.Item(1).ReadOnly = True
            grddetalle.Columns.Item(2).ReadOnly = True
            grddetalle.Columns.Item(3).ReadOnly = True
    
            grddetalle.Columns(0).HeaderText = "NUMBOL"
            grddetalle.Columns(1).HeaderText = "FECEMI"
            grddetalle.Columns(2).HeaderText = "ESTADO"
            grddetalle.Columns(3).HeaderText = "TOTAL"
    
            grddetalle.Columns(0).Width = CInt(grddetalle.Width * 0.23)
            grddetalle.Columns(1).Width = CInt(grddetalle.Width * 0.25)
            grddetalle.Columns(2).Width = CInt(grddetalle.Width * 0.22)
            grddetalle.Columns(3).Width = CInt(grddetalle.Width * 0.23)
    
    
            grddetalle.Columns(1).DefaultCellStyle.Format = "dd MMMM yyyy"
            grddetalle.Columns(3).DefaultCellStyle.Format = "##,##0.00"
    
            Me.grddetalle.AllowUserToAddRows = False
        End Sub
        Sub FormatearGrid1()
    
    
            grddetalle1.Columns.Item(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
    
            grddetalle1.Columns.Item(0).ReadOnly = True
    
            grddetalle1.Columns(0).HeaderText = "TOTAL"
    
            grddetalle1.Columns(0).Width = CInt(grddetalle1.Width * 0.55)
    
            grddetalle1.Columns(0).DefaultCellStyle.Format = "##,##0.00"
    
            Me.grddetalle1.AllowUserToAddRows = False
        End Sub
    
        Private Sub dtfecini_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtfecini.ValueChanged
    
            lblxfecini.Visible = True
            lblfecini.Text = dtfecini.Value.ToString("yyyy/dd/MM")
            lblxfecini.Text = dtfecini.Value.ToString("dd/MM/yyyy")
            '-------------------------
           
        End Sub
    
        Private Sub dtfecfin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtfecfin.ValueChanged
            lblxfecfin.Visible = True
            lblfecfin.Text = dtfecfin.Value.ToString("yyyy/dd/MM")
            lblxfecfin.Text = dtfecfin.Value.ToString("dd/MM/yyyy")
            btnmostrar.Enabled = True
        End Sub
    
        Private Sub btnmostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmostrar.Click
            GroupBox2.Enabled = True
            btngrabar.Enabled = True
            lblnum.Visible = True
            '---------detalle------------------
            daabo = New SqlDataAdapter(" SELECT     numbol, fecemi, estado, total " & _
                                       " FROM         dbo.boleta" & _
                                       " WHERE fecemi >='" & lblfecini.Text & "' and fecemi <='" & lblfecfin.Text & "' and estado='EN PROCESO'" & _
                                       " order by fecemi desc", cn)
            dsabo = New DataSet
            daabo.Fill(dsabo, "boleta")
            Me.grddetalle.DataSource = dsabo
            Me.grddetalle.DataMember = "boleta"
            FormatearGrid()
            Dim i As Integer
            For i = 0 To grddetalle.Rows.Count
                lblnum.Text = i
            Next
    
            If grddetalle.Rows.Count = 0 Then
                txttotal.Text = ""
            Else
                da1 = New SqlDataAdapter(" SELECT     SUM(total) AS total " & _
                                         " FROM dbo.boleta " & _
                                         " WHERE fecemi >='" & lblfecini.Text & "' and fecemi <='" & lblfecfin.Text & "' and estado='CANCELADO'", cn)
                ds1 = New DataSet
                da1.Fill(ds1, "boleta")
                Me.grddetalle1.DataSource = ds1
                Me.grddetalle1.DataMember = "boleta"
    
                Dim Xtotal As Double
                Xtotal = grddetalle1.Item(0, grddetalle1.CurrentRow.Index).Value
                txttotal.Text = Format(Xtotal, "##,##0.00")
                FormatearGrid1()
            End If
    
        End Sub
    
        Private Sub btngrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngrabar.Click
            GroupBox1.Enabled = False
            GroupBox2.Enabled = False
            btninsertar.Enabled = False
            btngrabar.Enabled = False
            btnimprimir.Enabled = True '  Try
            cn.Open()
            Dim i As Integer
            For i = 0 To grddetalle.Rows.Count - 1
                'llena tabla tempdeudor
                Dim cmd As New SqlCommand("INSERT into tempentrefechas(numbol, fecemi, estado, monto, total, fecini,fecvenc, num) VALUES(@numbol, @fecemi, @estado, @monto, @total,@fecini,@fecvenc, @num)", cn)
                With cmd
    
                    .Parameters.Add(New SqlParameter("@numbol", SqlDbType.VarChar)).Value = grddetalle.Item(0, i).Value
                    .Parameters.Add(New SqlParameter("@fecemi", SqlDbType.SmallDateTime)).Value = grddetalle.Item(1, i).Value
                    .Parameters.Add(New SqlParameter("@estado", SqlDbType.VarChar)).Value = grddetalle.Item(2, i).Value
                    .Parameters.Add(New SqlParameter("@monto", SqlDbType.Float)).Value = grddetalle.Item(3, i).Value
                    .Parameters.Add(New SqlParameter("@total", SqlDbType.Float)).Value = txttotal.Text
                    .Parameters.Add(New SqlParameter("@fecini", SqlDbType.SmallDateTime)).Value = lblxfecini.Text
                    .Parameters.Add(New SqlParameter("@fecvenc", SqlDbType.SmallDateTime)).Value = lblxfecfin.Text
                    .Parameters.Add(New SqlParameter("@num", SqlDbType.Int)).Value = lblnum.Text
    
                End With
                cmd.ExecuteNonQuery()
            Next
            '  Catch sqlExc As SqlException
            MsgBox("Registros Insertados Correctamente", MsgBoxStyle.Exclamation, "Registro entre fechas")
            cn.Close()
            '   End Try
        End Sub
    
        Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
            'limpia las tablas temporales
    
            Try
                cn.Open()
                Dim cmd11 As New SqlCommand("delete from tempentrefechas", cn)
                cmd11.ExecuteNonQuery()
    
                ' MessageBox.Show("Registros Insertados Correctamente")
            Catch sqlExc As SqlException
                MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                cn.Close()
            End Try
            ' fin limpia las tablas temporales
            Me.Close()
        End Sub
    
        Private Sub btninsertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninsertar.Click
            btninsertar.Enabled = False
            GroupBox1.Enabled = True
    
    
            Try
                cn.Open()
                Dim cmd11 As New SqlCommand("delete from tempentrefechas", cn)
                cmd11.ExecuteNonQuery()
    
                ' MessageBox.Show("Registros Insertados Correctamente")
            Catch sqlExc As SqlException
                MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                cn.Close()
            End Try
            ' fin limpia las tablas temporales
        End Sub
    
        Private Sub btnimprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnimprimir.Click
            frmrepingresoentrefechas.Show()
        End Sub
    
    End Class

    Basicamente en los llamados de @Parameters

    Tengo que hacer una modificacion para que muestre en un form  en un DataSet/Reporte 6 columnas

    Nombre   |   Apellido   | Concepto   |  Numbol  |   Fecemi   |   Total

    De las cuales tengo 

    Numbol   |   Fecemi   |  Estado    |    Total

    Lo que sucede es que estan en 2 tablas de sql diferentes. Y necesito el reporte de ambas.. En una misma columna.

    Y demas. Si alguien es tan amable de darme una mano, desde ya gracias!


    ID: GranJK! S2!

    viernes, 1 de febrero de 2019 0:39

Respuestas

  • Hola GranJK  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te comento que estaremos realizando una revisión a profundidad acerca del inconveniente que se te está presentando.

    Proporcionaremos una respuesta lo más pronto posible.

    Gracias por usar los foros de MSDN.

    Pedro Alfaro
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.
    Nuevamente me respondes tu y nadie me responde luego! :@

    ID: GranJK! S2!

    • Marcado como respuesta GranJK lunes, 29 de abril de 2019 17:16
    domingo, 3 de febrero de 2019 20:53

Todas las respuestas

  • Hola GranJK  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te comento que estaremos realizando una revisión a profundidad acerca del inconveniente que se te está presentando.

    Proporcionaremos una respuesta lo más pronto posible.

    Gracias por usar los foros de MSDN.

    Pedro Alfaro
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.
    viernes, 1 de febrero de 2019 15:38
  • Hola GranJK  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te comento que estaremos realizando una revisión a profundidad acerca del inconveniente que se te está presentando.

    Proporcionaremos una respuesta lo más pronto posible.

    Gracias por usar los foros de MSDN.

    Pedro Alfaro
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.
    Nuevamente me respondes tu y nadie me responde luego! :@

    ID: GranJK! S2!

    • Marcado como respuesta GranJK lunes, 29 de abril de 2019 17:16
    domingo, 3 de febrero de 2019 20:53