Cambios visuales
This commit is contained in:
HECTOR RODRIGUEZ
@@ -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>
|
||||||
|
|||||||
@@ -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,90 +230,75 @@ 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
|
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
|
||||||
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
|
Else
|
||||||
OcurrioError = True
|
OcurrioError = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If IVA <> 0 Then
|
For Each Gvr As GridViewRow In GvFacturas.Rows
|
||||||
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
|
|
||||||
|
|
||||||
|
If Gvr.FCCheckBox("ChkFactura").Checked Then
|
||||||
|
'Datos de las Nuevas PrePolizas
|
||||||
|
'Entrada a Bancos
|
||||||
|
|
||||||
|
Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal
|
||||||
|
Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString
|
||||||
|
|
||||||
|
'Datos de las Prepolizas A Cancelar
|
||||||
|
Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero
|
||||||
|
Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero
|
||||||
|
Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero
|
||||||
|
|
||||||
|
FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2)
|
||||||
|
If Not FolioIE > 0 Then
|
||||||
|
OcurrioError = True
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
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
|
||||||
|
OcurrioError = True
|
||||||
|
Exit For
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
'Asignamos la cuenta Deposito
|
||||||
OcurrioError = True
|
If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then
|
||||||
End If
|
OcurrioError = True
|
||||||
|
Exit For
|
||||||
For Each Gvr As GridViewRow In GvFacturas.Rows
|
|
||||||
|
|
||||||
If Gvr.FCCheckBox("ChkFactura").Checked Then
|
|
||||||
'Datos de las Nuevas PrePolizas
|
|
||||||
'Entrada a Bancos
|
|
||||||
|
|
||||||
Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal
|
|
||||||
Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString
|
|
||||||
|
|
||||||
'Datos de las Prepolizas A Cancelar
|
|
||||||
Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero
|
|
||||||
Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero
|
|
||||||
Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero
|
|
||||||
|
|
||||||
FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2)
|
|
||||||
If Not FolioIE > 0 Then
|
|
||||||
OcurrioError = True
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
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
|
|
||||||
OcurrioError = True
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
|
|
||||||
'Asignamos la cuenta Deposito
|
|
||||||
If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then
|
|
||||||
OcurrioError = True
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
|
|
||||||
|
|
||||||
'documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> <br/><br/> ", StrEncript, SerieFolio)
|
|
||||||
End If
|
End If
|
||||||
|
Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
|
||||||
|
|
||||||
Next
|
'documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> <br/><br/> ", StrEncript, SerieFolio)
|
||||||
|
|
||||||
|
|
||||||
If OcurrioError Then
|
|
||||||
ObjContabilidad.RollBack()
|
|
||||||
Alert("Ocurrio un error al realizar los depositos", TipoMensaje.MsgError)
|
|
||||||
Else
|
|
||||||
ObjContabilidad.Commit()
|
|
||||||
CargaDatos()
|
|
||||||
|
|
||||||
documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Prepóliza</a> <br/><br/> ", NuevaCvePrePoliza)
|
|
||||||
|
|
||||||
Alert(documentos.ToString)
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
TxtComision.Text = ""
|
|
||||||
TxtDescuento.Text = ""
|
Next
|
||||||
TxtIVA.Text = ""
|
|
||||||
TxtComisionIntermediario.Text = ""
|
|
||||||
ObjContabilidad.Dispose()
|
If OcurrioError Then
|
||||||
|
ObjContabilidad.RollBack()
|
||||||
|
Alert("Ocurrio un error al realizar los depositos", TipoMensaje.MsgError)
|
||||||
|
Else
|
||||||
|
ObjContabilidad.Commit()
|
||||||
|
CargaDatos()
|
||||||
|
|
||||||
|
documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Prepóliza</a> <br/><br/> ", NuevaCvePrePoliza)
|
||||||
|
|
||||||
|
Alert(documentos.ToString)
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
TxtComision.Text = ""
|
||||||
|
TxtDescuento.Text = ""
|
||||||
|
TxtIVA.Text = ""
|
||||||
|
TxtComisionIntermediario.Text = ""
|
||||||
|
ObjContabilidad.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ObtenerTotalImporta()
|
Private Sub ObtenerTotalImporta()
|
||||||
|
|||||||
Reference in New Issue
Block a user