SIG/Bancos/CreditosPagoMultiple.aspx.vb

Imports Extensiones
Imports System.Data

Partial Class Bancos_CreditosPagoMultiple
    Inherits ClsPaginas

    Private Property CveProveedor As Integer
        Get
            Return ViewState("CveProveedor").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveProveedor") = value
        End Set
    End Property

    Private Property CveMoneda As Integer
        Get
            Return ViewState("CveMoneda").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("CveMoneda") = value
        End Set
    End Property

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            CveMoneda = 1
            CargaTipoTransaccion()
            CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
            TxtFechaDocumento.Text = Now.ToShortDateString
            CargaProveedores() ' CveProveedor = 19994

            TxtPagueseA.Enabled = False
            
            TxtImporte.Attributes.Add("disabled", "disabled")
            If DdlTipoTransaccion.SelectedValue = "1" Then RFVFolio.Enabled = True Else RFVFolio.Enabled = False
            'TxtNotificarA.Text = ObjProveedor.NotificarA.Trim


            CargaDatos()
        End If
    End Sub

    Private Sub CargaProveedores()

        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        DdlProveedor.DataBind()
    End Sub

    Private Sub CargaDatos()


        Dim Bancos As New ClsBancos

        If Bancos.GetCreditosVencimiento(UsuarioActual.CveEmpresa, DdlProveedor.SelectedValue.ToEntero) Then

            GvV.DataSource = Bancos.DtResultados

            TxtPagueseA.Text = DdlProveedor.SelectedItem.Text

        End If
        
        Bancos.Dispose()
        GvV.DataBind()

    End Sub


    Private Sub CargaCuentas(tTipoTransaccion As Integer)
        DdlCuenta.Items.Clear()
        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
        If CveMoneda > 0 Then
            dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", CveMoneda))

        End If

      
        'cuando es layout
        If tTipoTransaccion = 9 Then
            dt = dt.FiltraParametros("UsaLayout = 1")
        End If


        DdlCuenta.DataSource = dt
        DdlCuenta.DataBind()
        DdlCuenta.Items.Insert(0, New ListItem("Seleccione cuenta", "-1"))
    End Sub

    Private Sub CargaTipoTransaccion()
         
            DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'")
            DdlTipoTransaccion.DataBind()
        

        If DdlTipoTransaccion.Items.Count > 1 Then DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
    End Sub

    Private Sub CargaCuentasDepositos()
        DdlCuentaDeposito.Items.Clear()
        If DdlTipoTransaccion.SelectedValue.Contiene("2", "9") Then ' transferencias y layout
            trCuentaDeposito.Visible = False

            Dim Dep As New ClsGenerales
            If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor) Then
                DdlCuentaDeposito.DataSource = Dep.DtResultados
                'GVCuentasPago.DataSource = Dep.DtResultados
                If Dep.DtResultados.Rows.Count > 1 Then
                    trCuentaDeposito.Visible = True
                    DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))


                    'Si tiene seleccionado Tipo Mov: Layout y no tiene cuenta deposito
                ElseIf DdlTipoTransaccion.SelectedValue = "9" AndAlso Not Dep.DtResultados.Rows.Count > 0 Then
                    BtnIEGuardar.Enabled = False
                    UpGuardar.Update()
                    Alert("El proveedor no tiene cuenta deposito", TipoMensaje.MsgError)
                End If
            End If
            Dep.Dispose()

            'If DdlTipoTransaccion.SelectedValue = "9" AndAlso DdlCuentaDeposito.Items.Count = 0 Then
            '    BtnIEGuardar.Enabled = False
            'End If

            'GVCuentasPago.DataBind()
            DdlCuentaDeposito.DataBind()

        Else
            trCuentaDeposito.Visible = False
            DdlCuentaDeposito.Items.Clear()
        End If
 
    End Sub



    Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
        'recargo la moneda con la que se va a pagar
        Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)

        If dr IsNot Nothing Then
            CveMoneda = dr("CveMoneda").ToString.ToEntero

        End If

        If HdnTipoTransaccion.Value = "Egs" Then
            Dim Folio As Long
            Dim Banco As New ClsBancos
            Folio = Banco.GetNextFolio(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero)
            Banco.Dispose()
            TxtFolio.Text = Folio.ToString
        Else
            TxtFolio.Text = ""
        End If

    End Sub

    Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
        'cuando es cheque
        If DdlTipoTransaccion.SelectedValue = "1" Then
            ChkAbonoCuenta.Visible = True
        Else
            ChkAbonoCuenta.Visible = False
        End If



        CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
        RecargaCuentasDepositos()
    End Sub

    Private Sub RecargaCuentasDepositos()

        Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue))  'Egs o Ing
        If dr IsNot Nothing Then
            HdnTipoTransaccion.Value = dr("Tipo").ToString
        End If
        'cuando es transferencia bancaria, debe de solicitar a que cuenta se va a depositar
        CargaCuentasDepositos()
    End Sub



    Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
        Dim Total As Double = 0
        For Each gvr As GridViewRow In GvV.Rows
            If gvr.FCCheckBox("Chk").Checked Then
                Total += gvr.DataKey("Total").ToDouble
            End If

        Next

        If Total <= 0 Then
            Alert("Debe ingresar un importe", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If


        Dim ObjIE As New ClsBancos()
        Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)


        Dim MsgError As String = ""
        Dim CveConceptoContable As Integer = 30
        Dim CveConceptoCompra As Integer = 48
        ' Dim CveCreditoDetalle As Integer = -1
        Dim CIF As Double = 0
        Dim CvePlantillaPoliza As Integer = 5
        Dim TC As Double = 1.0
        Dim Estatus As Integer = 2
        Dim CveCreditoDetalle As Integer


        Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
        Dim filemove As String = ""
        Dim Comprobante As String = ""
        For Each fileItem As Archivo In filesgral
            Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
            filemove = fileItem.filename
        Next


        Dim CveIE As Integer = -1

        If CveIE = -1 Then

            Dim CveCuentaDeposito As Integer = 0

            If DdlCuentaDeposito.Items.Count > 0 Then
                CveCuentaDeposito = DdlCuentaDeposito.SelectedValue.ToEntero
            End If


            Dim CvePrePoliza As Integer = ObjMov.AddPrePolizas("Banc", CvePlantillaPoliza, Total, Total, CveMoneda, TxtFechaDocumento.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)


            CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, Total, CveMoneda,
                                      TC, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito)


            If CveIE > 0 Then

                If CvePrePoliza > 0 Then

                    'inserto el moviminto de banco
                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor) Then


                        For Each gvr As GridViewRow In GvV.Rows
                            If gvr.FCCheckBox("Chk").Checked Then

                                CveCreditoDetalle = gvr.DataKey("CveCreditoDetalle").ToEntero()

                                If gvr.DataKey("CveTipoCredito") = "1" Then
                                    Estatus = 103
                                    'cuando es crediproveedores es, pago a documentos por pagar
                                    CveConceptoCompra = 57
                                End If
                                ObjIE.UpdateCreditosDetalle(Estatus, CveCreditoDetalle)


                                Dim IVA As Double = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDouble - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
                                    If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtObservaciones.Text, 19, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
                                        MsgError = "Detalle"
                                    End If

                                    'intereses pagados
                                    If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, TxtObservaciones.Text, 46, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
                                        MsgError = "Detalle"
                                    End If

                                Else
                                    MsgError = "no se pudo insertar el detalle de la póliza2"
                                End If

                            End If
                        Next

                    Else
                        MsgError = "no se pudo insertar el detalle de la póliza"
                    End If

                End If

            Else
                MsgError = "No se insertó el encabezado"
            End If

        Else
            'If ObjIE.UpdateBancos_IE(DdlTipo.SelectedItem.ToString, DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, ChkEsAbonoEnCuenta.Checked, ChkAplicaImpuestos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            Alert("El Documento se guardó correctamente.  ", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/CreditosPagoMultiple.aspx"";")
            'End If
            '	'CargaDatos()
            '	UpDatos.Update()
            '	Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
            'End If
        End If

        If MsgError = "" Then
            Alert("El Documento se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/CreditosPagoMultiple.aspx"";")

            If filemove <> "" Then
                filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
            End If
            ObjIE.Commit()
            GeneraChequePDF(CveIE, UsuarioActual.Empresa)
        Else
            ObjIE.RollBack()
        End If
        ObjIE.Dispose()
        ObjMov.Dispose()

    End Sub

    Protected Sub GvV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvV.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then

            e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Total")))
            
        End If
        
    End Sub

    Protected Sub DdlProveedor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedor.SelectedIndexChanged
        CargaDatos()
    End Sub
End Class