AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SubPryecto en descuento

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-04-19 15:04:32 -07:00
parent 2cfb06282c
commit dac432d229
2 changed files with 27 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Bancos/DepositosCaja.aspx
View File

@@ -141,7 +141,7 @@
<asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante"/> <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante"/>
</div> </div>
<div class="col-md-3" id="DivComision" style="display: none"> <div class="col-md-3" id="DivComision" style="display: none">
<label style="width: 105px; ">Faltante/Sobrante:</label> <label style="width: 105px; ">Importe:</label>
<asp:TextBox runat="server" ID="TxtComision" Class=" input-sm " Width="75px"></asp:TextBox> <asp:TextBox runat="server" ID="TxtComision" Class=" input-sm " Width="75px"></asp:TextBox>
</div> </div>
@@ -162,10 +162,16 @@
<asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento"/> <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento"/>
</div> </div>
<div class="col-md-3" id="DivDescuento" style="display: none"> <div class="col-md-3" id="DivDescuento" style="display: none">
<label style="width: 105px; ">Descuento:</label> <label style="width: 105px; ">Importe:</label>
<asp:TextBox runat="server" ID="TxtDescuento" Class=" input-sm " Width="75px"></asp:TextBox> <asp:TextBox runat="server" ID="TxtDescuento" Class=" input-sm " Width="75px"></asp:TextBox>
</div> </div>
<label class="col-md-1 truncate" style="width: 120px; display: none" id="LblSubproyectoDescuento" >SubProyecto:</label>
<div class="col-md-2" style="display: none" id="divSubProyectoDescuento">
<asp:DropDownList ID="DdlSubProyectoDescuento" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
</asp:DropDownList>
</div>
<label class="col-md-1 truncate" style="width: 120px; display: none" id="LblClasificacionDescuento">Clasificación:</label> <label class="col-md-1 truncate" style="width: 120px; display: none" id="LblClasificacionDescuento">Clasificación:</label>
<div class="col-md-2" style="display: none" id="divClasificacionDescuento"> <div class="col-md-2" style="display: none" id="divClasificacionDescuento">
<asp:DropDownList ID="DdlClasificacionDescuento" AutoPostBack="false" CssClass=" form-control input-sm select2me" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion"> <asp:DropDownList ID="DdlClasificacionDescuento" AutoPostBack="false" CssClass=" form-control input-sm select2me" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
@@ -288,7 +294,7 @@
} else { } else {
$('#DivComision').css("display", "none"); $('#DivComision').css("display", "none");
$('#LblSubproyecto').css("display", "none"); $('#divSubProyecto').css("display", "none");
$('#divSubProyecto').css("display", "none"); $('#divSubProyecto').css("display", "none");
$('#LblClasificacion').css("display", "none"); $('#LblClasificacion').css("display", "none");
$('#divClasificacion').css("display", "none"); $('#divClasificacion').css("display", "none");
@@ -299,13 +305,18 @@
function CheckDescuento(chk) { function CheckDescuento(chk) {
if (chk.checked == true) { if (chk.checked == true) {
$('#DivDescuento').css("display", "block"); $('#DivDescuento').css("display", "block");
$('#LblSubproyectoDescuento').css("display", "block");
$('#divSubProyectoDescuento').css("display", "block");
$('#LblClasificacionDescuento').css("display", "block"); $('#LblClasificacionDescuento').css("display", "block");
$('#divClasificacionDescuento').css("display", "block"); $('#divClasificacionDescuento').css("display", "block");
debugger; debugger;
} else { } else {
$('#DivDescuento').css("display", "none"); $('#DivDescuento').css("display", "none");
$('#LblSubproyectoDescuento').css("display", "none");
$('#divSubProyectoDescuento').css("display", "none");
$('#LblClasificacionDescuento').css("display", "none"); $('#LblClasificacionDescuento').css("display", "none");
$('#divClasificacionDescuento').css("display", "none"); $('#divClasificacionDescuento').css("display", "none");
debugger; debugger;

18
Bancos/DepositosCaja.aspx.vb
View File

@@ -41,15 +41,22 @@ Partial Class Bancos_DepositosCaja
DdlSubProyectos.DataBind() DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoDeposito.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) DdlSubProyectoDeposito.DataSource = DdlSubProyectos.DataSource
DdlSubProyectoDeposito.DataBind() DdlSubProyectoDeposito.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyectoDescuento.DataSource = DdlSubProyectos.DataSource
DdlSubProyectoDescuento.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2) DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
DdlClasificacion.DataBind() DdlClasificacion.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClasificacionDescuento.DataSource = DdlClasificacion.DataSource
DdlClasificacionDescuento.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -119,9 +126,10 @@ Partial Class Bancos_DepositosCaja
Dim CveCuentaBancariaDestino As Integer = 0 Dim CveCuentaBancariaDestino As Integer = 0
Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") 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 drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim CveSubProyecto As Integer = 0 Dim CveSubProyecto As Integer = -1
Dim CveClasificacion As Integer = 0 Dim CveSubProyectoDescuento As Integer = -1
Dim CveClasificacionDescuento As Integer = 0 Dim CveClasificacion As Integer = -1
Dim CveClasificacionDescuento As Integer = -1
Dim documentos As String = "Los Depósitos se realizaron exitósamente<br/><br/>" Dim documentos As String = "Los Depósitos se realizaron exitósamente<br/><br/>"
Dim imprimirFolios As String = "" Dim imprimirFolios As String = ""
If drOrigen IsNot Nothing Then If drOrigen IsNot Nothing Then
@@ -160,7 +168,7 @@ Partial Class Bancos_DepositosCaja
End If End If
If ChkDescuento.Checked Then If ChkDescuento.Checked Then
CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
CveClasificacionDescuento = DdlClasificacionDescuento.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, CveCuenta:=CveCuentaBancariaOrigen) Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then