Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -253,7 +253,7 @@ Public Class ClsContabilidad
|
||||
|
||||
Public Function UpdatePrepolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
|
||||
Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1,
|
||||
Optional Referencia As String = "-1") As Boolean
|
||||
Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -274,6 +274,7 @@ Public Class ClsContabilidad
|
||||
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
|
||||
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
|
||||
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
||||
End With
|
||||
|
||||
Try
|
||||
@@ -1360,7 +1361,7 @@ Public Class ClsContabilidad
|
||||
End If
|
||||
|
||||
If Not OcurrioError Then
|
||||
If Not UpdatePrePoliza(Fecha, ObjConta.Folio, CveTipoPoliza, tIdPoliza, CvePrePoliza, Empresa.CveEmpresa) Then
|
||||
If Not UpdatePrePoliza(Fecha, ObjConta.Folio, CveTipoPoliza, tIdPoliza, CvePrePoliza, Empresa.CveEmpresa, CveUsuarioModifico:=CveUsuario) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
End If
|
||||
@@ -1506,7 +1507,8 @@ Public Class ClsContabilidad
|
||||
End Function
|
||||
|
||||
|
||||
Public Function UpdatePrePoliza(FechaConta As Date, FolioPoliza As Integer, CveTipoPoliza As Integer, IdPoliza As Integer, CvePrePoliza As Integer, CveEmpresa As Integer, Optional Concepto As String = "-1", Optional FechaPoliza As Date = MinFecha, Optional xxx As Integer = -1) As Boolean
|
||||
Public Function UpdatePrePoliza(FechaConta As Date, FolioPoliza As Integer, CveTipoPoliza As Integer, IdPoliza As Integer, CvePrePoliza As Integer, CveEmpresa As Integer,
|
||||
Optional Concepto As String = "-1", Optional FechaPoliza As Date = MinFecha, Optional xxx As Integer = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -1521,6 +1523,7 @@ Public Class ClsContabilidad
|
||||
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
|
||||
.Add("@Concepto", SqlDbType.VarChar).Value = Concepto
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -2410,7 +2410,7 @@ Public Class ClsGenerales
|
||||
Public Function GetHistorialBitacora(CveAcarreo As Integer, CveOrdenCompra As Integer, CveActivoFijo As Integer,
|
||||
CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer,
|
||||
CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1,
|
||||
Optional IdPoliza As Integer = -1) As Boolean
|
||||
Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Gral_HistorialBitacoraGet")
|
||||
|
||||
@@ -2422,6 +2422,7 @@ Public Class ClsGenerales
|
||||
.Add("@CvePS", SqlDbType.Int).Value = CvePS
|
||||
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra
|
||||
.Add("@CveIE", SqlDbType.Int).Value = CveIE
|
||||
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
|
||||
|
||||
@@ -319,7 +319,7 @@ Public Class ClsMovimientos
|
||||
End Function
|
||||
|
||||
Public Function GetCxCDetalle(FechaI As String, FechaF As String, CveCliente As Integer, CveSubProyecto As Integer, CveVendedor As Integer, CveUsuario As Integer, Anio As Integer, Mes As Integer,
|
||||
AnioMes As String, Fecha As String, CveClienteSucursal As Integer, Opcion As String, CveEstatus As Integer, IVA As String, Agrupador As Integer, CveEmpresa As Integer,
|
||||
AnioMes As String, Fecha As String, CveClienteSucursal As Integer, Opcion As String, CveEstatus As Integer, IVA As String, Agrupador As Integer, CveEmpresa As Integer,
|
||||
CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
|
||||
Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
|
||||
Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1,
|
||||
@@ -361,10 +361,10 @@ Public Class ClsMovimientos
|
||||
.Add("@CveCobranzaEstatus", SqlDbType.Int).Value = CveCobranzaEstatus
|
||||
.Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
|
||||
.Add("@LimiteCredito", SqlDbType.Float).Value = LimiteCredito
|
||||
.Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
|
||||
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
|
||||
.Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
|
||||
|
||||
.Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
|
||||
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
|
||||
.Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
@@ -545,7 +545,7 @@ Public Class ClsMovimientos
|
||||
|
||||
|
||||
|
||||
Try
|
||||
Try
|
||||
SqlAdapter.SelectCommand.CommandTimeout = 0
|
||||
|
||||
SqlAdapter.Fill(Data)
|
||||
@@ -863,8 +863,8 @@ Public Class ClsMovimientos
|
||||
DataAdapter("PA_Banc_ReporteChequesFYEGet")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI
|
||||
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
|
||||
End With
|
||||
|
||||
@@ -1190,9 +1190,9 @@ Public Class ClsMovimientos
|
||||
|
||||
Public Function GetCxPDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveProveedorClasificacion As Integer, CveProveedorSucursal As Integer, CveUsuario As Integer,
|
||||
CveUsuarioResponsable As Integer, Anio As Integer, Mes As Integer, AnioMes As String, CveMoneda As Integer, CveSubProyecto As Integer,
|
||||
CveEstatusFactura As Integer, Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer,
|
||||
TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional FechaVI As String = "-1", Optional FechaVF As String = "1",
|
||||
Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1,
|
||||
CveEstatusFactura As Integer, Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer,
|
||||
TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional FechaVI As String = "-1", Optional FechaVF As String = "1",
|
||||
Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1,
|
||||
Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1292,8 +1292,8 @@ Public Class ClsMovimientos
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
|
||||
.Add("@CveCajaChica", SqlDbType.Int).Value = CveCajaChica
|
||||
.Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso
|
||||
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI
|
||||
.Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso
|
||||
.Add("@FechaI", SqlDbType.DateTime).Value = FechaI
|
||||
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
|
||||
|
||||
End With
|
||||
|
||||
@@ -3786,6 +3786,7 @@ Public Class ClsPaginas
|
||||
|
||||
PaginaDict.Add("/Prospectos/PopUpBuscarProspectos.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Sistemas/PopUpCambiaUsuario.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Sistemas/PopUpCambiaUsuarioEmpresa.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Sistemas/CatDistribuidores.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Sistemas/CatPlataformas.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/Sistemas/PopUpAddUsuario.aspx".ToUpper(), -1)
|
||||
|
||||
@@ -1620,7 +1620,7 @@ Public Class ClsVentas
|
||||
|
||||
Public Function GetRepPSEcono(CveSubProyecto As Integer, CvePS As Integer, FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1, Optional GPO As Integer = -1,
|
||||
Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0,
|
||||
Optional Clasificacion As String = "-1", Optional Linea As String = "-1", Optional Marca As String = "-1") As Boolean
|
||||
Optional Clasificacion As String = "-1", Optional Linea As String = "-1", Optional Marca As String = "-1", Optional orden As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Vta_RepPSEconoGet")
|
||||
|
||||
@@ -1638,6 +1638,7 @@ Public Class ClsVentas
|
||||
.Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion
|
||||
.Add("@Linea", SqlDbType.VarChar).Value = Linea
|
||||
.Add("@Marca", SqlDbType.VarChar).Value = Marca
|
||||
.Add("@Orden", SqlDbType.VarChar).Value = orden
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -71,6 +71,16 @@ Public Class Usuario
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Private _modoSimulacionXEmpresa As Boolean = False
|
||||
Public Property ModoSimulacionXEmpresa As Boolean
|
||||
Get
|
||||
Return Not ModoSimulacion AndAlso (_modoSimulacionXEmpresa OrElse TienePermisoProceso(308))
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
|
||||
_modoSimulacionXEmpresa = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Sesion(Campo As String) As String
|
||||
Get
|
||||
|
||||
@@ -37,9 +37,6 @@
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkAddOtrosGastos" OnClick="LnkAddOtrosGastos_Click" Visible="false" runat="server"><i class="fa fa-plus-circle"></i> Agregar Otros Gastos</asp:LinkButton>
|
||||
</li>
|
||||
<li runat="server" visible="false" id="liServicios">
|
||||
<asp:LinkButton ID="LbServicios" OnClick="LbServicios_Click" runat="server"><i class='fa fa-truck'></i> Gastos y Servicios</asp:LinkButton>
|
||||
</li>
|
||||
<li runat="server" visible="false" id="liFletesImportaciones">
|
||||
<asp:LinkButton ID="LnkFletesImportaciones" runat="server"><i class='fa fa-truck'></i> Costo Indirecto/Importaciones</asp:LinkButton>
|
||||
</li>
|
||||
@@ -147,6 +144,17 @@
|
||||
border: 1px solid black;
|
||||
width: 85%;
|
||||
}
|
||||
|
||||
.GastoIndirectoOpciones {
|
||||
margin-left:auto;
|
||||
margin-right:auto;
|
||||
width:400px;
|
||||
}
|
||||
|
||||
.GastoIndirectoOpciones td
|
||||
{
|
||||
text-align:right /* Or any other value */
|
||||
}
|
||||
/*IPP*/
|
||||
</style>
|
||||
</asp:Content>
|
||||
@@ -477,6 +485,7 @@
|
||||
<asp:ListItem Text="Importación" Value="5"></asp:ListItem>
|
||||
<asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
|
||||
<asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
|
||||
<asp:ListItem Text="NC Por Devolución" Value="11"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
@@ -3296,195 +3305,6 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<%--MODAL VINCULAR FLETES Y SERVICIOS--%>
|
||||
<asp:UpdatePanel runat="server" class="modal-content rowpadding" UpdateMode="Conditional" ID="UPFS">
|
||||
<ContentTemplate>
|
||||
<div id="DivFletesYServicios" class="modal fade">
|
||||
<div class="modal-dialog">
|
||||
|
||||
<div class="modal-content" style="width: 600px;">
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-hidden="true"></button>
|
||||
<h3 class="modal-title" runat="server" id="headeralias">Vincular Costo indirectos </h3>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
<div class="modal-body" style="min-height: 300px">
|
||||
<div class="row" style="align-items: center">
|
||||
<asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter" style="width: 98%; margin-left: auto; margin-right: auto">
|
||||
<div class="portlet-title portlet-filterT portletfiltrostitlee">
|
||||
<div class="tools">
|
||||
<asp:Button ID="BtnFiltrar" OnClick="BtnFiltrar_Click" runat="server" CausesValidation="true" CssClass=" btn btn-primary " Visible="True" Text="Consultar" ValidationGroup="GrpFiltrar2"></asp:Button>
|
||||
<%--<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
|
||||
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />--%>
|
||||
</div>
|
||||
<div class="titlefiltros caption ">
|
||||
<div class="row">
|
||||
<div class="col-md-1" style="font-size: medium">Tipo:</div>
|
||||
<div class="col-md-1" style="width: 200px;">
|
||||
<asp:DropDownList ID="DdlTipo" AutoPostBack="true" runat="server" Style="width: 200px;" CssClass="form-control input-sm select2me" CausesValidation="true" MaxLength="50" ValidationGroup="GrpFiltrar2" Width="100%">
|
||||
<%--<asp:ListItem Text="Seleccione" Value="-1" Selected="True" />--%>
|
||||
<asp:ListItem Text="Una Sola Factura" Value="1" Selected="True" />
|
||||
<%-- <asp:ListItem Text="Varias Facturas" Value="2" />--%>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVTipo" runat="server" ControlToValidate="DdlTipo" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''tipo''</b> es necesario para cargar la Refacturación, por favor seleccione uno." ValidationGroup="GrpFiltrar2"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCETipo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipo" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<br />
|
||||
|
||||
<asp:UpdatePanel ID="UpGVServicios" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GVServicios" runat="server" AutoGenerateColumns="false"
|
||||
EmptyDataText="No se encontraron fletes o servicios en la factura" ShowHeaderWhenEmpty="true"
|
||||
ToolTip="Listado de Unidades de Medida" CssClass="table table-striped table-advance table-hover Widthall
|
||||
ScrollAD "
|
||||
data-height="320" Style="text-align: left;" GridLines="None" DataKeyNames="CvePS">
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox ID="chkServicios" runat="server"></asp:CheckBox>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Consec" ItemStyle-HorizontalAlign="Center" Visible="true">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblConsec" Text='<%# Eval("Consec") %>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Concepto" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPSmodal" Text='<%# Eval("PS") %>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTotalmodal" Text='<%# Eval("Total") %>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
|
||||
|
||||
|
||||
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<div style="align-items: center">
|
||||
<asp:UpdatePanel ID="UpFacturas" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-5" runat="server" id="dvFacturas" style="width: 60%; margin-left: 20%; margin-right: auto;">
|
||||
|
||||
|
||||
|
||||
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Agregar Facturas</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="expand"></a>
|
||||
</div>
|
||||
|
||||
<div class="portlet-body form">
|
||||
<table class="Widthall">
|
||||
<tr>
|
||||
<td style="width: 50px;">Proveedor:</td>
|
||||
<td>
|
||||
<asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlProveedores" Style="width: 200px" AutoPostBack="true" DataTextField="RazonSocial" DataValueField="CveProveedor" OnSelectedIndexChanged="DdlProveedores_SelectedIndexChanged"></asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="width: 50px;">Folio:</td>
|
||||
<td>
|
||||
<asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlFacturas" Style="width: 200px" AutoPostBack="false" DataTextField="Folio" DataValueField="CveCompra"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVFacturas" runat="server" ControlToValidate="DdlFacturas" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario para cargar la Refacturación, por favor seleccione uno." ValidationGroup="GrpCargaFactura"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEFacturas" runat="server" HighlightCssClass="vco" TargetControlID="RFVFacturas" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="2" align="center">
|
||||
<asp:Button Text="Agregar Factura" CssClass="btn btn-primary" ID="BtnAgregaFactura" OnClick="BtnAgregaFactura_Click" ValidationGroup="GrpCargaFactura" runat="server" />
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
<asp:UpdatePanel ID="UPGVFacturas" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="false" EmptyDataText="Aun No Registra Facturas" DataKeyNames="CveCompra" ToolTip="Listado de Unidades de Medida" CssClass="table table-striped table-advance table-hover Widthall ScrollAD " data-height="320" Style="text-align: left;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center">
|
||||
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFolio" Text='<%# Eval("Folio") %>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFecha" Text='<%# Eval("Fecha") %>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Eliminar">
|
||||
<ItemTemplate>
|
||||
|
||||
<asp:LinkButton ID="lbEliminar" runat="server" AlternateText="Eliminar" CausesValidation="False" Style="text-align: left" CommandName="Delete" OnClientClick="return confirm('¿Está seguro de eliminar la factura?')" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" />
|
||||
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
|
||||
|
||||
|
||||
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
|
||||
<asp:Button Text="Continuar" ID="BtnAgregarFlete" runat="server" OnClick="btnAgregarFlete_Click" class="btn default"></asp:Button>
|
||||
<asp:Button Text="Cancelar" CssClass="btn btn-primary" ID="BtnCancelarFlete" OnClick="BtnCancelar_Click" runat="server" />
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<%-- MODAL SERIE-LOTE ALMACEN --%>
|
||||
<div id="DivSerie" class="modal fade" role="dialog">
|
||||
@@ -5016,7 +4836,175 @@
|
||||
<asp:Label ID="LblTitulo" Text="" runat="server">Costo Indirecto/Importación</asp:Label></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div class="row">
|
||||
<div class="row" style="border-bottom:1px solid #e5e5e5">
|
||||
<div class="col-md-1" style="width:100%">
|
||||
<asp:RadioButtonList ID="RblGastosVincularCrear" runat="server" OnSelectedIndexChanged="RblGastosVincularCrear_Click" AutoPostBack="true" CssClass="GastoIndirectoOpciones" RepeatDirection="Horizontal">
|
||||
<asp:ListItem Text="Gasto y Servicios" Value="1" />
|
||||
<asp:ListItem Text="Costo Indirecto/Importaciones" Value="0" selected="True" />
|
||||
</asp:RadioButtonList>
|
||||
</div>
|
||||
</div>
|
||||
<div runat="server" id="DivGastosyServicios" visible="false">
|
||||
<%--<div class="row" style="align-items: center">
|
||||
<asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="portlet solid grey-cascade portlet-filter" style="width: 98%; margin-left: auto; margin-right: auto">
|
||||
<div class="portlet-title portlet-filterT portletfiltrostitlee">
|
||||
<div class="tools">
|
||||
<asp:Button ID="BtnFiltrar" OnClick="BtnFiltrar_Click" runat="server" CausesValidation="true" CssClass=" btn btn-primary " Visible="True" Text="Consultar" ValidationGroup="GrpFiltrar2"></asp:Button>
|
||||
<%--<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
|
||||
<asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
|
||||
</div>
|
||||
<div class="titlefiltros caption ">
|
||||
<div class="row">
|
||||
<div class="col-md-1" style="font-size: medium">Tipo:</div>
|
||||
<div class="col-md-1" style="width: 200px;">
|
||||
<asp:DropDownList ID="DdlTipo" AutoPostBack="true" runat="server" Style="width: 200px;" CssClass="form-control input-sm select2me" CausesValidation="true" MaxLength="50" ValidationGroup="GrpFiltrar2" Width="100%">
|
||||
<%--<asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
|
||||
<asp:ListItem Text="Una Sola Factura" Value="1" Selected="True" />
|
||||
<%-- <asp:ListItem Text="Varias Facturas" Value="2" />
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVTipo" runat="server" ControlToValidate="DdlTipo" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''tipo''</b> es necesario para cargar la Refacturación, por favor seleccione uno." ValidationGroup="GrpFiltrar2"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCETipo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipo" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>--%>
|
||||
<br />
|
||||
|
||||
<asp:UpdatePanel ID="UpGVServicios" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GVServicios" runat="server" AutoGenerateColumns="false"
|
||||
EmptyDataText="No se encontraron fletes o servicios en la factura" ShowHeaderWhenEmpty="true"
|
||||
ToolTip="Listado de Unidades de Medida" CssClass="table table-striped table-advance table-hover Widthall
|
||||
ScrollAD "
|
||||
data-height="320" Style="text-align: left;" GridLines="None" DataKeyNames="CvePS">
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox ID="chkServicios" runat="server"></asp:CheckBox>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Consec" ItemStyle-HorizontalAlign="Center" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LblConsec" Text='<%# Eval("Consec") %>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Concepto" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPSmodal" Text='<%# Eval("PS") %>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTotalmodal" Text='<%# Eval("Total") %>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
|
||||
|
||||
|
||||
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<div style="align-items: center">
|
||||
<asp:UpdatePanel ID="UpFacturas" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-5" runat="server" id="dvFacturas" style="width: 60%; margin-left: 20%; margin-right: auto;">
|
||||
|
||||
|
||||
|
||||
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Agregar Facturas</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="expand"></a>
|
||||
</div>
|
||||
|
||||
<div class="portlet-body form">
|
||||
<table class="Widthall">
|
||||
<tr>
|
||||
<td style="width: 50px;">Proveedor:</td>
|
||||
<td>
|
||||
<asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlProveedores" Style="width: 200px" AutoPostBack="true" DataTextField="RazonSocial" DataValueField="CveProveedor" OnSelectedIndexChanged="DdlProveedores_SelectedIndexChanged"></asp:DropDownList>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td style="width: 50px;">Folio:</td>
|
||||
<td>
|
||||
<asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlFacturas" Style="width: 200px" AutoPostBack="false" DataTextField="Folio" DataValueField="CveCompra"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVFacturas" runat="server" ControlToValidate="DdlFacturas" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario para cargar la Refacturación, por favor seleccione uno." ValidationGroup="GrpCargaFactura"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEFacturas" runat="server" HighlightCssClass="vco" TargetControlID="RFVFacturas" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="2" align="center">
|
||||
<asp:Button Text="Agregar Factura" CssClass="btn btn-primary" ID="BtnAgregaFactura" OnClick="BtnAgregaFactura_Click" ValidationGroup="GrpCargaFactura" runat="server" />
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
<asp:UpdatePanel ID="UPGVFacturas" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
|
||||
<asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="false" EmptyDataText="Aun No Registra Facturas" DataKeyNames="CveCompra" ToolTip="Listado de Unidades de Medida" CssClass="table table-striped table-advance table-hover Widthall ScrollAD " data-height="320" Style="text-align: left;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center">
|
||||
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFolio" Text='<%# Eval("Folio") %>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFecha" Text='<%# Eval("Fecha") %>' runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Eliminar">
|
||||
<ItemTemplate>
|
||||
|
||||
<asp:LinkButton ID="lbEliminar" runat="server" AlternateText="Eliminar" CausesValidation="False" Style="text-align: left" CommandName="Delete" OnClientClick="return confirm('¿Está seguro de eliminar la factura?')" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" />
|
||||
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||
|
||||
|
||||
|
||||
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</div>
|
||||
<div class="row" runat="server" id="DivVincularCrear">
|
||||
<div class="col-md-12">
|
||||
<div class="row" runat="server" id="DivActualizarVincular" visible="false" align="center">
|
||||
<h4>Los cambios se realizaran al dar click en vincular</h4>
|
||||
@@ -5112,8 +5100,14 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnGuardarModalFletesImportaciones" OnClick="BtnGuardarModalFletesImportaciones_Click" runat="server" Text="Vincular" CssClass="btn btn-primary" ValidationGroup="VGMModalIMPFLE" />
|
||||
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||
<div runat="server" id="DivGastosyServiciosFooter" visible="false">
|
||||
<asp:Button Text="Continuar" ID="BtnAgregarFlete" runat="server" OnClick="btnAgregarFlete_Click" class="btn default"></asp:Button>
|
||||
<asp:Button Text="Cancelar" CssClass="btn btn-primary" ID="BtnCancelarFlete" data-dismiss="modal" runat="server" />
|
||||
</div>
|
||||
<div runat="server" id="DivVincularCrearFooter">
|
||||
<asp:Button ID="BtnGuardarModalFletesImportaciones" OnClick="BtnGuardarModalFletesImportaciones_Click" runat="server" Text="Vincular" CssClass="btn btn-primary" ValidationGroup="VGMModalIMPFLE" />
|
||||
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
|
||||
@@ -1533,7 +1533,7 @@ Partial Class Compras_Compras
|
||||
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
||||
TabActivosFijos.Visible = False
|
||||
VerRefacturacion.Visible = False
|
||||
liServicios.Visible = False
|
||||
'liServicios.Visible = False
|
||||
DivConsignaciones.Visible = False
|
||||
End If
|
||||
CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader)
|
||||
@@ -9545,7 +9545,7 @@ Partial Class Compras_Compras
|
||||
Retorno = False
|
||||
End If
|
||||
|
||||
If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, Nothing, CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, Nothing, CvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
Retorno = False
|
||||
End If
|
||||
End If
|
||||
@@ -9987,7 +9987,7 @@ Partial Class Compras_Compras
|
||||
Retorno = False
|
||||
End If
|
||||
|
||||
If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
Retorno = False
|
||||
End If
|
||||
End If
|
||||
@@ -14642,7 +14642,7 @@ Partial Class Compras_Compras
|
||||
dt = ObjContabilidad.DtResultados
|
||||
|
||||
For Each dr As DataRow In dt.Rows
|
||||
If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0) Then
|
||||
If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
ErrorCancelar = True : Exit For
|
||||
End If
|
||||
Next
|
||||
@@ -15892,71 +15892,71 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
|
||||
If DdlTipo.SelectedValue.ToEntero = 1 Then
|
||||
'POR SI LLEGARA A TRONAR
|
||||
If DtServicios Is Nothing Then CreaDTServicios()
|
||||
DtServicios.Rows.Clear()
|
||||
|
||||
'POR SI LLEGARA A TRONAR
|
||||
If DtServicios Is Nothing Then CreaDTServicios()
|
||||
DtServicios.Rows.Clear()
|
||||
Dim objps As New ClsProductosServicios
|
||||
Dim dr As DataRow
|
||||
dvFacturas.Visible = False
|
||||
GvFacturas.Visible = False
|
||||
|
||||
Dim objps As New ClsProductosServicios
|
||||
Dim dr As DataRow
|
||||
dvFacturas.Visible = False
|
||||
GvFacturas.Visible = False
|
||||
|
||||
For Each DrGv As DataRow In TmpDT.Rows
|
||||
If DrGv("CvePS").ToString.ToEntero > 0 Then
|
||||
If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
dr = DtServicios.NewRow()
|
||||
dr("Consec") = DrGv("Consec").ToString.ToEntero
|
||||
dr("Total") = DrGv("Total").ToString.ToDecimal
|
||||
dr("CvePS") = DrGv("CvePS").ToString.ToEntero
|
||||
dr("PS") = DrGv("PS").ToString
|
||||
DtServicios.Rows.Add(dr)
|
||||
End If
|
||||
For Each DrGv As DataRow In TmpDT.Rows
|
||||
If DrGv("CvePS").ToString.ToEntero > 0 Then
|
||||
If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
dr = DtServicios.NewRow()
|
||||
dr("Consec") = DrGv("Consec").ToString.ToEntero
|
||||
dr("Total") = DrGv("Total").ToString.ToDecimal
|
||||
dr("CvePS") = DrGv("CvePS").ToString.ToEntero
|
||||
dr("PS") = DrGv("PS").ToString
|
||||
DtServicios.Rows.Add(dr)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
'[IPP] COMENTADO - MIRAS DE ELIMINAR - 8/FEBRERO/2018
|
||||
'For Each gvr As GridViewRow In GvPS.Rows
|
||||
' If objps.GetPS(gvr.DataKey("CvePS").ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
' If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
' dr = DtServicios.NewRow()
|
||||
' dr("Consec") = gvr.FCLabel("LtlConsecutivo").Text.ToEntero
|
||||
' dr("Total") = gvr.FCLiteral("LtlTotal").Text.ToDecimal
|
||||
' dr("PS") = gvr.DataKey("PS").ToString
|
||||
' DtServicios.Rows.Add(dr)
|
||||
' End If
|
||||
' End If
|
||||
'Next
|
||||
objps.Dispose()
|
||||
|
||||
If DtServicios.Rows.Count > 0 Then
|
||||
GVServicios.DataSource = DtServicios
|
||||
GVServicios.DataBind()
|
||||
GVServicios.Visible = True
|
||||
Else
|
||||
GVServicios.DataSource = Nothing
|
||||
GVServicios.DataBind()
|
||||
End If
|
||||
Next
|
||||
|
||||
UpGVServicios.Update()
|
||||
UpFacturas.Update()
|
||||
UPGVFacturas.Update()
|
||||
|
||||
ElseIf DdlTipo.SelectedValue.ToEntero = 2 Then
|
||||
GVServicios.Visible = False
|
||||
dvFacturas.Visible = True
|
||||
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
DdlProveedores.DataBind()
|
||||
DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
UpFacturas.Update()
|
||||
UpGVServicios.Update()
|
||||
|
||||
'[IPP] COMENTADO - MIRAS DE ELIMINAR - 8/FEBRERO/2018
|
||||
'For Each gvr As GridViewRow In GvPS.Rows
|
||||
' If objps.GetPS(gvr.DataKey("CvePS").ToEntero, -1, UsuarioActual.CveEmpresa) Then
|
||||
' If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
' dr = DtServicios.NewRow()
|
||||
' dr("Consec") = gvr.FCLabel("LtlConsecutivo").Text.ToEntero
|
||||
' dr("Total") = gvr.FCLiteral("LtlTotal").Text.ToDecimal
|
||||
' dr("PS") = gvr.DataKey("PS").ToString
|
||||
' DtServicios.Rows.Add(dr)
|
||||
' End If
|
||||
' End If
|
||||
'Next
|
||||
objps.Dispose()
|
||||
|
||||
If DtServicios.Rows.Count > 0 Then
|
||||
GVServicios.DataSource = DtServicios
|
||||
GVServicios.DataBind()
|
||||
GVServicios.Visible = True
|
||||
Else
|
||||
GVServicios.DataSource = Nothing
|
||||
GVServicios.DataBind()
|
||||
End If
|
||||
|
||||
UpGVServicios.Update()
|
||||
UpFacturas.Update()
|
||||
UPGVFacturas.Update()
|
||||
'If DdlTipo.SelectedValue.ToEntero = 1 Then
|
||||
|
||||
|
||||
'ElseIf DdlTipo.SelectedValue.ToEntero = 2 Then
|
||||
' GVServicios.Visible = False
|
||||
' dvFacturas.Visible = True
|
||||
' DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
' DdlProveedores.DataBind()
|
||||
' DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
' UpFacturas.Update()
|
||||
' UpGVServicios.Update()
|
||||
|
||||
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub btnAgregarFlete_Click(sender As Object, e As EventArgs) Handles BtnAgregarFlete.Click
|
||||
@@ -16212,7 +16212,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.CvePlataforma <> 2 Then
|
||||
liServicios.Visible = True
|
||||
'liServicios.Visible = True
|
||||
liFletesImportaciones.Visible = True
|
||||
End If
|
||||
|
||||
@@ -20040,6 +20040,17 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub RblGastosVincularCrear_Click(sender As Object, e As EventArgs)
|
||||
Dim MostrarGastosServicios As Boolean = RblGastosVincularCrear.SelectedValue = "1"
|
||||
|
||||
DivGastosyServicios.Visible = MostrarGastosServicios
|
||||
DivGastosyServiciosFooter.Visible = MostrarGastosServicios
|
||||
|
||||
DivVincularCrear.Visible = Not MostrarGastosServicios
|
||||
DivVincularCrearFooter.Visible = Not MostrarGastosServicios
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -1143,7 +1143,7 @@ Partial Class RegPoliza
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not ObjContabilidad.UpdatePrePoliza(TxtFechaPoliza.Text.ToDate, TxtNumeroPoliza.Text.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, IDPoliza, CvePrePoliza, UsuarioActual.CveEmpresa, TxtConcepto.Text.Trim, TxtFechaPoliza.Text.ToDate) Then
|
||||
If Not ObjContabilidad.UpdatePrePoliza(TxtFechaPoliza.Text.ToDate, TxtNumeroPoliza.Text.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, IDPoliza, CvePrePoliza, UsuarioActual.CveEmpresa, TxtConcepto.Text.Trim, TxtFechaPoliza.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
|
||||
|
||||
@@ -497,6 +497,42 @@
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<asp:UpdatePanel runat="server" ID="UpBitacora" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="portlet light bordered xspadding">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Historial de Modificación</span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn" CellSpacing="0" AutoGenerateColumns="False">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Fecha</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<div id="DivContadoModal" align="center" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
|
||||
@@ -209,6 +209,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
|
||||
CreaDT()
|
||||
CargaPrePoliza()
|
||||
CargaGvBitacora()
|
||||
If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
|
||||
GvPrePoliza.Columns(4).Visible = False
|
||||
GvConcepto.Columns(4).Visible = False
|
||||
@@ -463,9 +464,10 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
CargaGvBitacora()
|
||||
ObjContabilidad.Dispose()
|
||||
UpPoliza.Update()
|
||||
UpBitacora.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GvPrePoliza_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPrePoliza.RowDataBound
|
||||
@@ -536,7 +538,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
End Sub
|
||||
|
||||
Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged
|
||||
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
|
||||
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 205, 206, 14, 15, 16, 19, 25, 26, 21) Then
|
||||
CargaProveedores()
|
||||
DdlProveedores.Visible = True
|
||||
DdlCompras.Visible = True
|
||||
@@ -1011,7 +1013,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
|
||||
|
||||
|
||||
If ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate) Then
|
||||
If ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
|
||||
|
||||
|
||||
@@ -1019,7 +1021,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
|
||||
If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero,
|
||||
row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0,
|
||||
row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero)) Then
|
||||
row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
@@ -1643,5 +1645,15 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
End If
|
||||
ObjCompras.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGvBitacora()
|
||||
' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017
|
||||
Dim ObjGral As New ClsGenerales()
|
||||
If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
|
||||
GvBitacora.DataSource = ObjGral.DtResultados
|
||||
GvBitacora.DataBind()
|
||||
End If
|
||||
ObjGral.Dispose()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
@@ -926,7 +926,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
ObjContabilidad.IniciaTransacSQL()
|
||||
|
||||
ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate)
|
||||
ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
|
||||
|
||||
For Each row As GridViewRow In GvPrePoliza.Rows
|
||||
If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
|
||||
@@ -934,7 +934,7 @@ Partial Class ContabilidadC_RegPrePoliza
|
||||
row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
|
||||
row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
|
||||
CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
|
||||
CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text) Then
|
||||
CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
@@ -914,7 +914,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
ObjContabilidad.IniciaTransacSQL()
|
||||
|
||||
ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate)
|
||||
ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
|
||||
|
||||
For Each row As GridViewRow In GvPrePoliza.Rows
|
||||
If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
|
||||
@@ -922,7 +922,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
|
||||
row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
|
||||
CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
|
||||
CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text) Then
|
||||
CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
OcurrioError = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
@@ -130,11 +130,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
|
||||
TxtFechaDel.Text = FechaInicio.ToShortDateString
|
||||
End If
|
||||
|
||||
'If Request("CveSubProyecto") IsNot Nothing Then
|
||||
' If IsNumeric(Request("CveSubProyecto")) Then
|
||||
' CveSubProyecto = Request("CveSubProyecto").ToString
|
||||
' End If
|
||||
'End If
|
||||
If Request("CveSubProyecto") IsNot Nothing Then
|
||||
If IsNumeric(Request("CveSubProyecto")) Then
|
||||
DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto").ToString)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
ErrorParametros = False
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" %>
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" enableEventValidation="false" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
@@ -346,6 +346,11 @@ Partial Class Inventarios_ResguardoMaterial
|
||||
ThSerie.Visible = True
|
||||
TrSerie.Visible = True
|
||||
TxtnSerie.Visible = True
|
||||
Else
|
||||
ThSerie.Visible = False
|
||||
TrSerie.Visible = False
|
||||
TxtnSerie.Visible = False
|
||||
TxtnSerie.Text = ""
|
||||
End If
|
||||
|
||||
'activa seccion
|
||||
@@ -368,13 +373,19 @@ Partial Class Inventarios_ResguardoMaterial
|
||||
If CBool(drp("AplicaLote")) Then
|
||||
ThLote.Visible = True
|
||||
TrLote.Visible = True
|
||||
'TxtLote.Visible = True
|
||||
Else
|
||||
ThLote.Visible = False
|
||||
TrLote.Visible = False
|
||||
TxtLote.Text = ""
|
||||
End If
|
||||
'activa caducidad
|
||||
If CBool(drp("AplicaCaducidad")) Then
|
||||
ThCaducidad.Visible = True
|
||||
TrCaducidad.Visible = True
|
||||
'TxtCaducidad.Visible = True
|
||||
Else
|
||||
ThCaducidad.Visible = False
|
||||
TrCaducidad.Visible = False
|
||||
TxtCaducidad.Text = ""
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
@@ -259,8 +259,7 @@
|
||||
data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar autorización?" data-btn-ok-label="Si" OnClick="LnkAceptarTraslado_Click"></asp:LinkButton>
|
||||
</div>
|
||||
<div class="col-md-6" style="text-align:center!important">
|
||||
<asp:LinkButton runat="server" Text ="Rechazar" ID="LnkRechazarTraslado" CssClass="btn btn-danger"
|
||||
data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar rechazo?" data-btn-ok-label="Si" OnClick="LnkRechazarTraslado_Click" ></asp:LinkButton>
|
||||
<asp:LinkButton runat="server" Text ="Rechazar" ID="LnkRechazarTraslado" CssClass="btn btn-danger" OnClick="LnkRechazarTraslado_Click" ></asp:LinkButton>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
@@ -500,6 +499,51 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div id="ModalRechazarTraslado" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalRechazo" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="Literal3" runat="server">Rechazar solicitud</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="portlet-body rowpadding">
|
||||
<div class="row">
|
||||
|
||||
<div class="col-md-10 form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtMotivoRechazo" CssClass="form-control marginFixRow" runat="server" MaxLength="200" CausesValidation="true"></asp:TextBox>
|
||||
<label for="<%= TxtMotivoRechazo.ClientID.ToString()%>">Motivo de rechazo:</label>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtMotivoRechazo" runat="server" ControlToValidate="TxtMotivoRechazo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo de rechazo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRechazo"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<div class="row">
|
||||
|
||||
<div class="col-md-12">
|
||||
<asp:Button ID="BtnModalRechazo" runat="server" class="btn btn-danger" Text="Rechazar" Style="margin-left: -100px;" ValidationGroup="GrpRechazo"
|
||||
data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar rechazo?" data-btn-ok-label="Si" OnClick="BtnModalRechazo_Click" />
|
||||
<button id="btnModalRechazoCerrar" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
|
||||
@@ -36,19 +36,19 @@ Partial Class Inventarios_TrasladoSolicitud
|
||||
ViewState("CveDireccionEnvio") = value
|
||||
End Set
|
||||
End Property
|
||||
'Private Property CveUsuarioAutoriza As Integer
|
||||
' Get
|
||||
' If ViewState("CveUsuarioAutoriza") Is Nothing Then
|
||||
' Return -1
|
||||
' Else
|
||||
' Return CType(ViewState("CveUsuarioAutoriza"), Integer)
|
||||
' End If
|
||||
Private Property CveUsuarioSolicita As Integer
|
||||
Get
|
||||
If ViewState("CveUsuarioSolicita") Is Nothing Then
|
||||
Return -1
|
||||
Else
|
||||
Return CType(ViewState("CveUsuarioSolicita"), Integer)
|
||||
End If
|
||||
|
||||
' End Get
|
||||
' Set(value As Integer)
|
||||
' ViewState("CveUsuarioAutoriza") = value
|
||||
' End Set
|
||||
'End Property
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveUsuarioSolicita") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
@@ -178,6 +178,8 @@ Partial Class Inventarios_TrasladoSolicitud
|
||||
HplContrato.Text = ObjInventarios.DtResultados.Rows(0)("DescripcionContrato").ToString
|
||||
HplContrato.NavigateUrl = $"/Contratos/Contrato.aspx?CveContrato={ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}"
|
||||
|
||||
CveUsuarioSolicita = ObjInventarios.DtResultados.Rows(0)("CveUsuario").ToString.ToEntero
|
||||
|
||||
'25/04/2018
|
||||
CveDireccionEnvio = ObjInventarios.DtResultados.Rows(0)("CveDireccionEnvio").ToString.ToEntero
|
||||
If CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
|
||||
@@ -994,15 +996,85 @@ Partial Class Inventarios_TrasladoSolicitud
|
||||
CargaDatos()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkRechazarTraslado_Click(sender As Object, e As EventArgs)
|
||||
|
||||
TxtMotivoRechazo.Text = ""
|
||||
UpModalRechazo.Update()
|
||||
RegistraScript("$('#ModalRechazarTraslado').modal();")
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub BtnModalRechazo_Click(sender As Object, e As EventArgs)
|
||||
RechazarTraslado()
|
||||
End Sub
|
||||
|
||||
Private Sub RechazarTraslado()
|
||||
|
||||
Dim ErrorProceso As Boolean = False
|
||||
|
||||
If TxtMotivoRechazo.Text.Trim.Length.ToEntero = 0 Then
|
||||
Alert("El motivo de rechazo es necesario", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
|
||||
Dim ObjInven As New ClsInventarios
|
||||
|
||||
If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 3, UsuarioActual.CveUsuario, Now) Then
|
||||
Alert("Rechazado correctamente.")
|
||||
ErrorProceso = False
|
||||
Else
|
||||
ErrorProceso = True
|
||||
End If
|
||||
|
||||
ObjInven.Dispose()
|
||||
|
||||
CargaDatos()
|
||||
If Not ErrorProceso Then
|
||||
MandaCorreoRechazo(LbFolio.Text.ToEntero, CveTraspasoSolicitud, CveUsuarioSolicita, TxtMotivoRechazo.Text)
|
||||
CargaDatos()
|
||||
RegistraScript("$('#ModalRechazarTraslado').modal('hide');")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MandaCorreoRechazo(Folio As Integer, CveTraspasoSolicitud As Integer, CveUsuarioSolicita As Integer, MotivoRechazo As String)
|
||||
|
||||
Dim SB As New StringBuilder
|
||||
|
||||
Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita)(0)("Correo").ToString.Trim
|
||||
|
||||
|
||||
If CorreoDestino.Length > 0 Then
|
||||
|
||||
|
||||
SB.AppendLine($"<p>Se ha rechazado la solicitud de traspaso con folio {Folio}, el traspaso fue rechazado por el usuario {UsuarioActual.Nombre }, el traspaso fue rechazado por el motivo: {MotivoRechazo} </p>")
|
||||
|
||||
|
||||
|
||||
SB.AppendLine("<br>")
|
||||
SB.AppendLine("<table border = '0'>")
|
||||
SB.AppendLine("<tr style='color:white;background-color:#808080;' ><th>Cantidad</th> <th>U.M.</th> <th>Producto</th> <th>Observaciones</th> </tr>")
|
||||
|
||||
For Each GvRow As GridViewRow In GvDatos.Rows
|
||||
|
||||
If GvRow.RowType = DataControlRowType.DataRow Then
|
||||
SB.AppendLine($"<tr style='background-color:#F2F2F0;'> <td>{GvRow.DataKey("Cantidad")}</td> <td>{GvRow.DataKey("UnidadMedida")}</td> <td>{GvRow.DataKey("CodigoPS")}</td> <td>{GvRow.DataKey("Observaciones")}</td> </tr>")
|
||||
End If
|
||||
|
||||
Next
|
||||
SB.AppendLine("</table>")
|
||||
SB.AppendLine("<br>")
|
||||
|
||||
SB.AppendLine($"<strong> <a href='{Request.Url.GetLeftPart(UriPartial.Authority)}/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}'>Ir a solicitud de traspaso folio {Folio}</a></strong>")
|
||||
|
||||
|
||||
|
||||
Dim MandaCorre As New ClsSisMail
|
||||
MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Rechazo de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Rechazo de Traspaso")
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -1057,5 +1129,6 @@ Partial Class Inventarios_TrasladoSolicitud
|
||||
Next
|
||||
GvDatos.Columns(5).Visible = Mostrar
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
@@ -164,7 +164,7 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div id="DivGastoIndirecto" style="display: none;" class="rowpadding">
|
||||
<div id="DivTransitorio2" class="rowpadding" runat="server" visible="false">
|
||||
<div class="row">
|
||||
|
||||
<asp:Label AssociatedControlID="TxtGastoIndirecto" Visible="false" id="LblGastoIndirecto" runat="server" Text="Gasto Indirecto:" CssClass="col-md-2"></asp:Label>
|
||||
|
||||
@@ -204,7 +204,10 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
Else
|
||||
DivCodigoSeriePS.Visible = False
|
||||
End If
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
|
||||
If ChkTransitorio.Checked Then
|
||||
RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
|
||||
DivTransitorio2.Visible = True
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 119) Then
|
||||
DivEmitirTimbrado.Visible = True
|
||||
@@ -226,7 +229,10 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
TipoSeccionAlmacen = 0
|
||||
|
||||
Else
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
|
||||
If ChkTransitorio.Checked Then
|
||||
RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
|
||||
DivTransitorio2.Visible = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -643,21 +649,21 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
If TxtResponsable.Text.Trim = "" And Not UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
Alert("Debe seleccionar un responsable para el traspaso transitorio.", TipoMensaje.MsgAdvertencia)
|
||||
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If DdlAlmacenTransitorio.SelectedValue.ToEntero <= 0 Then
|
||||
Alert("Debe seleccionar un almacen transitorio.", TipoMensaje.MsgAdvertencia)
|
||||
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If DdlChofer.SelectedValue.ToEntero <= 0 And UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
Alert("Debe seleccionar un Chofer", TipoMensaje.MsgAdvertencia)
|
||||
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
@@ -693,7 +699,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
Alert("Por ser un traspaso entre sucursales es necesario indicar que el traspaso es transitorio.", TipoMensaje.MsgAdvertencia)
|
||||
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'');", "SonidoError")
|
||||
ChkTransitorio.Checked = True
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);", "MuestraDivTransitorio")
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);", "MuestraDivTransitorio") : DivTransitorio2.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
@@ -711,7 +717,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
For Each dr As DataRow In DtMovimientos.Rows
|
||||
If dr("EstatusExistencia").ToString = "-1" Then
|
||||
Alert("Tiene que rectificar los movimientos con error.", TipoMensaje.MsgError)
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
@@ -1456,10 +1462,11 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
TxtResponsable.Text = ""
|
||||
TxtGastoIndirecto.Text = ""
|
||||
RegistraScript("$('#DivTransitorio').show(200);$('#DivGastoIndirecto').show(100);$('#DivDocChofer').show(100);")
|
||||
|
||||
DivTransitorio2.Visible = True
|
||||
ChkEmitirTimbrado.Checked = LblEmitirTimbrado.Visible
|
||||
Else
|
||||
RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);$('#DivDocChofer').hide(500);")
|
||||
DivTransitorio2.Visible = True
|
||||
End If
|
||||
CargaAlmacenDestino()
|
||||
|
||||
@@ -1974,7 +1981,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
CargaRecepcion()
|
||||
Else
|
||||
Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia)
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")
|
||||
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);") : DivTransitorio2.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -253,19 +253,19 @@
|
||||
</div>
|
||||
</div>
|
||||
<div style="float: right;">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="FiltrarTabla('#TxtBusqueda','.GvNominas')" style="display: inline-block; margin-right: -20px; width: 150px;">
|
||||
<a href="javascript:;" onclick="FiltrarTabla('#TxtBusqueda','.GvNominas')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold yellow-gold"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
|
||||
<asp:TextBox CssClass="TxtBusqueda form-control input-sm" runat="server" onkeyup="FiltrarTablaFreezcol('.TxtBusqueda','.GvNominas')" Style="display: inline-block; margin-right: -20px; width: 150px;"></asp:TextBox>
|
||||
<a href="javascript:;" onclick="FiltrarTablaFreezcol('.TxtBusqueda','.GvNominas')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold yellow-gold"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
|
||||
<asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePeriodo,CvePersonal,CveNomina,SeTimbro,SerieFolio,Nombre,Correo,Codigo,Turno,SubProyecto,NomAutorizado" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound"
|
||||
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2">
|
||||
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2" data-heighterror="360">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate></HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkSobreRecibo" OnClick="LnkSobreRecibo_Click" runat="server"><i class='fa fa-list-alt'></i></asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkSobreRecibo" OnClick="LnkSobreRecibo_Click" runat="server"><i class='fa fa-list-alt'></i></asp:LinkButton>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="20px" HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
@@ -1558,7 +1558,7 @@
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
<script>
|
||||
|
||||
|
||||
function shownew() {
|
||||
|
||||
setTimeout(function () {
|
||||
@@ -1626,6 +1626,7 @@
|
||||
<%= String.Format("$('#{0}').click();", btnasis.ClientID) %>
|
||||
}
|
||||
function ADSBegin() {
|
||||
debugger;
|
||||
if ($('.GvConceptos .thTituloConcepto').length == 0) {
|
||||
$('.GvConceptos').prepend("<tr class=\"thTituloConcepto\"> <th scope=\"col\" colspan=\"3\">Percepciones</th><th scope=\"col\" colspan=\"3\">Deducciones</th> </tr>");
|
||||
}
|
||||
@@ -1635,12 +1636,11 @@
|
||||
//$('.GvConceptossimulador').append($('#Totalesperdeduccion'));
|
||||
$('.GvConceptossimulador').append($('#trnetoapagar'));
|
||||
}
|
||||
function FiltrarTabla(idtxt, idtable, idcontador) {
|
||||
if ($('' + idtxt).val() == '') { $('table' + idtable + ' tr').css('display', ''); }
|
||||
else { $('table' + idtable + ' tr:not(.ADtr):not(.SearchADHeader):not(.Titulos)').css('display', 'none'); $('table' + idtable + ' tr:contains("' + $('' + idtxt).val() + '")').css('display', ''); }
|
||||
if ($('' + idcontador).length > 0) {
|
||||
$('' + idcontador).html('(' + $('' + idtable + ' tr:not(.ADtr):not(.SearchADHeader):visible').length + '/' + $('' + idtable + ' tr:not(.ADtr):not(.SearchADHeader)').length + ')');
|
||||
}
|
||||
|
||||
function ADSReady() {
|
||||
|
||||
setTimeout(function () { FiltrarTablaFreezcol('.TxtBusqueda', '.GvNominas');}, 250);
|
||||
|
||||
}
|
||||
</script>
|
||||
</asp:Content>
|
||||
|
||||
@@ -117,6 +117,11 @@
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" CssClass="Texto" Text='<%# Eval("Importe", "${0:N2}") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Moneda" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Label runat="server" CssClass="Texto" Text='<%# Eval("Abreviatura") %>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Pagar Anticipo" ItemStyle-Width="20%" Visible="false" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
|
||||
@@ -110,13 +110,13 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
|
||||
{
|
||||
GvSolicitudes.Columns[4].Visible = true;
|
||||
GvSolicitudes.Columns[5].Visible = true;
|
||||
GvSolicitudes.Columns[6].Visible = false;
|
||||
GvSolicitudes.Columns[7].Visible = false;
|
||||
}
|
||||
else
|
||||
{
|
||||
GvSolicitudes.Columns[4].Visible = false;
|
||||
GvSolicitudes.Columns[5].Visible = false;
|
||||
GvSolicitudes.Columns[6].Visible = true;
|
||||
GvSolicitudes.Columns[7].Visible = true;
|
||||
}
|
||||
CargaDatos();
|
||||
}
|
||||
|
||||
@@ -478,7 +478,7 @@ Partial Class Contabilidad_RegPrePoliza
|
||||
For Each row As GridViewRow In GvPrePoliza.Rows
|
||||
If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero,
|
||||
row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0,
|
||||
row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal)) Then
|
||||
row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -76,6 +76,30 @@ function FiltrarTabla(idtxt, idtable, idcontador) {
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
function FiltrarTablaFreezcol(idtxt, idtable, idcontador) {
|
||||
if ($('' + idtxt).val() == '') { $('div.ADSCroll:not(.RHeader) table' + idtable + ' tr').css('display', ''); }
|
||||
else {
|
||||
let idxlist = [];
|
||||
$('div.ADSCroll:not(.RHeader) table' + idtable + ' tr:contains("' + $('' + idtxt).val() + '")').each(function () { let idx = $(this).index(); idxlist.push(idx) });
|
||||
|
||||
idxlist = idxlist.filter((x, i, a) => a.indexOf(x) == i)
|
||||
$('div.ADSCroll:not(.RHeader) table' + idtable + ' tr:not(.ADtr):not(.SearchADHeader):not(.ADSRow):not(.Titulos)').each(function () {
|
||||
let _tthis = $(this);
|
||||
let idx = _tthis.index();
|
||||
if (idxlist.includes(idx)) {
|
||||
_tthis.css('display', '');
|
||||
} else {
|
||||
_tthis.css('display', 'none');
|
||||
|
||||
}
|
||||
});
|
||||
}
|
||||
if ($('' + idcontador).length > 0) {
|
||||
$('' + idcontador).html('(' + $('div.ADSCroll:not(.RHeader) ' + idtable + ' tr:not(.ADtr):not(.ADSRow):not(.SearchADHeader):visible').length + '/' + $('div.ADSCroll:not(.RHeader) ' + idtable + ' tr:not(.ADtr):not(.ADSRow):not(.SearchADHeader)').length + ')');
|
||||
}
|
||||
}
|
||||
|
||||
function clonsbuttons() {
|
||||
var copiasdelete = $('.clonehbutton_copy');
|
||||
if (copiasdelete) {
|
||||
@@ -321,8 +345,8 @@ function ADScroller2() {
|
||||
var widthGral = $(document).width() - WidthMenos;
|
||||
var heightGral = $(window).height() - HeightMenos;
|
||||
if (Heightfijo > 0) { heightGral = Heightfijo; }
|
||||
if (widthGral < 100) { widthGral = 100; }
|
||||
if (heightGral < 100) { heightGral = 100; }
|
||||
if (widthGral < 300) { widthGral = 300; }
|
||||
if (heightGral < 300) { heightGral =300; }
|
||||
|
||||
widthGral = Tthis.parent().parent().width();
|
||||
Tthis.removeClass('ADSCROLLER2');
|
||||
@@ -420,7 +444,7 @@ function ADScroller2() {
|
||||
|
||||
var anchoc1 = divheader1.outerWidth();
|
||||
var altoc1 = divheader1.outerHeight() + 15;
|
||||
divheaderScroll = $('<div class="ADSCroll" style="width:' + (widthGral - anchoc1) + 'px;"></div>').append(THeader2);
|
||||
divheaderScroll = $('<div class="ADSCroll RHeader" style="width:' + (widthGral - anchoc1) + 'px;"></div>').append(THeader2);
|
||||
divheader2.append(divheaderScroll);
|
||||
|
||||
contenedor.append(divcenter);
|
||||
@@ -459,24 +483,29 @@ function ADScroller2() {
|
||||
contenedor.css('width', sizetable + altoc1);
|
||||
}
|
||||
};
|
||||
$(window).resize(function () {
|
||||
let resizefncscroller = function () {
|
||||
|
||||
var widthGral = $(window).width() - WidthMenos;
|
||||
/*console.log(widthGral);*/
|
||||
contenedor.css('width', 1);
|
||||
widthGral = Tthis.parent().parent().parent().parent().parent().width();
|
||||
/* console.log(widthGral);*/
|
||||
var heightGral = $(window).height() - HeightMenos;
|
||||
//console.log(heightGral);
|
||||
if (Heightfijo > 0) { heightGral = Heightfijo; }
|
||||
if (widthGral < 100) { widthGral = 100; }
|
||||
if (heightGral < 100) { heightGral = 100; }
|
||||
if (widthGral < 300) { widthGral = 300; }
|
||||
if (heightGral < 300) { heightGral = 300; }
|
||||
contenedor.css('width', widthGral);
|
||||
divheader.css('width', widthGral);
|
||||
divcenter.css('width', widthGral);
|
||||
divheaderScroll.css('width', (widthGral - anchoc1));
|
||||
divcolsScroll.css('height', (heightGral - altoc1+20));
|
||||
divcolsScroll.css('height', (heightGral - altoc1 + 20));
|
||||
divbodyScroll.css('width', (widthGral - anchoc1));
|
||||
divbodyScroll.css('height', (heightGral - altoc1 + 20));
|
||||
setTimeout(sizeoftablefunc, 100);
|
||||
};
|
||||
$(window).resize(function () {
|
||||
setTimeout(resizefncscroller, 50);
|
||||
setTimeout(sizeoftablefunc, 150);
|
||||
});
|
||||
|
||||
$('table#ADCol' + Tid + ' tr').hover(
|
||||
@@ -731,12 +760,13 @@ function loadadscroll() {
|
||||
if (height < 200) {
|
||||
height = 200;
|
||||
}
|
||||
TThis.data('height', height)
|
||||
TThis.data('height', height);
|
||||
}
|
||||
//ADSCROLLER2
|
||||
|
||||
var colVisibles = isNaN(Number(TThis.data('cols'))) ? 0 : Number(TThis.data('cols'));
|
||||
if (colVisibles > 0) {
|
||||
if ((Number(TThis.data('heighterror'))) && !(Number(TThis.data('heightmenos')))) { TThis.data('heightmenos', TThis.data('heighterror'));}
|
||||
TThis.removeClass("ScrollAD");
|
||||
TThis.addClass("ADSCROLLER2");
|
||||
} else {
|
||||
@@ -1913,7 +1943,6 @@ jQuery(document).ready(function () {
|
||||
}
|
||||
});
|
||||
ADSReady();
|
||||
|
||||
}
|
||||
if (("Notification" in window)) {
|
||||
if (Notification.permission !== 'denied') {
|
||||
|
||||
@@ -26,7 +26,7 @@
|
||||
<asp:DropDownList ID="DdlEmpresa" runat="server" AutoPostBack="true" DataTextField="Empresa" DataValueField="CveEmpresa" style="width:100%;" Class="form-control select2me"></asp:DropDownList>
|
||||
</div>
|
||||
<div class="has-info col-sm-6">
|
||||
<asp:TextBox id="TxtBusqueda" CssClass="form-control input-sm" placeholder="" style="width:100%" runat="server" ClientIDMode="Static"/></label>
|
||||
<asp:TextBox id="TxtBusqueda" CssClass="form-control input-sm" placeholder="" style="width:100%" runat="server" ClientIDMode="Static"/>
|
||||
<asp:Button ID="BtnFiltrar" runat="server" Text="Filtrar" class="btn btn-primary" style="display: none;"/>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
85
Sistemas/PopUpCambiaUsuarioEmpresa.aspx
Normal file
85
Sistemas/PopUpCambiaUsuarioEmpresa.aspx
Normal file
@@ -0,0 +1,85 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpCambiaUsuarioEmpresa.aspx.vb" Inherits="Sistemas_PopUpCambiaUsuarioEmpresa" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
<link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
Cambio de Usuario
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:Panel ID="PnlGral" runat="server">
|
||||
<asp:UpdatePanel ID="UPPGral" runat="server">
|
||||
<ContentTemplate>
|
||||
<h4> Usuario Actual: <asp:Label ID="LblUsuario" runat="server" Text="" Font-Bold="True"></asp:Label><br />
|
||||
</h4>
|
||||
<div class="row">
|
||||
<%-- <div class="col-sm-6">
|
||||
<asp:Label AssociatedControlID="DdlEmpresa" runat="server" Text="Empresa:"></asp:Label></div>--%>
|
||||
<div class="col-sm-6">Nombre de Usuario:</div>
|
||||
</div>
|
||||
<%--<div class="row">
|
||||
<div class="col-sm-6">
|
||||
<asp:DropDownList ID="DdlEmpresa" runat="server" AutoPostBack="true" DataTextField="Empresa" DataValueField="CveEmpresa" style="width:100%;" Class="form-control select2me"></asp:DropDownList>
|
||||
</div>
|
||||
<div class="has-info col-sm-6">
|
||||
</div>
|
||||
</div>--%>
|
||||
<asp:TextBox ID="TxtBusqueda" CssClass="form-control input-sm" placeholder="" Style="width: 100%" runat="server" ClientIDMode="Static" />
|
||||
<asp:Button ID="BtnFiltrar" runat="server" Text="Filtrar" class="btn btn-primary" Style="display: none;" />
|
||||
|
||||
<div>
|
||||
<asp:GridView ID="gvUsuarios" runat="server" data-sort="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD " AutoGenerateColumns="False" ClientIDMode="Static" DataKeyNames="Usuario,Contraseña,CveEmpresa" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Nombre">
|
||||
<ItemTemplate>
|
||||
|
||||
<asp:LinkButton ID="LnkNombre" runat="server" CssClass="Texto"
|
||||
Text='<%#String.Format("{0}({1})", Eval("Nombre"), Eval("Usuario")) %>' ToolTip='<%# Eval("CveUsuario") %>' CommandName="Usuarios" CommandArgument='<%# eval("CveUsuario") %>'></asp:LinkButton>
|
||||
</ItemTemplate>
|
||||
<%-- <ItemStyle Width="250px" />
|
||||
<HeaderStyle CssClass="Titulo" HorizontalAlign="Center" />--%>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="Rol" HeaderText="Rol" DataFormatString=" {0}">
|
||||
<ItemStyle HorizontalAlign="Left" Width="150px" />
|
||||
</asp:BoundField>
|
||||
</Columns>
|
||||
<%-- <RowStyle CssClass="Texto" Height="19px" />
|
||||
<HeaderStyle CssClass="Titulo" />
|
||||
<AlternatingRowStyle CssClass="TextoAlterno" />--%>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Panel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
|
||||
<script type="text/javascript">
|
||||
|
||||
jQuery(document).ready(function () {
|
||||
buscarDT();
|
||||
Sys.Application.add_load(function (s, e) {
|
||||
buscarDT();
|
||||
});
|
||||
});
|
||||
function buscarDT() {
|
||||
$('#TxtBusqueda').on('keyup', function () {
|
||||
if (this.value == '') {
|
||||
$('table#' + $(this).attr('data-table') + ' tr').css('display', 'table-row');
|
||||
} else {
|
||||
$('table#' + $(this).attr('data-table') + ' tr').css('display', 'none');
|
||||
$('table#' + $(this).attr('data-table') + ' tr:contains("' + this.value + '")').css('display', 'table-row');
|
||||
}
|
||||
});
|
||||
}
|
||||
|
||||
|
||||
</script>
|
||||
</asp:Content>
|
||||
187
Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
Normal file
187
Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
Normal file
@@ -0,0 +1,187 @@
|
||||
Imports ADSSession
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
|
||||
Inherits ClsPaginas
|
||||
|
||||
Property DTUsuarios() As Data.DataTable
|
||||
Get
|
||||
Return CType(ViewState("DTUsuarios"), DataTable)
|
||||
End Get
|
||||
Set(value As Data.DataTable)
|
||||
ViewState("DTUsuarios") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
ViewState("Orden") = ""
|
||||
|
||||
If Not (UsuarioActual.CveRol = 1 OrElse UsuarioActual.ModoSimulacionXEmpresa) Then
|
||||
PnlGral.Visible = False
|
||||
RegistraScript("window.close();")
|
||||
End If
|
||||
|
||||
'Dim DtEmp As DataTable = GlobalDTEmpresas.Copy
|
||||
Dim NombreEmp As String = UsuarioActual.Empresa.Empresa
|
||||
'''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)"
|
||||
''If UsuarioActual.CveUsuario = 100 Then
|
||||
|
||||
'' Dim customerRow() As Data.DataRow
|
||||
'' customerRow = DtEmp.Select("")
|
||||
|
||||
'' For Each drt As DataRow In customerRow
|
||||
'' drt("Empresa") = "Mi Empresa de ventas (" & drt("CveEmpresa") & ")"
|
||||
'' Next
|
||||
|
||||
|
||||
''End If
|
||||
|
||||
CType(Me.Master, BaseMasterPage).EsPopup = True
|
||||
LblUsuario.Text = String.Format("{0} - {1}", UsuarioActual.Nombre, UsuarioActual.Empresa.Empresa)
|
||||
|
||||
|
||||
'DdlEmpresa.DataSource = DtEmp '.FiltraParametros(If(UsuarioActual.CveRol = 1, "CvePlataforma IN (1,2)", $"CvePlataforma={UsuarioActual.Empresa.CvePlataforma}"))
|
||||
Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString()
|
||||
|
||||
Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
|
||||
If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
|
||||
CveEmpresa = 119
|
||||
End If
|
||||
|
||||
If splitedtext.Length > 0 Then
|
||||
Select Case splitedtext(0).ToUpper()
|
||||
Case "VSH" : CveEmpresa = "7"
|
||||
Case "JAM" : CveEmpresa = "119"
|
||||
Case "COMPUPROVEEDORES" : CveEmpresa = "72"
|
||||
Case "DNDIFUSA" : CveEmpresa = "80"
|
||||
Case "SOGO" : CveEmpresa = "8"
|
||||
Case "BDH" : CveEmpresa = "140"
|
||||
Case "ECONOLLANTAS" : CveEmpresa = "141"
|
||||
End Select
|
||||
End If
|
||||
'DdlEmpresa.DataBind()
|
||||
'DdlEmpresa.SelectedValue = CveEmpresa
|
||||
|
||||
'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
|
||||
'DdlRol.DataBind()
|
||||
'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
TxtBusqueda.Attributes.Add("data-table", gvUsuarios.ClientID)
|
||||
|
||||
CargaUsuarios()
|
||||
'LblUsuario.Text = usuarioactual.
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub gvUsuarios_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles gvUsuarios.RowCommand
|
||||
If e.CommandName = "Usuarios" Then
|
||||
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
|
||||
'Dim Dt As DataTable = GlobalDTUsuarios(e.CommandArgument.ToString.ToEntero)
|
||||
Dim multiempresa As Boolean = ADSSessionConfig.sessionUser.MultipleEmpresa
|
||||
Dim objempresa As Empresa = ADSSessionConfig.sessionUser.Empresa
|
||||
If gvr IsNot Nothing Then
|
||||
|
||||
Dim tUsuario, tContraseña As String
|
||||
Dim tCveEmpresa As Integer
|
||||
tUsuario = gvr.DataKey("Usuario").ToString
|
||||
tContraseña = gvr.DataKey("Contraseña").ToString
|
||||
tCveEmpresa = gvr.DataKey("CveEmpresa").ToString.ToEntero
|
||||
|
||||
Dim ObjUsuario As New ClsSisUsuarios
|
||||
Dim Usuario As Usuario
|
||||
'Dim UsuarioAsignaciones As Usuario
|
||||
|
||||
Usuario = ObjUsuario.ValidaUsuario(tUsuario, tContraseña, IMEI, tCveEmpresa)
|
||||
'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa)
|
||||
ObjUsuario.Dispose()
|
||||
|
||||
If Usuario IsNot Nothing Then
|
||||
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
|
||||
ADSSessionConfig.sessionUser = Usuario
|
||||
ADSSessionConfig.sessionUser.CvePlataforma = 1
|
||||
If Usuario.CveRol = 1200 Then
|
||||
ADSSessionConfig.sessionUser.CvePlataforma = 3
|
||||
End If
|
||||
ADSSessionConfig.sessionDpage = False
|
||||
ADSSessionConfig.sessionUser.MultipleEmpresa = multiempresa
|
||||
ADSSessionConfig.sessionUser.ModoSimulacion = False
|
||||
ADSSessionConfig.sessionUser.ModoSimulacionXEmpresa = True
|
||||
|
||||
UsuarioActual.Empresa = objempresa
|
||||
dt.Dispose()
|
||||
|
||||
If UsuarioActual.CveCliente > 0 Then
|
||||
CargaZonasHorarias(UsuarioActual)
|
||||
End If
|
||||
End If
|
||||
|
||||
RegistraScript("gotourl();")
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub CargaZonasHorarias(ByRef UsuarioActual As Usuario)
|
||||
Dim ObjClientes As New ClsClientes
|
||||
Try
|
||||
If ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=1) Then
|
||||
If ObjClientes.DtResultados.Rows.Count = 1 Then
|
||||
UsuarioActual.UTCOffset = ObjClientes.DtResultados(0)("UTCOffset").ToString().ToEntero()
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al obtener la zona horaria.", ex)
|
||||
Finally
|
||||
ObjClientes.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs) Handles BtnFiltrar.Click
|
||||
CargaUsuarios()
|
||||
End Sub
|
||||
|
||||
#Region "O R D E N A M I E N T O"
|
||||
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim Orden As String = ""
|
||||
Dim Campo As String = ""
|
||||
Dim Literal As Literal = Nothing
|
||||
Const OrdenInicial As String = ""
|
||||
Dim Arg(2) As String
|
||||
|
||||
Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||
Campo = Arg(0)
|
||||
Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||
|
||||
If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
||||
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||
Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||
Else
|
||||
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
||||
Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||
End If
|
||||
Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
||||
ViewState("Orden") = Orden
|
||||
CargaUsuarios(Orden)
|
||||
End Sub
|
||||
|
||||
Private Sub CargaUsuarios(Optional Orden As String = "Nombre")
|
||||
Dim dtt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("CveRol <> 1")
|
||||
dtt = dtt.FiltraParametros("Estatus = 1", Orden, {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol"})
|
||||
gvUsuarios.DataSource = dtt
|
||||
gvUsuarios.DataBind()
|
||||
|
||||
If (gvUsuarios.Rows.Count > 0) Then
|
||||
gvUsuarios.UseAccessibleHeader = True
|
||||
gvUsuarios.HeaderRow.TableSection = TableRowSection.TableHeader
|
||||
End If
|
||||
TxtBusqueda.Focus()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
@@ -267,6 +267,7 @@
|
||||
<i class="fa fa-angle-down"></i>
|
||||
</a>
|
||||
<ul class="dropdown-menu dropdown-menu-default">
|
||||
<li runat="server" id="DivCambiarUsuarioEmpresa" visible="false"><a runat="server" id="BtnCambiarUsuarioEmpresa" style="cursor: pointer;"><i class="fa fa-exchange"></i>Cambiar Usuario</a></li>
|
||||
<li runat="server" id="DivCambiarUsuario" visible="false"><a runat="server" id="BtnCambiarUsuario" style="cursor: pointer;"><i class="fa fa-exchange"></i>Cambiar Usuario</a></li>
|
||||
<li runat="server" id="DivCambiarEmpresa" visible="false"><a runat="server" id="BtnCambiarEmpresa" style="cursor: pointer;"><i class="fa fa-exchange"></i>Cambiar Empresa</a></li>
|
||||
<li class="divider"></li>
|
||||
|
||||
@@ -168,6 +168,10 @@ Partial Class Site
|
||||
DivCambiarUsuario.Visible = True
|
||||
BtnCambiarUsuario.Attributes.Add("onclick", "javascript:AbrirVentana('/Sistemas/PopUpCambiaUsuario.aspx');")
|
||||
End If
|
||||
If UsuarioActual.ModoSimulacionXEmpresa Then '.TienePermisoProceso(ADSSession.ADSSessionConfig.procesomodosimulacion) Then
|
||||
DivCambiarUsuarioEmpresa.Visible = True
|
||||
BtnCambiarUsuarioEmpresa.Attributes.Add("onclick", "javascript:AbrirVentana('/Sistemas/PopUpCambiaUsuarioEmpresa.aspx');")
|
||||
End If
|
||||
If UsuarioActual.MultipleEmpresa Then
|
||||
BtnCambiarEmpresa.Attributes.Add("onclick", "javascript:AbrirVentana('/Sistemas/PopUpSeleccionarEmpresa.aspx');")
|
||||
DivCambiarEmpresa.Visible = True
|
||||
|
||||
@@ -159,6 +159,28 @@
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<asp:Panel ID="pnlOrden" Visible="false" runat="server" CssClass="row">
|
||||
<label class="col-md-1 truncate">Orden:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlOrden" runat="server" CssClass="select2me" Width="100%">
|
||||
<asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
|
||||
<asp:ListItem Text="Marca,Modelo,Rin,Medida de Barrenación" Value="1" />
|
||||
<asp:ListItem Text="Familia,Marca,Rin,Medida de Barrenación" Value="2" />
|
||||
<asp:ListItem Text="Familia,Linea,Rin,Medida de Barrenación" Value="3" />
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<%--<div class="col-md-3">
|
||||
<div class="row">
|
||||
<label class="col-md-3 truncate">Marca:</label>
|
||||
<div class="col-md-9">
|
||||
<asp:ListBox ID="DdlMarca" runat="server" DataTextField="Marca" DataValueField="CveMarca" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%; height:50px !important;">
|
||||
<asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
|
||||
</asp:ListBox>
|
||||
</div>
|
||||
</div>
|
||||
</div>--%>
|
||||
</asp:Panel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
|
||||
@@ -21,6 +21,20 @@ Partial Class Ventas_RepPS
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
pnlOrden.Visible = False
|
||||
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||||
pnlOrden.Visible = True
|
||||
DdlOrden.SelectedValue = "2"
|
||||
'Using ObjPS As New ClsProductosServicios
|
||||
' If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
|
||||
' DdlMarca.DataSource = ObjPS.DtResultados.Copy()
|
||||
' End If
|
||||
'End Using
|
||||
'DdlMarca.DataBind()
|
||||
'DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End If
|
||||
|
||||
|
||||
CargaDatosIniciales()
|
||||
CargaCombos()
|
||||
CargaDatos()
|
||||
@@ -69,6 +83,7 @@ Partial Class Ventas_RepPS
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTipoCentroCosto()
|
||||
Dim index As Integer = 17
|
||||
|
||||
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
|
||||
DdlSubProyecto.Items.Clear()
|
||||
@@ -88,13 +103,19 @@ Partial Class Ventas_RepPS
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
|
||||
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
|
||||
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
|
||||
DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
|
||||
If DdlGrupo.Items.Count < 17 Then
|
||||
index = DdlGrupo.Items.Count
|
||||
End If
|
||||
DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
|
||||
DdlGrupo.DataBind()
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
|
||||
LblSubProyecto.InnerText = "Proyecto:"
|
||||
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
|
||||
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
|
||||
DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
|
||||
If DdlGrupo.Items.Count < 17 Then
|
||||
index = DdlGrupo.Items.Count
|
||||
End If
|
||||
DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
|
||||
DdlGrupo.DataBind()
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
|
||||
LblSubProyecto.InnerText = "Sucursal:"
|
||||
@@ -117,7 +138,7 @@ Partial Class Ventas_RepPS
|
||||
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
|
||||
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico, Clasificacion:=Clasificacion, Linea:=Linea, Marca:=Marca) Then
|
||||
If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico, Clasificacion:=Clasificacion, Linea:=Linea, Marca:=Marca, orden:=DdlOrden.SelectedValue.ToEntero()) Then
|
||||
DtReporte = ObjVentas.DtResultados.Copy()
|
||||
GvDatos.DataSource = DtReporte
|
||||
Else
|
||||
|
||||
@@ -5388,6 +5388,7 @@ Partial Class Ventas
|
||||
' RegistraScript("$('#DivDocsClienteUpload').modal({ backdrop: 'static', keyboard: false});", "modalOC")
|
||||
End If
|
||||
BloqueaCondiconesPago()
|
||||
DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRestriccionesCreditoCliente(Optional Alertas As Boolean = False, Optional CveVenta As Integer = -1)
|
||||
@@ -26927,6 +26928,15 @@ Partial Class Ventas
|
||||
ObjVentas.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub DeshabilitarAplicarNotaDeCredito(RFC As String)
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso RFC.Contiene("XAXX010101000", "XEXX010101000") Then
|
||||
LBNotaCredito.Visible = False
|
||||
UpnTools.Update()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "Auxiliar"
|
||||
Private Sub CargarSaldoAuxiliar(CveCliente As Integer)
|
||||
|
||||
|
||||
@@ -108,6 +108,8 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user