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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2025-05-02 07:03:05 -07:00
parent 9030a3230f c21b847ce0
commit 405af0aea3
20 changed files with 3947 additions and 3118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsGenerales.vb
View File

@@ -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

17
Ashx/TareasProgramadas.ashx
View File

@@ -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

60
Bancos/PopIEVentas.aspx.vb
View File

@@ -545,16 +545,7 @@ Partial Class Bancos_PopIEVentas
FechaVenta = dr("Fecha").ToString.ToDate
SaldoVenta = dr("Saldo").ToString.ToDouble
'Cortes de Caja
If UsuarioActual.TienePermisoProceso(160) Then
CargaCorteCaja()
End If
If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse (dr("CveCorte").ToString.ToEntero > 0) Then 'toma como proridad el que viene de
CveCorte = dr("CveCorte").ToString.ToEntero
End If
Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual)
If RFCCliente.ToUpper <> "XAXX010101000" Then
Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
@@ -581,18 +572,57 @@ Partial Class Bancos_PopIEVentas
ObjVenta.Dispose()
End Sub
Private Sub CargaCorteCaja()
'Checar si hay un Turno Abierto
Protected Function CargaCorteCaja(CveVenta As Integer, UsuarioActual As Usuario) As Integer
Dim CveCorte As Integer = -1
Dim CveCorteVenta As Integer = -1
Dim EsCredito As Boolean = False
Dim UsaCorteActual As Boolean = False
If CveVenta > 0 Then
Using ObjVentas As New ClsVentas
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
EsCredito = If(ObjVentas.DtResultados.FiltroPrimeroValor("CondicionesPago").ToEntero() = 1, True, False)
CveCorteVenta = ObjVentas.DtResultados.FiltroPrimeroValor("CveCorte").ToEntero()
End If
End Using
If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
'SI ES FACTURA A CREDITO
If EsCredito OrElse CveCorteVenta <= 0 Then
UsaCorteActual = True
End If
End If
'SI ES CONTADO TOMAR EL DE LA VENTA
If Not EsCredito Then
UsaCorteActual = False
End If
'EN BDH TOMAR EL DE LA VENTA
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
UsaCorteActual = False
End If
Else
If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
UsaCorteActual = True
End If
End If
If UsaCorteActual Then
Dim ObjPVenta As New ClsPuntoVenta
If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
If ObjPVenta.DtResultados.Rows.Count > 0 Then
CveCorte = ObjPVenta.CveCorte
End If
End If
ObjPVenta.Dispose()
End Sub
Else
CveCorte = CveCorteVenta
End If
Return CveCorte
End Function
Private Sub CargaCliente(ByVal CveCliente As Integer, RFC As String)
Dim ObjCliente As New ClsClientes

9
Bancos/RepCortes.aspx
View File

@@ -131,7 +131,7 @@
<asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
</HeaderTemplate>
<ItemTemplate>
<asp:LinkButton ID="LBDescripcion" CommandName="CargaDetalle" CommandArgument='<%# Eval("CveCorte") %>' OnClick="LbDescripcion_Click" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(382) = "1", Eval("FechaInicial", "{0:dd/MM/yyyy}"), Eval("FechaInicial", "{0:g}")) %>'></asp:LinkButton>
<asp:LinkButton ID="LBDescripcion" CommandName="CargaDetalle" CommandArgument='<%# Eval("CveCorte") %>' OnClick="LbDescripcion_Click" runat="server" Text='<%# Eval("FechaInicial", "{0:g}") %>'></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
@@ -315,7 +315,7 @@
<asp:Literal ID="LtlTotalCorte" runat="server" Text='<%# Eval("TotalCorte", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--<asp:BoundField HeaderText="CveCorte" DataField="CveCorte" />--%>
<asp:BoundField HeaderText="CveCorte" DataField="CveCorte" Visible="false" />
</Columns>
<HeaderStyle CssClass="Titulos" Font-Size="9pt" />
<RowStyle CssClass="Texto" />
@@ -448,6 +448,11 @@
<asp:Literal ID="LtlFacRemisionAnterior" runat="server" Text='<%# Eval("FacturaRemisionAnteriorTexto") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sobr/Falt" ItemStyle-HorizontalAlign="Right" Visible="false">
<ItemTemplate>
<asp:Label ID="LblSobrFalt" Text='<%# Eval("SobranteFaltante", "{0:N2}") %>' runat="server"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblTotal" Text='<%# Eval("ImportePagado", "{0:N2}") %>' runat="server"></asp:Label>

10
Bancos/RepCortes.aspx.vb
View File

@@ -90,6 +90,10 @@ Partial Class Bancos_RepCortes
GvDatos.Columns(4).Visible = True
End If
If UsuarioActual.CveRol = 1 Then
GvDatos.Columns(21).Visible = True 'COLUMNA DE CveCorte
End If
GvP.DataBind()
GvDep.DataBind()
GvPorIVA.DataBind()
@@ -219,7 +223,7 @@ Partial Class Bancos_RepCortes
Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1"
If ConsultaPorSucursal Then
CveCorte = -1
'CveCorte = -1
FechaConsulta = gvr.DataKey("FechaInicial").ToDate()
End If
@@ -231,6 +235,10 @@ Partial Class Bancos_RepCortes
DtCortesVentas = DsDatos.Tables(0)
GvD.DataSource = DtCortesVentas
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
GvD.Columns(3).Visible = True
End If
divDetalle.Visible = True
'RESUMEN
DtCortesVentasResumen = DsDatos.Tables(1)

36
Compras/Compras.aspx
View File

@@ -716,6 +716,8 @@
<th style="width: 100px">P.U.&nbsp;</th>
<th style="width: 40px">IVA&nbsp;</th>
<th style="width: 40px" runat="server" id="TD_Gvps_IEPS" visible="false">IEPS&nbsp;</th>
<th style="width: 40px" runat="server" id="TdRetIVA" visible="false">Ret. IVA&nbsp;</th>
<th style="width: 40px" runat="server" id="TdRetISR" visible="false">Ret. ISR&nbsp;</th>
<th style="width: 110px">Total&nbsp;</th>
<div id="dvNoDeducible" runat="server" visible="false">
<th style="width: 80px">¿No Deducible?&nbsp;</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>
<%-- 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>

115
Compras/Compras.aspx.vb
View File

@@ -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
@@ -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

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1749,7 +1749,7 @@ Partial Class PopUpVerFactura
End Using
End If
CveCorte = -1
'CveCorte = -1
End If
Dim ObjVenta As New ClsVentas

8
Compras/Proveedores.aspx
View File

@@ -3368,7 +3368,6 @@
<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>
@@ -3383,18 +3382,19 @@
<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>
<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>
<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>
<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>

2
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -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

81
Compras/RepComplementoPago.aspx
View File

@@ -18,33 +18,33 @@
<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>
<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>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content>
@@ -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%" />
</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">&times;</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>

48
Compras/RepComplementoPago.aspx.vb
View File

@@ -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

7
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -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>

347
Empresas/Grales/Formatos/EntradaSalida.rdlc
View File

@@ -1,24 +1,102 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DsInventarios">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>1f7ab5df-1d00-4763-8479-9ab750b1589a</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DsInventarios">
<Query>
<DataSourceName>DsInventarios</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Codigo">
<DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PS">
<DataField>PS</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="UnidadMedida">
<DataField>UnidadMedida</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PU">
<DataField>PU</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Total">
<DataField>Total</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Descuento">
<DataField>Descuento</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="CodigoAF">
<DataField>CodigoAF</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Almacen">
<DataField>Almacen</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Lote">
<DataField>Lote</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Batch">
<DataField>Batch</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SerieLote">
<DataField>SerieLote</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DsInventarios</rd:DataSetName>
<rd:SchemaPath>C:\inetpub\wwwVentas\App_Code\DsInventarios.xsd</rd:SchemaPath>
<rd:TableName>DtMovimientos</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportSections>
<ReportSection>
<Body>
<ReportItems>
<Tablix Name="Tablix2">
<TablixBody>
<TablixColumns>
<TablixColumn>
<Width>1.14223cm</Width>
<Width>1.11577cm</Width>
</TablixColumn>
<TablixColumn>
<Width>3.14766cm</Width>
<Width>3.59745cm</Width>
</TablixColumn>
<TablixColumn>
<Width>11.67011cm</Width>
<Width>11.19386cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.70027cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.73945cm</Width>
<Width>2.00403cm</Width>
</TablixColumn>
</TablixColumns>
<TablixRows>
@@ -439,9 +517,9 @@
</TablixRowHierarchy>
<DataSetName>DsInventarios</DataSetName>
<Top>0.17639cm</Top>
<Left>0.22456cm</Left>
<Left>0.02646cm</Left>
<Height>1.11096cm</Height>
<Width>20.39971cm</Width>
<Width>20.61138cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -466,7 +544,7 @@
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>1.39318cm</Top>
<Left>0.25984cm</Left>
<Left>0.03528cm</Left>
<Height>0.6cm</Height>
<Width>11.36782cm</Width>
<ZIndex>1</ZIndex>
@@ -484,10 +562,10 @@
<Height>0.82291in</Height>
<Style />
</Body>
<Width>8.11979in</Width>
<Width>8.13555in</Width>
<Page>
<PageHeader>
<Height>4.11151cm</Height>
<Height>4.16443cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
@@ -509,8 +587,8 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.28677cm</Top>
<Left>4.37211cm</Left>
<Top>0.31501cm</Top>
<Left>4.17224cm</Left>
<Height>0.67056cm</Height>
<Width>8.97552cm</Width>
<Style>
@@ -541,8 +619,8 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox34</rd:DefaultName>
<Top>1.02789cm</Top>
<Left>4.37211cm</Left>
<Top>1.05613cm</Top>
<Left>4.17224cm</Left>
<Height>0.95277cm</Height>
<Width>8.10916cm</Width>
<ZIndex>1</ZIndex>
@@ -560,8 +638,7 @@
<Source>External</Source>
<Value>=Parameters!LogoPath.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>0.3175cm</Top>
<Left>0.19987cm</Left>
<Top>0.34574cm</Top>
<Height>1.66316cm</Height>
<Width>3.43141cm</Width>
<ZIndex>2</ZIndex>
@@ -579,15 +656,17 @@
<TextRuns>
<TextRun>
<Value>=Parameters!FacturaProveedor.Value</Value>
<Style />
<Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Top>2.34504cm</Top>
<Left>2.43182cm</Left>
<Top>2.05578cm</Top>
<Left>1.94091cm</Left>
<Height>0.6cm</Height>
<Width>9.54145cm</Width>
<ZIndex>3</ZIndex>
@@ -608,15 +687,17 @@
<TextRuns>
<TextRun>
<Value>=Parameters!FacturadoA.Value</Value>
<Style />
<Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox18</rd:DefaultName>
<Top>3.08614cm</Top>
<Left>2.43182cm</Left>
<Top>3.36838cm</Top>
<Left>1.91445cm</Left>
<Height>0.6cm</Height>
<Width>9.54145cm</Width>
<ZIndex>4</ZIndex>
@@ -639,6 +720,7 @@
<TextRun>
<Value>Proveedor:</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -647,10 +729,10 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox16</rd:DefaultName>
<Top>3.097cm</Top>
<Left>0.26872cm</Left>
<Top>3.37924cm</Top>
<Left>0.06885cm</Left>
<Height>0.6cm</Height>
<Width>2.11724cm</Width>
<Width>1.79974cm</Width>
<ZIndex>5</ZIndex>
<Visibility>
<Hidden>=IIF(Parameters!FacturadoA.Value = "", True, False)</Hidden>
@@ -674,6 +756,7 @@
<TextRun>
<Value>Factura:</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -682,10 +765,10 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName>
<Top>2.34504cm</Top>
<Left>0.25631cm</Left>
<Top>2.05578cm</Top>
<Left>0.0829cm</Left>
<Height>0.6cm</Height>
<Width>2.12965cm</Width>
<Width>1.81215cm</Width>
<ZIndex>6</ZIndex>
<Visibility>
<Hidden>=IIF(Parameters!FacturaProveedor.Value = "", True, False)</Hidden>
@@ -720,8 +803,8 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.35028cm</Top>
<Left>13.63291cm</Left>
<Top>0.37852cm</Top>
<Left>13.43304cm</Left>
<Height>0.89103cm</Height>
<Width>2.06494cm</Width>
<ZIndex>7</ZIndex>
@@ -756,8 +839,8 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName>
<Top>0.31501cm</Top>
<Left>15.69784cm</Left>
<Top>0.34325cm</Top>
<Left>15.49797cm</Left>
<Height>0.9263cm</Height>
<Width>2.57165cm</Width>
<ZIndex>8</ZIndex>
@@ -780,6 +863,7 @@
<TextRun>
<Value>Fecha:</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -788,10 +872,10 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName>
<Top>3.09701cm</Top>
<Left>12.65424cm</Left>
<Top>2.74425cm</Top>
<Left>11.52833cm</Left>
<Height>0.59999cm</Height>
<Width>1.80326cm</Width>
<Width>1.59297cm</Width>
<ZIndex>9</ZIndex>
<Style>
<Border>
@@ -804,6 +888,7 @@
</Style>
</Textbox>
<Textbox Name="Textbox10">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
@@ -811,7 +896,7 @@
<TextRun>
<Value>=Parameters!Almacen.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
@@ -821,10 +906,10 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName>
<Top>2.34505cm</Top>
<Left>14.4575cm</Left>
<Top>2.05579cm</Top>
<Left>13.14776cm</Left>
<Height>0.6cm</Height>
<Width>5.9022cm</Width>
<Width>7.51654cm</Width>
<ZIndex>10</ZIndex>
<Style>
<Border>
@@ -845,7 +930,7 @@
<TextRun>
<Value>=Parameters!Fecha.Value</Value>
<Style>
<FontSize>8pt</FontSize>
<FontSize>9pt</FontSize>
<Format>d</Format>
</Style>
</TextRun>
@@ -856,10 +941,10 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName>
<Top>3.09701cm</Top>
<Left>14.4575cm</Left>
<Top>2.74425cm</Top>
<Left>13.1213cm</Left>
<Height>0.59999cm</Height>
<Width>5.9022cm</Width>
<Width>7.51654cm</Width>
<ZIndex>11</ZIndex>
<Style>
<Border>
@@ -880,6 +965,7 @@
<TextRun>
<Value>Almacén:</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
@@ -888,10 +974,10 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.34505cm</Top>
<Left>12.65424cm</Left>
<Top>2.05579cm</Top>
<Left>11.55479cm</Left>
<Height>0.59999cm</Height>
<Width>1.80326cm</Width>
<Width>1.59297cm</Width>
<ZIndex>12</ZIndex>
<Style>
<Border>
@@ -903,6 +989,73 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox19">
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!FolioOC.Value</Value>
<Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox18</rd:DefaultName>
<Top>2.69782cm</Top>
<Left>1.91445cm</Left>
<Height>0.6cm</Height>
<Width>9.54145cm</Width>
<ZIndex>13</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox17">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>OC:</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox16</rd:DefaultName>
<Top>2.70868cm</Top>
<Left>0.06885cm</Left>
<Height>0.6cm</Height>
<Width>1.79974cm</Width>
<ZIndex>14</ZIndex>
<Visibility>
<Hidden>=Microsoft.VisualBasic.Interaction.IIF(Parameters!FacturadoA.Value = "", True, False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Style>
<Border>
@@ -917,7 +1070,7 @@
<ReportItems>
<Line Name="Line6">
<Top>0.28886cm</Top>
<Left>2.22221cm</Left>
<Left>2.26223cm</Left>
<Height>0cm</Height>
<Width>4.95004cm</Width>
<Style>
@@ -944,7 +1097,7 @@
</Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName>
<Top>0.46525cm</Top>
<Left>1.74387cm</Left>
<Left>1.78389cm</Left>
<Height>0.6cm</Height>
<Width>5.95755cm</Width>
<ZIndex>1</ZIndex>
@@ -960,7 +1113,7 @@
</Textbox>
<Line Name="Line7">
<Top>0.28886cm</Top>
<Left>12.20081cm</Left>
<Left>12.24083cm</Left>
<Height>0cm</Height>
<Width>4.95004cm</Width>
<ZIndex>2</ZIndex>
@@ -988,7 +1141,7 @@
</Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName>
<Top>0.42997cm</Top>
<Left>11.80394cm</Left>
<Left>11.84396cm</Left>
<Height>0.6cm</Height>
<Width>5.95755cm</Width>
<ZIndex>3</ZIndex>
@@ -1024,7 +1177,7 @@
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>1.49022cm</Top>
<Left>11.96388cm</Left>
<Left>12.0039cm</Left>
<Height>0.6cm</Height>
<Width>2.90426cm</Width>
<ZIndex>4</ZIndex>
@@ -1060,7 +1213,7 @@
</Paragraphs>
<rd:DefaultName>Textbox33</rd:DefaultName>
<Top>1.49022cm</Top>
<Left>14.86814cm</Left>
<Left>14.90816cm</Left>
<Height>0.6cm</Height>
<Width>2.89335cm</Width>
<ZIndex>5</ZIndex>
@@ -1084,88 +1237,14 @@
<PageHeight>29.7cm</PageHeight>
<PageWidth>21cm</PageWidth>
<LeftMargin>0.5cm</LeftMargin>
<RightMargin>1.5cm</RightMargin>
<TopMargin>2cm</TopMargin>
<BottomMargin>2cm</BottomMargin>
<RightMargin>0.5cm</RightMargin>
<TopMargin>0.5cm</TopMargin>
<BottomMargin>0.5cm</BottomMargin>
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DsInventarios">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>1f7ab5df-1d00-4763-8479-9ab750b1589a</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DsInventarios">
<Query>
<DataSourceName>DsInventarios</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Codigo">
<DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PS">
<DataField>PS</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="UnidadMedida">
<DataField>UnidadMedida</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PU">
<DataField>PU</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Total">
<DataField>Total</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Descuento">
<DataField>Descuento</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="CodigoAF">
<DataField>CodigoAF</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Almacen">
<DataField>Almacen</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Lote">
<DataField>Lote</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Batch">
<DataField>Batch</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SerieLote">
<DataField>SerieLote</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DsInventarios</rd:DataSetName>
<rd:SchemaPath>C:\inetpub\wwwVentas\App_Code\DsInventarios.xsd</rd:SchemaPath>
<rd:TableName>DtMovimientos</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
</ReportSection>
</ReportSections>
<ReportParameters>
<ReportParameter Name="Empresa">
<DataType>String</DataType>
@@ -1263,6 +1342,12 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="FolioOC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>e6b08487-acfe-4020-a8f2-f9a54953646f</rd:ReportID>

124
Empresas/Grales/Formatos/RepInventarioFisicoDetalle.rdlc
View File

@@ -1,5 +1,67 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet3">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>74f8a171-24f1-4404-809e-ec2e098f1907</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet3</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="FechaInvFisico">
<DataField>FechaInvFisico</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Codigo">
<DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CodigoBarras">
<DataField>CodigoBarras</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PS">
<DataField>PS</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Serie">
<DataField>Serie</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SerieLote">
<DataField>SerieLote</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Costo">
<DataField>Costo</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet3</rd:DataSetName>
<rd:SchemaPath>C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
<ReportSections>
<ReportSection>
<Body>
<ReportItems>
<Tablix Name="Tablix1">
@@ -251,7 +313,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>SerieLote</Value>
<Value>Serie</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -1789,62 +1851,8 @@
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet3">
<ConnectionProperties>
<DataProvider>System.Data.DataSet</DataProvider>
<ConnectString>/* Local Connection */</ConnectString>
</ConnectionProperties>
<rd:DataSourceID>74f8a171-24f1-4404-809e-ec2e098f1907</rd:DataSourceID>
</DataSource>
</DataSources>
<DataSets>
<DataSet Name="DataSet1">
<Query>
<DataSourceName>DataSet3</DataSourceName>
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="FechaInvFisico">
<DataField>FechaInvFisico</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Codigo">
<DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CodigoBarras">
<DataField>CodigoBarras</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PS">
<DataField>PS</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SerieLote">
<DataField>SerieLote</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Cantidad">
<DataField>Cantidad</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
<Field Name="Costo">
<DataField>Costo</DataField>
<rd:TypeName>System.Double</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet3</rd:DataSetName>
<rd:SchemaPath>C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd</rd:SchemaPath>
<rd:TableName>DataTable1</rd:TableName>
<rd:TableAdapterFillMethod />
<rd:TableAdapterGetDataMethod />
<rd:TableAdapterName />
</rd:DataSetInfo>
</DataSet>
</DataSets>
</ReportSection>
</ReportSections>
<ReportParameters>
<ReportParameter Name="LogoPath">
<DataType>String</DataType>

22
OC/OC.aspx.vb
View File

@@ -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

50
OI/Proyecto.aspx
View File

@@ -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);

206
RH/Personal.aspx
View File

@@ -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>
<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,6 +4984,196 @@
</ContentTemplate>
</asp:UpdatePanel>
</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">&times;</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">

227
RH/Personal.aspx.vb
View File

@@ -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
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 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,8 +3580,9 @@ Partial Class RH_Personal
CargaGvBitacora()
Else
Row = TempDTCuentasBancos.NewRow
If IndexCuentaDepostito > -1 Then
Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
Row("BancoNombre") = NombreBanco
Row("Sucursal") = NumeroSucursal
Row("CLABE") = CLABE
@@ -3490,12 +3591,43 @@ Partial Class RH_Personal
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

65
Ventas/ClientesAbonar.aspx.vb
View File

@@ -10,6 +10,14 @@ Partial Class Ventas_ClientesAbonar
#Region "Propiedades"
Private Property CveCorte As Integer
Get
Return ViewState("CveCorte").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveCorte") = value
End Set
End Property
Private ReadOnly Property CveCliente As Integer
Get
Return ViewState("CveCliente").ToString.ToEntero
@@ -172,6 +180,7 @@ Partial Class Ventas_ClientesAbonar
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Me.CveCorte = -1
CveMonedaPago = -1
If Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToString.ToEntero > 0 Then
ViewState("CveCliente") = Request("CveCliente").ToString.ToEntero
@@ -229,6 +238,8 @@ Partial Class Ventas_ClientesAbonar
ChkPagarDolares.Visible = False
End If
RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Fecha).FormatoNumero(4)}")
Me.CveCorte = CargaCorteCaja(-1, UsuarioActual)
End If
RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy")
@@ -255,6 +266,58 @@ Partial Class Ventas_ClientesAbonar
End Sub
Protected Function CargaCorteCaja(CveVenta As Integer, UsuarioActual As Usuario) As Integer
Dim CveCorte As Integer = -1
Dim CveCorteVenta As Integer = -1
Dim EsCredito As Boolean = False
Dim UsaCorteActual As Boolean = False
If CveVenta > 0 Then
Using ObjVentas As New ClsVentas
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
EsCredito = If(ObjVentas.DtResultados.FiltroPrimeroValor("CondicionesPago").ToEntero() = 1, True, False)
CveCorteVenta = ObjVentas.DtResultados.FiltroPrimeroValor("CveCorte").ToEntero()
End If
End Using
If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
'SI ES FACTURA A CREDITO
If EsCredito OrElse CveCorteVenta <= 0 Then
UsaCorteActual = True
End If
End If
'SI ES CONTADO TOMAR EL DE LA VENTA
If Not EsCredito Then
UsaCorteActual = False
End If
'EN BDH TOMAR EL DE LA VENTA
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
UsaCorteActual = False
End If
Else
If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
UsaCorteActual = True
End If
End If
If UsaCorteActual Then
Dim ObjPVenta As New ClsPuntoVenta
If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
If ObjPVenta.DtResultados.Rows.Count > 0 Then
CveCorte = ObjPVenta.CveCorte
End If
End If
ObjPVenta.Dispose()
Else
CveCorte = CveCorteVenta
End If
Return CveCorte
End Function
Private Sub CargaTipoTransaccion()
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Ing' AND Estatus = 1 ")
DdlTipoTransaccion.DataBind()
@@ -870,7 +933,7 @@ Partial Class Ventas_ClientesAbonar
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, Folio, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal,
GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio,
TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito,
CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal, FechaEmision:=FechaEmision)
CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal, FechaEmision:=FechaEmision, CveCorte:=Me.CveCorte)
If Folio = "-1" Then
TxtFolio.Text = ObjIE.Folio.ToString()
End If