Bancos/DepositosCaja.aspx.vb

@@ -31,7 +31,7 @@ Partial Class Bancos_DepositosCaja
             ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
             ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
             ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);")
-
+            BtnConsultar.Attributes.Add("onclick", "Consultar(this);")
 
         End If
     End Sub
@@ -98,11 +98,20 @@ Partial Class Bancos_DepositosCaja
         GvFacturas.DataSource = ObjBancos.DtResultados
         ObjBancos.Dispose()
 
-        UpGvFacturas.Update()
+
         GvFacturas.DataBind()
-        lblValorTotal.Text = "0.00"
         TxtComision.Text = ""
+        TxtDescuento.Text = ""
+        TxtIVA.Text = ""
+        TxtComisionIntermediario.Text = ""
+        lblValorTotal.Text = "0.0"
+        lblValorTotalSeleccionado.Text = "0.0"
         divLabelTotal.Visible = True
+        DdlSubProyectoDeposito.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
+        DdlSubProyectoDescuento.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
+        DdlSubProyectoIntermediario.SelectedValueExist(DdlSubProyectos.SelectedValue.ToEntero)
+        UpGvFacturas.Update()
+        UpParametros.Update()
     End Sub
 
     Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click
@@ -165,14 +174,19 @@ Partial Class Bancos_DepositosCaja
         Dim CveCuentaBancariaDestino As Integer = 0
         Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
         Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
-        Dim CveSubProyecto As Integer = -1
-        Dim CveSubProyectoDescuento As Integer = -1
+        Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero
         Dim CveClasificacion As Integer = -1
-        Dim CveClasificacionDescuento As Integer = -1
+
+        Dim CveSubProyectoComision As Integer
+        Dim CveClasificacionComision As Integer
+
+        Dim CveSubProyectoDescuento As Integer
+        Dim CveClasificacionDescuento As Integer
+
         Dim documentos As String = "Los Depósitos se realizaron exitosamente<br/><br/>"
         Dim imprimirFolios As String = ""
-        Dim CveSubProyectoIntermediario As Integer = -1
-        Dim CveClasificacionIntermediario As Integer = -1
+        Dim CveSubProyectoIntermediario As Integer
+        Dim CveClasificacionIntermediario As Integer 
         Dim CveProveedorIntermediario As Integer = -1
 
         If drOrigen IsNot Nothing Then
@@ -231,10 +245,10 @@ Partial Class Bancos_DepositosCaja
         If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio) Then
 
             If ChkFaltante.Checked Then
-                CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
-                CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
+                CveSubProyectoComision = DdlSubProyectoDeposito.SelectedValue.ToEntero
+                CveClasificacionComision = DdlClasificacion.SelectedValue.ToEntero
                 If Comision <> 0 Then
-                    If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
+                    If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision, ImporteMX:=Comision * TipoCambio) Then
                         OcurrioError = True
                     End If
                 End If
@@ -314,8 +328,9 @@ Partial Class Bancos_DepositosCaja
         TxtDescuento.Text = ""
         TxtIVA.Text = ""
         TxtComisionIntermediario.Text = ""
-        lblValorTotal.Text = ""
-        lblValorTotalSeleccionado.Text = ""
+        lblValorTotal.Text = "0.0"
+        lblValorTotalSeleccionado.Text = "0.0"
+        CargaDatos()
         ObjContabilidad.Dispose()
     End Sub
 
@@ -329,6 +344,8 @@ Partial Class Bancos_DepositosCaja
         Next
         lblValorTotal.Text = Total.ToString("N")
         UpGvFacturas.Update()
+        UpParametros.Update()
+
     End Sub
 
     Public Sub ChkFactura_Click(sender As Object, e As EventArgs)