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
End Function
#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 "

14
App_Code/ClsBancos.vb
View File

@@ -943,7 +943,7 @@ Public Class ClsBancos
#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
Dim Serie As String = "Pag"
@@ -954,11 +954,11 @@ Public Class ClsBancos
Dim dttpagos As DataTable = 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")
dttpagos = DtResultados.FiltraParametros("CveVenta > 0")
End If
If EsCancelacion Then Estatus = 2
'If EsCancelacion Then Estatus = 2
If EsRegeneracion Then Estatus = 3
@@ -1044,9 +1044,9 @@ Public Class ClsBancos
End Select
If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then
Mensaje += " La cancelación debe de tener documento relacionado"
End If
'If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then
' Mensaje += " La cancelación debe de tener documento relacionado"
'End If
If Not Mensaje.Length = 0 Then
GuardaLog(Mensaje)
@@ -1061,7 +1061,7 @@ Public Class ClsBancos
Timbre = Timbrado.PreparaTimbrePago(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal,
RFCCliente, dr("NombreCliente").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago,
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
'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
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)
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)
Case 30, 66, 92
Case 30, 66, 92, 204
SigReferencia = dr("CveIE").ToString.ContaReferencia(TipoContaReferencia.Banco)
End Select

3
App_Code/ClsInventarios.vb
View File

@@ -4632,7 +4632,7 @@ Public Class ClsInventarios
#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
DataAdapter("PA_Inv_ResguardoUniformesRep")
@@ -4643,6 +4643,7 @@ Public Class ClsInventarios
.Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
.Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
.Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
.Add("@Todo", SqlDbType.Bit).Value = Todo
End With
Try
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/RepDepreciacion.aspx".ToUpper(), -1)
PaginaDict.Add("/AF/RepEventosProgramados.aspx".ToUpper(), 656)
PaginaDict.Add("/AF/RegistroRevision.aspx".ToUpper(), 1251)
#End Region
'AIMMGM
#Region "AIMMGM"

9
App_Code/Modelos.vb
View File

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

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
' 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)
If CveOCSolicitudAnticipo > 0 Then
' End If
'End If
Dim ObjOC As New ClsOC
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
End Function
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">
<ContentTemplate>
<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">
<Columns>
<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 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
Dim objBancos As New ClsBancos
If FolioFiscalCancelar <> "" Then
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
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
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 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)
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
HdnSerieFolioPago.Value = gvRow.DataKey("SerieFolioPago").ToString

46
Compras/Compras.aspx.vb
View File

@@ -5714,7 +5714,7 @@ Partial Class Compras_Compras
importeMovimiento = importeMovimiento / TipoCambioCompra
End If
importeMN = importeMovimiento * TipoCambioCompra * Multiplicador
IdCtaContable = CtaProveedor
IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor)
CveCuenta = CveCuentaProveedor
@@ -5755,11 +5755,7 @@ Partial Class Compras_Compras
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
idCuentaContabilizacion = 0
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
Next
@@ -6371,11 +6367,7 @@ Partial Class Compras_Compras
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
idCuentaContabilizacion = 0
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
ErrorPrepoliza = True
End If
@@ -6817,7 +6809,7 @@ Partial Class Compras_Compras
If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307
If tipoCambioActual = 1 Then
IdCtaContable = CtaProveedor
IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor)
CveCuenta = CveCuentaProveedor
Else
IdCtaContable = CtaProveedorComplementaria
@@ -6860,11 +6852,6 @@ Partial Class Compras_Compras
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0
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
ErrorPrepoliza = True
@@ -7120,11 +7107,6 @@ Partial Class Compras_Compras
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0
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
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)
idCuentaContabilizacion = 0
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
ErrorPrepoliza = True
@@ -16874,14 +16852,8 @@ Partial Class Compras_Compras
'VALIDA IMPORTES
'VALIDA TOTAL CON LOS IMPORTES TOTALES
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
If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then
TieneAmortizacion = True
@@ -16891,6 +16863,12 @@ Partial Class Compras_Compras
LblAmortizacion.Text = "0.00"
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
SubTotalOriginal = TxtSubTotal.Text.ToDouble
SubTotal2Original = TxtSubTotal2.Text.ToDouble

13
Contabilidad/LibroDiario.aspx.vb
View File

@@ -51,11 +51,12 @@ Partial Class Contabilidad_LibroDiario
InicializaValores()
If UsuarioActual.Empresa.UsaAC Then
BtnConsultar.Enabled = True
Else
Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
End If
BtnConsultar.Enabled = True
'If UsuarioActual.Empresa.UsaAC Then
' BtnConsultar.Enabled = True
'Else
' Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
'End If
End If
End Sub
@@ -212,7 +213,6 @@ Partial Class Contabilidad_LibroDiario
#Region " IMPRIMIR "
#End Region
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)
@@ -245,5 +245,6 @@ Partial Class Contabilidad_LibroDiario
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato)
End Sub
#End Region
End Class

2
Contabilidad2/RepAnexoCatalogoVertical.aspx.vb
View File

@@ -71,7 +71,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
Private Sub CargaDatos()
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)
GvCC.DataSource = Conta.DSResultados.Tables(1)

2
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -1663,7 +1663,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
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

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">
<Columns>
<asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Tipo" DataField="TipoPoliza" />
<asp:BoundField HeaderText="Poliza" DataField="FolioPoliza" />
<asp:BoundField HeaderText="Tipo" DataField="TipoPol" />
<asp:BoundField HeaderText="Poliza" DataField="Folio" />
<asp:BoundField HeaderText="Concepto" DataField="Concepto" />
<asp:BoundField HeaderText="Cuenta" DataField="Codigo" />
<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
If e.Row.RowType = DataControlRowType.DataRow Then
''CABECERA
'If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then
' e.Row.Font.Bold = True
' e.Row.Cells(4).Text = ""
' e.Row.Cells(5).Text = ""
' e.Row.Cells(6).Text = ""
' e.Row.Cells(7).Text = ""
' e.Row.Cells(8).Text = ""
' e.Row.CssClass = "SubTotales" '
'End If
'CABECERA
If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then
e.Row.Font.Bold = True
e.Row.Cells(4).Text = ""
e.Row.Cells(4).Visible = False
e.Row.Cells(5).Text = ""
e.Row.Cells(5).Visible = False
e.Row.Cells(6).Text = ""
e.Row.Cells(6).Visible = False
e.Row.Cells(7).Text = ""
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
If e.Row.DBCampo("Codigo") <> "" Then
If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 2 Then
e.Row.Cells(0).Text = ""
e.Row.Cells(1).Text = ""
e.Row.Cells(2).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
'SUBTOTAL
If e.Row.DBCampo("Codigo") = "" Then
If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 3 Then
e.Row.Font.Bold = True
e.Row.Cells(0).Text = ""
e.Row.Cells(1).Text = ""
@@ -141,4 +153,39 @@ Partial Class Contabilidad2_RepLibroDiario
End If
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

4
Contratos/Contrato.aspx
View File

@@ -373,7 +373,7 @@
</div>
<div class="portlet-body rowpadding">
<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">
<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>
@@ -383,7 +383,7 @@
<div class="row">
<label class="col-md-4 truncate">
<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: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>

17
Contratos/Contrato.aspx.vb
View File

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

4
Contratos/PopUpBuscarContrato.aspx
View File

@@ -70,11 +70,11 @@
</tr>
<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">
<asp:DropDownList ID="DdlProyecto" Height="30px" AutoPostBack="true" Width="150" DataValueField="CveProyecto" DataTextField="Proyecto" runat="server" CssClass="select2me"></asp:DropDownList>
</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">
<asp:DropDownList ID="DdlSubProtecto" Height="30px" Width="150" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="select2me"></asp:DropDownList>
</td>

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

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

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--%>
<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">
<ContentTemplate>
<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>
<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" />

2
Inventarios/CatAlmacenClasificacionSecciones.aspx
View File

@@ -24,7 +24,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<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">
<Columns>
<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
If Mov.CveCliente > 0 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
DdlClientes.Items.Insert(0, New ListItem(dr("NombreComercial").ToString, dr("CveCliente").ToString))
End If
@@ -790,6 +790,15 @@ Partial Class Inventarios_EntradasSalidas
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
CambiaCliente()

10
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2128,6 +2128,8 @@ Partial Class Inventarios_EntregaAlmacen
CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero
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,
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")
@@ -2149,6 +2151,12 @@ Partial Class Inventarios_EntregaAlmacen
DtTraspasos.Rows.Add(DrMovto)
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)
@@ -2157,7 +2165,7 @@ Partial Class Inventarios_EntregaAlmacen
CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero,
FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha),
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
TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
Exit For

2
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

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

4
Inventarios/RepNotasSinAlmacen.aspx
View File

@@ -71,7 +71,7 @@
</style>
</asp:Content>
<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 ID="Content3" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
@@ -139,7 +139,7 @@
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</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">
<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>

11
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -93,12 +93,13 @@ Partial Class RepNotasSinAlmacen
'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa)
'DdlSucursal.DataBind()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.SelectedValue = Nothing
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataBind()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
'DdlSubProyecto.Items.Clear()
'DdlSubProyecto.SelectedValue = Nothing
'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
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.Contraseña = Usuario.Contraseña
userm.CvePerfil = Usuario.CveRol
userm.CveEmpresa = 119 'Usuario.CveEmpresa
userm.CveEmpresa = 1 'Usuario.CveEmpresa
userm.CveUsuarioModifico = Usuario.CveEmpresa
userm.CveUsuarioRegistro = Usuario.CveEmpresa
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="caption font-green">
<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 class="actions">
<div class="btn-group">
<asp:UpdatePanel ID="UpBtnUniformes" runat="server" UpdateMode="Conditional">
<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>
</asp:UpdatePanel>
</div>
@@ -783,7 +783,7 @@
<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>
<label for="<%= DdlUniforme.ClientID.ToString()%>">Uniforme: </label>
<label for="<%= DdlUniforme.ClientID.ToString()%>">Resguardos: </label>
</div>
<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:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</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>
<i></i>
</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="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="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="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="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>
</asp:GridView>
</ContentTemplate>
@@ -2412,7 +2412,7 @@
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns>
<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="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" />
@@ -2471,8 +2471,8 @@
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns>
<asp:BoundField Visible="true" DataField="Descripcion" HeaderText="Descripcion" 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="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
<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="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" />

6
RH/Personal.aspx.vb
View File

@@ -5168,15 +5168,15 @@ Partial Class RH_Personal
Dim ObjInventario As New ClsInventarios
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 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)
If ResultadoDetalleSalida And ResultadoDetalleEntrada Then
ObjInventario.Commit()
Alert("Uniforme liberado")
Alert("Resguardo liberado correctamente")
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme"))
CargaUniformesPersonal()
Else

2
RH/RepUniformesResguardo.aspx
View File

@@ -5,7 +5,7 @@
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
Reporte de Uniformes
Reporte de Resguardo
</asp:Content>
<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
strFechaFin = dfecha.ToString("yyyy/MM/dd")
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
DTDatos = ObjInv.DtResultados
Else

12
Ventas/RepAnticiposEspeciales.aspx
View File

@@ -184,6 +184,18 @@
</ItemTemplate>
</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">
<ItemTemplate>
<asp:Literal runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>

2
vwd.webinfo
View File

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