Commit inicial Ventas Productivo

Bancos/CIF.aspx.vb

@@ -0,0 +1,79 @@
+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)
+            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).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