80 lines
3.8 KiB
VB.net
80 lines
3.8 KiB
VB.net
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
|