Option Explicit On
Option Strict On

Imports System.Data
Imports System.Data.SqlClient
Imports Extensiones
Partial Class Bancos_CIF
    Inherits ClsPaginas

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
            DdlCuentas.DataBind()
            'DdlCuentas.Items.Insert(0, New ListItem("Seleccione una Cuenta", "-1"))

            DdlTipoMovimiento.DataSource = GlobalDTContaPlantillasPolizas(1, -1).FiltraParametros("CvePlantillaPoliza IN (15,16,17)")
            'DdlTipoMovimiento.DataSource = GlobalDTContaConceptosContables(1).FiltraParametros("Tipo='CIF'")
            DdlTipoMovimiento.DataBind()
            'DdlTipoMovimiento.Items.Insert(0, New ListItem("Seleccione un Tipo de Movimiento", "-1"))

            DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones() '.FiltraParametros("Tipo='Egs'")
            DdlTipoTransaccion.DataBind()
            ' DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione un Tipo de Transacción", "-1"))

        End If
    End Sub

    Protected Sub BtnGuardar(sender As Object, e As System.EventArgs)
        Dim ObjBancos As New ClsBancos
        Dim ObjMov As New ClsContabilidad(ObjBancos.IniciaTransacSQL)
        Dim Importe As Double = TxtImporte.Text.ToDouble
        Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero()
        Dim ErrorTransaccion As Boolean = False
        Dim Folio As String = ObjBancos.GetNextFolio(DdlCuentas.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero).ToString
        Dim CvePrePoliza As Integer

        CvePrePoliza = ObjMov.AddPrePolizas("Banc", 15, Importe, Importe, CveMoneda, TxtFechaRegistroEmpresa.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        Dim CveIE As Integer = ObjBancos.AddBancos_IE(DdlCuentas.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaRegistroEmpresa.Text.ToDate, Folio, "", Importe, CveMoneda, 0, TxtObservacion.Text, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)

        If CveIE > 0 Then
    
            'Dim TipoMovto As Boolean


            'For Each x As DataRow In GlobalDTContaPlantillasPolizasDetalle(DdlTipoMovimiento.SelectedValue.ToEntero).Rows
            '    TipoMovto = CBool(x("TipoMovto"))

            '    'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, TxtConcepto.Text, DdlTipoMovimiento.SelectedValue.ToEntero, TxtObservacion.Text, Now, 0, -1, CveIE) Then
            '    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Importe, TxtConcepto.Text, 30, TxtObservacion.Text, Now, 0, -1, CveIE) Then
            '        ''End If
            '    Else
            '        Alert("No se pudo insertar el Detalle de la Póliza", TipoMensaje.MsgAdvertencia)
            '        ErrorTransaccion = True
            '    End If
            'Next
            Alert("Registro Guardado", TipoMensaje.MsgAdvertencia)
            DdlCuentas.SelectedIndex = 0
            DdlTipoTransaccion.SelectedIndex = 0
            TxtImporte.Text = ""
            TxtFechaRegistroEmpresa.Text = ""
            DdlTipoMovimiento.SelectedIndex = 0
            TxtConcepto.Text = ""
            TxtObservacion.Text = ""
        Else
            ErrorTransaccion = True
            Alert("Error", TipoMensaje.MsgError)
        End If

        If ErrorTransaccion Then
            ObjBancos.RollBack()
        Else
            ObjBancos.Commit()
            UPRegistroIE.Update()
        End If
        ObjBancos.Dispose()
        ObjMov.Dispose()
    End Sub

End Class