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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-08-13 19:16:17 -07:00
parent 070e880bb1 fa0ce1324f
commit 0acfc1d88b
38 changed files with 4117 additions and 3588 deletions
Download Patch File Download Diff File Expand all files Collapse all files

210
AF/RegistroRevision.aspx Normal file
View File

@@ -0,0 +1,210 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegistroRevision.aspx.vb" Inherits="AF_RegistroRevision" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
.Widthall {
width: 100% !important;
}
.dataTables_scrollHeadInner {
width: 100% !important;
background-color: #dddddd;
padding-left: 0px !important;
}
.dataTables_scrollFoot {
display: none;
position: static;
}
.table-scrollable {
margin: 0px !important;
}
.dataTables_scroll {
margin-bottom: 0px;
}
.table.dataTable {
margin-top: 0px !important;
}
.dataTables_scrollBody table th {
padding: 0px !important;
padding-right: 4px !important;
padding-left: 4px !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<%-- <asp:UpdatePanel runat="server" UpdateMode="Conditional" ChildrenAsTriggers="true">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkAgregarAF" runat="server" PostBackUrl="~/AF/AF.aspx">
<i class="fa fa-plus"></i> Nuevo Activo Fijo
</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExportar" runat="server">
<i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel
</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkExportar" />
<asp:PostBackTrigger ControlID="LinkPDF" />
</Triggers>
</asp:UpdatePanel>--%>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Catálogo de Activos Fijos
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpFiltro" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" style="">
<div class="portlet-title portlet-filterT portletfiltrostitlee">
<div class="tools">
<asp:UpdatePanel runat="server" style="display: inline-block;">
<ContentTemplate>
<asp:Button ID="BtnFiltrar" runat="server" Text="Filtrar" class="btn btn-primary" OnClick="BtnFiltrar_Click" />
</ContentTemplate>
</asp:UpdatePanel>
<a href="javascript:;" class="expand" data-original-title="" title=""></a>
</div>
<div class="titlefiltros caption">
<div class="row">
<div class="col-md-1"><asp:Label runat="server" ID="LblSubProyecto"></asp:Label></div>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
</div>
<div class="col-md-1">Fecha:</div>
<div class="col-md-2">
<div class="form-group form-md-line-input input-iconright">
<asp:Label AssociatedControlID="TxtFecha" runat="server" Text="Fecha de Nacimiento:"></asp:Label>
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
<asp:TextBox ID="TxtFecha" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaNacimiento" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaNacimiento" TargetControlID="TxtFecha" PopupButtonID="ImgFechaNacimiento" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<%--<asp:RequiredFieldValidator ID="RFVFechaNacimiento" runat="server" ControlToValidate="TxtFecha" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCosulta"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaNacimiento" runat="server" ControlToValidate="TxtFecha" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpCosulta"></asp:CompareValidator>--%>
</div>
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none;">
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpGV" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se Encontró Activo Fijo Registrado" ToolTip="Listado de Activos Fijos" CssClass="table table-smallpadding Widthall" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Código">
<ItemStyle Width="70px" />
<ItemTemplate>
<asp:HyperLink ID="Hpl" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Descripción">
<ItemStyle Width="140px" />
<ItemTemplate>
<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Act. Fijo">
<ItemStyle Width="90px" />
<ItemTemplate>
<asp:Literal ID="LtlTipoActivoFijo" runat="server" Text='<%# Eval("TipoActivoFijo")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sub Tipo Act. Fijo">
<ItemStyle Width="110px" />
<ItemTemplate>
<asp:Literal ID="LtlSubTIpoActivoFijo" runat="server" Text='<%# Eval("SubTIpoActivoFijo")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Responsable">
<ItemStyle Width="105px" />
<ItemTemplate>
<asp:Literal ID="LtlResponsable" runat="server" Text='<%# Eval("Responsable")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="No. Serie">
<ItemStyle Width="50px" />
<ItemTemplate>
<asp:Literal ID="LtlNoSerie" runat="server" Text='<%# Eval("NoSerie")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Año" ItemStyle-HorizontalAlign="Right">
<ItemStyle Width="50px" />
<ItemTemplate>
<asp:Literal ID="LtlAño" runat="server" Text='<%# Eval("Año")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="SubProyecto">
<ItemStyle Width="90px" />
<ItemTemplate>
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
<ItemStyle Width="50px" />
<ItemTemplate>
<asp:Literal ID="LtlEstadoActivoFijo" runat="server" Text='<%# Eval("EstadoActivoFijo")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
<ItemStyle Width="75px" />
<ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario">
<ItemStyle Width="80px" />
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

74
AF/RegistroRevision.aspx.vb Normal file
View File

@@ -0,0 +1,74 @@
Option Explicit On
Option Strict On
Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class AF_RegistroRevision
Inherits ClsPaginas
#Region " PROPIEDADES"
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaCombos()
CargaDatos()
End If
End Sub
#Region " CARGA PARAMETROS "
#End Region
#Region " CARGA COMBOS "
Protected Sub CargaCombos()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
End Sub
#End Region
#Region " CARGA DATOS "
Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
CargaDatos()
End Sub
#End Region
#Region " GV DATOS "
Private Sub CargaDatos()
Dim ObjAF As New ClsAF
ObjAF.Dispose()
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
End If
End Sub
#End Region
End Class

192
App_Code/ClsAF.vb
View File

@@ -3241,6 +3241,198 @@ Public Class ClsAF
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "M E T R I C A S"
Public Function GetMetricas(CveMetrica As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_MetricasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener las métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function AddMetricas(Metrica As String) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_MetricasAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@Metrica", SqlDbType.Int).Value = Metrica
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function DeleteMetricas(CveMetrica As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_MetricasRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetMetricasValores(Optional CveMetricaValor As Integer = -1, Optional CveAF As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveUsuario As Integer = -1,
Optional CveSubProyecto As Integer = -1, Optional Fecha As String = "1900-01-01", Optional FechaIng As String = "1900-01-01") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_MetricasValoresGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
.Add("@CveAF", SqlDbType.Int).Value = CveAF
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Fecha", SqlDbType.DateTime).Value = Fecha
.Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function AddMetricasValores(Optional CveAF As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveUsuario As Integer = -1,
Optional CveSubProyecto As Integer = -1, Optional Fecha As String = "1900-01-01", Optional FechaIng As String = "1900-01-01") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_MetricasValoresAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveAF", SqlDbType.Int).Value = CveAF
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@Fecha", SqlDbType.DateTime).Value = Fecha
.Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function RemoveMetricasValores(CveMetricaValor As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_MetricasValoresRemove")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function GetMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_MetricasValoresDetalleGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
.Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function AddMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_MetricasValoresDetalleAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
.Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
.Add("@Valor", SqlDbType.NVarChar).Value = Valor
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al agregar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function DeleteMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_MetricasValoresDetalleAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
.Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
.Add("@Valor", SqlDbType.NVarChar).Value = Valor
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al eliminar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#End Region
#Region " IDisposable Support " #Region " IDisposable Support "

14
App_Code/ClsBancos.vb
View File

@@ -943,7 +943,7 @@ Public Class ClsBancos
#Region "Complemento Pagos" #Region "Complemento Pagos"
Public Function GeneraTimbrePago(CveIE As Integer, CveVenta As Integer, UsuarioActual As Usuario, Optional CveCliente As Integer = -1, Optional CFDIRelacionado As String = "-1", Optional EsCancelacion As Boolean = False, Optional EsRegeneracion As Boolean = False, Optional CvePrePoliza As Integer = -1, Optional FechaTimbrado As DateTime = MinFecha) As Boolean Public Function GeneraTimbrePago(CveIE As Integer, CveVenta As Integer, UsuarioActual As Usuario, Optional CveCliente As Integer = -1, Optional CFDIRelacionado As String = "-1", Optional EsRegeneracion As Boolean = False, Optional CvePrePoliza As Integer = -1, Optional FechaTimbrado As DateTime = MinFecha) As Boolean
If FechaTimbrado = MinFecha Then FechaTimbrado = DateTime.Now If FechaTimbrado = MinFecha Then FechaTimbrado = DateTime.Now
Dim Serie As String = "Pag" Dim Serie As String = "Pag"
@@ -954,11 +954,11 @@ Public Class ClsBancos
Dim dttpagos As DataTable = Nothing Dim dttpagos As DataTable = Nothing
Dim dr As Data.DataRow = Nothing Dim dr As Data.DataRow = Nothing
If GetComplementoPagosRep(-1, Now.AddYears(-2), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsCancelacion OrElse EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then If GetComplementoPagosRep(-1, Now.AddYears(-2), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
dr = DtResultados.FiltroPrimero("CveVenta IS NULL") dr = DtResultados.FiltroPrimero("CveVenta IS NULL")
dttpagos = DtResultados.FiltraParametros("CveVenta > 0") dttpagos = DtResultados.FiltraParametros("CveVenta > 0")
End If End If
If EsCancelacion Then Estatus = 2 'If EsCancelacion Then Estatus = 2
If EsRegeneracion Then Estatus = 3 If EsRegeneracion Then Estatus = 3
@@ -1044,9 +1044,9 @@ Public Class ClsBancos
End Select End Select
If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then 'If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then
Mensaje += " La cancelación debe de tener documento relacionado" ' Mensaje += " La cancelación debe de tener documento relacionado"
End If 'End If
If Not Mensaje.Length = 0 Then If Not Mensaje.Length = 0 Then
GuardaLog(Mensaje) GuardaLog(Mensaje)
@@ -1061,7 +1061,7 @@ Public Class ClsBancos
Timbre = Timbrado.PreparaTimbrePago(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal, Timbre = Timbrado.PreparaTimbrePago(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal,
RFCCliente, dr("NombreCliente").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago, RFCCliente, dr("NombreCliente").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago,
dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDouble, dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDouble,
UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDouble, dttpagos, CFDIRelacionado:=CFDIRelacionado, EsCancelacion:=EsCancelacion) UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDouble, dttpagos, CFDIRelacionado:=CFDIRelacionado, EsCancelacion:=False)
''PREPARA PARA CANCELACION POR SUSTITUCION DE COMPLEMENTO DE PAGO ''PREPARA PARA CANCELACION POR SUSTITUCION DE COMPLEMENTO DE PAGO
'If CFDIRelacionado <> "-1" And CFDIRelacionado <> "" Then 'If CFDIRelacionado <> "-1" And CFDIRelacionado <> "" Then

6
App_Code/ClsContabilidad.vb
View File

@@ -1211,11 +1211,11 @@ Public Class ClsContabilidad
CveConceptoContable = dr("CveConceptoContable").ToString().ToEntero CveConceptoContable = dr("CveConceptoContable").ToString().ToEntero
Select Case CveConceptoContable Select Case CveConceptoContable
Case 6, 5, 17, 14, 19, 15, 16, 272, 275 Case 6, 5, 17, 14, 19, 15, 16, 272, 275, 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, 315, 316
SigReferencia = dr("CveCompra").ToString.ContaReferencia(TipoContaReferencia.Compra) SigReferencia = dr("CveCompra").ToString.ContaReferencia(TipoContaReferencia.Compra)
Case 2, 4, 1, 13, 61, 62, 63, 8, 9, 91, 251, 226 Case 2, 4, 1, 13, 61, 62, 63, 8, 9, 91, 251, 226, 291, 292, 293, 294, 295, 296
SigReferencia = dr("CveVenta").ToString.ContaReferencia(TipoContaReferencia.Venta) SigReferencia = dr("CveVenta").ToString.ContaReferencia(TipoContaReferencia.Venta)
Case 30, 66, 92 Case 30, 66, 92, 204
SigReferencia = dr("CveIE").ToString.ContaReferencia(TipoContaReferencia.Banco) SigReferencia = dr("CveIE").ToString.ContaReferencia(TipoContaReferencia.Banco)
End Select End Select

3
App_Code/ClsInventarios.vb
View File

@@ -4632,7 +4632,7 @@ Public Class ClsInventarios
#Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO" #Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO"
Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1") As Boolean Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1", Optional Todo As Boolean = False) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ResguardoUniformesRep") DataAdapter("PA_Inv_ResguardoUniformesRep")
@@ -4643,6 +4643,7 @@ Public Class ClsInventarios
.Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
.Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
.Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
.Add("@Todo", SqlDbType.Bit).Value = Todo
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

1
App_Code/ClsPaginas.vb
View File

@@ -3950,6 +3950,7 @@ Public Class ClsPaginas
PaginaDict.Add("/AF/RepServicios.aspx".ToUpper(), -1) PaginaDict.Add("/AF/RepServicios.aspx".ToUpper(), -1)
PaginaDict.Add("/AF/RepDepreciacion.aspx".ToUpper(), -1) PaginaDict.Add("/AF/RepDepreciacion.aspx".ToUpper(), -1)
PaginaDict.Add("/AF/RepEventosProgramados.aspx".ToUpper(), 656) PaginaDict.Add("/AF/RepEventosProgramados.aspx".ToUpper(), 656)
PaginaDict.Add("/AF/RegistroRevision.aspx".ToUpper(), 1251)
#End Region #End Region
'AIMMGM 'AIMMGM
#Region "AIMMGM" #Region "AIMMGM"

9
App_Code/Modelos.vb
View File

@@ -2197,6 +2197,7 @@ Namespace Modelos
Dim ImporteAcumulado91 As Decimal = 0 Dim ImporteAcumulado91 As Decimal = 0
Dim CveUltimaVenta As Integer = 0 Dim CveUltimaVenta As Integer = 0
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
IdCtaContable = 0
If tipoCambio = 1 Then If tipoCambio = 1 Then
IdCtaContable = ObjFactura.Cliente.IdCtaContClientes IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
CveCuenta = ObjFactura.Cliente.CveCuentaClientes CveCuenta = ObjFactura.Cliente.CveCuentaClientes
@@ -2600,8 +2601,12 @@ Namespace Modelos
'CTACONTABLE 'CTACONTABLE
'IdCtaContable = IdCtaContAnticipos 'IdCtaContable = IdCtaContAnticipos
'CveCuenta = CveCuentaAnticipos 'CveCuenta = CveCuentaAnticipos
IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
CveCuenta = ObjFactura.Cliente.CveCuentaClientes If tipoCambio = 1 Then
IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
Else
IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera
End If
CveSubProyectoContabilizar = CveSubProyectoVenta CveSubProyectoContabilizar = CveSubProyectoVenta

22
Bancos/IE.aspx.vb
View File

@@ -2469,17 +2469,25 @@ Partial Class Bancos_IE
'If CveOCSolicitudAnticipo > 0 Then
' If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then
' EsValido = False If CveOCSolicitudAnticipo > 0 Then
' Alert($"El importe del movimiento es mayor al saldo de la orden de compra importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia)
' End If Dim ObjOC As New ClsOC
'End If If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal
Else
SaldoOCAnticipo = 0
End If
ObjOC.Dispose()
If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then
EsValido = False
Alert($"El importe del movimiento es mayor al saldo de la orden de compra importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia)
End If
End If
Return EsValido Return EsValido
End Function End Function
Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs) Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs)

2
Bancos/RepComplementoPago.aspx
View File

@@ -114,7 +114,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvD" runat="server" GridLines="None" <asp:GridView ID="GvD" runat="server" GridLines="None"
DataKeyNames="CobranzaCorreo,CveIE,CveVenta,CveEmpresa,FechaDocumento, PagoAbreviaturaSAT,Folio, ClaveFormaPagoSAT, NumCuenta,Importe, FolioFiscal,VentaSerie,VentaFolio,VentaAbreviaturaSAT, VentaImportePagado,MetodoPago,TipoCambio,NumParcialidad,ImpSaldoInsoluto,ImpSaldoAnterior,RFC,NombreCliente,PorcentajeIVA,PorcentajeIEPS,CuentaBeneficiario,SerieFolioPago,FolioFiscalComplemento" DataKeyNames="CobranzaCorreo,CveIE,CveVenta,CveEmpresa,FechaDocumento, PagoAbreviaturaSAT,Folio, ClaveFormaPagoSAT, NumCuenta,Importe, FolioFiscal,VentaSerie,VentaFolio,VentaAbreviaturaSAT, VentaImportePagado,MetodoPago,TipoCambio,NumParcialidad,ImpSaldoInsoluto,ImpSaldoAnterior,RFC,NombreCliente,PorcentajeIVA,PorcentajeIEPS,CuentaBeneficiario,SerieFolioPago,FolioFiscalComplemento,CveComplementoPago"
CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros"> CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros">
<Columns> <Columns>
<asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Left">

63
Bancos/RepComplementoPago.aspx.vb
View File

@@ -300,23 +300,72 @@ Partial Class Bancos_RepComplementoPago
Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero
Dim SerieFolioPago As String = Gvr.DataKey("SerieFolioPago").ToString Dim SerieFolioPago As String = Gvr.DataKey("SerieFolioPago").ToString
Dim CFDIRelacionado As String = Gvr.DataKey("FolioFiscalComplemento").ToString Dim FolioFiscalCancelar As String = Gvr.DataKey("FolioFiscalComplemento").ToString
Dim CveComplementoPagoCancelar As Integer = Gvr.DataKey("CveComplementoPago").ToEntero
Dim CvePACCancelacion As Integer = UsuarioActual.Empresa.CvePAC
Dim RFCReceptorCancelar As String = Gvr.DataKey("RFC").ToString
If CFDIRelacionado <> "" Then If FolioFiscalCancelar <> "" Then
Dim objBancos As New ClsBancos Dim ObjCancelacion As New Timbrado
Dim ObjBanco As New ClsBancos
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
Alert("El complemento se cancelo correctamente.")
End If
If objBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, CFDIRelacionado, True) Then
Alert($"Complemento {SerieFolioPago} cancelado correctamente.")
Else Else
Alert($"Se presento un error al cancelar el complementob {SerieFolioPago}.", TipoMensaje.MsgError)
If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
Alert("El complemento se cancelo correctamente.")
End If
Else
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
End If
End If End If
objBancos.Dispose() ObjBanco.Dispose()
'Dim objBancos As New ClsBancos
'If objBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, CFDIRelacionado, True) Then
' Alert($"Complemento {SerieFolioPago} cancelado correctamente.")
'Else
' Alert($"Se presento un error al cancelar el complementob {SerieFolioPago}.", TipoMensaje.MsgError)
'End If
'objBancos.Dispose()
End If End If
End Sub End Sub
Function EstatusSATCancelado(FolioFiscal As String, RFCDe As String, RFCReceptor As String) As Boolean
Dim respuesta As Boolean = False
Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, RFCDe, RFCReceptor, "0", True)
If Vigencia IsNot Nothing Then
If Vigencia.Estado.ToUpper = "CANCELADO" Then
respuesta = True
Else
respuesta = False
End If
Else
respuesta = False
End If
Return respuesta
End Function
Protected Sub LnkSendMail_Click(sender As Object, e As EventArgs) Protected Sub LnkSendMail_Click(sender As Object, e As EventArgs)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
HdnSerieFolioPago.Value = gvRow.DataKey("SerieFolioPago").ToString HdnSerieFolioPago.Value = gvRow.DataKey("SerieFolioPago").ToString

46
Compras/Compras.aspx.vb
View File

@@ -5714,7 +5714,7 @@ Partial Class Compras_Compras
importeMovimiento = importeMovimiento / TipoCambioCompra importeMovimiento = importeMovimiento / TipoCambioCompra
End If End If
importeMN = importeMovimiento * TipoCambioCompra * Multiplicador importeMN = importeMovimiento * TipoCambioCompra * Multiplicador
IdCtaContable = CtaProveedor IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor)
CveCuenta = CveCuentaProveedor CveCuenta = CveCuentaProveedor
@@ -5755,11 +5755,7 @@ Partial Class Compras_Compras
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString) CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
'Conta SIG
If CveCuenta = 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
CveCuentaContabilizacion = 0
End If
End If End If
Next Next
@@ -6371,11 +6367,7 @@ Partial Class Compras_Compras
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString) CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
'Conta SIG
If CveCuenta = 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
CveCuentaContabilizacion = 0
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
@@ -6817,7 +6809,7 @@ Partial Class Compras_Compras
If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307
If tipoCambioActual = 1 Then If tipoCambioActual = 1 Then
IdCtaContable = CtaProveedor IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor)
CveCuenta = CveCuentaProveedor CveCuenta = CveCuentaProveedor
Else Else
IdCtaContable = CtaProveedorComplementaria IdCtaContable = CtaProveedorComplementaria
@@ -6860,11 +6852,6 @@ Partial Class Compras_Compras
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
'Conta SIG
If CveCuenta = 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
CveCuentaContabilizacion = 0
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
@@ -7120,11 +7107,6 @@ Partial Class Compras_Compras
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
'Conta SIG
If CveCuenta = 0 Then
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0
End If
'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA 'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
@@ -7457,11 +7439,7 @@ Partial Class Compras_Compras
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0 idCuentaContabilizacion = 0
End If End If
'COnta SIG
If CveCuenta = 0 Then
CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
CveCuentaContabilizacion = 0
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
@@ -16874,14 +16852,8 @@ Partial Class Compras_Compras
'VALIDA IMPORTES 'VALIDA IMPORTES
'VALIDA TOTAL CON LOS IMPORTES TOTALES 'VALIDA TOTAL CON LOS IMPORTES TOTALES
Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double
'Dim TempPorcentajeRetIVA = LblRetIVA.Text.ToDouble / 100
'Dim TempPorcentajeRetISR = LblRetISR.Text.ToDouble / 100
Dim Amortizacion As Decimal = 0
If UsuarioActual.CveEmpresa = 119 Then
Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
End If
Dim Amortizacion As Decimal = 0
Dim TieneAmortizacion As Boolean = False Dim TieneAmortizacion As Boolean = False
If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then
TieneAmortizacion = True TieneAmortizacion = True
@@ -16891,6 +16863,12 @@ Partial Class Compras_Compras
LblAmortizacion.Text = "0.00" LblAmortizacion.Text = "0.00"
End If End If
If UsuarioActual.CveEmpresa = 119 AndAlso TieneAmortizacion Then
Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
End If
TempSubTotal = TxtSubTotal.Text.ToDouble TempSubTotal = TxtSubTotal.Text.ToDouble
SubTotalOriginal = TxtSubTotal.Text.ToDouble SubTotalOriginal = TxtSubTotal.Text.ToDouble
SubTotal2Original = TxtSubTotal2.Text.ToDouble SubTotal2Original = TxtSubTotal2.Text.ToDouble

13
Contabilidad/LibroDiario.aspx.vb
View File

@@ -51,11 +51,12 @@ Partial Class Contabilidad_LibroDiario
InicializaValores() InicializaValores()
If UsuarioActual.Empresa.UsaAC Then BtnConsultar.Enabled = True
BtnConsultar.Enabled = True 'If UsuarioActual.Empresa.UsaAC Then
Else ' BtnConsultar.Enabled = True
Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError) 'Else
End If ' Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
'End If
End If End If
End Sub End Sub
@@ -212,7 +213,6 @@ Partial Class Contabilidad_LibroDiario
#Region " IMPRIMIR " #Region " IMPRIMIR "
#End Region
Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) 'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) 'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
@@ -245,5 +245,6 @@ Partial Class Contabilidad_LibroDiario
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato) ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato)
End Sub End Sub
#End Region
End Class End Class

2
Contabilidad2/RepAnexoCatalogoVertical.aspx.vb
View File

@@ -71,7 +71,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
Private Sub CargaDatos() Private Sub CargaDatos()
Dim Conta As New ClsContabilidad Dim Conta As New ClsContabilidad
If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12) Then
Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0) Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
GvCC.DataSource = Conta.DSResultados.Tables(1) GvCC.DataSource = Conta.DSResultados.Tables(1)

2
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -1663,7 +1663,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Next IndiceInicio Next IndiceInicio
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={-1}" e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then

4
Contabilidad2/RepLibroDiario.aspx
View File

@@ -83,8 +83,8 @@
<asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" GridLines="None" AutoGenerateColumns="False" runat="server"> <asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" GridLines="None" AutoGenerateColumns="False" runat="server">
<Columns> <Columns>
<asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" /> <asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Tipo" DataField="TipoPoliza" /> <asp:BoundField HeaderText="Tipo" DataField="TipoPol" />
<asp:BoundField HeaderText="Poliza" DataField="FolioPoliza" /> <asp:BoundField HeaderText="Poliza" DataField="Folio" />
<asp:BoundField HeaderText="Concepto" DataField="Concepto" /> <asp:BoundField HeaderText="Concepto" DataField="Concepto" />
<asp:BoundField HeaderText="Cuenta" DataField="Codigo" /> <asp:BoundField HeaderText="Cuenta" DataField="Codigo" />
<asp:BoundField HeaderText="Nombre" DataField="Nombre" /> <asp:BoundField HeaderText="Nombre" DataField="Nombre" />

73
Contabilidad2/RepLibroDiario.aspx.vb
View File

@@ -90,28 +90,40 @@ Partial Class Contabilidad2_RepLibroDiario
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
'CABECERA
''CABECERA If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then
'If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then e.Row.Font.Bold = True
' e.Row.Font.Bold = True e.Row.Cells(4).Text = ""
' e.Row.Cells(4).Text = "" e.Row.Cells(4).Visible = False
' e.Row.Cells(5).Text = "" e.Row.Cells(5).Text = ""
' e.Row.Cells(6).Text = "" e.Row.Cells(5).Visible = False
' e.Row.Cells(7).Text = "" e.Row.Cells(6).Text = ""
' e.Row.Cells(8).Text = "" e.Row.Cells(6).Visible = False
' e.Row.CssClass = "SubTotales" ' e.Row.Cells(7).Text = ""
'End If e.Row.Cells(7).Visible = False
e.Row.Cells(8).Text = ""
e.Row.Cells(8).Visible = False
e.Row.Cells(3).ColumnSpan = 6
e.Row.CssClass = "SubTotales" '
End If
'DETALLE 'DETALLE
If e.Row.DBCampo("Codigo") <> "" Then If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 2 Then
e.Row.Cells(0).Text = "" e.Row.Cells(0).Text = ""
e.Row.Cells(1).Text = "" e.Row.Cells(1).Text = ""
e.Row.Cells(2).Text = "" e.Row.Cells(2).Text = ""
e.Row.Cells(3).Text = "" e.Row.Cells(3).Text = ""
If e.Row.DBCampo("TipoMovto") = "True" Then
e.Row.Cells(7).Text = ""
Else
e.Row.Cells(8).Text = ""
End If
'e.Row.Cells(7).Text = If(e.Row.Cells(7).Text.ToEntero() > 0, e.Row.Cells(7).Text, "")
'e.Row.Cells(8).Text = If(e.Row.Cells(8).Text.ToEntero() > 0, e.Row.Cells(8).Text, "")
End If End If
'SUBTOTAL 'SUBTOTAL
If e.Row.DBCampo("Codigo") = "" Then If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 3 Then
e.Row.Font.Bold = True e.Row.Font.Bold = True
e.Row.Cells(0).Text = "" e.Row.Cells(0).Text = ""
e.Row.Cells(1).Text = "" e.Row.Cells(1).Text = ""
@@ -141,4 +153,39 @@ Partial Class Contabilidad2_RepLibroDiario
End If End If
End Sub End Sub
#Region " IMPRIMIR "
Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
'DtDatos = DtDatos
ImprimirReporte()
End Sub
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
'DtDatos = DtDatos
ImprimirReporte("EXCEL")
End Sub
Private Sub ImprimirReporte(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim lista = New List(Of CrystalParametro)
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy")))
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
If Imagen.Exists Then
lista.Add(New CrystalParametro("LogoPath", logouri))
Else
lista.Add(New CrystalParametro("LogoPath", ""))
End If
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato)
End Sub
#End Region
End Class End Class

4
Contratos/Contrato.aspx
View File

@@ -373,7 +373,7 @@
</div> </div>
<div class="portlet-body rowpadding"> <div class="portlet-body rowpadding">
<div class="row" id="trddlproyecto" runat="server"> <div class="row" id="trddlproyecto" runat="server">
<label class="col-md-4 truncate">Proyecto:</label> <asp:Label runat="server" ID="LblProyecto" class="col-md-4 truncate">Proyecto:</asp:Label>
<div class="col-md-8"> <div class="col-md-8">
<asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>
@@ -383,7 +383,7 @@
<div class="row"> <div class="row">
<label class="col-md-4 truncate"> <label class="col-md-4 truncate">
<asp:Label ID="lblsubproyecto" runat="server" Text="SubProyectoContrato:"></asp:Label></label><div class="col-md-8"> <asp:Label ID="lblsubproyecto" runat="server" Text="SubProyectoContrato:"></asp:Label></label><div class="col-md-8">
<asp:DropDownList ID="DdlSubProyectoContrato" runat="server" AppendDataBoundItems="true" AutoPostBack="false" DataTextField="SubProyecto2" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlSubProyectoContrato" runat="server" AppendDataBoundItems="true" AutoPostBack="false" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin SubProyectoContrato asignado" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Sin SubProyectoContrato asignado" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyectoContrato" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyectoContrato" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>

17
Contratos/Contrato.aspx.vb
View File

@@ -1488,14 +1488,15 @@ Partial Class Contratos_Default
#Region "COMBOS - INFO GENERAL" #Region "COMBOS - INFO GENERAL"
Private Sub CargaProyecto() Private Sub CargaProyecto()
If UsuarioActual.Empresa.GralSoloProyecto Then CargarCentrosDeCosto(DdlProyecto, DdlSubProyectoContrato, LblProyecto, lblsubproyecto)
CargaSubProyectoContrato(-1) trddlproyecto.Visible = LblProyecto.Visible
trddlproyecto.Visible = False 'If UsuarioActual.Empresa.GralSoloProyecto Then
lblsubproyecto.Text = "Proyecto" ' CargaSubProyectoContrato(-1)
Else ' lblsubproyecto.Text = "Proyecto"
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'Else
DdlProyecto.DataBind() ' DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
End If ' DdlProyecto.DataBind()
'End If
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero) CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)

4
Contratos/PopUpBuscarContrato.aspx
View File

@@ -70,11 +70,11 @@
</tr> </tr>
<tr style="text-align:left"> <tr style="text-align:left">
<td class="text-right" style="height:25px!important"><asp:Label runat="server" ID="LblProyecto" Text="Proyecto:"/></td> <td class="text-right" style="height:25px!important"><asp:Label runat="server" ID="LblProyecto" Font-Bold="true" Text="Proyecto:"/></td>
<td style="height:25px!important"> <td style="height:25px!important">
<asp:DropDownList ID="DdlProyecto" Height="30px" AutoPostBack="true" Width="150" DataValueField="CveProyecto" DataTextField="Proyecto" runat="server" CssClass="select2me"></asp:DropDownList> <asp:DropDownList ID="DdlProyecto" Height="30px" AutoPostBack="true" Width="150" DataValueField="CveProyecto" DataTextField="Proyecto" runat="server" CssClass="select2me"></asp:DropDownList>
</td> </td>
<td class="text-right" style="height:25px!important"><asp:Label runat="server" ID="LblSubProyecto" Text="SubProyecto:"/></td> <td class="text-right" style="height:25px!important"><asp:Label runat="server" ID="LblSubProyecto" Font-Bold="true" Text="SubProyecto:"/></td>
<td style="height:25px!important"> <td style="height:25px!important">
<asp:DropDownList ID="DdlSubProtecto" Height="30px" Width="150" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="select2me"></asp:DropDownList> <asp:DropDownList ID="DdlSubProtecto" Height="30px" Width="150" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="select2me"></asp:DropDownList>
</td> </td>

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

@@ -6,22 +6,19 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>1.72112cm</Width> <Width>1.14223cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.33244cm</Width> <Width>3.14766cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>7.27452cm</Width> <Width>11.67011cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.70027cm</Width> <Width>2.70027cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.89819cm</Width> <Width>1.73945cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.57864cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -172,7 +169,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Serie Lote</Value> <Value>Serie</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
@@ -253,51 +250,6 @@
</Textbox> </Textbox>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox12">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Batch</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<BackgroundColor>White</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
@@ -314,7 +266,7 @@
<TextRun> <TextRun>
<Value>=Fields!Cantidad.Value</Value> <Value>=Fields!Cantidad.Value</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>8pt</FontSize>
<Format>0;(0)</Format> <Format>0;(0)</Format>
</Style> </Style>
</TextRun> </TextRun>
@@ -347,7 +299,7 @@
<TextRun> <TextRun>
<Value>=Fields!Codigo.Value</Value> <Value>=Fields!Codigo.Value</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -379,7 +331,7 @@
<TextRun> <TextRun>
<Value>=Fields!PS.Value</Value> <Value>=Fields!PS.Value</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -409,7 +361,7 @@
<TextRun> <TextRun>
<Value>=Fields!SerieLote.Value</Value> <Value>=Fields!SerieLote.Value</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -439,7 +391,7 @@
<TextRun> <TextRun>
<Value>=Fields!Lote.Value</Value> <Value>=Fields!Lote.Value</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -458,36 +410,6 @@
</Textbox> </Textbox>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Batch">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!Batch.Value</Value>
<Style>
<FontSize>10.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Batch</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>=IIf(RowNumber(Nothing)=1,"1pt","0pt")</PaddingTop>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
</TablixRows> </TablixRows>
@@ -503,11 +425,6 @@
<Hidden>=IIF(String.IsNullOrEmpty(Fields!Lote.Value), True,False)</Hidden> <Hidden>=IIF(String.IsNullOrEmpty(Fields!Lote.Value), True,False)</Hidden>
</Visibility> </Visibility>
</TablixMember> </TablixMember>
<TablixMember>
<Visibility>
<Hidden>=IIF(String.IsNullOrEmpty(Fields!Batch.Value), True,False)</Hidden>
</Visibility>
</TablixMember>
</TablixMembers> </TablixMembers>
</TablixColumnHierarchy> </TablixColumnHierarchy>
<TablixRowHierarchy> <TablixRowHierarchy>
@@ -524,7 +441,7 @@
<Top>0.17639cm</Top> <Top>0.17639cm</Top>
<Left>0.22456cm</Left> <Left>0.22456cm</Left>
<Height>1.11096cm</Height> <Height>1.11096cm</Height>
<Width>17.50518cm</Width> <Width>20.39971cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -567,7 +484,7 @@
<Height>0.82291in</Height> <Height>0.82291in</Height>
<Style /> <Style />
</Body> </Body>
<Width>7.06771in</Width> <Width>8.11979in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>4.11151cm</Height> <Height>4.11151cm</Height>
@@ -593,7 +510,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName> <rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.28677cm</Top> <Top>0.28677cm</Top>
<Left>3.73711cm</Left> <Left>4.37211cm</Left>
<Height>0.67056cm</Height> <Height>0.67056cm</Height>
<Width>8.97552cm</Width> <Width>8.97552cm</Width>
<Style> <Style>
@@ -625,7 +542,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox34</rd:DefaultName> <rd:DefaultName>Textbox34</rd:DefaultName>
<Top>1.02789cm</Top> <Top>1.02789cm</Top>
<Left>3.73711cm</Left> <Left>4.37211cm</Left>
<Height>0.95277cm</Height> <Height>0.95277cm</Height>
<Width>8.10916cm</Width> <Width>8.10916cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -804,7 +721,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.35028cm</Top> <Top>0.35028cm</Top>
<Left>12.99791cm</Left> <Left>13.63291cm</Left>
<Height>0.89103cm</Height> <Height>0.89103cm</Height>
<Width>2.06494cm</Width> <Width>2.06494cm</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
@@ -840,7 +757,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName> <rd:DefaultName>Textbox31</rd:DefaultName>
<Top>0.31501cm</Top> <Top>0.31501cm</Top>
<Left>15.06284cm</Left> <Left>15.69784cm</Left>
<Height>0.9263cm</Height> <Height>0.9263cm</Height>
<Width>2.57165cm</Width> <Width>2.57165cm</Width>
<ZIndex>8</ZIndex> <ZIndex>8</ZIndex>
@@ -872,7 +789,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Top>3.09701cm</Top> <Top>3.09701cm</Top>
<Left>12.33674cm</Left> <Left>12.65424cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>1.80326cm</Width> <Width>1.80326cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
@@ -893,7 +810,9 @@
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!Almacen.Value</Value> <Value>=Parameters!Almacen.Value</Value>
<Style /> <Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
@@ -903,9 +822,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName> <rd:DefaultName>Textbox6</rd:DefaultName>
<Top>2.34505cm</Top> <Top>2.34505cm</Top>
<Left>14.14cm</Left> <Left>14.4575cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>3.65324cm</Width> <Width>5.9022cm</Width>
<ZIndex>10</ZIndex> <ZIndex>10</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -926,6 +845,7 @@
<TextRun> <TextRun>
<Value>=Parameters!Fecha.Value</Value> <Value>=Parameters!Fecha.Value</Value>
<Style> <Style>
<FontSize>8pt</FontSize>
<Format>d</Format> <Format>d</Format>
</Style> </Style>
</TextRun> </TextRun>
@@ -937,9 +857,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName> <rd:DefaultName>Textbox32</rd:DefaultName>
<Top>3.09701cm</Top> <Top>3.09701cm</Top>
<Left>14.14cm</Left> <Left>14.4575cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>3.65324cm</Width> <Width>5.9022cm</Width>
<ZIndex>11</ZIndex> <ZIndex>11</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -969,7 +889,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>2.34505cm</Top> <Top>2.34505cm</Top>
<Left>12.33674cm</Left> <Left>12.65424cm</Left>
<Height>0.59999cm</Height> <Height>0.59999cm</Height>
<Width>1.80326cm</Width> <Width>1.80326cm</Width>
<ZIndex>12</ZIndex> <ZIndex>12</ZIndex>
@@ -1337,6 +1257,12 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="DomicilioFiscal">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>e6b08487-acfe-4020-a8f2-f9a54953646f</rd:ReportID> <rd:ReportID>e6b08487-acfe-4020-a8f2-f9a54953646f</rd:ReportID>

4359
Empresas/Grales/Formatos/EntradasSalidas.rdlc
View File

File diff suppressed because it is too large Load Diff

BIN
Empresas/Grales/Formatos/LibroDiario.rpt
View File

Binary file not shown.

2359
Empresas/Grales/Formatos/RepUniformesResguardo.rdlc
View File

File diff suppressed because it is too large Load Diff

4
Inventarios/Apartados.aspx
View File

@@ -397,11 +397,11 @@
<%--GV DATOS APARTADOS--%> <%--GV DATOS APARTADOS--%>
<div class="row"> <div class="row">
<div class="col-md-10 col-md-offset-1"> <div class="col-md-12 col-md-offset-1">
<asp:UpdatePanel runat="server" ID="UpDatosDesapartado" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpDatosDesapartado" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div style="max-height: 300px; overflow-y: auto;"> <div style="max-height: 300px; overflow-y: auto;">
<asp:GridView ID="GvDatosDesapartado" DataKeyNames="CvePS,CveUM,CveMovimientoDetalle,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,PU,Cantidad,AplicaSeccion,AplicaSerie" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró mercancía apartada" ToolTip="Listado de Movimientos" CssClass="Widthall table table-striped table-hover" GridLines="None"> <asp:GridView ID="GvDatosDesapartado" DataKeyNames="CvePS,CveUM,CveMovimientoDetalle,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,PU,Cantidad,AplicaSeccion,AplicaSerie" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró mercancía apartada" CssClass="Widthall table table-striped table-hover" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="#" DataField="No" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" ItemStyle-Font-Size="6pt" /> <asp:BoundField HeaderText="#" DataField="No" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" ItemStyle-Font-Size="6pt" />
<asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />

2
Inventarios/CatAlmacenClasificacionSecciones.aspx
View File

@@ -24,7 +24,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSeccionClasificacion,CveAlmacen,CveClasificacion,CveClasificacionDetalle,CveMarca,CveSeccionAlmacen,Almacen,Clasificacion,ClasificacionDetalle,Marca,SeccionAlmacen" <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSeccionClasificacion,CveAlmacen,CveClasificacion,CveClasificacionDetalle,CveMarca,CveSeccionAlmacen,Almacen,Clasificacion,ClasificacionDetalle,Marca,SeccionAlmacen"
EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" EmptyDataText="No se encontraron registros" ToolTip="" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%"
GridLines="None"> GridLines="None">
<Columns> <Columns>
<asp:BoundField DataField="Almacen" HeaderText="Almacén" /> <asp:BoundField DataField="Almacen" HeaderText="Almacén" />

11
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -779,7 +779,7 @@ Partial Class Inventarios_EntradasSalidas
'Carga Cliente y ClienteSucursal 'Carga Cliente y ClienteSucursal
If Mov.CveCliente > 0 Then If Mov.CveCliente > 0 Then
If DdlClientes.Items.FindByValue(Mov.CveCliente.ToString()) Is Nothing Then If DdlClientes.Items.FindByValue(Mov.CveCliente.ToString()) Is Nothing Then
Dim dr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=Mov.CveCliente).FiltroPrimero("") Dim dr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=Mov.CveCliente, Estatus:=-1).FiltroPrimero("")
If dr IsNot Nothing Then If dr IsNot Nothing Then
DdlClientes.Items.Insert(0, New ListItem(dr("NombreComercial").ToString, dr("CveCliente").ToString)) DdlClientes.Items.Insert(0, New ListItem(dr("NombreComercial").ToString, dr("CveCliente").ToString))
End If End If
@@ -790,6 +790,15 @@ Partial Class Inventarios_EntradasSalidas
End If End If
'carga personal
If Mov.CvePersonal > 0 Then
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=Mov.CvePersonal)
DdlPersonal.DataBind()
DdlPersonal.SelectedValueExist(Mov.CvePersonal)
DdlPersonal.Enabled = False
TrPersonal.Visible = True
End If
If Mov.CveClienteSucursal > 0 Then If Mov.CveClienteSucursal > 0 Then
CambiaCliente() CambiaCliente()

10
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2128,6 +2128,8 @@ Partial Class Inventarios_EntregaAlmacen
CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero
If Not CveMovimientoSalida > 0 Then If Not CveMovimientoSalida > 0 Then
CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G3") CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G3")
@@ -2149,6 +2151,12 @@ Partial Class Inventarios_EntregaAlmacen
DtTraspasos.Rows.Add(DrMovto) DtTraspasos.Rows.Add(DrMovto)
End If End If
Dim CveSeccionAlmacen As Integer = -1
If CBool(Dr("AplicaSeccion")) Then
CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
Else
CveSeccionAlmacen = -1
End If
CantidadPendiente = If(Dr1("ExistenciaFinal").ToString.ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("ExistenciaFinal").ToString.ToDecimal) CantidadPendiente = If(Dr1("ExistenciaFinal").ToString.ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("ExistenciaFinal").ToString.ToDecimal)
@@ -2157,7 +2165,7 @@ Partial Class Inventarios_EntregaAlmacen
CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero,
FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha),
Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"),
CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then CveSeccionAlmacen:=CveSeccionAlmacen) Then
ErrorMovInv = True ErrorMovInv = True
TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.") TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
Exit For Exit For

2
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -164,7 +164,7 @@ Partial Class Inventarios_Default
UPDatos.Update() UPDatos.Update()
TblBusqueda.Visible = True TblBusqueda.Visible = True
Else Else
Alert("Seleccione un producto o servicio", TipoMensaje.MsgAdvertencia) Alert("Seleccione un producto", TipoMensaje.MsgAdvertencia)
End If End If
End Sub End Sub
Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound

4
Inventarios/RepNotasSinAlmacen.aspx
View File

@@ -71,7 +71,7 @@
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
Reporte de Compras / Notas Sin Entrada Reporte de Compras Sin Entrada-Ventas Sin Salida
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
@@ -139,7 +139,7 @@
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div>--%> </div>--%>
<div class="col-md-1 truncate" id="DivSubProyecto" runat="server" style="text-align: right!important;">Proyecto:</div> <div class="col-md-1 truncate" id="DivSubProyecto" runat="server" style="text-align: right!important;"><asp:Label runat="server" ID="LblSubProyecto" text="Proyecto" /></div>
<div class="col-md-1" id="DivSubProyecto2" runat="server"> <div class="col-md-1" id="DivSubProyecto2" runat="server">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px"> <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px">
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>

11
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -93,12 +93,13 @@ Partial Class RepNotasSinAlmacen
'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa) 'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa)
'DdlSucursal.DataBind() 'DdlSucursal.DataBind()
DdlSubProyecto.Items.Clear() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
DdlSubProyecto.SelectedValue = Nothing 'DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1) 'DdlSubProyecto.SelectedValue = Nothing
DdlSubProyecto.DataBind() 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
'DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) 'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
End Sub End Sub
Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click

2
LogIn.aspx.vb
View File

@@ -266,7 +266,7 @@ Partial Class LogIn
userm.Nombre = Usuario.Nombre userm.Nombre = Usuario.Nombre
userm.Contraseña = Usuario.Contraseña userm.Contraseña = Usuario.Contraseña
userm.CvePerfil = Usuario.CveRol userm.CvePerfil = Usuario.CveRol
userm.CveEmpresa = 119 'Usuario.CveEmpresa userm.CveEmpresa = 1 'Usuario.CveEmpresa
userm.CveUsuarioModifico = Usuario.CveEmpresa userm.CveUsuarioModifico = Usuario.CveEmpresa
userm.CveUsuarioRegistro = Usuario.CveEmpresa userm.CveUsuarioRegistro = Usuario.CveEmpresa
RegistraScript(String.Format("opennewlocation('{0}','{1}')", ReturnUrl, GenerateJSONWebToken(userm))) RegistraScript(String.Format("opennewlocation('{0}','{1}')", ReturnUrl, GenerateJSONWebToken(userm)))

18
RH/Personal.aspx
View File

@@ -766,13 +766,13 @@
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-user-following font-green"></i> <i class="icon-user-following font-green"></i>
<span class="caption-subject bold uppercase">Uniforme:</span> <span class="caption-subject bold uppercase">Resguardos:</span>
</div> </div>
<div class="actions"> <div class="actions">
<div class="btn-group"> <div class="btn-group">
<asp:UpdatePanel ID="UpBtnUniformes" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpBtnUniformes" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkSurtir" runat="server" PostBackUrl="" CssClass="btn btn-circle btn-sm blue"><i class="fa fa-th" aria-hidden="true"></i> Surtir Uniforme</asp:LinkButton> <asp:LinkButton ID="LnkSurtir" runat="server" PostBackUrl="" CssClass="btn btn-circle btn-sm blue"><i class="fa fa-th" aria-hidden="true"></i> Resguardar </asp:LinkButton>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
@@ -783,7 +783,7 @@
<div class="col-md-12 form-group form-md-line-input input-iconright"> <div class="col-md-12 form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlUniforme" AutoPostBack="true" runat="server" CssClass="form-control input-sm select2me js-referencia-programmatic marginFixRow" Width="200px" AppendDataBoundItems="true" DataTextField="Uniforme" DataValueField="CveUniforme"> <asp:DropDownList ID="DdlUniforme" AutoPostBack="true" runat="server" CssClass="form-control input-sm select2me js-referencia-programmatic marginFixRow" Width="200px" AppendDataBoundItems="true" DataTextField="Uniforme" DataValueField="CveUniforme">
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlUniforme.ClientID.ToString()%>">Uniforme: </label> <label for="<%= DdlUniforme.ClientID.ToString()%>">Resguardos: </label>
</div> </div>
<br /> <br />
@@ -1288,7 +1288,7 @@
<asp:DropDownList ID="DdlRegimenContratacion" runat="server" AppendDataBoundItems="true" DataTextField="RegimenContratacion" CssClass="form-control input-sm select2me" DataValueField="CveSATRegimenContratacion" ValidationGroup="GrpGuardar"> <asp:DropDownList ID="DdlRegimenContratacion" runat="server" AppendDataBoundItems="true" DataTextField="RegimenContratacion" CssClass="form-control input-sm select2me" DataValueField="CveSATRegimenContratacion" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlRegimenContratacion" Text="Régimen Contratación:"></asp:Label> <asp:Label runat="server" AssociatedControlID="DdlRegimenContratacion" Text="Mail recibo nómina:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVRegimenContratacion" runat="server" ControlToValidate="DdlRegimenContratacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Régimen Contratación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVRegimenContratacion" runat="server" ControlToValidate="DdlRegimenContratacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Régimen Contratación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
@@ -2193,11 +2193,11 @@
<asp:BoundField Visible="true" DataField="InicioPeriodo" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Inicio Periodo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField Visible="true" DataField="InicioPeriodo" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Inicio Periodo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField Visible="true" DataField="FinPeriodo" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Fin Periodo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField Visible="true" DataField="FinPeriodo" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Fin Periodo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField Visible="true" DataField="Anios" HeaderText="Años" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField Visible="true" DataField="Anios" HeaderText="Años" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField Visible="true" DataField="Dias" HeaderText="Dias" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField Visible="true" DataField="Dias" HeaderText="Días" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField Visible="true" DataField="DiasUsados" HeaderText="Usados" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField Visible="true" DataField="DiasUsados" HeaderText="Usados" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField Visible="true" DataField="DiasCancelados" HeaderText="Cancelados" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField Visible="true" DataField="DiasCancelados" HeaderText="Cancelados" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField Visible="true" DataField="DiasVencidos" HeaderText="Vencidos" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField Visible="true" DataField="DiasVencidos" HeaderText="Vencidos" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField Visible="true" DataField="DiasDisponibles" HeaderText="Dias Disponibles" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField Visible="true" DataField="DiasDisponibles" HeaderText="Días Disponibles" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
@@ -2412,7 +2412,7 @@
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns> <Columns>
<asp:BoundField Visible="true" DataField="Periodo" HeaderText="Periodo" HeaderStyle-Width="80" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField Visible="true" DataField="Periodo" HeaderText="Periodo" HeaderStyle-Width="80" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField Visible="true" DataField="Dias" HeaderText="días" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField Visible="true" DataField="Dias" HeaderText="Días" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField Visible="true" DataField="Autorizo" ItemStyle-CssClass="truncate" HeaderText="Autorizo" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField Visible="true" DataField="Autorizo" ItemStyle-CssClass="truncate" HeaderText="Autorizo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField Visible="true" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" HeaderText="FechaIng" HeaderStyle-Width="80" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField Visible="true" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" HeaderText="FechaIng" HeaderStyle-Width="80" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField Visible="true" DataField="Usuario" HeaderText="Usuario" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField Visible="true" DataField="Usuario" HeaderText="Usuario" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
@@ -2471,8 +2471,8 @@
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns> <Columns>
<asp:BoundField Visible="true" DataField="Descripcion" HeaderText="Descripcion" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField Visible="true" DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField Visible="true" DataField="FechaInicio" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Fech Inicio" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField Visible="true" DataField="FechaInicio" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Fecha Inicio" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField Visible="true" DataField="FechaFin" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Fecha Fin" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField Visible="true" DataField="FechaFin" DataFormatString="{0:dd/MM/yyyy}" HeaderText="Fecha Fin" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField Visible="false" DataField="HoraEntrada" HeaderText="Fecha Fin" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField Visible="false" DataField="HoraEntrada" HeaderText="Fecha Fin" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField Visible="false" DataField="HoraSalida" HeaderText="Fecha Fin" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField Visible="false" DataField="HoraSalida" HeaderText="Fecha Fin" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />

6
RH/Personal.aspx.vb
View File

@@ -5168,15 +5168,15 @@ Partial Class RH_Personal
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
ObjInventario.IniciaTransacSQL() ObjInventario.IniciaTransacSQL()
Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme) Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoUniforme, Observaciones:=DescripcionUniforme, Modulo:="RHLibResg")
Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme) Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme) Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveResultadoSalida, Modulo:="RHLibResg2")
Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen) Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen)
If ResultadoDetalleSalida And ResultadoDetalleEntrada Then If ResultadoDetalleSalida And ResultadoDetalleEntrada Then
ObjInventario.Commit() ObjInventario.Commit()
Alert("Uniforme liberado") Alert("Resguardo liberado correctamente")
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme")) RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme"))
CargaUniformesPersonal() CargaUniformesPersonal()
Else Else

2
RH/RepUniformesResguardo.aspx
View File

@@ -5,7 +5,7 @@
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
Reporte de Uniformes Reporte de Resguardo
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">

2
RH/RepUniformesResguardo.aspx.vb
View File

@@ -63,7 +63,7 @@ Partial Class RH_RepUniformesResguardo
If dfecha.Year > 1900 Then If dfecha.Year > 1900 Then
strFechaFin = dfecha.ToString("yyyy/MM/dd") strFechaFin = dfecha.ToString("yyyy/MM/dd")
End If End If
If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero, FechaInicio:=strFechaInicio, FechaFin:=strFechaFin) Then If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero, FechaInicio:=strFechaInicio, FechaFin:=strFechaFin, Todo:=False) Then
GvUniformes.DataSource = ObjInv.DtResultados GvUniformes.DataSource = ObjInv.DtResultados
DTDatos = ObjInv.DtResultados DTDatos = ObjInv.DtResultados
Else Else

12
Ventas/RepAnticiposEspeciales.aspx
View File

@@ -184,6 +184,18 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
&nbsp;<asp:Literal runat="server" Text='<%# Eval("Saldo", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="% Por Amortizar" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
&nbsp;<asp:Literal runat="server" Text='<%# Eval("PorcentajePorAmortizar", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Moneda"> <asp:TemplateField HeaderText="Moneda">
<ItemTemplate> <ItemTemplate>
<asp:Literal runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal> <asp:Literal runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>

2
vwd.webinfo
View File

@@ -84,6 +84,8 @@