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

Cambios visuales

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-05-14 10:23:38 -07:00
parent 92ee2c9218
commit bd1a1a300f
2 changed files with 62 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Bancos/DepositosCaja.aspx
View File

@@ -136,7 +136,7 @@
</div> </div>
</div> </div>
<div class="row" style="border:solid"> <div class="row">
<div class="col-md-2" runat="server" id="DivFaltante"> <div class="col-md-2" runat="server" id="DivFaltante">
<asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante"/> <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante"/>
</div> </div>
@@ -164,7 +164,7 @@
</div> </div>
<div class="row" style="border:solid"> <div class="row" >
<div class="col-md-2" runat="server" id="Div1"> <div class="col-md-2" runat="server" id="Div1">
<asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento"/> <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento"/>
</div> </div>
@@ -189,7 +189,7 @@
</div> </div>
</div> </div>
<div class="row" style="border:solid"> <div class="row">
<div class="col-md-1" runat="server" id="Div2"> <div class="col-md-1" runat="server" id="Div2">
<asp:CheckBox ID="ChkIntermediario" runat="server" Text="Intermediario"/> <asp:CheckBox ID="ChkIntermediario" runat="server" Text="Intermediario"/>
@@ -207,7 +207,7 @@
<label>IVA:</label> <label>IVA:</label>
<asp:TextBox runat="server" ID="TxtIVA" Class=" input-sm " Width="75px"></asp:TextBox> <asp:TextBox runat="server" ID="TxtIVA" Class=" input-sm " Width="75px"></asp:TextBox>
</div> </div>
<div class="col-md-2" id="dd2"> <div class="col-md-3" id="dd2">
<label id="LblClasificacion3">Gasto:</label> <label id="LblClasificacion3">Gasto:</label>
<asp:DropDownList ID="DdlClasificacionIntermediario" 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 ID="DdlClasificacionIntermediario" 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> </asp:DropDownList>

20
Bancos/DepositosCaja.aspx.vb
View File

@@ -157,6 +157,7 @@ Partial Class Bancos_DepositosCaja
Dim imprimirFolios As String = "" Dim imprimirFolios As String = ""
Dim CveSubProyectoIntermediario As Integer = -1 Dim CveSubProyectoIntermediario As Integer = -1
Dim CveClasificacionIntermediario As Integer = -1 Dim CveClasificacionIntermediario As Integer = -1
Dim CveProveedorIntermediario As Integer = -1
If drOrigen IsNot Nothing Then If drOrigen IsNot Nothing Then
CveMoneda = drOrigen("CveMoneda").ToString.ToEntero CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
@@ -170,7 +171,7 @@ Partial Class Bancos_DepositosCaja
CveCuentaBancariaDestino = drDestino("IdCtaContableSIG").ToString.ToEntero CveCuentaBancariaDestino = drDestino("IdCtaContableSIG").ToString.ToEntero
End If End If
NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1)
If ChkIntermediario.Checked Then If ChkIntermediario.Checked Then
@@ -229,27 +230,12 @@ Partial Class Bancos_DepositosCaja
CveSubProyectoDescuento = DdlSubProyectoDescuento.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
OcurrioError = True
End If
End If
If 1 = 1 Then
CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
CveSubProyectoIntermediario = DdlClasificacionIntermediario.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, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
OcurrioError = True OcurrioError = True
End If End If
If IVA <> 0 Then
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, DdlClasificacionIntermediario.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=IVA, CveCuenta:=CveCuentaBancariaOrigen, PorcentajeImpuesto:=0.16D) Then
OcurrioError = True
End If
End If End If
End If
Else Else
OcurrioError = True OcurrioError = True