Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -470,20 +470,6 @@ Public Class ClsContPAQi
|
||||
StrSQL.Append(" 0, @Serie, @Folio, @Referencia, 0, 0, @SubTotal + @IVA, @RetIVA, @RetISR, @SubTotal + @IVA - @RetIVA - @RetISR,")
|
||||
StrSQL.Append(" YEAR(@FechaMov), MONTH(@FechaMov),@SubTotal, 0,0,1,@UUID);")
|
||||
|
||||
StrSQL.Append(" EXEC PA_UpdateId 'Id_DevolucionIVA';")
|
||||
|
||||
StrSQL.Append(" SET @IdDevIVA = dbo.FNC_GetCounter ('Id_MovimientoImpuesto');")
|
||||
StrSQL.Append(" INSERT INTO MovimientosImpuestos ")
|
||||
StrSQL.Append(" (Id,RowVersion, IdPoliza, NumMovto, IdPersona, SistOrig, EjercicioAsignado,PeriodoAsignado, IdCuenta,,Captado,AplicaImpuesto,Modificado, ")
|
||||
StrSQL.Append(" Serie, Folio, Referencia, UUID, Origen, OrigenMovto, Computable, TipoMovimiento, TipoFactor, Impuesto, ObjetoImpuesto, NombreImpuestoLocal, TasaOCuota, ImpBase, ")
|
||||
StrSQL.Append(" ImpImpuesto, ImpTotal, Desglosado, IVANoAcred, AcumulaIETU, IdConceptoIETU, IETUDeducible, IETUModificado, IETUAcreditable, GuidMov, GuidMovPadre, Migrado,")
|
||||
StrSQL.Append(" ConceptoIVA,SubconceptoIVA,ClasificadorIVA,ProporcionDIOT,DeducibleDIOT)")
|
||||
StrSQL.Append(" VALUES (@IdDevIVA, @RowVersion, @IdPoliza, ISNULL ((SELECT MAX (NumMovto) FROM MovimientosImpuestos WHERE IdPoliza = @IdPoliza), 0) + 1, @IdPersona, 1,YEAR(@FechaMov), MONTH(@FechaMov), @IdCuenta, 0,1,0,")
|
||||
StrSQL.Append(" @Serie, @Folio, @Referencia, @UUID,2, 0,0,0,1,2,0,'',0.16, @SubTotal, @IVA,@SubTotal + @IVA,0, @IVANoAcred,0,0,0,0,'','',0,1,1,1,1,0,0);")
|
||||
StrSQL.Append(" ")
|
||||
|
||||
StrSQL.Append(" EXEC PA_UpdateId 'Id_MovimientoImpuesto';")
|
||||
|
||||
StrSQL.Append(" END TRY")
|
||||
|
||||
StrSQL.Append(" BEGIN CATCH")
|
||||
@@ -526,6 +512,130 @@ Public Class ClsContPAQi
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function AddMovimientoImpuesto(IdPoliza As Integer, IdCuenta As Integer, IdProveedor As Integer, TasaOCuotaIVA As Double, TasaOCuota As Double, SubTotal As Double, ImpImpuesto As Double, FechaMovto As Date, Referencia As String, Serie As String, Folio As Integer, UUID As String,
|
||||
NoDeducible As Boolean, IVANoAcred As Double, GuidMov As String, GuidMovPadre As String, TipoMovimiento As Integer, Impuesto As Integer) As Boolean
|
||||
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
Dim ConceptoIVA As Integer = 0
|
||||
Dim SubconceptoIVA As Integer = 0
|
||||
Dim ProporcionDIOT As Integer = 100
|
||||
Dim DeducibleDIOT As Integer = 1
|
||||
|
||||
If IdPoliza <= 0 Or IdCuenta <= 0 Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
Select Case TasaOCuotaIVA
|
||||
Case 16
|
||||
ConceptoIVA = 1
|
||||
SubconceptoIVA = If(SubTotal > 0, 2, 3)
|
||||
Exit Select
|
||||
Case 8
|
||||
ConceptoIVA = 4
|
||||
SubconceptoIVA = If(SubTotal > 0, 5, 6)
|
||||
Exit Select
|
||||
Case 0
|
||||
ConceptoIVA = 14
|
||||
SubconceptoIVA = If(SubTotal > 0, 15, 16)
|
||||
Exit Select
|
||||
Case Else
|
||||
Return False
|
||||
End Select
|
||||
|
||||
|
||||
If NoDeducible Then
|
||||
ProporcionDIOT = 0
|
||||
DeducibleDIOT = 2
|
||||
End If
|
||||
|
||||
' GuidMov, ConceptoIVA SubconceptoIVA ProporcionDIOT DeducibleDIOT
|
||||
|
||||
StrSQL.Clear()
|
||||
StrSQL.Append(" BEGIN")
|
||||
|
||||
StrSQL.AppendLine(" DECLARE ")
|
||||
StrSQL.AppendLine(" @Error NVARCHAR(300),")
|
||||
StrSQL.AppendLine(" @IdMovDev INT;")
|
||||
StrSQL.AppendLine(" SET NOCOUNT ON;")
|
||||
|
||||
StrSQL.AppendLine(" BEGIN TRY")
|
||||
|
||||
StrSQL.AppendLine(" DECLARE @IdPersona INT = (SELECT TOP 1 PER.Id FROM Proveedores PRO
|
||||
INNER JOIN Personas PER ON PER.Codigo = PRO.CodigoPersona AND PER.EsProveedor = 1
|
||||
WHERE PRO.Id = @IdProveedor);
|
||||
|
||||
IF @IdPersona IS NULL OR @IdPersona <= 0
|
||||
BEGIN
|
||||
DECLARE @ErrorPersona NVARCHAR(300) = Concat('No se encontro el IdPersona del proveedor con id ',@IdProveedor )
|
||||
RAISERROR (@ErrorPersona, 16, 1);
|
||||
END
|
||||
")
|
||||
|
||||
StrSQL.AppendLine("
|
||||
SET @IdMovDev = dbo.FNC_GetCounter ('Id_MovimientoImpuesto');
|
||||
INSERT INTO MovimientosImpuestos
|
||||
(Id,RowVersion, IdPoliza, NumMovto, IdPersona, SistOrig, EjercicioAsignado,PeriodoAsignado, IdCuenta,Captado,AplicaImpuesto,Modificado,
|
||||
Serie, Folio, Referencia, UUID, Origen, OrigenMovto, Computable, TipoMovimiento, TipoFactor, Impuesto, ObjetoImpuesto, NombreImpLocal, TasaOCuota, ImpBase,
|
||||
ImpImpuesto, ImpTotal, Desglosado, IVANoAcred, AcumulaIETU, IdConceptoIETU, IETUDeducible, IETUModificado, IETUAcreditable, GuidMov, GuidMovPadre, Migrado,
|
||||
ConceptoIVA,SubconceptoIVA,ClasificadorIVA,ProporcionDIOT,DeducibleDIOT)
|
||||
|
||||
VALUES (@IdMovDev, @RowVersion, @IdPoliza, ISNULL ((SELECT MAX (NumMovto) FROM MovimientosImpuestos WHERE IdPoliza = @IdPoliza), 0) + 1, @IdPersona, 0,YEAR(@FechaMov), MONTH(@FechaMov), @IdCuenta, 0, 1, 0,
|
||||
@Serie, @Folio, @Referencia, @UUID, 2, 0, 1, @TipoMovimiento, 1, @Impuesto, 2,'', @TasaOCuota, @SubTotal,
|
||||
@ImpImpuesto, @ImpImpuesto,0, @IVANoAcred, 0, 0, 0, 0, 0, @GuidMov, @GuidMovPadre, 0,
|
||||
@ConceptoIVA, @SubconceptoIVA, 0, @ProporcionDIOT, @DeducibleDIOT);
|
||||
|
||||
EXEC PA_UpdateId 'Id_MovimientoImpuesto';
|
||||
")
|
||||
|
||||
|
||||
StrSQL.AppendLine(" END TRY")
|
||||
|
||||
StrSQL.AppendLine(" BEGIN CATCH")
|
||||
StrSQL.AppendLine(" SET @Error = CONCAT('Número: ', ERROR_NUMBER(), '; Procedimiento: ', ERROR_PROCEDURE(), '; Linea: ', ERROR_LINE(), '; Detalle: ', ERROR_MESSAGE());")
|
||||
StrSQL.AppendLine(" RAISERROR(@Error, 16, 1);")
|
||||
StrSQL.AppendLine(" END CATCH")
|
||||
|
||||
StrSQL.Append(" END; ")
|
||||
|
||||
SqlDataAdapter(StrSQL.ToString, CommandType.Text)
|
||||
'SqlDataAdapter("PA_AddDevolucionIVA")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@RowVersion", SqlDbType.Int).Value = GlobalRowVersion
|
||||
.Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza
|
||||
.Add("@IdCuenta", SqlDbType.Int).Value = IdCuenta
|
||||
.Add("@IdProveedor", SqlDbType.Int).Value = IdProveedor
|
||||
.Add("@TasaOCuota", SqlDbType.Float).Value = Math.Round(TasaOCuota, 2)
|
||||
.Add("@SubTotal", SqlDbType.Float).Value = Math.Round(SubTotal, 2)
|
||||
.Add("@ImpImpuesto", SqlDbType.Float).Value = Math.Round(ImpImpuesto, 2)
|
||||
.Add("@IVANoAcred", SqlDbType.Float).Value = Math.Round(IVANoAcred, 2)
|
||||
.Add("@FechaMov", SqlDbType.DateTime).Value = FechaMovto
|
||||
.Add("@Referencia", SqlDbType.VarChar).Value = If(Referencia.Length > 30, Referencia.Substring(1, 30), Referencia)
|
||||
.Add("@Serie", SqlDbType.VarChar).Value = If(Serie.Length > 15, Serie.Substring(1, 15), Serie)
|
||||
.Add("@Folio", SqlDbType.Int).Value = If(Len(Folio.ToString) <= 8, Folio, Right(Folio.ToString, 8).ToEntero) ' se limita a 8 digitos, sino le cortan y se toman los ultimos 8, para que guarde e contpaqi
|
||||
.Add("@UUID", SqlDbType.VarChar).Value = UUID
|
||||
.Add("@ConceptoIVA", SqlDbType.Int).Value = ConceptoIVA
|
||||
.Add("@SubconceptoIVA", SqlDbType.Int).Value = SubconceptoIVA
|
||||
.Add("@ProporcionDIOT", SqlDbType.Int).Value = ProporcionDIOT
|
||||
.Add("@DeducibleDIOT", SqlDbType.Int).Value = DeducibleDIOT
|
||||
.Add("@GuidMov", SqlDbType.VarChar).Value = GuidMov
|
||||
.Add("@GuidMovPadre", SqlDbType.VarChar).Value = GuidMovPadre
|
||||
.Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento
|
||||
.Add("@Impuesto", SqlDbType.Int).Value = Impuesto
|
||||
End With
|
||||
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un Error al agregar el movimiento de impuesto de egresos en la póliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function UpdateDevolucionesIVA(Id As Integer, IdPoliza As Integer, IdCuenta As Integer, IdProveedor As Integer, PorIVA As Double,
|
||||
SubTotal As Double, IVA As Double, RetIVA As Double, RetISR As Double, FechaMovto As Date, Referencia As String, Serie As String, Folio As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -2278,6 +2388,7 @@ Public Class ClsContPAQi
|
||||
StrSQL.AppendLine(" @NumMovto INT,")
|
||||
StrSQL.AppendLine(" @IdDiario INT,")
|
||||
StrSQL.AppendLine(" @SegNegMovtos INT,")
|
||||
StrSQL.AppendLine(" @IdMoneda INT,")
|
||||
StrSQL.AppendLine(" @Fecha DATETIME,")
|
||||
StrSQL.AppendLine(" @IDEjercicio INT,")
|
||||
StrSQL.AppendLine(" @TimeStamp NVARCHAR (200);")
|
||||
@@ -2288,10 +2399,11 @@ Public Class ClsContPAQi
|
||||
StrSQL.AppendLine(" SET @Fecha = @FechaMov;")
|
||||
StrSQL.AppendLine(" SET @IdDiario = 0;")
|
||||
StrSQL.AppendLine(" SELECT @Ejercicio = P.Ejercicio, @Periodo = P.Periodo, @TipoPol = TipoPol, @Folio = P.Folio FROM Polizas P WHERE Id = @IdPoliza;")
|
||||
StrSQL.AppendLine(" SELECT @SegNegMovtos = SegNegMovtos FROM Cuentas C WHERE Id = @IdCuenta;")
|
||||
StrSQL.AppendLine(" SELECT @SegNegMovtos = SegNegMovtos, @IdMoneda = IdMoneda FROM Cuentas C WHERE Id = @IdCuenta;")
|
||||
StrSQL.AppendLine("")
|
||||
StrSQL.AppendLine(" BEGIN TRY")
|
||||
StrSQL.AppendLine(" ")
|
||||
StrSQL.AppendLine(" IF (@IdMoneda = 1) SET @ImporteME = 0; ")
|
||||
|
||||
''DESCOMENTAR PARA CIERRE PERIODO
|
||||
'StrSQL.AppendLine("DECLARE")
|
||||
|
||||
@@ -1649,7 +1649,7 @@ Public Class ClsGenerales
|
||||
Public Function AddCuentasDepositos(BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, CveUsuario As Integer, CveMoneda As Integer, CveEmpresa As Integer,
|
||||
Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
|
||||
Optional Correo As String = "", Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1,
|
||||
Optional ConceptoCIE As String = "-1") As Boolean
|
||||
Optional ConceptoCIE As String = "-1", Optional Estatus As Boolean = True) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Gral_CuentasDepositosAdd")
|
||||
@@ -1678,6 +1678,7 @@ Public Class ClsGenerales
|
||||
.Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos
|
||||
.Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
|
||||
.Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE
|
||||
.Add("@Estatus", SqlDbType.VarChar).Value = Estatus
|
||||
|
||||
End With
|
||||
|
||||
|
||||
@@ -233,6 +233,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
|
||||
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
|
||||
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
|
||||
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
|
||||
HttpContext.Current.Session("UsuarioSIG") = UsuarioActual
|
||||
End If
|
||||
ObjUsuarios.Dispose()
|
||||
Return UsuarioActual
|
||||
|
||||
@@ -108,7 +108,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
|
||||
context.Response.Write(retorno)
|
||||
Case "EstadosCuenta"
|
||||
'CargaEstadosCuenta(context, 119, 227774)
|
||||
CargaEstadosCuenta(context, 119, -1, FechaEnvio, FechaActual)
|
||||
'CargaEstadosCuenta(context, 119, -1, FechaEnvio, FechaActual)
|
||||
Dim tCveEmpresa As Integer = context.Request("CveEmpresa").ToString.ToEntero
|
||||
CargaEstadosCuenta(context, tCveEmpresa, -1, FechaEnvio, FechaActual)
|
||||
|
||||
Case "ScoreCard"
|
||||
CargaScoreCard(context, 140, FechaEnvio)
|
||||
@@ -354,6 +356,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
|
||||
|
||||
#Region "E S T A D O S D E C U E N T A"
|
||||
Private Sub CargaEstadosCuenta(ByVal context As HttpContext, pCveEmpresa As Integer, pCveCliente As Integer, FechaEnvio As DateTime, FechaActual As DateTime)
|
||||
|
||||
Dim Usuario As Usuario = ValidaUsuarioSistema(100, pCveEmpresa)
|
||||
|
||||
Dim Retorno As New JArray()
|
||||
Dim DtEmpresas As DataTable = Nothing
|
||||
Using ObjEmpresas As New ClsSisEmpresas()
|
||||
@@ -364,7 +369,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
|
||||
|
||||
If DtEmpresas IsNot Nothing Then
|
||||
For Each Row As DataRow In DtEmpresas.Rows
|
||||
Dim Usuario As Usuario = ValidaUsuarioSistema(100, Row("CveEmpresa").ToString().ToEntero())
|
||||
'Dim Usuario As Usuario = ValidaUsuarioSistema(100, Row("CveEmpresa").ToString().ToEntero())
|
||||
Dim obj As JObject = EjecutarEnvioEstadoCuenta(Usuario, FechaEnvio, FechaActual, pCveCliente:=pCveCliente)
|
||||
|
||||
Retorno.Add(obj)
|
||||
@@ -499,7 +504,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
|
||||
|
||||
Dim Envio As Boolean = False
|
||||
If Not String.IsNullOrEmpty(Correo) Then
|
||||
'Correo = "oscar.irigoyen@adssistemas.mx"
|
||||
Envio = EnviarEstadoCuenta(UsuarioActual, Correo, Cliente)
|
||||
GuardaLog($"Log envio Estados Cuenta correo {If(Envio, "Enviado", "Error")} CveCliente {CveCliente} ")
|
||||
End If
|
||||
|
||||
If Envio Then
|
||||
@@ -522,6 +529,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
|
||||
New JProperty("Cliente", Cliente.Nombre)
|
||||
))
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
@@ -857,7 +865,10 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
|
||||
If sw.Elapsed.TotalSeconds > 10 Then
|
||||
GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds} ")
|
||||
End If
|
||||
If MR IsNot Nothing Then MR.Dispose()
|
||||
If MR IsNot Nothing Then
|
||||
'MR.Close()
|
||||
MR.Dispose()
|
||||
End If
|
||||
Return Bytes
|
||||
End Function
|
||||
|
||||
|
||||
@@ -716,6 +716,8 @@
|
||||
<th style="width: 100px">P.U. </th>
|
||||
<th style="width: 40px">IVA </th>
|
||||
<th style="width: 40px" runat="server" id="TD_Gvps_IEPS" visible="false">IEPS </th>
|
||||
<th style="width: 40px" runat="server" id="TdRetIVA" visible="false">Ret. IVA </th>
|
||||
<th style="width: 40px" runat="server" id="TdRetISR" visible="false">Ret. ISR </th>
|
||||
<th style="width: 110px">Total </th>
|
||||
<div id="dvNoDeducible" runat="server" visible="false">
|
||||
<th style="width: 80px">¿No Deducible? </th>
|
||||
@@ -826,55 +828,69 @@
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 10 --%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="53px" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtlRetIVA" runat="server" Text='<%# If(Eval("RetIVA").ToString.Length > 0, If((CDbl(Eval("RetIVA").ToString)) > 0, (CDbl(Eval("RetIVA").ToString)).ToString("###,####,###.00"), ""), "") %>'></asp:Label><br />
|
||||
<asp:Label ID="LtlRetIVAPorcentaje" runat="server" Text='<%# If(Eval("RetIVAPorcentaje").ToString.Length > 0, (CDbl(Eval("RetIVAPorcentaje").ToString) * 100).ToString("#####") & If(CDbl(Eval("RetIVAPorcentaje").ToString) * 100 > 0, "%", ""), "") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%-- 11 --%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="53px" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtlRetISR" runat="server" Text='<%# If(Eval("RetISR").ToString.Length > 0, If((CDbl(Eval("RetISR").ToString)) > 0, (CDbl(Eval("RetISR").ToString)).ToString("###,####,###.00"), ""), "") %>'></asp:Label><br />
|
||||
<asp:Label ID="LtlRetISRPorcentaje" runat="server" Text='<%# If(Eval("RetISRPorcentaje").ToString.Length > 0, (CDbl(Eval("RetISRPorcentaje").ToString) * 100).ToString("#####") & If(CDbl(Eval("RetISRPorcentaje").ToString) * 100 > 0, "%", ""), "") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
<%-- 10 --%>
|
||||
<%-- 12 --%>
|
||||
<asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="110px" />
|
||||
|
||||
<%-- 11 --%>
|
||||
<%-- 13 --%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ControlStyle-Width="100px" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox ID="ChkEsNoDeduciblePS" runat="server" Checked='<%# If(Eval("NoDeducible").ToString = "", 0, Eval("NoDeducible")) %>' AutoPostBack="true" OnCheckedChanged="ChkEsNoDeduciblePS_CheckedChanged" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<%-- 12 --%>
|
||||
<%-- 14 --%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%-- 13 --%>
|
||||
<%-- 15 --%>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%-- 14 --%>
|
||||
<%-- 16 --%>
|
||||
<asp:TemplateField HeaderText="Clasificacion" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList runat="server" ID="DdlAC5" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="CodigoClasificacion" DataValueField="CveClasificacion" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC" Visible="true"></asp:DropDownList>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%-- 15 --%>
|
||||
<%-- 17 --%>
|
||||
<asp:TemplateField HeaderText="Programa Operativo" Visible="False">
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList runat="server" ID="DdlAC1" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="ProgramaOperativo" DataValueField="CveProgramaOperativo" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%-- 16 --%>
|
||||
<%-- 18 --%>
|
||||
<asp:TemplateField HeaderText="Unidad Administrativa" Visible="False">
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList runat="server" ID="DdlAC2" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="UnidadAdministrativa" DataValueField="CveUnidadAdministrativa" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%-- 17 --%>
|
||||
<%-- 19 --%>
|
||||
<asp:TemplateField HeaderText="Fuente Financiamiento" Visible="False">
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList runat="server" ID="DdlAC3" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="FuenteFinanciamiento" DataValueField="CveFuenteFinanciamiento" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%-- 18 --%>
|
||||
<%-- 12 --%>
|
||||
<asp:TemplateField HeaderText="Tipo Gasto" Visible="False">
|
||||
<ItemTemplate>
|
||||
<asp:DropDownList runat="server" ID="DdlAC4" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="100px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
|
||||
|
||||
@@ -978,6 +978,36 @@ Partial Class Compras_Compras
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Private Property ProvRetIVA As Decimal
|
||||
Get
|
||||
If ViewState("ProvRetIVA") Is Nothing Then
|
||||
ViewState("ProvRetIVA") = 0
|
||||
End If
|
||||
|
||||
Return ViewState("ProvRetIVA").ToString.ToDecimal
|
||||
End Get
|
||||
Set(value As Decimal)
|
||||
ViewState("ProvRetIVA") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property ProvRetISR As Decimal
|
||||
Get
|
||||
If ViewState("ProvRetISR") Is Nothing Then
|
||||
ViewState("ProvRetISR") = 0
|
||||
End If
|
||||
|
||||
Return ViewState("ProvRetISR").ToString.ToDecimal
|
||||
End Get
|
||||
Set(value As Decimal)
|
||||
ViewState("ProvRetISR") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Private Property TotalOriginal As Decimal
|
||||
Get
|
||||
If ViewState("TotalOriginal") Is Nothing Then
|
||||
@@ -1749,7 +1779,7 @@ Partial Class Compras_Compras
|
||||
DdlTipoComprobante.SelectedValueExist("DEV")
|
||||
End If
|
||||
|
||||
If Not CveCompra > 0 Then
|
||||
If Not CveCompra > 0 Or (CveCompra > 0 And UsuarioActual.CveEmpresa = 141) Then
|
||||
LnkProrrateoGasolina.Visible = True
|
||||
InicializaDTProrrateoGasolina()
|
||||
End If
|
||||
@@ -1787,7 +1817,7 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
MostrarOcultarColumnaIEPS()
|
||||
MostrarOcultarColumnaIEPSRetIVARetISR()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -1886,7 +1916,7 @@ Partial Class Compras_Compras
|
||||
|
||||
#Region "C A R G A S"
|
||||
|
||||
Private Sub MostrarOcultarColumnaIEPS()
|
||||
Private Sub MostrarOcultarColumnaIEPSRetIVARetISR()
|
||||
|
||||
|
||||
If TxtIEPS.Text.ToDecimal <> 0 And TmpDT.SUM("IEPSPS") <> 0 Then
|
||||
@@ -1896,6 +1926,25 @@ Partial Class Compras_Compras
|
||||
GvPS.Columns(9).Visible = False
|
||||
TD_Gvps_IEPS.Visible = False
|
||||
End If
|
||||
|
||||
If TxtRetIVA.Text.ToDecimal <> 0 And TmpDT.SUM("RetIVA") <> 0 Then
|
||||
GvPS.Columns(10).Visible = True
|
||||
TdRetIVA.Visible = True
|
||||
Else
|
||||
GvPS.Columns(10).Visible = False
|
||||
TdRetIVA.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
If TxtRetISR.Text.ToDecimal <> 0 And TmpDT.SUM("RetISR") <> 0 Then
|
||||
GvPS.Columns(11).Visible = True
|
||||
TdRetISR.Visible = True
|
||||
Else
|
||||
GvPS.Columns(11).Visible = False
|
||||
TdRetISR.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
UpPS.Update()
|
||||
|
||||
End Sub
|
||||
@@ -2562,7 +2611,7 @@ Partial Class Compras_Compras
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
End If
|
||||
|
||||
If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
|
||||
If DIOTCveTipoOperacion.Contiene(0, 3, 4) Then ' 85 - Otros
|
||||
If UsuarioActual.CveEmpresa <> 119 Then
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
@@ -2585,7 +2634,7 @@ Partial Class Compras_Compras
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
End If
|
||||
|
||||
If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros
|
||||
If DIOTCveTipoOperacion.Contiene(3, 4) Then ' 85 - Otros
|
||||
If UsuarioActual.CveEmpresa <> 119 Then
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
@@ -2619,7 +2668,7 @@ Partial Class Compras_Compras
|
||||
DdlRetISRConcepto.Items.Insert(0, New ListItem("Arrendamiento", "2"))
|
||||
End If
|
||||
|
||||
If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros
|
||||
If DIOTCveTipoOperacion.Contiene(3, 4) Then ' 85 - Otros
|
||||
If UsuarioActual.CveEmpresa <> 119 Then
|
||||
DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
|
||||
DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
|
||||
@@ -2954,6 +3003,11 @@ Partial Class Compras_Compras
|
||||
TxtIVA.Text = dr("IVA").ToString.FormatoNumero(2)
|
||||
TxtRetIVA.Text = dr("RetIVA").ToString.FormatoNumero(2)
|
||||
TxtRetISR.Text = dr("RetISR").ToString.FormatoNumero(2)
|
||||
|
||||
RetIVAOriginal = dr("RetIVA").ToString.ToDecimal
|
||||
RetISROriginal = dr("RetISR").ToString.ToDecimal
|
||||
|
||||
|
||||
TxtIEPS.Text = dr("IEPS").ToString.FormatoNumero(2)
|
||||
If dr("IEPS").ToString.ToDouble > 0 Then TrIEPS.Visible = True
|
||||
If dr("RetIVA").ToString.ToDouble > 0 Then TrRetIVA.Visible = True
|
||||
@@ -3777,6 +3831,9 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
ProvRetIVA = ObjProveedor.RetIVA.ToDecimal
|
||||
ProvRetISR = ObjProveedor.RetISR.ToDecimal
|
||||
|
||||
If CveCompra <= 0 AndAlso CveFactura <= 0 Then 'si se está cargando una factura o compra no se carga
|
||||
'LblRetIVA.Text = ObjProveedor.RetIVA.ToString.FormatoNumero(5)
|
||||
'LblRetISR.Text = ObjProveedor.RetISR.ToString.FormatoNumero(5)
|
||||
@@ -10739,12 +10796,12 @@ Partial Class Compras_Compras
|
||||
If e.Row.RowIndex = 0 Then
|
||||
|
||||
If UsuarioActual.Empresa.UsaAC Then 'AndAlso (CveFactura > 0 Or CveCompra > 0)
|
||||
e.Row.Cells(13).Width = Unit.Pixel(150)
|
||||
e.Row.Cells(14).Width = Unit.Pixel(150)
|
||||
e.Row.Cells(15).Width = Unit.Pixel(150)
|
||||
e.Row.Cells(16).Width = Unit.Pixel(150)
|
||||
e.Row.Cells(17).Width = Unit.Pixel(150)
|
||||
e.Row.Cells(18).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(18).Width = Unit.Pixel(150)
|
||||
e.Row.Cells(19).Width = Unit.Pixel(150)
|
||||
e.Row.Cells(20).Width = Unit.Pixel(100)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -10847,11 +10904,11 @@ Partial Class Compras_Compras
|
||||
|
||||
'CargaPresupuestosEgresos
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
e.Row.Cells(14).Visible = True
|
||||
e.Row.Cells(15).Visible = True
|
||||
e.Row.Cells(16).Visible = True
|
||||
e.Row.Cells(17).Visible = True
|
||||
e.Row.Cells(18).Visible = True
|
||||
e.Row.Cells(19).Visible = True
|
||||
e.Row.Cells(20).Visible = True
|
||||
|
||||
e.Row.FCDropDownList("DdlAC1").Items.Clear()
|
||||
e.Row.FCDropDownList("DdlAC1").DataSource = DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveProgramaOperativo", "ProgramaOperativo"})
|
||||
@@ -10882,19 +10939,19 @@ Partial Class Compras_Compras
|
||||
'SI EL PRESUPUESTO DE EGRESOS VIENE DESDE LA OC, SE BLOQUEA PE
|
||||
If e.Row.DBCampo("CveOrdenCompraDetalle").ToEntero > 0 AndAlso e.Row.DBCampo("CvePresupuestoEgreso").ToEntero > 0 Then
|
||||
|
||||
e.Row.Cells(14).Enabled = False
|
||||
e.Row.Cells(15).Enabled = False
|
||||
e.Row.Cells(16).Enabled = False
|
||||
e.Row.Cells(17).Enabled = False
|
||||
e.Row.Cells(18).Enabled = False
|
||||
e.Row.Cells(19).Enabled = False
|
||||
e.Row.Cells(20).Enabled = False
|
||||
End If
|
||||
Else
|
||||
|
||||
e.Row.Cells(14).Visible = False
|
||||
e.Row.Cells(15).Visible = False
|
||||
e.Row.Cells(16).Visible = False
|
||||
e.Row.Cells(17).Visible = False
|
||||
e.Row.Cells(18).Visible = False
|
||||
e.Row.Cells(19).Visible = False
|
||||
e.Row.Cells(20).Visible = False
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -13049,12 +13106,12 @@ Partial Class Compras_Compras
|
||||
|
||||
'Seccion Grid
|
||||
GvPS.Width = 1760
|
||||
GvPS.Columns(13).Visible = True
|
||||
GvPS.Columns(14).Visible = True
|
||||
GvPS.Columns(15).Visible = True
|
||||
GvPS.Columns(16).Visible = True
|
||||
GvPS.Columns(17).Visible = True
|
||||
GvPS.Columns(18).Visible = True
|
||||
GvPS.Columns(19).Visible = True
|
||||
GvPS.Columns(20).Visible = True
|
||||
|
||||
'Panel General
|
||||
UpPresupuestosAC.Visible = True
|
||||
@@ -17600,7 +17657,7 @@ Partial Class Compras_Compras
|
||||
CargaRetISRConcepto()
|
||||
|
||||
Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ")
|
||||
If NumNoDed > 0 Then GvPS.Columns(11).Visible = True 'visualiza columnas de nodeducibles
|
||||
If NumNoDed > 0 Then GvPS.Columns(13).Visible = True 'visualiza columnas de nodeducibles
|
||||
|
||||
'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then
|
||||
' InicializaAplicaNCFact()
|
||||
@@ -18151,6 +18208,9 @@ Partial Class Compras_Compras
|
||||
HdnPS.Value = PS("PSCodigo").ToString
|
||||
LblUnidadMedida.Text = PS("UnidadMedida").ToString
|
||||
|
||||
Dim PsRetIVA As Decimal = PS("RetIVA").ToString.ToDecimal
|
||||
Dim PsRetISR As Decimal = PS("RetISR").ToString.ToDecimal
|
||||
|
||||
ddlUM.Items.Clear()
|
||||
If UsuarioActual.Empresa.UsaInventarios Then
|
||||
ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(PS("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
|
||||
@@ -18230,6 +18290,19 @@ Partial Class Compras_Compras
|
||||
TxtRetIVAModal.Text = FormatoNumero(ViewState("RetIVA").ToString().ToDouble * 100, 6)
|
||||
TxtRetISRModal.Text = FormatoNumero(ViewState("RetISR").ToString().ToDouble * 100, 6)
|
||||
|
||||
'OIC 2025-04-29
|
||||
If CveCompra > 0 AndAlso Modalidad = "A" Then
|
||||
If ProvRetIVA > 0 Or ProvRetISR > 0 Then
|
||||
TxtRetIVAModal.Text = FormatoNumero(ProvRetIVA, 6)
|
||||
TxtRetISRModal.Text = FormatoNumero(ProvRetISR, 6)
|
||||
ElseIf PsRetIVA > 0 Or PsRetISR > 0 Then
|
||||
TxtRetIVAModal.Text = FormatoNumero(PsRetIVA, 6)
|
||||
TxtRetISRModal.Text = FormatoNumero(PsRetISR, 6)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 And PS("IEPSPorcentaje").ToString.ToDecimal > 0 Then
|
||||
TxtIEPSModal.Text = "0"
|
||||
Alert("El producto seleccionado contiene IEPS, pero el acumulado de la factura no contiene IEPS, por lo que no se agregara el impuesto.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -18518,7 +18591,7 @@ Partial Class Compras_Compras
|
||||
UpPS.Update()
|
||||
CargaGvPersonal()
|
||||
|
||||
MostrarOcultarColumnaIEPS()
|
||||
MostrarOcultarColumnaIEPSRetIVARetISR()
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -20300,7 +20373,7 @@ Partial Class Compras_Compras
|
||||
Alert("Debe seleccionar al menos un impuesto", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
MostrarOcultarColumnaIEPS()
|
||||
MostrarOcultarColumnaIEPSRetIVARetISR()
|
||||
AddPS2()
|
||||
End Sub
|
||||
#End Region
|
||||
@@ -21156,12 +21229,12 @@ Partial Class Compras_Compras
|
||||
If ChkEsNoDeducible.Checked Then
|
||||
EsNoDeducible = True
|
||||
dvNoDeducible.Visible = True
|
||||
GvPS.Columns(11).Visible = True
|
||||
GvPS.Columns(13).Visible = True
|
||||
DivEsNoDeducible.Visible = True
|
||||
Else
|
||||
EsNoDeducible = False
|
||||
dvNoDeducible.Visible = False
|
||||
GvPS.Columns(11).Visible = False
|
||||
GvPS.Columns(13).Visible = False
|
||||
DivEsNoDeducible.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
@@ -3326,89 +3326,89 @@
|
||||
<ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNumeroCuenta" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta" FilterType="Numbers" />
|
||||
<label for="<%= TxtNumeroCuenta.ClientID.ToString()%>">Numero de Cuenta:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCLABE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABE" FilterType="Numbers" />
|
||||
<label for="<%= TxtCLABE.ClientID.ToString()%>">CLABE:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtSWIFT" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtSWIFT.ClientID.ToString()%>">SWIFT:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPlaza" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtPlaza.ClientID.ToString()%>">Plaza:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtConvenioCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<%--<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />--%>
|
||||
<label for="<%= TxtConvenioCIE.ClientID.ToString()%>">CIE:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtReferencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferencia" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
|
||||
<label for="<%= TxtReferencia.ClientID.ToString()%>">Referencia:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtConceptoCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FilAlfanumerico" runat="server" TargetControlID="TxtConceptoCIE" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
|
||||
<label for="<%= TxtReferencia.ClientID.ToString()%>">Concepto CIE:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtRefCrediProveedor" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="5" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtRefCrediProveedor.ClientID.ToString()%>">Crédito Proveedor:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div> <div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCorreoCuenta" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">Correo:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNumeroCuenta" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta" FilterType="Numbers" />
|
||||
<label for="<%= TxtNumeroCuenta.ClientID.ToString()%>">Numero de Cuenta:</label>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtBBVAAlias" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="Flter" runat="server" TargetControlID="TxtBBVAAlias" FilterType="UppercaseLetters,LowercaseLetters,Numbers" InvalidChars="-+.," />
|
||||
<label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">BBVA Alias:</label>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCLABE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABE" FilterType="Numbers" />
|
||||
<label for="<%= TxtCLABE.ClientID.ToString()%>">CLABE:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtSWIFT" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtSWIFT.ClientID.ToString()%>">SWIFT:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPlaza" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtPlaza.ClientID.ToString()%>">Plaza:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtConvenioCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtConvenioCIE.ClientID.ToString()%>">CIE:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtReferencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferencia" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
|
||||
<label for="<%= TxtReferencia.ClientID.ToString()%>">Referencia:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtConceptoCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FilAlfanumerico" runat="server" TargetControlID="TxtConceptoCIE" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
|
||||
<label for="<%= TxtReferencia.ClientID.ToString()%>">Concepto CIE:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtRefCrediProveedor" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="5" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtRefCrediProveedor.ClientID.ToString()%>">Crédito Proveedor:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCorreoCuenta" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">Correo:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtBBVAAlias" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="Flter" runat="server" TargetControlID="TxtBBVAAlias" FilterType="UppercaseLetters,LowercaseLetters,Numbers" InvalidChars="-+.," />
|
||||
<label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">BBVA Alias:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
@@ -3427,38 +3427,38 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright" id="div2" runat="server">
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright" id="div2" runat="server">
|
||||
<asp:CheckBox ID="ChkPagoElectronico" runat="server" AutoPostBack="true" OnCheckedChanged="ChkPagoElectronico_CheckedChanged"></asp:CheckBox>
|
||||
<label for="<%= ChkPagoElectronico.ClientID.ToString()%>">Pago Electronico</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" id="div3" runat="server">
|
||||
|
||||
<asp:CheckBox ID="ChkPagoElectronicoGrupos" runat="server" OnCheckedChanged="ChkPagoElectronicoGrupos_CheckedChanged" AutoPostBack="true"></asp:CheckBox>
|
||||
<div class="form-group form-md-line-input input-iconright" id="div3" runat="server">
|
||||
|
||||
<asp:CheckBox ID="ChkPagoElectronicoGrupos" runat="server" OnCheckedChanged="ChkPagoElectronicoGrupos_CheckedChanged" AutoPostBack="true"></asp:CheckBox>
|
||||
<label for="<%= ChkPagoElectronicoGrupos.ClientID.ToString()%>">Pago Electronico Grupos</label>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVDdlSatBanco" visible="false">
|
||||
|
||||
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
|
||||
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVDdlSatBanco" runat="server" InitialValue="-1" ControlToValidate="DdlSatBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= DdlSatBanco.ClientID.ToString()%>">Banco:</label>
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVDdlSatBanco" visible="false">
|
||||
|
||||
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
|
||||
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVDdlSatBanco" runat="server" InitialValue="-1" ControlToValidate="DdlSatBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= DdlSatBanco.ClientID.ToString()%>">Banco:</label>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
|
||||
@@ -950,7 +950,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
GvCxP.Visible = True
|
||||
|
||||
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), OpcionSaldo:=1)
|
||||
DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0")
|
||||
DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND LEN(SerieFolio) > 0 ")
|
||||
GvCxP.DataSource = DtDatos
|
||||
CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero
|
||||
|
||||
|
||||
@@ -18,32 +18,32 @@
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<li style="text-align: left!important">
|
||||
<asp:LinkButton runat="server" ID="LnkNotificar" Visible="false" CssClass=" " OnClick="LnkNotificar_Click" data-html="true" data-placement="left" Text="<i class='fa fa-envelope'></i> Notificar Pendientes"
|
||||
data-toggle="confirmation" data-popout="true" data-original-title="¿Notificar?" data-btn-ok-label="si"></asp:LinkButton>
|
||||
</li>
|
||||
<asp:UpdatePanel runat="server" ID="UpPorcentajePrecios" RenderMode="Inline" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkPDF" OnClick="LnkPDF_Click" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:PostBackTrigger ControlID="LnkPDF" />
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpdatePanel1" RenderMode="Inline" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:PostBackTrigger ControlID="LnkExcel" />
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkPDF" OnClick="LnkPDF_Click" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i> Personalizar</asp:HyperLink>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel Personalizado</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:PostBackTrigger ControlID="LnkPDF" />
|
||||
<asp:PostBackTrigger ControlID="LnkExcel" />
|
||||
<asp:PostBackTrigger ControlID="ImgExcelPersonalizado" />
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
|
||||
@@ -135,18 +135,32 @@
|
||||
</table>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None" data-sort="true">
|
||||
<Columns>
|
||||
<%--0--%>
|
||||
<asp:HyperLinkField HeaderText="Proveedor" DataTextField="RazonSocial" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" Target="_blank" ItemStyle-Width="30%" />
|
||||
<%--1--%>
|
||||
<asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
|
||||
<%--2--%>
|
||||
<asp:TemplateField Visible="false" HeaderText="Folio Fiscal">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblFolioFiscal" runat="server" Text='<%# Eval("UUID") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
<%--3--%>
|
||||
<asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
|
||||
<%--4--%>
|
||||
<asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
|
||||
<%--5--%>
|
||||
<asp:HyperLinkField HeaderText="Folio" DataTextField="FolioIE" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
|
||||
<%--6--%>
|
||||
<asp:BoundField HeaderText="Fecha" DataField="FechaIE" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
|
||||
<%--7--%>
|
||||
<asp:BoundField HeaderText="Importe" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
|
||||
<%--8--%>
|
||||
<asp:TemplateField Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HplPDF" runat="server" Visible="false"><i class='fa fa-ad-pdf'></i></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="5%" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
@@ -154,6 +168,49 @@
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div id="DivPersonalizar" class="modal fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
<!-- Modal content-->
|
||||
<div class="modal-content">
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Label ID="Label2" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<table style="width:100%" class="table table-striped table-advance table-hover">
|
||||
<tr>
|
||||
<td>
|
||||
<asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="Folio Fiscal" />
|
||||
|
||||
</td>
|
||||
<td></td>
|
||||
<td></td>
|
||||
<td></td>
|
||||
|
||||
|
||||
</tr>
|
||||
|
||||
</table>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-primary" OnClick="BtnPersonalizar_Click" />
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
@@ -69,15 +69,17 @@ Partial Class Compras_RepComplementoPago
|
||||
Dim TipoConsulta As Integer = If(ChkViculadas.Checked, 2, 1)
|
||||
Dim Count As Integer = 0
|
||||
|
||||
Personalizar()
|
||||
|
||||
Dim ObjCompras As New ClsCompras
|
||||
If ObjCompras.RepComplementosPago(CveProveedor, -1, TipoConsulta, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, CveTipoProveedor, DdlSubProyecto.SelectedValue.ToEntero, DdlUsuarioRegistra.SelectedValue.ToEntero) Then
|
||||
DTComplemntos = ObjCompras.DtResultados '.FiltraParametros(If(ChkViculadas.Checked, "FechaAsociacionPago IS NOT NULL", "FechaAsociacionPago IS NULL"))
|
||||
GvDatos.DataSource = DTComplemntos
|
||||
If ChkViculadas.Checked Then
|
||||
Count = DTComplemntos.Rows.Count
|
||||
GvDatos.Columns(7).Visible = True
|
||||
GvDatos.Columns(8).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(7).Visible = False
|
||||
GvDatos.Columns(8).Visible = False
|
||||
End If
|
||||
End If
|
||||
ObjCompras.Dispose()
|
||||
@@ -98,6 +100,20 @@ Partial Class Compras_RepComplementoPago
|
||||
GvDatos.DataBind()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub Personalizar()
|
||||
|
||||
GvDatos.Columns(2).Visible = ChkFolioFiscal.Checked
|
||||
If ChkFolioFiscal.Checked Then
|
||||
GvDatos.Columns(0).ItemStyle.Width = 15%
|
||||
Else
|
||||
GvDatos.Columns(0).ItemStyle.Width = 30%
|
||||
End If
|
||||
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If ChkViculadas.Checked Then
|
||||
@@ -201,4 +217,32 @@ Partial Class Compras_RepComplementoPago
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Protected Sub BtnPersonalizar_Click(sender As Object, e As EventArgs)
|
||||
Personalizar()
|
||||
ImgExcelPersonalizado.Visible = True
|
||||
UpAcciones.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
|
||||
|
||||
' GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString)
|
||||
'GvDatos.ExportToExcelG("DetalleCompras_" & NowADS().ToShortDateString & ".xlsx")
|
||||
Dim SubProyecto As String = ""
|
||||
|
||||
If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
|
||||
SubProyecto = DdlSubProyecto.SelectedItem.Text
|
||||
End If
|
||||
|
||||
Dim SbFiltros As New StringBuilder()
|
||||
SbFiltros.AppendFormat($"Fecha Inicio: {TxtFiltrosFechaInicio.Text} Fecha Fin: {TxtFiltrosFechaFin.Text}|")
|
||||
SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)
|
||||
|
||||
|
||||
GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -1168,7 +1168,7 @@ Partial Class Compras_eFacturas
|
||||
'End If
|
||||
|
||||
Dim Funcionalidad123 As Integer = UsuarioActual.Empresa.Funcionalidad(123).ToEntero
|
||||
If Funcionalidad123 > 0 AndAlso Not e.Row.DataKey("CveFactura").ToEntero.Contiene(1223188) Then
|
||||
If Funcionalidad123 > 0 And Not UsuarioActual.TienePermisoProceso(156) Then
|
||||
If NowADS().Day >= Funcionalidad123 Then
|
||||
Dim FechaLimite As Date = New Date(NowADS().Year, NowADS().Month, 1)
|
||||
If e.Row.DBCampo("FechaFactura").ToDate < FechaLimite Then
|
||||
|
||||
@@ -250,6 +250,7 @@
|
||||
<asp:HiddenField ID="HdnIdCtaContRetISRCirculacion" runat="server" Value='<%# Eval("IdCuentaRetISRCirculacion")%>' />
|
||||
<asp:HiddenField ID="HdnIdSegNeg" runat="server" Value='<%# Eval("IdSegNeg")%>' />
|
||||
<asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
|
||||
<asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
|
||||
|
||||
<table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
|
||||
<tr class="SubTotales">
|
||||
@@ -429,7 +430,7 @@
|
||||
<asp:HiddenField ID="HdnIdCtaContRetISRCirculacion" runat="server" Value='<%# Eval("IdCuentaRetISRCirculacion")%>' />
|
||||
<asp:HiddenField ID="HdnIdSegNeg" runat="server" Value='<%# Eval("IdSegNeg")%>' />
|
||||
<asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
|
||||
|
||||
<asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
|
||||
<table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
|
||||
<tr class="SubTotales">
|
||||
<td>
|
||||
@@ -689,6 +690,7 @@
|
||||
<asp:HiddenField ID="HdnCvePrePoliza" runat="server" Value='<%# Eval("CvePrePoliza")%>' />
|
||||
<asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
|
||||
<asp:HiddenField ID="HdnIdSegNeg" runat="server" Value='<%# Eval("IdSegNeg")%>' />
|
||||
<asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
|
||||
|
||||
<table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
|
||||
<tr class="SubTotales">
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
Imports System.Data
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Web.Services
|
||||
Imports Extensiones
|
||||
|
||||
@@ -649,7 +650,7 @@ Partial Class Contabilidad_DiarioPagos
|
||||
'recorro el grid de compras
|
||||
Dim GvCompras As GridView = gvr.FCGridView("GvPC")
|
||||
For Each gvrc As GridViewRow In GvCompras.Rows
|
||||
|
||||
Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
|
||||
Cargos = 0
|
||||
AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
|
||||
|
||||
@@ -906,6 +907,35 @@ Partial Class Contabilidad_DiarioPagos
|
||||
MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
|
||||
End If
|
||||
|
||||
Dim GuidMov As String = Guid.NewGuid().ToString()
|
||||
|
||||
Dim NoDeducible = False
|
||||
Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- > Es el iva no deducible , ivano deducible totald e la compra
|
||||
|
||||
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * ttTipoCambioPago,
|
||||
Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
|
||||
MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
|
||||
End If
|
||||
|
||||
|
||||
If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
|
||||
Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
|
||||
Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * ttTipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
|
||||
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * ttTipoCambioPago,
|
||||
Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
|
||||
MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
|
||||
Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
|
||||
Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * ttTipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
|
||||
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * ttTipoCambioPago,
|
||||
Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
|
||||
MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
If CompraRetIVA > 0 Then
|
||||
|
||||
If Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVA, False, CompraRetIVA, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoDetalle, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For
|
||||
|
||||
@@ -6485,6 +6485,9 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
|
||||
<Height>0.6cm</Height>
|
||||
<Width>3.97474cm</Width>
|
||||
<ZIndex>45</ZIndex>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
@@ -6525,6 +6528,9 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
|
||||
<Height>0.6cm</Height>
|
||||
<Width>3.97474cm</Width>
|
||||
<ZIndex>46</ZIndex>
|
||||
<Visibility>
|
||||
<Hidden>true</Hidden>
|
||||
</Visibility>
|
||||
<Style>
|
||||
<Border>
|
||||
<Style>None</Style>
|
||||
@@ -7793,7 +7799,6 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
|
||||
</Paragraph>
|
||||
</Paragraphs>
|
||||
<rd:DefaultName>Textbox14</rd:DefaultName>
|
||||
<Top>0cm</Top>
|
||||
<Left>14.77452cm</Left>
|
||||
<Height>0.54708cm</Height>
|
||||
<Width>4.70062cm</Width>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -6952,6 +6952,28 @@ Partial Class OC_OC
|
||||
|
||||
Dim dt As New DataTable
|
||||
dt = ReadExcelFile(Ruta + FileName, True)
|
||||
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
Dim dtOriginal As DataTable = dt
|
||||
Dim dtFiltrada As DataTable = dtOriginal.Clone()
|
||||
Try
|
||||
For Each row As DataRow In dtOriginal.Rows
|
||||
Dim cantidadStr As String = row("Cantidad").ToString().Trim()
|
||||
|
||||
Dim cantidadNum As Decimal
|
||||
If Decimal.TryParse(cantidadStr, cantidadNum) Then
|
||||
If cantidadNum > 0 Then
|
||||
dtFiltrada.ImportRow(row)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
dt = dtFiltrada
|
||||
End If
|
||||
|
||||
Dim ErrorArchivo As Boolean = False
|
||||
|
||||
'Dim Conexion As Odbc.OdbcConnection = Nothing
|
||||
|
||||
@@ -119,17 +119,8 @@
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<asp:Panel runat="server" ID="portletTarea" class="portlet light smmallpadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Nuevo</span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body rowpadding">
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtAsunto" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
|
||||
@@ -269,8 +260,11 @@
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</asp:Panel>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<asp:TextBox ID="txtCveEvento" CssClass="hidden txtCveEvento" runat="server"></asp:TextBox>
|
||||
<asp:Button ID="BtnopenmodalClickGant" OnClick="BtnopenmodalClickGant_Click" CssClass="hidden BtnopenmodalClickGant" UseSubmitBehavior="false" runat="server" Text="Button" />
|
||||
</div>
|
||||
@@ -320,6 +314,36 @@
|
||||
<script src="/Metronic/assets/global/plugins/dhtmlxgantt/dhtmlxgantt.js"></script>
|
||||
|
||||
<script>
|
||||
|
||||
(function () {
|
||||
const BsModal = $.fn.modal.Constructor.prototype;
|
||||
const oldFocus1 = BsModal.enforceFocus; // BS3
|
||||
const oldFocus2 = BsModal._enforceFocus; // BS4+
|
||||
|
||||
$('#iddivAgregarProyecto')
|
||||
.on('shown.bs.modal', function () {
|
||||
// quito TODOS los focus trap que se hayan registrado
|
||||
$(document).off('focusin.bs.modal');
|
||||
if (oldFocus1) BsModal.enforceFocus = function () { };
|
||||
if (oldFocus2) BsModal._enforceFocus = function () { };
|
||||
})
|
||||
.on('hidden.bs.modal', function () {
|
||||
// devuelvo el comportamiento original
|
||||
if (oldFocus1) BsModal.enforceFocus = oldFocus1;
|
||||
if (oldFocus2) BsModal._enforceFocus = oldFocus2;
|
||||
});
|
||||
})();
|
||||
|
||||
$(document).on('select2:open', () => {
|
||||
const $f = $('.select2-container--open .select2-search__field').last();
|
||||
setTimeout(() => $f.trigger('focus'), 0); // micro-tarea → evita el blur inmediato
|
||||
});
|
||||
|
||||
$('#iddivAgregarProyecto .select2me').select2({
|
||||
width: '100%',
|
||||
dropdownParent: $('#iddivAgregarProyecto .modal-content') // evita desalinearse al hacer scroll
|
||||
});
|
||||
|
||||
let RCveEvento =<%= RCveEvento %>;
|
||||
function NuevoEvento(CveEvento) {
|
||||
$('.txtCveEvento').val(CveEvento);
|
||||
|
||||
212
RH/Personal.aspx
212
RH/Personal.aspx
@@ -61,10 +61,15 @@
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>--%>
|
||||
|
||||
<asp:UpdatePanel ID="UpAccionesCuentasBancarias" runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="Lnkopenaddcuentabancaria" OnClick="Lnkopenaddcuentabancaria_Click" Visible="true" runat="server"> <i class="fa fa-plus"></i> Agregar cuenta bancaria</asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<li>
|
||||
<asp:LinkButton ID="Lnkopenaddcuentabancaria" OnClick="Lnkopenaddcuentabancaria_Click" Visible="true" runat="server"> <i class="fa fa-plus"></i> Agregar cuenta bancaria</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
<asp:UpdatePanel ID="UpBuzon" runat="server">
|
||||
<ContentTemplate>
|
||||
@@ -1246,7 +1251,8 @@
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" CssClass="table table-striped table-hover Widthall" Style="table-layout: fixed" runat="server"
|
||||
DataKeyNames="CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,EstatusTexto,CveMoneda" AutoGenerateColumns="False" ShowHeaderWhenEmpty="true">
|
||||
DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE,EstatusTexto"
|
||||
AutoGenerateColumns="False" ShowHeaderWhenEmpty="true">
|
||||
<%--<asp:GridView ID="GvBancosCuentas" runat="server" DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias" CssClass="table table-striped table-advance table-hover" Style="table-layout: fixed" BorderWidth="0" GridLines="None">--%>
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="Banco" ItemStyle-HorizontalAlign="Center">
|
||||
@@ -1370,7 +1376,7 @@
|
||||
<asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# IIf(Eval("EstatusTexto").ToString = "Activo", True, False)%>' Visible="false"></asp:CheckBox>
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="50px" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<EditItemTemplate>
|
||||
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpEditarCuentaBanco" />
|
||||
@@ -1381,7 +1387,7 @@
|
||||
<asp:LinkButton ID="LnkshowEditcuentasbancarias" runat="server" OnClick="LnkshowEditcuentasbancarias_Click" AlternateText="Editar" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Elim." ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<asp:TemplateField HeaderText="Elim." ItemStyle-Width="50px" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" OnClientClick="javascript:return confirm('Está seguro de eliminar el registro?');" />
|
||||
</ItemTemplate>
|
||||
@@ -4918,7 +4924,7 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div id="DivCuentasVancarias" class="modal ADS fade" role="dialog">
|
||||
<%-- <div id="DivCuentasVancarias" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 400px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpCuentasVancarias" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
@@ -4978,7 +4984,197 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
|
||||
<div id="DivAddCuentasBancarias" class="modal ADS fade" role="dialog">
|
||||
<asp:UpdatePanel ID="UpAddBancos" class="modal-dialog" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-content">
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="H2" runat="server">Cuenta Bancaria</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlBancoSat" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Banco" DataValueField="CveSATBanco" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar"></asp:DropDownList>
|
||||
<asp:Label runat="server" AssociatedControlID="DdlBancoSat" Text="Banco:"></asp:Label>
|
||||
<asp:RequiredFieldValidator ID="RFVBancoSat" runat="server" InitialValue="-1" ControlToValidate="DdlBancoSat" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VcoBancoSat" runat="server" HighlightCssClass="vco" TargetControlID="RFVBancoSat" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<i></i>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNumeroCuenta" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta" FilterType="Numbers" />
|
||||
<label for="<%= TxtNumeroCuenta.ClientID.ToString()%>">Numero de Cuenta:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6" runat="server" visible="false">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNombreBanco" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVNombreBanco" runat="server" ControlToValidate="TxtNombreBanco" Display="None"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCLABECB" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABECB" FilterType="Numbers" />
|
||||
<label for="<%= TxtCLABECB.ClientID.ToString()%>">CLABE:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
|
||||
|
||||
</div>
|
||||
<div class="row" runat="server" visible="false">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtSWIFT" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtSWIFT.ClientID.ToString()%>">SWIFT:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPlaza" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtPlaza.ClientID.ToString()%>">Plaza:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6" runat="server" visible="false">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtConvenioCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtConvenioCIE.ClientID.ToString()%>">CIE:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtReferenciaC" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferenciaC" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
|
||||
<label for="<%= TxtReferenciaC.ClientID.ToString()%>">Referencia:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" runat="server" visible="false">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtConceptoCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FilAlfanumerico" runat="server" TargetControlID="TxtConceptoCIE" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
|
||||
<label for="<%= TxtReferencia.ClientID.ToString()%>">Concepto CIE:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtRefCrediProveedor" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="5" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtRefCrediProveedor.ClientID.ToString()%>">Crédito Proveedor:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" runat="server" visible="false">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtCorreoCuenta" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">Correo:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtBBVAAlias" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="Flter" runat="server" TargetControlID="TxtBBVAAlias" FilterType="UppercaseLetters,LowercaseLetters,Numbers" InvalidChars="-+.," />
|
||||
<label for="<%= TxtBBVAAlias.ClientID.ToString()%>">BBVA Alias:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVMoneda" runat="server" InitialValue="-1" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright" id="divestatus" runat="server">
|
||||
<asp:CheckBox ID="ChkEstatuscuenta" runat="server"></asp:CheckBox>
|
||||
<label for="<%= ChkEstatuscuenta.ClientID.ToString()%>">Estatus:</label>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright" id="div3" runat="server">
|
||||
<asp:CheckBox ID="ChkEstatusPagoE" runat="server" AutoPostBack="true" OnCheckedChanged="ChkPagoElectronico_CheckedChanged"></asp:CheckBox>
|
||||
<label for="<%= ChkEstatusPagoE.ClientID.ToString()%>">Pago Electronico</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" id="div4" runat="server">
|
||||
|
||||
<asp:CheckBox ID="ChkPagoElectronicoGrupos" runat="server" ></asp:CheckBox>
|
||||
<label for="<%= ChkPagoElectronicoGrupos.ClientID.ToString()%>">Pago Electronico Grupos</label>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVDdlSatBanco" visible="false">
|
||||
|
||||
<%--<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
|
||||
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVDdlSatBanco" runat="server" InitialValue="-1" ControlToValidate="DdlSatBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= DdlSatBanco.ClientID.ToString()%>">Banco:</label>--%>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<%--<asp:LinkButton ID="LbAgregarCuentaBanco" runat="server" CausesValidation="true" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpAgregarBanco" OnClick="LbAgregarCuentaBanco_Click"></asp:LinkButton>
|
||||
<asp:Button type="button" class="btn btn-default" runat="server" ID="Button2" data-dismiss="modal" Text="Cancelar" />--%>
|
||||
<asp:Button ID="BtnActualizarCuentaBanco" OnClick="LbActualizarCuentaBanco_Click" UseSubmitBehavior="false" runat="server" class="btn btn-primary" Text="Actualizar" ValidationGroup="GrpAgregarBanco" />
|
||||
<asp:Button ID="BtnAgregarCuentaBanco" OnClick="LbAgregarCuentaBanco_Click" UseSubmitBehavior="false" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpAgregarBanco" />
|
||||
<button id="Button5" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
<div id="divEditarDiaVacacion" class="modal ADS fade" role="dialog">
|
||||
<div id="dvEdicion" runat="server" class="modal-dialog" style="width: 400px;">
|
||||
|
||||
@@ -6,9 +6,9 @@ Imports System.IO
|
||||
Imports System.Data
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Imports System.Globalization
|
||||
Imports System.Data.SqlTypes
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports Microsoft.AspNet.SignalR.Infrastructure
|
||||
|
||||
|
||||
|
||||
|
||||
Partial Class RH_Personal
|
||||
Inherits ClsPaginas
|
||||
@@ -427,6 +427,18 @@ Partial Class RH_Personal
|
||||
End Property
|
||||
|
||||
|
||||
Private Property IndexCuentaDepostito As Integer
|
||||
Get
|
||||
If ViewState("IndexCuentaDepostito") Is Nothing Then
|
||||
ViewState("IndexCuentaDepostito") = -1
|
||||
End If
|
||||
Return ViewState("IndexCuentaDepostito").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("IndexCuentaDepostito") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
@@ -1001,11 +1013,8 @@ Partial Class RH_Personal
|
||||
CargaFonacot()
|
||||
End If
|
||||
|
||||
|
||||
ValidaDeudorAcreedor()
|
||||
|
||||
|
||||
|
||||
Else
|
||||
cargatipoTrabajador()
|
||||
MostrarOcultarFechasEstatus()
|
||||
@@ -1020,6 +1029,7 @@ Partial Class RH_Personal
|
||||
End If
|
||||
|
||||
CargaCuentasBancarias()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
|
||||
|
||||
CrearEstructuraFamiliares()
|
||||
@@ -2124,7 +2134,12 @@ Partial Class RH_Personal
|
||||
If TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count > 0 Then
|
||||
|
||||
For Each row As DataRow In TempDTCuentasBancos.Rows
|
||||
If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=True, EstatusPagoElectronicoGrupos:=True) Then
|
||||
If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(),
|
||||
row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), row("RefCrediProveedor").ToString(), UsuarioActual.CveUsuario,
|
||||
row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario,
|
||||
BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString),
|
||||
EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), Correo:=row("Correo").ToString(),
|
||||
ConceptoCIE:=row("ConceptoCIE").ToString(), Estatus:=If(row("EstatusTexto").ToString = "Activo", True, False)) Then
|
||||
TieneError = True
|
||||
Exit For
|
||||
End If
|
||||
@@ -3377,21 +3392,81 @@ Partial Class RH_Personal
|
||||
Protected Sub Lnkopenaddcuentabancaria_Click(sender As Object, e As EventArgs)
|
||||
BtnActualizarCuentaBanco.Visible = False
|
||||
BtnAgregarCuentaBanco.Visible = True
|
||||
IndexCuentaDepostito = -1
|
||||
CuentasBancosLimpiarControles()
|
||||
RegistraScript("$('#DivAddCuentasBancarias').modal();")
|
||||
End Sub
|
||||
|
||||
RegistraScript("$('#DivCuentasVancarias').modal();")
|
||||
Private Sub CuentasBancosLimpiarControles()
|
||||
|
||||
DdlBancoSat.SelectedValueExist(-1)
|
||||
DdlMoneda.SelectedValueExist(-1)
|
||||
TxtNumeroCuenta.Text = ""
|
||||
TxtCLABECB.Text = ""
|
||||
ChkEstatusPagoE.Checked = False
|
||||
ChkEstatuscuenta.Checked = True
|
||||
|
||||
TxtNombreBanco.Text = ""
|
||||
TxtNumeroSucursal.Text = ""
|
||||
TxtSWIFT.Text = ""
|
||||
TxtPlaza.Text = ""
|
||||
TxtConvenioCIE.Text = ""
|
||||
TxtReferenciaC.Text = ""
|
||||
TxtConceptoCIE.Text = ""
|
||||
TxtRefCrediProveedor.Text = ""
|
||||
TxtCorreoCuenta.Text = ""
|
||||
TxtBBVAAlias.Text = ""
|
||||
ChkPagoElectronicoGrupos.Checked = False
|
||||
|
||||
|
||||
|
||||
|
||||
UpAddBancos.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LbActualizarCuentaBanco_Click(sender As Object, e As EventArgs)
|
||||
Using ObjCuentasBancos As New ClsGenerales
|
||||
Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
|
||||
|
||||
If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
|
||||
'UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
|
||||
Alert("Cuenta actualizada")
|
||||
Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
|
||||
If CvePersonal > 0 Then
|
||||
Using ObjCuentasBancos As New ClsGenerales
|
||||
|
||||
'If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
|
||||
If ObjCuentasBancos.UpdateCuentasDepositos(CveCuentaDeposito, nombrebanco, TxtPlaza.Text, TxtNumeroSucursal.Text, TxtNumeroCuenta.Text.Trim, TxtCLABECB.Text.Trim, TxtConvenioCIE.Text, TxtSWIFT.Text, TxtReferenciaC.Text, TxtRefCrediProveedor.Text,
|
||||
False, ChkEstatuscuenta.Checked, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, Correo:=TxtCorreoCuenta.Text, BBVAAlias:=TxtBBVAAlias.Text, EstatusPagoElectronico:=ChkEstatusPagoE.Checked,
|
||||
EstatusPagoElectronicoGrupos:=ChkPagoElectronicoGrupos.Checked, CveSATBanco:=DdlBancoSat.SelectedValue.ToEntero(), ConceptoCIE:=TxtConceptoCIE.Text) Then
|
||||
'UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
|
||||
Alert("Cuenta actualizada")
|
||||
End If
|
||||
End Using
|
||||
Else
|
||||
If IndexCuentaDepostito > -1 Then
|
||||
Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
|
||||
Row("BancoNombre") = nombrebanco
|
||||
Row("Cuenta") = TxtNumeroCuenta.Text.Trim
|
||||
Row("Sucursal") = TxtNumeroSucursal.Text
|
||||
Row("CLABE") = TxtCLABECB.Text.Trim
|
||||
Row("SWIFT") = TxtSWIFT.Text
|
||||
Row("Plaza") = TxtPlaza.Text
|
||||
Row("Cuenta") = TxtNumeroSucursal.Text
|
||||
Row("CIE") = TxtConvenioCIE.Text
|
||||
Row("Referencia") = TxtReferenciaC.Text
|
||||
Row("RefCrediProveedor") = TxtRefCrediProveedor.Text
|
||||
Row("CveMoneda") = DdlMoneda.SelectedValue.ToEntero()
|
||||
Row("Moneda") = DdlMoneda.SelectedItem.Text
|
||||
Row("BBVAAlias") = TxtBBVAAlias.Text
|
||||
Row("CveSATBanco") = DdlBancoSat.SelectedValue.ToEntero
|
||||
Row("EstatusPagoElectronico") = ChkEstatusPagoE.Checked
|
||||
Row("EstatusPagoElectronicoGrupos") = ChkPagoElectronicoGrupos.Checked
|
||||
Row("Correo") = TxtCorreoCuenta.Text.Trim
|
||||
Row("Correo") = TxtCorreoCuenta.Text.Trim
|
||||
Row("ConceptoCIE") = TxtConceptoCIE.Text
|
||||
Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
|
||||
|
||||
End If
|
||||
End Using
|
||||
End If
|
||||
|
||||
CargaCuentasBancarias()
|
||||
RegistraScript("$('#DivCuentasVancarias').modal('hide');")
|
||||
RegistraScript("$('#DivAddCuentasBancarias').modal('hide');")
|
||||
End Sub
|
||||
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
|
||||
Dim EsBancomer As Boolean = False
|
||||
@@ -3431,6 +3506,27 @@ Partial Class RH_Personal
|
||||
End If
|
||||
|
||||
|
||||
If ChkPagoElectronicoGrupos.Checked Then
|
||||
|
||||
If TxtConvenioCIE.Text.Trim.Length > 0 Then
|
||||
|
||||
If TxtConvenioCIE.Text.Trim.Length < 5 Then
|
||||
Alert("El campo CIE debe de tener una tamaño mininmo 5 caracteres.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Not DdlBancoSat.SelectedValue.ToEntero > 0 Then
|
||||
Alert("Se debe de especificar el banco.")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
''CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
|
||||
'If EsBancomer AndAlso Not (TxtNumeroCuenta.Text.Trim.Length = 10 Or TxtConvenioCIE.Text.Trim.Length = 6) Then
|
||||
@@ -3438,8 +3534,9 @@ Partial Class RH_Personal
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
AgregarCuentaBanco(nombrebanco, "", TxtCLABECB.Text.Trim, "", "", TxtNumeroCuenta.Text.Trim, "", "", DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, "", DdlBancoSat.SelectedValue.ToEntero(), ChkEstatusPagoE.Checked)
|
||||
RegistraScript("$('#DivCuentasVancarias').modal('hide');")
|
||||
AgregarCuentaBanco(nombrebanco, TxtNumeroSucursal.Text, TxtCLABECB.Text.Trim, TxtSWIFT.Text, TxtPlaza.Text, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text, TxtReferenciaC.Text, TxtRefCrediProveedor.Text, DdlMoneda.SelectedValue.ToEntero(),
|
||||
DdlMoneda.SelectedItem.Text, ChkEstatuscuenta.Checked, TxtCorreoCuenta.Text, TxtBBVAAlias.Text, DdlBancoSat.SelectedValue.ToEntero(), ChkEstatusPagoE.Checked, ChkPagoElectronicoGrupos.Checked, TxtConceptoCIE.Text)
|
||||
RegistraScript("$('#DivAddCuentasBancarias').modal('hide');")
|
||||
End Sub
|
||||
Private Sub CargaGridCuentasBancos(Orden As String)
|
||||
If CvePersonal > 0 Then
|
||||
@@ -3463,14 +3560,17 @@ Partial Class RH_Personal
|
||||
GvBancosCuentas.DataBind()
|
||||
UpCuentasBancos.Update()
|
||||
End Sub
|
||||
Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, CveMoneda As Integer, Moneda As String, BBVAAlias As String, CveSATBanco As Integer, EstatusPagoElectronico As Boolean)
|
||||
Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer,
|
||||
Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, CveSATBanco As Integer, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, ConceptoCIE As String)
|
||||
|
||||
|
||||
Dim Row As DataRow
|
||||
|
||||
If CvePersonal > 0 Then
|
||||
Using ObjCuentasBancos As New ClsGenerales()
|
||||
|
||||
If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then
|
||||
If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal,
|
||||
CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos,
|
||||
Correo:=Correo, ConceptoCIE:=ConceptoCIE) Then
|
||||
DTCuentasBancos.Clear()
|
||||
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
|
||||
|
||||
@@ -3480,22 +3580,54 @@ Partial Class RH_Personal
|
||||
CargaGvBitacora()
|
||||
|
||||
Else
|
||||
Row = TempDTCuentasBancos.NewRow
|
||||
|
||||
Row("BancoNombre") = NombreBanco
|
||||
Row("Sucursal") = NumeroSucursal
|
||||
Row("CLABE") = CLABE
|
||||
Row("SWIFT") = SWIFT
|
||||
Row("Plaza") = Plaza
|
||||
Row("Cuenta") = NumeroCuenta
|
||||
Row("CIE") = ConvenioCIE
|
||||
Row("Referencia") = Referencia
|
||||
Row("CveMoneda") = CveMoneda
|
||||
Row("Moneda") = Moneda
|
||||
Row("BBVAAlias") = BBVAAlias
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
TempDTCuentasBancos.Rows.Add(Row)
|
||||
If IndexCuentaDepostito > -1 Then
|
||||
Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
|
||||
Row("BancoNombre") = NombreBanco
|
||||
Row("Sucursal") = NumeroSucursal
|
||||
Row("CLABE") = CLABE
|
||||
Row("SWIFT") = SWIFT
|
||||
Row("Plaza") = Plaza
|
||||
Row("Cuenta") = NumeroCuenta
|
||||
Row("CIE") = ConvenioCIE
|
||||
Row("Referencia") = Referencia
|
||||
Row("RefCrediProveedor") = RefCrediProveedor
|
||||
Row("CveMoneda") = CveMoneda
|
||||
Row("Moneda") = Moneda
|
||||
Row("BBVAAlias") = BBVAAlias
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
|
||||
Row("Correo") = Correo
|
||||
Row("ConceptoCIE") = ConceptoCIE
|
||||
Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
|
||||
|
||||
Else
|
||||
Dim Row As DataRow = TempDTCuentasBancos.NewRow
|
||||
Row("BancoNombre") = NombreBanco
|
||||
Row("Sucursal") = NumeroSucursal
|
||||
Row("CLABE") = CLABE
|
||||
Row("SWIFT") = SWIFT
|
||||
Row("Plaza") = Plaza
|
||||
Row("Cuenta") = NumeroCuenta
|
||||
Row("CIE") = ConvenioCIE
|
||||
Row("Referencia") = Referencia
|
||||
Row("RefCrediProveedor") = RefCrediProveedor
|
||||
Row("CveMoneda") = CveMoneda
|
||||
Row("Moneda") = Moneda
|
||||
Row("BBVAAlias") = BBVAAlias
|
||||
Row("CveSATBanco") = CveSATBanco
|
||||
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
||||
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
|
||||
Row("Correo") = Correo
|
||||
Row("ConceptoCIE") = ConceptoCIE
|
||||
TempDTCuentasBancos.Rows.Add(Row)
|
||||
Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
LimpiaCuentasBancarias()
|
||||
@@ -3510,7 +3642,7 @@ Partial Class RH_Personal
|
||||
Private Sub CargaCuentasBancarias()
|
||||
Dim ObjCuentasBancos As New ClsGenerales
|
||||
DTCuentasBancos = New DataTable
|
||||
TempDTCuentasBancos = New DataTable
|
||||
'TempDTCuentasBancos = New DataTable
|
||||
|
||||
If ObjCuentasBancos.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
|
||||
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
|
||||
@@ -3518,7 +3650,7 @@ Partial Class RH_Personal
|
||||
Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
If CvePersonal < 0 Then
|
||||
If (CvePersonal < 0 AndAlso TempDTCuentasBancos Is Nothing) Or (CvePersonal < 0 AndAlso TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count = 0) Then
|
||||
TempDTCuentasBancos = DTCuentasBancos.Clone
|
||||
End If
|
||||
|
||||
@@ -3563,19 +3695,48 @@ Partial Class RH_Personal
|
||||
|
||||
|
||||
Protected Sub LnkshowEditcuentasbancarias_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
BtnActualizarCuentaBanco.Visible = True
|
||||
BtnAgregarCuentaBanco.Visible = False
|
||||
'CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,CveMoneda
|
||||
|
||||
CveCuentaDeposito = gvrow.DataKey("CveCuentaDeposito").ToEntero()
|
||||
IndexCuentaDepostito = gvrow.RowIndex
|
||||
|
||||
CuentasBancosLimpiarControles()
|
||||
|
||||
DdlBancoSat.SelectedValueExist(gvrow.DataKey("CveSATBanco"))
|
||||
DdlMoneda.SelectedValueExist(gvrow.DataKey("CveMoneda"))
|
||||
TxtNumeroCuenta.Text = gvrow.DataKey("Cuenta")
|
||||
TxtCLABECB.Text = gvrow.DataKey("CLABE")
|
||||
ChkEstatusPagoE.Checked = gvrow.DataKey("EstatusPagoElectronico").ToUpper().Contiene("TRUE", "1")
|
||||
ChkEstatuscuenta.Checked = gvrow.DataKey("EstatusTexto").ToUpper().Contiene("TRUE", "1", "ACTIVO")
|
||||
UpCuentasVancarias.Update()
|
||||
RegistraScript("$('#DivCuentasVancarias').modal();")
|
||||
|
||||
'CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE
|
||||
'DdlBancoSat
|
||||
TxtNombreBanco.Text = gvrow.DataKey("BancoNombre")
|
||||
TxtNumeroSucursal.Text = gvrow.DataKey("Sucursal")
|
||||
TxtSWIFT.Text = gvrow.DataKey("SWIFT")
|
||||
TxtPlaza.Text = gvrow.DataKey("Plaza")
|
||||
TxtConvenioCIE.Text = gvrow.DataKey("CIE")
|
||||
TxtReferenciaC.Text = gvrow.DataKey("Referencia")
|
||||
TxtConceptoCIE.Text = gvrow.DataKey("ConceptoCIE")
|
||||
TxtRefCrediProveedor.Text = gvrow.DataKey("RefCrediProveedor")
|
||||
TxtCorreoCuenta.Text = gvrow.DataKey("Correo")
|
||||
TxtBBVAAlias.Text = gvrow.DataKey("BBVAAlias")
|
||||
ChkPagoElectronicoGrupos.Checked = Boolean.Parse(gvrow.DataKey("EstatusPagoElectronicoGrupos").ToString)
|
||||
ChkEstatuscuenta.Checked = If(gvrow.DataKey("EstatusTexto").ToString = "Activo", True, False)
|
||||
|
||||
|
||||
|
||||
'CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE,EstatusTexto
|
||||
|
||||
'asdasd
|
||||
|
||||
UpAddBancos.Update()
|
||||
RegistraScript("$('#DivAddCuentasBancarias').modal();")
|
||||
End Sub
|
||||
Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
|
||||
|
||||
@@ -5011,7 +5172,7 @@ Partial Class RH_Personal
|
||||
Private Sub CargaVacacionesResumenPeriodoActual()
|
||||
Using objnom As New ClsNominas
|
||||
|
||||
If objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
|
||||
If objnom.GetPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
|
||||
RPTVacacionesResumen.DataSource = objnom.DtResultados
|
||||
DdlVacPeriodo.DataSource = objnom.DtResultados.FiltraParametros("DiasDisponibles > 0", "Ejercicio")
|
||||
DdlVacPeriodo.DataBind()
|
||||
@@ -8282,5 +8443,25 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
|
||||
|
||||
'Protected Sub ChkPagoElectronicoGrupos_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
' If ChkPagoElectronicoGrupos.Checked Then
|
||||
' DVDdlSatBanco.Visible = True
|
||||
' Else
|
||||
' DVDdlSatBanco.Visible = False
|
||||
' End If
|
||||
|
||||
' UpAddBancos.Update()
|
||||
'End Sub
|
||||
|
||||
|
||||
Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
'If ChkEstatusPagoE.Checked Then
|
||||
' Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la plataforma", TipoMensaje.MsgAdvertencia)
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
@@ -6759,7 +6759,7 @@ Partial Class PV
|
||||
Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
|
||||
Dim GeneroCliente As Boolean = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False)
|
||||
|
||||
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
|
||||
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim.ToUpper, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
|
||||
TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
|
||||
TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
|
||||
DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero(), DdlFormaCliente.SelectedValue.ToEntero(), CvePrecioLista:=CvePrecioLista,
|
||||
|
||||
@@ -66,6 +66,18 @@ Partial Class Ventas_RepComisionesSMS
|
||||
GvDatos.Columns(19).Visible = False 'fecha pago
|
||||
GvDatos.Columns(20).Visible = False 'pagada
|
||||
End If
|
||||
'ocultar columnas en usuario almacen.
|
||||
If UsuarioActual.CveRol = 1578 Then 'almacen
|
||||
GvDatos.Columns(11).Visible = False 'precio unitario
|
||||
GvDatos.Columns(12).Visible = False 'precio total
|
||||
GvDatos.Columns(14).Visible = False 'vendedor
|
||||
GvDatos.Columns(16).Visible = False 'tecnico
|
||||
GvDatos.Columns(17).Visible = False 'gerente
|
||||
GvDatos.Columns(18).Visible = False 'ed.medica
|
||||
GvDatos.Columns(19).Visible = False 'fecha pago
|
||||
GvDatos.Columns(20).Visible = False 'pagada
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub CargaDatos()
|
||||
|
||||
Reference in New Issue
Block a user