- se especifica el combo del personal

Bancos/DepositosCaja.aspx

@@ -194,7 +194,7 @@
                 <div class="col-md-1" runat="server" id="Div1" style ="width: 155px">
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox"/>
                 </div>
-                <div class="col-md-10 rowcheckCampos" id="DivDescuento" style="display: none">
+                <div class="col-md-11 rowcheckCampos" id="DivDescuento" style="display: none">
                     
                     <div class="col-md-1" style="padding-right: 130px;">
                         <label for="TxtDescuento">Importe:</label>
@@ -208,11 +208,16 @@
                         </asp:DropDownList>
                     </div>
               
-                    <div class="col-md-1">
+                    <div class="col-md-2">
                         <label>Clasificación:</label>
                         <asp:DropDownList  ID="DdlClasificacionDescuento" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
                         </asp:DropDownList>
                     </div>
+                    <div class="col-md-1">
+                        <label>Emp:</label>
+                        <asp:DropDownList  ID="DdlPersonal" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal">
+                        </asp:DropDownList>
+                    </div>
                 </div>
                 
             </div>

Bancos/DepositosCaja.aspx.vb

@@ -63,6 +63,9 @@ Partial Class Bancos_DepositosCaja
         DdlClasificacionDescuento.DataBind()
         DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
+        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+        DdlPersonal.DataBind()
+
         'intermediario
         DdlProveedorIntermediario.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343))
         DdlProveedorIntermediario.DataBind()
@@ -119,7 +122,7 @@ Partial Class Bancos_DepositosCaja
 
         TotalImportePrePoliza = TotalImporte
         If Comision <> 0 Then
-            TotalImporte = TotalImporte + Comision + Descuento
+            TotalImporte = TotalImporte + Comision
             'Comision = -(Comision) ' se inverte el valor, va cargada
             'Descuento = -(Descuento) ' se inverte el valor, va cargada
             If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
@@ -128,6 +131,15 @@ Partial Class Bancos_DepositosCaja
             End If
         End If
 
+        If Descuento <> 0 Then
+            TotalImporte = TotalImporte - Descuento
+            'Descuento = -(Descuento) ' se inverte el valor, va cargada
+            If DdlSubProyectoDescuento.SelectedValue.ToEntero = -1 Or DdlClasificacionDescuento.SelectedValue.ToEntero = -1 Then
+                Alert("Debes Seleccionar un Subproyecto y una Clasificación de descuento", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
         If TxtComisionIntermediario.Text.ToDecimal <> 0 Then
             TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA
         End If
@@ -230,7 +242,7 @@ Partial Class Bancos_DepositosCaja
                 CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
                 CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text & " " & DdlPersonal.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyectoDescuento, ImporteMX:=Descuento * TipoCambio, CvePersonal:=DdlPersonal.SelectedValue.ToEntero) Then
                     OcurrioError = True
                 End If
             End If
@@ -263,7 +275,7 @@ Partial Class Bancos_DepositosCaja
                 CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
                     OcurrioError = True
                     Exit For
                 End If