Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -488,7 +488,7 @@ Partial Class Bancos_DepositosCaja
|
||||
Private Function ValidaCobranza() As Boolean
|
||||
Dim Respuesta As Boolean = False
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(195) Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
|
||||
|
||||
Dim ObjMovtos As New ClsMovimientos()
|
||||
Dim FechaI, FechaF As Date
|
||||
@@ -504,7 +504,7 @@ Partial Class Bancos_DepositosCaja
|
||||
Respuesta = True
|
||||
Else
|
||||
Respuesta = False
|
||||
Alert("Se detectaron cobros pendientes.", TipoMensaje.MsgAdvertencia)
|
||||
Alert("No se puede realizar el depósito, ya que hay cobros pendientes por aplicar.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
@@ -3636,9 +3636,9 @@ Partial Class Bancos_IE
|
||||
End If
|
||||
|
||||
'Apartado Nueva Modalidad de INGPC Charlie
|
||||
If RBL.SelectedValue = "C" AndAlso Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("INGPC", "DEV") Then
|
||||
DivIvaIxC.Visible = True
|
||||
End If
|
||||
'If RBL.SelectedValue = "C" AndAlso Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("INGPC", "DEV") Then
|
||||
' DivIvaIxC.Visible = True
|
||||
'End If
|
||||
|
||||
UpDatos.Update()
|
||||
|
||||
|
||||
@@ -7,6 +7,10 @@
|
||||
.row {
|
||||
margin: 0 -10px;
|
||||
}
|
||||
.calendar-extender-popup {
|
||||
position: absolute;
|
||||
z-index: 10000; /* Asegura que se muestre sobre otros elementos */
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
@@ -535,10 +539,44 @@
|
||||
<ContentTemplate>
|
||||
<table>
|
||||
<tr>
|
||||
<td>
|
||||
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
|
||||
<td style="width:66%">
|
||||
|
||||
|
||||
<table>
|
||||
<td>
|
||||
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" AutoPostBack="true" OnCheckedChanged="ChkComplementoPago_CheckedChanged" />
|
||||
|
||||
</td>
|
||||
<td>
|
||||
<div runat="server" id="DvFechaEmision" visible="false">
|
||||
<table>
|
||||
<td style="white-space: nowrap;">Fecha Emisión:</td>
|
||||
<td>
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
|
||||
<asp:TextBox ID="TxtFechaEmision" runat="server" CssClass="form-control"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton runat="server" ID="LnkImgTxtFechaEmision" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="METxtFechaEmision" runat="server" TargetControlID="TxtFechaEmision" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" ></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="CETxtFechaEmision" runat="server" TargetControlID="TxtFechaEmision" PopupButtonID="LnkImgTxtFechaEmision" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtFechaEmision" runat="server" ControlToValidate="TxtFechaEmision" Display="None" ErrorMessage="El campo <b>''Fecha de Emisión''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVTxtFechaEmision" runat="server" ControlToValidate="TxtFechaEmision" Display="None" ErrorMessage="El campo <b>''Fecha de Emisión''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaEmision" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender9" runat="server" HighlightCssClass="vco" TargetControlID="CVTxtFechaEmision" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</table>
|
||||
</div>
|
||||
</td>
|
||||
</table>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
</td>
|
||||
<td>
|
||||
|
||||
<td style="width:34%">
|
||||
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
|
||||
<asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
|
||||
</td>
|
||||
|
||||
@@ -1110,6 +1110,18 @@ Partial Class Bancos_PopIEVentas
|
||||
#Region "G U A R D A R"
|
||||
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
Dim FechaEmision As Date = MinFecha
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
|
||||
FechaEmision = TxtFechaEmision.Text.ToDate
|
||||
|
||||
If FechaEmision <= MinFecha Then
|
||||
Alert("Fecha de Emisión no valida", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If ChkComplementoPago.Checked Then
|
||||
Dim objGral As New ClsGralFolios
|
||||
Dim SalirDeMetodo As Boolean = False
|
||||
@@ -1248,7 +1260,9 @@ Partial Class Bancos_PopIEVentas
|
||||
|
||||
Select Case RBLContado.SelectedValue
|
||||
Case "1" ' Banco
|
||||
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte)
|
||||
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "",
|
||||
True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito,
|
||||
Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte, FechaEmision:=FechaEmision)
|
||||
If CveIE > 0 Then
|
||||
|
||||
Pago.ImportePago = ImportePagado
|
||||
@@ -1523,4 +1537,11 @@ Partial Class Bancos_PopIEVentas
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub ChkComplementoPago_CheckedChanged(sender As Object, e As EventArgs)
|
||||
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
|
||||
DvFechaEmision.Visible = ChkComplementoPago.Checked
|
||||
UpGuardar.Update()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -230,6 +230,13 @@ Partial Class Bancos_RepCortes
|
||||
If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
|
||||
DivIVA.Visible = True
|
||||
GvPorIVA.DataSource = DsDatos.Tables(2)
|
||||
Dim tsum As Decimal = DsDatos.Tables(2).SUMD("IVA16") + DsDatos.Tables(2).SUMD("IVA0")
|
||||
If Math.Abs(tsum - DtCortesVentasResumen.MAX("Importe").ToDecimal) > 1 Then
|
||||
GvPorIVA.ForeColor = Drawing.Color.Red
|
||||
GvPorIVA.ToolTip = (tsum - DtCortesVentasResumen.MAX("Importe").ToDecimal).ToString
|
||||
Else
|
||||
GvPorIVA.ForeColor = Drawing.Color.Black
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user