client/Reportes/FrmFraccionadaDET.vb

Public Class FrmFraccionadaDET

    Dim clCmp As clsComplejo = New clsComplejo


    Private Sub FrmFraccionadaDET_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim SQL2 As String
        Dim CLasscom As New clsComplejo
        Dim intProd As Integer
        Dim ClassUtils As New ClassMyUtils

        Try

            intProd = CLasscom.BuscaValores("idproducto", "cat_producto", "producto = '" & ClassUtils.ObtenNombreProducto(clsVaribles.strProdFraccionada) & "'")


            'SQL2 = " SELECT DISTINCT '" & clsVaribles.strProdFraccionada & "'  AS PRODUCTO , A.idtransaccion,SC.SUCURSAL SUCURSAL,A.FECHA,"
            'SQL2 = SQL2 & " CT.idcuenta CUENTA,isnull(SB.SUBPRODUCTO,'ND') SUBPRODUCTO,TP.TIPOOPERACION TIPOOPERACION, "
            'SQL2 = SQL2 & " A.MONTO,MN.MONEDA MONEDA,IM.IdInstrumentoMonetario INSTRUMENTO FROM  " & ClassUtils.ObtenNombreProducto(clsVaribles.strProdFraccionada) & "  A , TRANSACCIONREPORTE TR ,CAT_SUBPRODUCTO SB , "
            'SQL2 = SQL2 & " CAT_SUCURSAL SC ,CAT_TIPOOPERACION TP, CAT_MONEDA MN,CAT_INSTRUMENTOMONETARIO IM,FRACCIONADASDET FDET,CUENTA CT"
            'SQL2 = SQL2 & "  WHERE A.idtransaccion = FDET.id_transaccionPROD AND TR.idproducto = " & intProd & " AND TR.IDPATRON = 104 "
            'SQL2 = SQL2 & " AND A.IDSUCURSAL = SC.IDSUCURSAL  AND SB.idproducto = " & intProd
            'SQL2 = SQL2 & " AND SB.IDSUBPRODUCTO =  A.IDSUBPRODUCTO "
            'SQL2 = SQL2 & " AND TP.IDTIPOOPERACION = A.IDTIPOOPERACION "
            'SQL2 = SQL2 & " AND A.idmoneda = MN.idmoneda "
            'SQL2 = SQL2 & " AND A.IdInstrumentoMonetario = IM.IdInstrumentoMonetario "
            'SQL2 = SQL2 & " AND tr.idtransaccion = " & clsVaribles.lngIDFraccionada
            'SQL2 = SQL2 & " AND fdet.id_MAXtransaccion = tr.idtransaccion "
            'SQL2 = SQL2 & " AND A.idcuenta = CT.idcuenta "

            SQL2 = "SELECT	DISTINCT 'Banca Tradicional'  AS Producto, fdet.id_transaccionPROD IdTransaccion, SC.SUCURSAL SUCURSAL, A.FECHA, " & _
                   "CT.numcuenta Cuenta, isnull(SB.SUBPRODUCTO,'ND') SubProducto, TP.TIPOOPERACION TipoOperacion, " & _
                   "A.Monto, MN.Moneda Moneda, IM.IdInstrumentoMonetario Instrumento " & _
                   "FROM	FraccionadasDET fdet	INNER JOIN TransaccionReporte TR	ON tr.IdTransaccion = fdet.ID_MaxTransaccion AND TR.idproducto = " & intProd & " AND TR.IDPATRON = 104 " & _
                   "INNER JOIN BancaTradicional A				ON a.idtransaccion = fdet.id_transaccionPROD " & _
                   "INNER JOIN CAT_SUCURSAL SC		ON A.IDSUCURSAL = SC.IDSUCURSAL " & _
                   "INNER JOIN CAT_TIPOOPERACION TP	ON TP.IDTIPOOPERACION = A.IDTIPOOPERACION " & _
                   "INNER JOIN CAT_MONEDA MN			ON A.idmoneda = MN.idmoneda " & _
                   "INNER JOIN CAT_INSTRUMENTOMONETARIO IM ON A.IdInstrumentoMonetario = IM.IdInstrumentoMonetario " & _
                   "INNER JOIN CUENTA CT				ON A.idcuenta = CT.idcuenta " & _
                   "LEFT OUTER JOIN CAT_SUBPRODUCTO SB		ON SB.IDSUBPRODUCTO =  TR.IdSubProducto " & _
                   "WHERE		tr.idtransaccion = " & clsVaribles.lngIDFraccionada & _
                   " UNION " & _
                   " SELECT	DISTINCT 'Credito'  AS Producto, fdet.id_transaccionPROD IdTransaccion, SC.SUCURSAL SUCURSAL, A.FECHA, " & _
                   "CT.numcuenta Cuenta, isnull(SB.SUBPRODUCTO,'ND') SubProducto, TP.TIPOOPERACION TipoOperacion, " & _
                   "A.Monto, MN.Moneda Moneda, IM.IdInstrumentoMonetario Instrumento " & _
                   "FROM	FraccionadasDET fdet	INNER JOIN TransaccionReporte TR	ON tr.IdTransaccion = fdet.ID_MaxTransaccion AND TR.idproducto = " & intProd & " AND TR.IDPATRON = 104 " & _
                   "INNER JOIN Credito A				ON a.idtransaccion = fdet.id_transaccionPROD " & _
                   "INNER JOIN CAT_SUCURSAL SC		ON A.IDSUCURSAL = SC.IDSUCURSAL " & _
                   "INNER JOIN CAT_TIPOOPERACION TP	ON TP.IDTIPOOPERACION = A.IDTIPOOPERACION " & _
                   "INNER JOIN CAT_MONEDA MN			ON A.idmoneda = MN.idmoneda " & _
                   "INNER JOIN CAT_INSTRUMENTOMONETARIO IM ON A.IdInstrumentoMonetario = IM.IdInstrumentoMonetario " & _
                   "INNER JOIN CUENTA CT				ON A.idcuenta = CT.idcuenta " & _
                   "LEFT OUTER JOIN CAT_SUBPRODUCTO SB		ON SB.IDSUBPRODUCTO =  TR.IdSubProducto " & _
                   "WHERE		tr.idtransaccion = " & clsVaribles.lngIDFraccionada


            clCmp = New clsComplejo
            clCmp.fdtDataSetTabla(SQL2)

            Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
            clCmp.ColsGridAutosize(Me.C1TrueDBGrid1)
            Me.C1TrueDBGrid1.Visible = True

            clCmp = New clsComplejo
            clCmp.sbLlenaCombo("spLlenaComboEstatusTransacciones ", Me.cboEstatus)



            CLasscom = New clsComplejo
            SQL2 = ""
            SQL2 = "spConsultaNDetFracc " & clsVaribles.lngIDFraccionada & "," & intProd
            CLasscom.fdtDataSet(SQL2)

            If CLasscom.ds.Tables(0).Rows.Count <> 0 Then

                txtrazon.Text = CLasscom.ds.Tables(0).Rows(0).Item("razon").ToString
                cboEstatus.SelectedValue = CLasscom.ds.Tables(0).Rows(0).Item("idestatustransaccion")
            End If

        Catch ex As Exception

        End Try


    End Sub

    Private Sub BTCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCerrar.Click
        Me.Close()
    End Sub

    Private Sub BTExportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTExportar.Click
        Exportar()
    End Sub

    Private Sub Exportar()
        Try
            Dim sql2 As String
            Dim CLasscom As New clsComplejo
            Dim intProd As Integer
            Dim ClassUtils As New ClassMyUtils

            intProd = CLasscom.BuscaValores("idproducto", "cat_producto", "producto = '" & ClassUtils.ObtenNombreProducto(clsVaribles.strProdFraccionada) & "'")

            'SQL2 = " SELECT DISTINCT '" & clsVaribles.strProdFraccionada & "'  AS PRODUCTO , A.idtransaccion,SC.SUCURSAL SUCURSAL,A.FECHA,"
            'SQL2 = SQL2 & " CT.idcuenta CUENTA,isnull(SB.SUBPRODUCTO,'ND') SUBPRODUCTO,TP.TIPOOPERACION TIPOOPERACION, "
            'SQL2 = SQL2 & " A.MONTO,MN.MONEDA MONEDA,IM.IdInstrumentoMonetario INSTRUMENTO FROM  " & ClassUtils.ObtenNombreProducto(clsVaribles.strProdFraccionada) & "  A , TRANSACCIONREPORTE TR ,CAT_SUBPRODUCTO SB , "
            'SQL2 = SQL2 & " CAT_SUCURSAL SC ,CAT_TIPOOPERACION TP, CAT_MONEDA MN,CAT_INSTRUMENTOMONETARIO IM,FRACCIONADASDET FDET,CUENTA CT"
            'SQL2 = SQL2 & "  WHERE A.idtransaccion = FDET.id_transaccionPROD AND TR.idproducto = " & intProd & " AND TR.IDPATRON = 104 "
            'SQL2 = SQL2 & " AND A.IDSUCURSAL = SC.IDSUCURSAL  AND SB.idproducto = " & intProd
            'SQL2 = SQL2 & " AND SB.IDSUBPRODUCTO =  A.IDSUBPRODUCTO "
            'SQL2 = SQL2 & " AND TP.IDTIPOOPERACION = A.IDTIPOOPERACION "
            'SQL2 = SQL2 & " AND A.idmoneda = MN.idmoneda "
            'SQL2 = SQL2 & " AND A.IdInstrumentoMonetario = IM.IdInstrumentoMonetario "
            'SQL2 = SQL2 & " AND tr.idtransaccion = " & clsVaribles.lngIDFraccionada
            'SQL2 = SQL2 & " AND fdet.id_MAXtransaccion = tr.idtransaccion "
            'SQL2 = SQL2 & " AND A.idcuenta = CT.idcuenta "

            SQL2 = "SELECT	DISTINCT 'Banca Tradicional'  AS Producto, fdet.id_transaccionPROD IdTransaccion, SC.SUCURSAL SUCURSAL, A.FECHA, " & _
                   "CT.numcuenta Cuenta, isnull(SB.SUBPRODUCTO,'ND') SubProducto, TP.TIPOOPERACION TipoOperacion, " & _
                   "A.Monto, MN.Moneda Moneda, IM.IdInstrumentoMonetario Instrumento " & _
                   "FROM	FraccionadasDET fdet	INNER JOIN TransaccionReporte TR	ON tr.IdTransaccion = fdet.ID_MaxTransaccion AND TR.idproducto = " & intProd & " AND TR.IDPATRON = 104 " & _
                   "INNER JOIN BancaTradicional A				ON a.idtransaccion = fdet.id_transaccionPROD " & _
                   "INNER JOIN CAT_SUCURSAL SC		ON A.IDSUCURSAL = SC.IDSUCURSAL " & _
                   "INNER JOIN CAT_TIPOOPERACION TP	ON TP.IDTIPOOPERACION = A.IDTIPOOPERACION " & _
                   "INNER JOIN CAT_MONEDA MN			ON A.idmoneda = MN.idmoneda " & _
                   "INNER JOIN CAT_INSTRUMENTOMONETARIO IM ON A.IdInstrumentoMonetario = IM.IdInstrumentoMonetario " & _
                   "INNER JOIN CUENTA CT				ON A.idcuenta = CT.idcuenta " & _
                   "LEFT OUTER JOIN CAT_SUBPRODUCTO SB		ON SB.IDSUBPRODUCTO =  TR.IdSubProducto " & _
                   "WHERE		tr.idtransaccion = " & clsVaribles.lngIDFraccionada & _
                   " UNION " & _
                   " SELECT	DISTINCT 'Credito'  AS Producto, fdet.id_transaccionPROD IdTransaccion, SC.SUCURSAL SUCURSAL, A.FECHA, " & _
                   "CT.numcuenta Cuenta, isnull(SB.SUBPRODUCTO,'ND') SubProducto, TP.TIPOOPERACION TipoOperacion, " & _
                   "A.Monto, MN.Moneda Moneda, IM.IdInstrumentoMonetario Instrumento " & _
                   "FROM	FraccionadasDET fdet	INNER JOIN TransaccionReporte TR	ON tr.IdTransaccion = fdet.ID_MaxTransaccion AND TR.idproducto = " & intProd & " AND TR.IDPATRON = 104 " & _
                   "INNER JOIN Credito A				ON a.idtransaccion = fdet.id_transaccionPROD " & _
                   "INNER JOIN CAT_SUCURSAL SC		ON A.IDSUCURSAL = SC.IDSUCURSAL " & _
                   "INNER JOIN CAT_TIPOOPERACION TP	ON TP.IDTIPOOPERACION = A.IDTIPOOPERACION " & _
                   "INNER JOIN CAT_MONEDA MN			ON A.idmoneda = MN.idmoneda " & _
                   "INNER JOIN CAT_INSTRUMENTOMONETARIO IM ON A.IdInstrumentoMonetario = IM.IdInstrumentoMonetario " & _
                   "INNER JOIN CUENTA CT				ON A.idcuenta = CT.idcuenta " & _
                   "LEFT OUTER JOIN CAT_SUBPRODUCTO SB		ON SB.IDSUBPRODUCTO =  TR.IdSubProducto " & _
                   "WHERE		tr.idtransaccion = " & clsVaribles.lngIDFraccionada


            CLasscom = New clsComplejo
            CLasscom.fdtDataSetTabla(sql2)


            If CLasscom.ds.Tables.Count = 0 Then
                MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                If CLasscom.ds.Tables(0).Rows.Count = 0 Then
                    MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Else
                    Dim Resul As DialogResult
                    Resul = MessageBox.Show("Este proceso puede tardar varios minutos, <20>Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                    If Resul = DialogResult.Yes Then
                        'Creamos una copia del dataset
                        Dim copyDS As DataSet = CLasscom.ds.Copy()
                        'Quitamos las siguientes columnas para no exportarlas
                        'copyDS.Tables(0).Columns.Remove("idtransaccion")
                        'copyDS.Tables(0).Columns.Remove("idproducto")
                        'copyDS.Tables(0).Columns.Remove("Id_Subproducto")
                        'copyDS.Tables(0).Columns.Remove("Id_Patron")
                        'copyDS.Tables(0).Columns.Remove("Id_EstatusTransaccion")
                        'Creo una instancia de la clase aExcel
                        Dim clsExcel As aExcel = New aExcel
                        'Obtenemos el nombre o el titulo del form
                        clsExcel.Titulo = Me.Text
                        'Utilizo la funcion ExportDataset de la clase aExcel
                        clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
                        Dim ClassAud As New ClassMyUtils
            ClassAud.RT_Auditoria(clsVaribles.varUsuario, 52, 1, "Exportacion a Excel " & clsVaribles.strProdFraccionada & " Transaccion Fraccionada num- " & clsVaribles.lngIDFraccionada)

                    End If
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub BtGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtGuardar.Click
        Dim Sql As String
        Dim intProd As Integer
        Dim CLasscom As New clsComplejo
        Dim ClassUtils As New ClassMyUtils
        Try
            intProd = CLasscom.BuscaValores("idproducto", "cat_producto", "producto = '" & ClassUtils.ObtenNombreProducto(clsVaribles.strProdFraccionada) & "'")

            Sql = "spinsertaNDetFracc " & clsVaribles.lngIDFraccionada & "," & intProd & "," & cboEstatus.SelectedValue & ",'" & txtrazon.Text & "'"
            CLasscom.sbInserta(Sql)
            MessageBox.Show("Registro Grabado Correctamente", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception
            MessageBox.Show("Error Insertar nombre en listas : " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try


    End Sub
End Class