Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -247,35 +247,35 @@
|
|||||||
<i></i>
|
<i></i>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<br />
|
<%--<br />--%>
|
||||||
|
|
||||||
<div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
|
<div class="form-group form-md-line-input input-iconright" >
|
||||||
<asp:Label runat="server" ID="lblSubProyecto" for="<%= DdlSubProyectos.ClientID.ToString()%>">SubProyecto:</asp:Label>
|
<asp:Label runat="server" ID="lblSubProyecto" for="<%= DdlSubProyectos.ClientID.ToString()%>">SubProyecto:</asp:Label></br>
|
||||||
<asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Width="200px" AutoPostBack="true"></asp:DropDownList>
|
<asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Width="50%" AutoPostBack="true"></asp:DropDownList>
|
||||||
<asp:RequiredFieldValidator ID="RFVProducto2" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectos" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
|
<asp:RequiredFieldValidator ID="RFVProducto2" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectos" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="VCEProducto2" runat="server" HighlightCssClass="vco" TargetControlID="RFVProducto2" Width="300px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="VCEProducto2" runat="server" HighlightCssClass="vco" TargetControlID="RFVProducto2" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
<i></i>
|
<i></i>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<br />
|
<%--<br />--%>
|
||||||
|
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
|
<label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label></br>
|
||||||
|
|
||||||
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
|
<asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
|
||||||
<i></i>
|
<i></i>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<label for="<%= DdlTipoFolioModal.ClientID.ToString()%>">Tipo Folio:</label>
|
<asp:Label runat="server" ID="LblTipoFolio" for="<%= DdlTipoFolioModal.ClientID.ToString()%>">Tipo Folio:</asp:Label></br>
|
||||||
<asp:DropDownList ID="DdlTipoFolioModal" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
|
<asp:DropDownList ID="DdlTipoFolioModal" runat="server" CssClass="form-control input-sm select2me" Width="50%" ValidationGroup="GrpGuardar">
|
||||||
<asp:ListItem Value="general" Selected ="True">General</asp:ListItem>
|
<asp:ListItem Value="general" Selected ="True">General</asp:ListItem>
|
||||||
<asp:ListItem Value="optima">Optima</asp:ListItem>
|
<asp:ListItem Value="optima">Optima</asp:ListItem>
|
||||||
<asp:ListItem Value="motobateria">Motobateria</asp:ListItem>
|
<asp:ListItem Value="motobateria">Motobateria</asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
<i></i>
|
<i></i>
|
||||||
</div>
|
</div>
|
||||||
<br />
|
<%--<br />--%>
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<asp:TextBox ID="TxtLimite" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
|
<asp:TextBox ID="TxtLimite" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
|
||||||
<asp:RequiredFieldValidator ID="RfvLimite" runat="server" ControlToValidate="TxtLimite" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
|
<asp:RequiredFieldValidator ID="RfvLimite" runat="server" ControlToValidate="TxtLimite" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
|
||||||
@@ -283,8 +283,8 @@
|
|||||||
<i></i>
|
<i></i>
|
||||||
</div>
|
</div>
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
<label for="<%= DdlArea.ClientID.ToString()%>">Área:</label>
|
<asp:Label runat="server" ID="LblArea" for="<%= DdlArea.ClientID.ToString()%>">Área:</asp:Label></br>
|
||||||
<asp:DropDownList ID="DdlArea" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
|
<asp:DropDownList ID="DdlArea" runat="server" CssClass="form-control input-sm select2me" Width="50%" ValidationGroup="GrpGuardar">
|
||||||
<asp:ListItem Value="1" Selected ="True">Piso</asp:ListItem>
|
<asp:ListItem Value="1" Selected ="True">Piso</asp:ListItem>
|
||||||
<asp:ListItem Value="2">Almacén</asp:ListItem>
|
<asp:ListItem Value="2">Almacén</asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
|
|||||||
@@ -1106,6 +1106,87 @@ Public Class ClsGenerales
|
|||||||
OnError("Ocurrió un error al eliminar el modelo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
OnError("Ocurrió un error al eliminar el modelo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
Public Function GetMedidasEquivalentes(CveEmpresa As Integer, Optional CveMedida As Integer = -1, Optional CveRin As Integer = -1) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_Gral_MedidasEquivalenciasGet")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
|
.Add("@CveMedida", SqlDbType.Int).Value = CveMedida
|
||||||
|
.Add("@CveRin", SqlDbType.Int).Value = CveRin
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al obtener las equivalencias de medidas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
Public Function AddMedidasEquivalentes(CveMedida As Integer, CveRin As Integer, CveMedidaEquivalente As Integer, CveRinEquivalente As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_Gral_MedidasEquivalenciasAdd")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveMedida", SqlDbType.Int).Value = CveMedida
|
||||||
|
.Add("@CveRin", SqlDbType.Int).Value = CveRin
|
||||||
|
.Add("@CveMedidaEquivalente", SqlDbType.Int).Value = CveMedidaEquivalente
|
||||||
|
.Add("@CveRinEquivalente", SqlDbType.Int).Value = CveRinEquivalente
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al agregar la equivalencia de medida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
Public Function UpdateMedidasEquivalentes(CveMedidaEquivalencia As Integer, CveMedida As Integer, CveRin As Integer, CveMedidaEquivalente As Integer, CveRinEquivalente As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_Gral_MedidasEquivalenciasUpdate")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveMedidaEquivalencia", SqlDbType.Int).Value = CveMedidaEquivalencia
|
||||||
|
.Add("@CveMedida", SqlDbType.Int).Value = CveMedida
|
||||||
|
.Add("@CveRin", SqlDbType.Int).Value = CveRin
|
||||||
|
.Add("@CveMedidaEquivalente", SqlDbType.Int).Value = CveMedidaEquivalente
|
||||||
|
.Add("@CveRinEquivalente", SqlDbType.Int).Value = CveRinEquivalente
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al agregar la equivalencia de medida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return Retorno
|
||||||
|
End Function
|
||||||
|
Public Function RemoveMedidasEquivalentes(CveMedidaEquivalencia As Integer) As Boolean
|
||||||
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
|
DataAdapter("PA_Gral_MedidasEquivalenciasDelete")
|
||||||
|
|
||||||
|
With SqlAdapter.SelectCommand.Parameters
|
||||||
|
.Add("@CveMedidaEquivalencia", SqlDbType.Int).Value = CveMedidaEquivalencia
|
||||||
|
End With
|
||||||
|
|
||||||
|
Try
|
||||||
|
SqlAdapter.Fill(Data)
|
||||||
|
Retorno = True
|
||||||
|
Catch ex As Exception
|
||||||
|
OnError("Ocurrió un error al eliminar la equivalencia de medida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End Try
|
||||||
|
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
End Function
|
||||||
#End Region
|
#End Region
|
||||||
|
|||||||
@@ -4420,6 +4420,7 @@ Public Class ClsPaginas
|
|||||||
PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711)
|
PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711)
|
||||||
PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712)
|
PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712)
|
||||||
PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038)
|
PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038)
|
||||||
|
PaginaDict.Add("/General/CatMedidaEquivalencia.aspx".ToUpper(), 773)
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|||||||
@@ -147,9 +147,7 @@
|
|||||||
</div>
|
</div>
|
||||||
<div class="col-md-2">
|
<div class="col-md-2">
|
||||||
<asp:TextBox ID="TxtConceptoFluctuacion" runat="server"></asp:TextBox>
|
<asp:TextBox ID="TxtConceptoFluctuacion" runat="server"></asp:TextBox>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
@@ -225,20 +223,32 @@
|
|||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
<br />
|
<br />
|
||||||
|
|
||||||
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6" style="text-align: left!important">
|
|
||||||
<asp:Label runat="server" ID="LblSubProyectoCompras"></asp:Label>
|
|
||||||
<asp:DropDownList ID="DdlSubProyectoCompras" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
|
|
||||||
</asp:DropDownList>
|
|
||||||
<asp:RequiredFieldValidator ID="RFVDdlSubProyectoCompras" runat="server" ControlToValidate="DdlSubProyectoCompras" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardarCompras"></asp:RequiredFieldValidator>
|
|
||||||
<ajax:ValidatorCalloutExtender ID="VCDdlSubProyectoCompras" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubProyectoCompras" Width="300px" BehaviorID="_content_VCOTipoActivoFijo"></ajax:ValidatorCalloutExtender>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
|
|
||||||
|
<div class="col-md-5 form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox ID="TxtConceptoCompras" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control marginFixRow" Width="96%"></asp:TextBox>
|
||||||
|
<asp:RequiredFieldValidator ID="RFVTxtConceptoCompras" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoCompras"
|
||||||
|
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCompras"></asp:RequiredFieldValidator>
|
||||||
|
<label for="<%= TxtConceptoCompras.ClientID.ToString()%>">Concepto:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="col-md-1 form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList ID="DdlSubProyectoCompras" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic marginFixRow" Width="90%" >
|
||||||
|
</asp:DropDownList>
|
||||||
|
<label for="<%= DdlSubProyectoCompras.ClientID.ToString()%>"><asp:Label runat="server" ID="LblSubProyectoCompras"></asp:Label></label>
|
||||||
|
<asp:RequiredFieldValidator ID="RFVDdlSubProyectoCompras" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoCompras" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCompras"></asp:RequiredFieldValidator>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
<div class="col-md-6" style="text-align: right!important">
|
<div class="col-md-6" style="text-align: right!important">
|
||||||
<asp:Button Text="Generar Proveedores" runat="server" ID="BtnGeneraCompras" OnClick="BtnGeneraCompras_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarCompras" />
|
<asp:Button Text="Generar Proveedores" runat="server" ID="BtnGeneraCompras" OnClick="BtnGeneraCompras_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarCompras" />
|
||||||
</div>
|
</div>
|
||||||
</div>
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -320,19 +330,31 @@
|
|||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
|
||||||
<br />
|
<br />
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6" style="text-align: left!important">
|
|
||||||
<asp:Label runat="server" ID="LblSubProyectoVentas"></asp:Label>
|
<div class="col-md-3 form-group form-md-line-input input-iconright">
|
||||||
<asp:DropDownList ID="DdlsubProyectoVentas" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
|
<asp:TextBox ID="TxtConceptoVentas" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
|
||||||
|
<asp:RequiredFieldValidator ID="RFVTxtConceptoVentas" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoVentas"
|
||||||
|
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarVentas"></asp:RequiredFieldValidator>
|
||||||
|
<label for="<%= TxtConceptoCompras.ClientID.ToString()%>">Concepto:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="col-md-3 form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList ID="DdlsubProyectoVentas" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic marginFixRow" Width="90%" >
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
<asp:RequiredFieldValidator ID="RFVDdlsubProyectoVentas" runat="server" ControlToValidate="DdlsubProyectoVentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardarVentas"></asp:RequiredFieldValidator>
|
<label for="<%= DdlsubProyectoVentas.ClientID.ToString()%>"> <asp:Label runat="server" ID="LblSubProyectoVentas"></asp:Label> </label>
|
||||||
<ajax:ValidatorCalloutExtender ID="CEDdlsubProyectoVentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlsubProyectoVentas" Width="300px" BehaviorID="_content_VCOTipoActivoFijo"></ajax:ValidatorCalloutExtender>
|
<asp:RequiredFieldValidator ID="RFVDdlsubProyectoVentas" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlsubProyectoVentas" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarVentas"></asp:RequiredFieldValidator>
|
||||||
</div>
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<div class="col-md-6" style="text-align: right!important">
|
<div class="col-md-6" style="text-align: right!important">
|
||||||
<asp:Button Text="Generar Clientes" runat="server" ID="BtnGeneraVentas" OnClick="BtnGeneraVentas_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentas" />
|
<asp:Button Text="Generar Clientes" runat="server" ID="BtnGeneraVentas" OnClick="BtnGeneraVentas_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarVentas" />
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<br />
|
<br />
|
||||||
@@ -361,17 +383,30 @@
|
|||||||
|
|
||||||
<br />
|
<br />
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6" style="text-align: left!important">
|
|
||||||
<asp:Label runat="server" ID="LblSubProyecto"></asp:Label>
|
|
||||||
<asp:DropDownList ID="DdlSubproyectoBancos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
|
<div class="col-md-3 form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox ID="TxtConceptoBancos" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
|
||||||
|
<asp:RequiredFieldValidator ID="RFVTxtConceptoBancos" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoBancos"
|
||||||
|
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarBancos"></asp:RequiredFieldValidator>
|
||||||
|
<label for="<%= TxtConceptoBancos.ClientID.ToString()%>">Concepto:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="col-md-3 form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList ID="DdlSubproyectoBancos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic marginFixRow" Width="90%" >
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
<asp:RequiredFieldValidator ID="RFVDdlSubproyectoBancos" runat="server" ControlToValidate="DdlSubproyectoBancos" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardarBancos"></asp:RequiredFieldValidator>
|
<label for="<%= DdlSubproyectoBancos.ClientID.ToString()%>"> <asp:Label runat="server" ID="LblSubProyectoBancos"></asp:Label> </label>
|
||||||
<ajax:ValidatorCalloutExtender ID="VCRFVDdlSubproyectoBancos" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubproyectoBancos" Width="300px" BehaviorID="_content_VCOTipoActivoFijo"></ajax:ValidatorCalloutExtender>
|
<asp:RequiredFieldValidator ID="RFVDdlSubproyectoBancos" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubproyectoBancos" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarBancos"></asp:RequiredFieldValidator>
|
||||||
</div>
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<div class="col-md-6" style="text-align: right!important">
|
<div class="col-md-6" style="text-align: right!important">
|
||||||
<asp:Button Text="Generar Bancos" runat="server" ID="BtnGeneraBancos" OnClick="BtnGeneraBancos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarBancos" />
|
<asp:Button Text="Generar Bancos" runat="server" ID="BtnGeneraBancos" OnClick="BtnGeneraBancos_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarBancos" />
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
@@ -407,13 +442,23 @@
|
|||||||
|
|
||||||
<br />
|
<br />
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6" style="text-align: left!important">
|
|
||||||
<asp:Label runat="server" ID="LblSubProyectoDeudores"></asp:Label>
|
<div class="col-md-3 form-group form-md-line-input input-iconright">
|
||||||
<asp:DropDownList ID="DdlSubProyectoDeudores" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
|
<asp:TextBox ID="TxtConceptoDeudores" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
|
||||||
|
<asp:RequiredFieldValidator ID="RFVTxtConceptoDeudores" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoDeudores"
|
||||||
|
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarDeudores"></asp:RequiredFieldValidator>
|
||||||
|
<label for="<%= TxtConceptoDeudores.ClientID.ToString()%>">Concepto:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="col-md-3 form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList ID="DdlSubProyectoDeudores" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic marginFixRow" Width="90%" >
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
<asp:RequiredFieldValidator ID="RFVDdlSubProyectoDeudores" runat="server" ControlToValidate="DdlSubProyectoDeudores" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardarDeudores"></asp:RequiredFieldValidator>
|
<label for="<%= DdlSubProyectoDeudores.ClientID.ToString()%>"> <asp:Label runat="server" ID="LblSubProyectoDeudores"></asp:Label> </label>
|
||||||
<ajax:ValidatorCalloutExtender ID="CEDdlSubProyectoDeudores" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubProyectoDeudores" Width="300px" BehaviorID="_content_VCOTipoActivoFijo"></ajax:ValidatorCalloutExtender>
|
<asp:RequiredFieldValidator ID="RFVRFVDdlSubProyectoDeudores" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoDeudores" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarDeudores"></asp:RequiredFieldValidator>
|
||||||
</div>
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
<div class="col-md-6" style="text-align: right!important">
|
<div class="col-md-6" style="text-align: right!important">
|
||||||
<asp:Button Text="Generar Deudores" runat="server" ID="BtnGeneraDedudores" OnClick="BtnGeneraDedudores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarDeudores" />
|
<asp:Button Text="Generar Deudores" runat="server" ID="BtnGeneraDedudores" OnClick="BtnGeneraDedudores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarDeudores" />
|
||||||
@@ -445,14 +490,26 @@
|
|||||||
|
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<br />
|
<br />
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6" style="text-align: left!important">
|
|
||||||
<asp:Label runat="server" ID="LblSubProyectoAcreedores"></asp:Label>
|
<div class="col-md-3 form-group form-md-line-input input-iconright">
|
||||||
<asp:DropDownList ID="DdlSubProyectoAcreedores" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
|
<asp:TextBox ID="TxtConceptoAcreedores" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
|
||||||
</asp:DropDownList>
|
<asp:RequiredFieldValidator ID="RFVTxtConceptoAcreedores" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoAcreedores"
|
||||||
<asp:RequiredFieldValidator ID="RFVDdlSubProyectoAcreedores" runat="server" ControlToValidate="DdlSubProyectoAcreedores" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardarAcreedores"></asp:RequiredFieldValidator>
|
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarAcreedores"></asp:RequiredFieldValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="CEDdlSubProyectoAcreedores" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubProyectoAcreedores" Width="300px" BehaviorID="_content_VCOTipoActivoFijo"></ajax:ValidatorCalloutExtender>
|
<label for="<%= TxtConceptoAcreedores.ClientID.ToString()%>">Concepto:</label>
|
||||||
</div>
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="col-md-3 form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList ID="DdlSubProyectoAcreedores" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic marginFixRow" Width="90%" >
|
||||||
|
</asp:DropDownList>
|
||||||
|
<label for="<%= DdlSubProyectoAcreedores.ClientID.ToString()%>"> <asp:Label runat="server" ID="LblSubProyectoAcreedores"></asp:Label> </label>
|
||||||
|
<asp:RequiredFieldValidator ID="RFVDdlSubProyectoAcreedores" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoAcreedores" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarAcreedores"></asp:RequiredFieldValidator>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<div class="col-md-6" style="text-align: right!important">
|
<div class="col-md-6" style="text-align: right!important">
|
||||||
<asp:Button Text="Generar Acreedores" runat="server" ID="BtnGeneraAcreedores" OnClick="BtnGeneraAcreedores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedores" />
|
<asp:Button Text="Generar Acreedores" runat="server" ID="BtnGeneraAcreedores" OnClick="BtnGeneraAcreedores_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarAcreedores" />
|
||||||
</div>
|
</div>
|
||||||
@@ -481,13 +538,23 @@
|
|||||||
|
|
||||||
<br />
|
<br />
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6" style="text-align: left!important">
|
|
||||||
<asp:Label runat="server" ID="LblSubProyectoFiliales"></asp:Label>
|
<div class="col-md-3 form-group form-md-line-input input-iconright">
|
||||||
<asp:DropDownList ID="DdlSubProyectoFiliales" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
|
<asp:TextBox ID="TxtConceptoFiliales" Style="text-transform: uppercase;" runat="server" MaxLength="100" CssClass="form-control " Width="90%"></asp:TextBox>
|
||||||
</asp:DropDownList>
|
<asp:RequiredFieldValidator ID="RFVTxtConceptoFiliales" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtConceptoFiliales"
|
||||||
<asp:RequiredFieldValidator ID="RFVDdlSubProyectoFiliales" runat="server" ControlToValidate="DdlSubProyectoFiliales" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardarFiliales"></asp:RequiredFieldValidator>
|
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarFiliales"></asp:RequiredFieldValidator>
|
||||||
<ajax:ValidatorCalloutExtender ID="CEDdlSubProyectoFiliales" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubProyectoFiliales" Width="300px" BehaviorID="_content_VCOTipoActivoFijo"></ajax:ValidatorCalloutExtender>
|
<label for="<%= TxtConceptoFiliales.ClientID.ToString()%>">Concepto:</label>
|
||||||
</div>
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div class="col-md-3 form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList ID="DdlSubProyectoFiliales" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me js-referencia-programmatic marginFixRow" Width="90%" >
|
||||||
|
</asp:DropDownList>
|
||||||
|
<label for="<%= DdlSubProyectoFiliales.ClientID.ToString()%>"> <asp:Label runat="server" ID="LblSubProyectoFiliales"></asp:Label> </label>
|
||||||
|
<asp:RequiredFieldValidator ID="RFVDdlSubProyectoFiliales" runat="server" CssClass="help-block errorimput" InitialValue="-1" ControlToValidate="DdlSubProyectoFiliales" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo es necesario, por favor ingréselo." ValidationGroup="GrpGuardarFiliales"></asp:RequiredFieldValidator>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
<div class="col-md-6" style="text-align: right!important">
|
<div class="col-md-6" style="text-align: right!important">
|
||||||
<asp:Button Text="Generar Filiales" runat="server" ID="BtnGeneraFiliales" OnClick="BtnGeneraFiliales_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarFiliales" />
|
<asp:Button Text="Generar Filiales" runat="server" ID="BtnGeneraFiliales" OnClick="BtnGeneraFiliales_Click" Style="margin-left: 30px;" class="btn btn-primary" ValidationGroup="GrpGuardarFiliales" />
|
||||||
|
|||||||
@@ -20,12 +20,12 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||||
If Not Page.IsPostBack Then
|
If Not Page.IsPostBack Then
|
||||||
|
|
||||||
CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyecto)
|
CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyectoBancos, "")
|
||||||
CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas)
|
CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas, "")
|
||||||
CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras)
|
CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras, "")
|
||||||
CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales)
|
CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales, "")
|
||||||
CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores)
|
CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores, "")
|
||||||
CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores)
|
CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores, "")
|
||||||
|
|
||||||
CargaUltimaFluctuacion()
|
CargaUltimaFluctuacion()
|
||||||
End If
|
End If
|
||||||
@@ -232,17 +232,12 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
|
|
||||||
#Region "FLUCTUACION COMPRAS"
|
#Region "FLUCTUACION COMPRAS"
|
||||||
|
|
||||||
Protected Sub BtnGeneraCompras_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnGeneraCompras_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
'If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
|
|
||||||
' Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
|
|
||||||
' Exit Sub
|
|
||||||
'End If
|
|
||||||
|
|
||||||
Dim Total As Decimal = 0
|
Dim Total As Decimal = 0
|
||||||
Dim Conta As New ClsContabilidad
|
Dim Conta As New ClsContabilidad
|
||||||
Conta.IniciaTransacSQL()
|
Conta.IniciaTransacSQL()
|
||||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoCompras.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
Dim idCta As Integer = 0
|
Dim idCta As Integer = 0
|
||||||
Dim CveCuenta As Integer = 0
|
Dim CveCuenta As Integer = 0
|
||||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||||
@@ -306,18 +301,12 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
|
|
||||||
#Region "FLUCTUACION VENTAS"
|
#Region "FLUCTUACION VENTAS"
|
||||||
|
|
||||||
Protected Sub BtnGeneraVentas_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnGeneraVentas_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
'If DdlsubProyectoVentas.SelectedValue.ToEntero < 0 Then
|
|
||||||
' Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
|
|
||||||
' Exit Sub
|
|
||||||
'End If
|
|
||||||
|
|
||||||
|
|
||||||
Dim Total As Decimal = 0
|
Dim Total As Decimal = 0
|
||||||
Dim Conta As New ClsContabilidad
|
Dim Conta As New ClsContabilidad
|
||||||
Conta.IniciaTransacSQL()
|
Conta.IniciaTransacSQL()
|
||||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Ventas", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoVentas.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
Dim idCta As Integer = 0
|
Dim idCta As Integer = 0
|
||||||
Dim CveCuenta As Integer = 0
|
Dim CveCuenta As Integer = 0
|
||||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||||
@@ -345,38 +334,38 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
CveCuenta = CveCuentaPerdida
|
CveCuenta = CveCuentaPerdida
|
||||||
idCta = idCtaPerdida
|
idCta = idCtaPerdida
|
||||||
TipoMovto = False
|
TipoMovto = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
|
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
|
||||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
|
ErrorRegistrar = True
|
||||||
ErrorRegistrar = True
|
End If
|
||||||
|
|
||||||
|
Dim CveConconceptoCliente As Integer = 203
|
||||||
|
|
||||||
|
'saco las cuentas de pérdida y ganancia
|
||||||
|
For Each gvr As GridViewRow In GvVentas.Rows
|
||||||
|
Total = -gvr.DataKey("Fluctuacion").ToDecimal
|
||||||
|
|
||||||
|
If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
|
||||||
|
CveConconceptoCliente = 226
|
||||||
|
Else
|
||||||
|
CveConconceptoCliente = 203
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim CveConconceptoCliente As Integer = 203
|
'movimiento de complementaria
|
||||||
|
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
|
||||||
'saco las cuentas de pérdida y ganancia
|
ErrorRegistrar = True
|
||||||
For Each gvr As GridViewRow In GvVentas.Rows
|
Exit For
|
||||||
Total = -gvr.DataKey("Fluctuacion").ToDecimal
|
End If
|
||||||
|
Next
|
||||||
If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
|
|
||||||
CveConconceptoCliente = 226
|
If Not ErrorRegistrar Then
|
||||||
Else
|
Conta.Commit()
|
||||||
CveConconceptoCliente = 203
|
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
|
||||||
End If
|
|
||||||
|
Else
|
||||||
'movimiento de complementaria
|
Conta.RollBack()
|
||||||
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
|
End If
|
||||||
ErrorRegistrar = True
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
If Not ErrorRegistrar Then
|
|
||||||
Conta.Commit()
|
|
||||||
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
|
|
||||||
|
|
||||||
Else
|
|
||||||
Conta.RollBack()
|
|
||||||
End If
|
|
||||||
Conta.Dispose()
|
Conta.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -386,18 +375,11 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
|
|
||||||
Protected Sub BtnGeneraBancos_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnGeneraBancos_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
|
||||||
'If DdlSubproyectoBancos.SelectedValue.ToEntero < 0 Then
|
|
||||||
' Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
|
|
||||||
' Exit Sub
|
|
||||||
'End If
|
|
||||||
|
|
||||||
Dim Total As Decimal = 0
|
Dim Total As Decimal = 0
|
||||||
Dim Conta As New ClsContabilidad
|
Dim Conta As New ClsContabilidad
|
||||||
Conta.IniciaTransacSQL()
|
Conta.IniciaTransacSQL()
|
||||||
Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
|
Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||||
ObjContPaq.IniciaTransacSQL()
|
ObjContPaq.IniciaTransacSQL()
|
||||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Bancaria", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
||||||
Dim idCta As Integer = 0
|
Dim idCta As Integer = 0
|
||||||
Dim CveCuenta As Integer = 0
|
Dim CveCuenta As Integer = 0
|
||||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||||
@@ -405,28 +387,28 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
Dim TipoMovto As Boolean = False
|
Dim TipoMovto As Boolean = False
|
||||||
Dim CveConceptoContable As Integer = 0
|
Dim CveConceptoContable As Integer = 0
|
||||||
Dim ErrorRegistrar As Boolean = False
|
Dim ErrorRegistrar As Boolean = False
|
||||||
Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
|
Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
|
||||||
|
Dim MesTCtexto As String = String.Format("{0} TC:{1}", TxtFecha.Text.ToDate.ToString("MMMM-yyyy"), TCCierreFluctuacion)
|
||||||
|
|
||||||
|
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoBancos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
|
|
||||||
CveCuentaPerdida = 0 ' 55379
|
CveCuentaPerdida = 0 ' 55379
|
||||||
CveCuentaGanancia = 0 ' 55382
|
CveCuentaGanancia = 0 ' 55382
|
||||||
idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
|
idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
|
||||||
IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
|
IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
|
||||||
Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
|
Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
|
||||||
Total = LblTotalBancos.Text.ToDecimal
|
Total = LblTotalBancos.Text.ToDecimal
|
||||||
|
|
||||||
|
Dim CveConconceptoBancos As Integer = 204
|
||||||
|
|
||||||
|
'saco las cuentas de pérdida y ganancia
|
||||||
Dim CveConconceptoBancos As Integer = 204
|
|
||||||
|
|
||||||
|
|
||||||
'saco las cuentas de pérdida y ganancia
|
|
||||||
For Each gvr As GridViewRow In GvCuentas.Rows
|
For Each gvr As GridViewRow In GvCuentas.Rows
|
||||||
Dim cb As CheckBox = gvr.FCCheckBox("ChkGenerarBancos")
|
Dim cb As CheckBox = gvr.FCCheckBox("ChkGenerarBancos")
|
||||||
If cb.Checked Then
|
If cb.Checked Then
|
||||||
Total = gvr.DataKey("Fluctuacion").ToDecimal
|
Total = gvr.DataKey("Fluctuacion").ToDecimal
|
||||||
Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
|
Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
|
||||||
Dim ConceptoReferencia As String = $"{gvr.DataKey("Banco")} - {gvr.DataKey("NumCuenta")} "
|
Dim ConceptoReferencia As String = String.Format("{0} - {1} {2}", gvr.DataKey("Banco"), gvr.DataKey("NumCuenta"), MesTCtexto)
|
||||||
|
|
||||||
|
|
||||||
'MOVIMIENTO DE FLUCTUACION
|
'MOVIMIENTO DE FLUCTUACION
|
||||||
@@ -485,16 +467,10 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
|
|
||||||
Protected Sub BtnGeneraDedudores_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnGeneraDedudores_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
|
||||||
'If DdlSubProyectoDeoudores.SelectedValue.ToEntero < 0 Then
|
|
||||||
' Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
|
|
||||||
' Exit Sub
|
|
||||||
'End If
|
|
||||||
|
|
||||||
Dim Total As Decimal = 0
|
Dim Total As Decimal = 0
|
||||||
Dim Conta As New ClsContabilidad
|
Dim Conta As New ClsContabilidad
|
||||||
Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
|
Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
|
||||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaDD", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Deudor", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaDD", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoDeudores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
Dim idCta As Integer = 0
|
Dim idCta As Integer = 0
|
||||||
Dim CveCuenta As Integer = 0
|
Dim CveCuenta As Integer = 0
|
||||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||||
@@ -565,17 +541,12 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
|
|
||||||
Protected Sub BtnGeneraFiliales_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnGeneraFiliales_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
'If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
|
|
||||||
' Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
|
|
||||||
' Exit Sub
|
|
||||||
'End If
|
|
||||||
|
|
||||||
Dim Total As Decimal = 0
|
Dim Total As Decimal = 0
|
||||||
Dim Conta As New ClsContabilidad
|
Dim Conta As New ClsContabilidad
|
||||||
Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
|
Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
|
||||||
Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
|
Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||||
ObjContPaq.IniciaTransacSQL()
|
ObjContPaq.IniciaTransacSQL()
|
||||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Filiales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoFiliales.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
Dim idCta As Integer = 0
|
Dim idCta As Integer = 0
|
||||||
Dim CveCuenta As Integer = 0
|
Dim CveCuenta As Integer = 0
|
||||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||||
@@ -665,12 +636,10 @@ Partial Class Bancos_FluctuacionCambiaria
|
|||||||
|
|
||||||
Protected Sub BtnGeneraAcreedores_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnGeneraAcreedores_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim Total As Decimal = 0
|
Dim Total As Decimal = 0
|
||||||
Dim Conta As New ClsContabilidad
|
Dim Conta As New ClsContabilidad
|
||||||
Conta.IniciaTransacSQL()
|
Conta.IniciaTransacSQL()
|
||||||
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoAcreedores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
Dim idCta As Integer = 0
|
Dim idCta As Integer = 0
|
||||||
Dim CveCuenta As Integer = 0
|
Dim CveCuenta As Integer = 0
|
||||||
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
|
||||||
|
|||||||
@@ -35,6 +35,13 @@
|
|||||||
</b>
|
</b>
|
||||||
|
|
||||||
<asp:TextBox ID="LtlSaldo" runat="server" Enabled="true" CssClass="TextBoxAsLabel" BorderStyle="None" BackColor="Transparent" ForeColor="#3c763d" Style="text-align: left"></asp:TextBox>
|
<asp:TextBox ID="LtlSaldo" runat="server" Enabled="true" CssClass="TextBoxAsLabel" BorderStyle="None" BackColor="Transparent" ForeColor="#3c763d" Style="text-align: left"></asp:TextBox>
|
||||||
|
|
||||||
|
|
||||||
|
<b>
|
||||||
|
<asp:Label ID="LblMetodoPAgo" runat="server" data-toggle="tooltip" data-placement="right" title="Metodo de pago"></asp:Label>
|
||||||
|
</b>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
|
|||||||
@@ -736,11 +736,16 @@ Partial Class Bancos_PopIEVentas
|
|||||||
SerieFolio = dr("SerieFolio").ToString
|
SerieFolio = dr("SerieFolio").ToString
|
||||||
TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
|
TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
|
||||||
CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
|
CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
|
||||||
'Configuración de Modalidad Update
|
|
||||||
|
|
||||||
'Dim RFCCliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RFC", $"CveCliente = {CveCliente} ")
|
|
||||||
|
|
||||||
|
|
||||||
|
LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'Configuración de Modalidad Update
|
||||||
|
|
||||||
|
'Dim RFCCliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RFC", $"CveCliente = {CveCliente} ")
|
||||||
|
|
||||||
|
|
||||||
If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
|
If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
|
||||||
If dr("TipoDocto").ToString = "Rem" Then
|
If dr("TipoDocto").ToString = "Rem" Then
|
||||||
Alert("Los documentos de tipo Remisión no se permite realizar el pago", TipoMensaje.MsgAdvertencia)
|
Alert("Los documentos de tipo Remisión no se permite realizar el pago", TipoMensaje.MsgAdvertencia)
|
||||||
|
|||||||
@@ -106,6 +106,17 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
|
|||||||
txtFechaF.Text = DateTime.Now.ToShortDateString();
|
txtFechaF.Text = DateTime.Now.ToShortDateString();
|
||||||
TxtImporte.Attributes.Add("disabled", "disabled");
|
TxtImporte.Attributes.Add("disabled", "disabled");
|
||||||
|
|
||||||
|
if(UsuarioActual.Empresa.Funcionalidad(281).ToEntero() == 1)
|
||||||
|
{
|
||||||
|
TxtFechaPrestamo.Enabled = false;
|
||||||
|
ImgCalendarioPrestamo.Visible = false;
|
||||||
|
|
||||||
|
TxtFechaDocumento.Enabled = false;
|
||||||
|
ImgCalendario.Visible = false;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@@ -45,7 +45,7 @@
|
|||||||
<div class="modal-header ">
|
<div class="modal-header ">
|
||||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
<h4 class="modal-title">
|
<h4 class="modal-title">
|
||||||
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Tipo Gastos de Rechazo</asp:Literal></h4>
|
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Tipo Gastos</asp:Literal></h4>
|
||||||
</div>
|
</div>
|
||||||
<div class="modal-body">
|
<div class="modal-body">
|
||||||
|
|
||||||
|
|||||||
@@ -29,6 +29,24 @@ Partial Class Compras_Compras
|
|||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
Private Property EstaAsociadoACajaChica() As Boolean
|
||||||
|
Get
|
||||||
|
Return If(IsNothing(ViewState("EstaAsociadoACajaChica")), False, CBool(ViewState("EstaAsociadoACajaChica")))
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
ViewState("EstaAsociadoACajaChica") = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Property EstaAsociadoAPersonal() As Boolean
|
||||||
|
Get
|
||||||
|
Return If(IsNothing(ViewState("EstaAsociadoAPersonal")), False, CBool(ViewState("EstaAsociadoAPersonal")))
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
ViewState("EstaAsociadoAPersonal") = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
Private Property CveUsuarioEvaluador() As Integer
|
Private Property CveUsuarioEvaluador() As Integer
|
||||||
Get
|
Get
|
||||||
Return If(IsNothing(ViewState("CveUsuarioEvaluador")), -1, CInt(ViewState("CveUsuarioEvaluador")))
|
Return If(IsNothing(ViewState("CveUsuarioEvaluador")), -1, CInt(ViewState("CveUsuarioEvaluador")))
|
||||||
@@ -848,6 +866,14 @@ Partial Class Compras_Compras
|
|||||||
ViewState("PopUpOC") = value
|
ViewState("PopUpOC") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
Private Property CompraEstaVinculadaOC As Boolean
|
||||||
|
Get
|
||||||
|
Return CBool(ViewState("CompraEstaVinculadaOC"))
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
ViewState("CompraEstaVinculadaOC") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "PROPIEDADES ALMACEN" 'Charlie
|
#Region "PROPIEDADES ALMACEN" 'Charlie
|
||||||
@@ -1307,6 +1333,9 @@ Partial Class Compras_Compras
|
|||||||
ViewState("CveFactura") = Request("CveFactura").ToEntero
|
ViewState("CveFactura") = Request("CveFactura").ToEntero
|
||||||
|
|
||||||
Dim RFC As String = CargaFactura(CveFactura)
|
Dim RFC As String = CargaFactura(CveFactura)
|
||||||
|
If Not VerificarProductosSATPS() Then
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
If RFC.Trim <> String.Empty Then
|
If RFC.Trim <> String.Empty Then
|
||||||
DdlProveedor.Visible = False
|
DdlProveedor.Visible = False
|
||||||
HplProveedor.Visible = True
|
HplProveedor.Visible = True
|
||||||
@@ -1734,6 +1763,7 @@ Partial Class Compras_Compras
|
|||||||
'TmpDT.Columns.Add("IEPSPSIVAPorcentaje")
|
'TmpDT.Columns.Add("IEPSPSIVAPorcentaje")
|
||||||
SubTotalConceptos = Math.Round(TmpDT.SUM("Total"), 2).ToDecimal
|
SubTotalConceptos = Math.Round(TmpDT.SUM("Total"), 2).ToDecimal
|
||||||
AddPS2(False)
|
AddPS2(False)
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
CargaConceptosXML(XMLDoc)
|
CargaConceptosXML(XMLDoc)
|
||||||
@@ -3971,6 +4001,17 @@ Partial Class Compras_Compras
|
|||||||
DtNoEncontrados.Dispose()
|
DtNoEncontrados.Dispose()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
|
||||||
|
If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
|
||||||
|
If Not CompraEstaVinculadaOC Then
|
||||||
|
Alert("Debe de vincular una orden de compra para realizar esta factura")
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle
|
'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle
|
||||||
Dim GuardaNoDeducibles As Boolean = False
|
Dim GuardaNoDeducibles As Boolean = False
|
||||||
If ChkEsNoDeducible.Checked Then
|
If ChkEsNoDeducible.Checked Then
|
||||||
@@ -12712,6 +12753,7 @@ Partial Class Compras_Compras
|
|||||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||||
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
||||||
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
||||||
|
EstaAsociadoACajaChica = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
|
||||||
@@ -12740,7 +12782,7 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
ObjMovtos.Dispose()
|
ObjMovtos.Dispose()
|
||||||
DDlCheques.DataBind()
|
DDlCheques.DataBind()
|
||||||
|
EstaAsociadoAPersonal = True
|
||||||
|
|
||||||
DDlCheques_SelectedIndexChanged(DDlCheques, EventArgs.Empty)
|
DDlCheques_SelectedIndexChanged(DDlCheques, EventArgs.Empty)
|
||||||
Else
|
Else
|
||||||
@@ -13751,6 +13793,9 @@ Partial Class Compras_Compras
|
|||||||
#Region " REEMBOLSOS NO USA AC "
|
#Region " REEMBOLSOS NO USA AC "
|
||||||
Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged
|
Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged
|
||||||
ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
|
ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
|
||||||
|
If DdlPersonalReembolso.SelectedValue.ToEntero > 0 Then
|
||||||
|
EstaAsociadoAPersonal = True
|
||||||
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub DdlCajaChica2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaCajaChicaReembolso.SelectedIndexChanged
|
Protected Sub DdlCajaChica2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaCajaChicaReembolso.SelectedIndexChanged
|
||||||
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentaCajaChicaReembolso.SelectedValue)
|
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentaCajaChicaReembolso.SelectedValue)
|
||||||
@@ -13759,6 +13804,7 @@ Partial Class Compras_Compras
|
|||||||
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
CveMoneda = dr("CveMoneda").ToString.ToEntero
|
||||||
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
|
||||||
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
||||||
|
EstaAsociadoACajaChica = True
|
||||||
End If
|
End If
|
||||||
ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
|
ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
|
||||||
End Sub
|
End Sub
|
||||||
@@ -15052,7 +15098,7 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
'SI PUEDE RECIBIR POR OC Y COMPRA
|
'SI PUEDE RECIBIR POR OC Y COMPRA
|
||||||
' si usa almacen, si tiene activado que reciba por OC, y que si la compra tipo Proveedor. que lo muestre
|
' si usa almacen, si tiene activado que reciba por OC, y que si la compra tipo Proveedor. que lo muestre
|
||||||
If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
|
If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
|
||||||
DivOCVinculaInv.Visible = True
|
DivOCVinculaInv.Visible = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -15381,27 +15427,27 @@ Partial Class Compras_Compras
|
|||||||
Dim SubTotalCompra As Decimal = Amortizacion
|
Dim SubTotalCompra As Decimal = Amortizacion
|
||||||
Dim DiferenciaPermitida = 1
|
Dim DiferenciaPermitida = 1
|
||||||
Dim Cont = 0
|
Dim Cont = 0
|
||||||
Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
|
'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
|
||||||
For Each gvr As GridViewRow In GvOC1.Rows
|
'For Each gvr As GridViewRow In GvOC1.Rows
|
||||||
SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
|
' SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
|
||||||
If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
|
' If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
|
||||||
Cont = 1
|
' Cont = 1
|
||||||
If GvOC1.Columns(6).Visible Then
|
' If GvOC1.Columns(6).Visible Then
|
||||||
Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
|
' Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
|
||||||
Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
|
' Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
|
||||||
If SatPS.Contains("01010101") Then
|
' If SatPS.Contains("01010101") Then
|
||||||
ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", NombreProducto)
|
' ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", NombreProducto)
|
||||||
'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
|
' 'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
|
||||||
'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
|
' 'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
|
||||||
|
|
||||||
End If
|
' End If
|
||||||
End If
|
' End If
|
||||||
Next
|
'Next
|
||||||
If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
|
'If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
|
||||||
Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
|
' Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
|
||||||
Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
|
' Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
|
||||||
Exit Sub
|
' Exit Sub
|
||||||
End If
|
'End If
|
||||||
|
|
||||||
If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
|
If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
|
||||||
LbSubTotalDif.Visible = False
|
LbSubTotalDif.Visible = False
|
||||||
@@ -15434,15 +15480,16 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
|
|
||||||
'SI PUEDE RECIBIR POR OC Y COMPRA
|
'SI PUEDE RECIBIR POR OC Y COMPRA
|
||||||
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
|
||||||
If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
|
If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
|
||||||
If DdlOCVinculaInv.SelectedValue.ToEntero <= 0 Then
|
|
||||||
Alert("El campo <b>Tipo de recepción almacén</b> es necesario. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
If DdlOCVinculaInv.SelectedValue.ToEntero <= 0 Then
|
||||||
Exit Sub
|
Alert("El campo <b>Tipo de recepción almacén</b> es necesario. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If Math.Abs(HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal) > 0.05 AndAlso UsuarioActual.CveEmpresa.Contiene(119) Then
|
If Math.Abs(HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal) > 0.05 AndAlso UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||||
Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia)
|
Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
@@ -15639,6 +15686,7 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
CalculaTotales()
|
CalculaTotales()
|
||||||
|
CompraEstaVinculadaOC = True
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -19831,7 +19879,7 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
'2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL
|
'2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL
|
||||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, If(ConceptoSalida = 0, IdCtaContableAlmacen, IdCtaContableRecepcionOCER), -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
|
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, ConceptoPartida, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, ConceptoPartida, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
|
||||||
Retorno = False
|
Retorno = False
|
||||||
Exit For
|
Exit For
|
||||||
@@ -20156,7 +20204,37 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Function VerificarProductosSATPS() As Boolean
|
||||||
|
Dim CvePSGRuposAux As New StringBuilder("")
|
||||||
|
For Each gvr As GridViewRow In GvPS.Rows
|
||||||
|
Dim CvePSIndividual As String = gvr.DataKey("CvePS")
|
||||||
|
CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
|
||||||
|
Next
|
||||||
|
|
||||||
|
If CvePSGRuposAux.Length > 0 Then
|
||||||
|
Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
|
||||||
|
|
||||||
|
Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
|
||||||
|
|
||||||
|
Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
|
||||||
|
For Each PS As GridViewRow In GvPS.Rows
|
||||||
|
Dim PSIndividual As String = PS.DataKey("PS")
|
||||||
|
Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
|
||||||
|
If ClavePSSAT = "46920" Then
|
||||||
|
ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
|
||||||
|
Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
|
||||||
|
Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|||||||
@@ -1241,6 +1241,7 @@ Partial Class PopUpVerFactura
|
|||||||
Dim Observaciones As String = ObjInventarios.Observaciones
|
Dim Observaciones As String = ObjInventarios.Observaciones
|
||||||
Dim ObservacionesSolicitud As String = ObjInventarios.DtResultados.FiltroPrimeroValor("ObservacionesSolicitud")
|
Dim ObservacionesSolicitud As String = ObjInventarios.DtResultados.FiltroPrimeroValor("ObservacionesSolicitud")
|
||||||
Dim NombreCapturo As String = ObjInventarios.NombreCapturo
|
Dim NombreCapturo As String = ObjInventarios.NombreCapturo
|
||||||
|
Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego")
|
||||||
Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen
|
Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen
|
||||||
Dim Recibio As String = ObjInventarios.Recibio
|
Dim Recibio As String = ObjInventarios.Recibio
|
||||||
Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio
|
Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio
|
||||||
@@ -1344,7 +1345,7 @@ Partial Class PopUpVerFactura
|
|||||||
EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
|
EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
|
||||||
MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
|
MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
|
||||||
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
|
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
|
||||||
CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen)
|
CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego)
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
|
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
|
||||||
@@ -1361,7 +1362,7 @@ Partial Class PopUpVerFactura
|
|||||||
Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
|
Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
|
||||||
EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
|
EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
|
||||||
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
|
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
|
||||||
RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1)
|
RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "")
|
||||||
|
|
||||||
|
|
||||||
Select Case CveConcepto
|
Select Case CveConcepto
|
||||||
@@ -2707,7 +2708,7 @@ Partial Class PopUpVerFactura
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
|
Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
|
||||||
Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Capturo))
|
Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego))
|
||||||
|
|
||||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||||
params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
|
params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
|
||||||
@@ -2718,7 +2719,7 @@ Partial Class PopUpVerFactura
|
|||||||
params.Add(New ReportParameter("Descuentos", ""))
|
params.Add(New ReportParameter("Descuentos", ""))
|
||||||
params.Add(New ReportParameter("IVA", ""))
|
params.Add(New ReportParameter("IVA", ""))
|
||||||
params.Add(New ReportParameter("Total", ""))
|
params.Add(New ReportParameter("Total", ""))
|
||||||
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
params.Add(New ReportParameter("NombreEntrego", NombreEntrego))
|
||||||
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
||||||
params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
|
params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
|
||||||
params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
|
params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
|
||||||
@@ -2730,7 +2731,7 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
||||||
params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
params.Add(New ReportParameter("Observaciones", Observaciones))
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -644,7 +644,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
ConceptoMovimiento = $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}"
|
ConceptoMovimiento = $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}"
|
||||||
Referencia = gvr.DataKey("SerieFolio").ToString
|
Referencia = gvr.DataKey("SerieFolio").ToString
|
||||||
IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
|
IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
|
||||||
CveCuentaProveedor = gvr.DataKey("IdCtaContProveedoresSIG").ToEntero
|
|
||||||
|
|
||||||
ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
||||||
ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
|
||||||
@@ -660,6 +660,11 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
Case Else
|
Case Else
|
||||||
End Select
|
End Select
|
||||||
End If
|
End If
|
||||||
|
If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then
|
||||||
|
IdCtaProveedor = gvr.DataKey("IdCtaContAcreedor").ToEntero
|
||||||
|
Else
|
||||||
|
IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
|
||||||
|
End If
|
||||||
|
|
||||||
If SaldoCheque > 0 Then
|
If SaldoCheque > 0 Then
|
||||||
ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
|
ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
|
||||||
|
|||||||
@@ -249,7 +249,7 @@
|
|||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
|
|
||||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
|
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
|
||||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
|
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
|
||||||
<Columns>
|
<Columns>
|
||||||
<asp:TemplateField>
|
<asp:TemplateField>
|
||||||
<HeaderTemplate>
|
<HeaderTemplate>
|
||||||
@@ -366,6 +366,14 @@
|
|||||||
<asp:Label data-toggle="tooltip" data-html="true" Text='' ID="LbEstatusInv" runat="server" />
|
<asp:Label data-toggle="tooltip" data-html="true" Text='' ID="LbEstatusInv" runat="server" />
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
|
<asp:TemplateField ControlStyle-Width="150px" Visible="false">
|
||||||
|
<HeaderTemplate>
|
||||||
|
Descripción
|
||||||
|
</HeaderTemplate>
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="LtlDescrip" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
</Columns>
|
</Columns>
|
||||||
<RowStyle CssClass="Texto" />
|
<RowStyle CssClass="Texto" />
|
||||||
<HeaderStyle CssClass="Titulos" />
|
<HeaderStyle CssClass="Titulos" />
|
||||||
@@ -419,6 +427,8 @@
|
|||||||
<asp:CheckBox ID="ChkDiasVencidos" runat="server" Text="Dias Vencidos" Checked="true" /></td>
|
<asp:CheckBox ID="ChkDiasVencidos" runat="server" Text="Dias Vencidos" Checked="true" /></td>
|
||||||
<td style="text-align: left;">
|
<td style="text-align: left;">
|
||||||
<asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Checked="false" /></td>
|
<asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Checked="false" /></td>
|
||||||
|
<td style="text-align: left;">
|
||||||
|
<asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción" Checked="false" /></td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
<td style="text-align: left;">
|
<td style="text-align: left;">
|
||||||
|
|||||||
@@ -621,6 +621,8 @@ Partial Class RepCxPDetalle
|
|||||||
GvDatos.Columns(13).Visible = False
|
GvDatos.Columns(13).Visible = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
GvDatos.Columns(14).Visible = ChkDescripcion.Checked
|
||||||
|
|
||||||
Personalizo = 1
|
Personalizo = 1
|
||||||
If Personalizo = 1 Then
|
If Personalizo = 1 Then
|
||||||
ImgExcelPersonalizado.Visible = True
|
ImgExcelPersonalizado.Visible = True
|
||||||
|
|||||||
@@ -982,34 +982,39 @@ Partial Class ContabilidadC_RegPrePoliza
|
|||||||
|
|
||||||
Else
|
Else
|
||||||
MsgError = "No se pudo insertar la póliza"
|
MsgError = "No se pudo insertar la póliza"
|
||||||
End If
|
End If
|
||||||
Catch ex As Exception
|
|
||||||
MsgError = "Error"
|
If MsgError = "" Then
|
||||||
End Try
|
|
||||||
|
'MENSAJE IE
|
||||||
If MsgError = "" Then
|
If CveIE > 0 Then
|
||||||
'MENSAJE IE
|
MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
|
||||||
If CveIE > 0 Then
|
Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
|
||||||
MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
|
Else
|
||||||
Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
|
Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
|
||||||
Else
|
End If
|
||||||
Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
|
|
||||||
End If
|
ObjIE.Commit()
|
||||||
|
If Conta IsNot Nothing Then Conta.Commit()
|
||||||
ObjIE.Commit()
|
|
||||||
If Conta IsNot Nothing Then Conta.Commit()
|
'UPPDocumento.Update()
|
||||||
|
'TxtObservaciones.Text = ""
|
||||||
UPPDocumento.Update()
|
'GvMov.DataBind()
|
||||||
|
'TxtFecha.Text = ""
|
||||||
TxtObservaciones.Text = ""
|
'TxtObservaciones.Text = ""
|
||||||
GvMov.DataBind()
|
Else
|
||||||
TxtFecha.Text = ""
|
ObjIE.RollBack()
|
||||||
TxtObservaciones.Text = ""
|
If Conta IsNot Nothing Then Conta.RollBack()
|
||||||
Else
|
End If
|
||||||
ObjIE.RollBack()
|
Catch ex As Exception
|
||||||
|
ObjIE.RollBack()
|
||||||
If Conta IsNot Nothing Then Conta.RollBack()
|
If Conta IsNot Nothing Then Conta.RollBack()
|
||||||
End If
|
Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgInformacion)
|
||||||
|
ex.GuardaLog(ex.Message)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
ObjIE.Dispose()
|
ObjIE.Dispose()
|
||||||
ObjMov.Dispose()
|
ObjMov.Dispose()
|
||||||
If Conta IsNot Nothing Then Conta.Dispose()
|
If Conta IsNot Nothing Then Conta.Dispose()
|
||||||
|
|||||||
96
General/CatMedidaEquivalencia.aspx
Normal file
96
General/CatMedidaEquivalencia.aspx
Normal file
@@ -0,0 +1,96 @@
|
|||||||
|
<%@ Page Title="General - Catálogo de Equivalencias de Medida" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatMedidaEquivalencia.aspx.cs" Inherits="General_CatMedidaEquivalencia" %>
|
||||||
|
|
||||||
|
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||||
|
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||||
|
</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">
|
||||||
|
Catálogo de Equivalencias de Medida
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||||
|
<asp:UpdatePanel runat="server" ID="UpAgregar">
|
||||||
|
<ContentTemplate>
|
||||||
|
<li>
|
||||||
|
<asp:LinkButton runat="server" ID="BtnAgregarMedidaEquivalente" OnClick="BtnAgregarMedidaEquivalente_Click" data-toggle="tooltip" data-placement="left" title="Agregar un Medida Equivalente" Text="<i class='fa fa-plus'></i>Agregar Medida Equivalente"></asp:LinkButton>
|
||||||
|
</li>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||||
|
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMedidaEquivalencia,CveMedida,CveRin,CveMedidaEquivalente,CveRinEquivalente,Medida,RinTamaño,MedidaEquivalente,RinTamañoEquivalente" EmptyDataText="No se encontraron Equivalencias de Medidas" ToolTip="Listado de Equivalencias de Medidas" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
|
||||||
|
<Columns>
|
||||||
|
<asp:BoundField HeaderText="Medida" DataField="Medida" ItemStyle-Width="22.5%"/>
|
||||||
|
<asp:BoundField HeaderText="Tamaño de Rin" DataField="RinTamaño" ItemStyle-Width="22.5%"/>
|
||||||
|
<asp:BoundField HeaderText="Medida Equivalente" DataField="MedidaEquivalente" ItemStyle-Width="22.5%"/>
|
||||||
|
<asp:BoundField HeaderText="Tamaño de Rin Equivalente" DataField="RinTamañoEquivalente" ItemStyle-Width="22.5%"/>
|
||||||
|
<asp:TemplateField ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
|
||||||
|
<asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
</Columns>
|
||||||
|
</asp:GridView>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
<div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
|
||||||
|
<div class="modal-dialog" style="width: 350px;">
|
||||||
|
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="modal-header ">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">
|
||||||
|
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Medidas Equivalentes</asp:Literal></h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList runat="server" ID="DdlMedidas" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Medida" DataValueField="CveMedida"></asp:DropDownList>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvDdlMedidas" InitialValue="-1" runat="server" ControlToValidate="DdlMedidas" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMedida"></asp:RequiredFieldValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="VceDdlMedidas" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMedidas" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<label for="DdlMedidas">Medida:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList runat="server" ID="DdlRin" CssClass="form-control input-sm select2me" Width="100%" DataTextField="RinTamaño" DataValueField="CveRinTamaño"></asp:DropDownList>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvDdlRin" InitialValue="-1" runat="server" ControlToValidate="DdlMedidas" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Rin''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMedida"></asp:RequiredFieldValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="VceDdlRin" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlRin" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<label for="DdlRin">Rin:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList runat="server" ID="DdlMedidasEquivalente" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Medida" DataValueField="CveMedida"></asp:DropDownList>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvDdlMedidasEquivalente" InitialValue="-1" runat="server" ControlToValidate="DdlMedidasEquivalente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medida Equivalente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMedida"></asp:RequiredFieldValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="VceDdlMedidasEquivalente" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMedidasEquivalente" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<label for="DdlMedidasEquivalente">Medida Equivalente:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:DropDownList runat="server" ID="DdlRinEquivalente" CssClass="form-control input-sm select2me" Width="100%" DataTextField="RinTamaño" DataValueField="CveRinTamaño"></asp:DropDownList>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvDdlRinEquivalente" InitialValue="-1" runat="server" ControlToValidate="DdlRinEquivalente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Rin Equivalente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMedida"></asp:RequiredFieldValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="VceDdlRinEquivalente" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlRinEquivalente" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
|
<label for="DdlRinEquivalente">Rin Equivalente:</label>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<br />
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:Button ID="BtnAgregarEquivalente" OnClick="BtnAgregarEquivalente_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpMedida" />
|
||||||
|
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</asp:Content>
|
||||||
|
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||||
|
</asp:Content>
|
||||||
132
General/CatMedidaEquivalencia.aspx.cs
Normal file
132
General/CatMedidaEquivalencia.aspx.cs
Normal file
@@ -0,0 +1,132 @@
|
|||||||
|
using System;
|
||||||
|
using System.Collections.Generic;
|
||||||
|
using System.Linq;
|
||||||
|
using System.Web;
|
||||||
|
using System.Web.UI;
|
||||||
|
using System.Web.UI.WebControls;
|
||||||
|
using Extensiones;
|
||||||
|
using System.Data;
|
||||||
|
|
||||||
|
public partial class General_CatMedidaEquivalencia : ClsPaginas
|
||||||
|
{
|
||||||
|
private int CveMedidaEquivalencia
|
||||||
|
{
|
||||||
|
get
|
||||||
|
{
|
||||||
|
return ViewState["CveMedidaEquivalencia"].ToString().ToEntero();
|
||||||
|
}
|
||||||
|
|
||||||
|
set
|
||||||
|
{
|
||||||
|
ViewState["CveMedidaEquivalencia"] = value;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void Page_Load(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
if (!IsPostBack)
|
||||||
|
{
|
||||||
|
CargaDatos();
|
||||||
|
CargaDatosModal();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
private void CargaDatos()
|
||||||
|
{
|
||||||
|
ClsGenerales ObjGeneral = new ClsGenerales();
|
||||||
|
if (ObjGeneral.GetMedidasEquivalentes(UsuarioActual.CveEmpresa))
|
||||||
|
{
|
||||||
|
GvDatos.DataSource = ObjGeneral.DtResultados;
|
||||||
|
GvDatos.DataBind();
|
||||||
|
}
|
||||||
|
ObjGeneral.Dispose();
|
||||||
|
}
|
||||||
|
|
||||||
|
private void CargaDatosModal()
|
||||||
|
{
|
||||||
|
ClsGenerales ObjGeneral = new ClsGenerales();
|
||||||
|
if (ObjGeneral.GetMedidas(UsuarioActual.CveEmpresa))
|
||||||
|
{
|
||||||
|
DdlMedidas.DataSource = ObjGeneral.DtResultados;
|
||||||
|
DdlMedidasEquivalente.DataSource = ObjGeneral.DtResultados;
|
||||||
|
}
|
||||||
|
if (ObjGeneral.GetRimTamanios(UsuarioActual.CveEmpresa))
|
||||||
|
{
|
||||||
|
DdlRin.DataSource = ObjGeneral.DtResultados;
|
||||||
|
DdlRinEquivalente.DataSource = ObjGeneral.DtResultados;
|
||||||
|
}
|
||||||
|
ObjGeneral.Dispose();
|
||||||
|
DdlMedidas.DataBind();
|
||||||
|
DdlMedidasEquivalente.DataBind();
|
||||||
|
DdlRin.DataBind();
|
||||||
|
DdlRinEquivalente.DataBind();
|
||||||
|
DdlMedidas.Items.Insert(0, new ListItem("Seleccione", "-1"));
|
||||||
|
DdlMedidasEquivalente.Items.Insert(0, new ListItem("Seleccione", "-1"));
|
||||||
|
DdlRin.Items.Insert(0, new ListItem("Seleccione", "-1"));
|
||||||
|
DdlRinEquivalente.Items.Insert(0, new ListItem("Seleccione", "-1"));
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void BtnAgregarMedidaEquivalente_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
BtnAgregarEquivalente.Text = "Agregar";
|
||||||
|
DdlMedidas.SelectedValueExist(-1);
|
||||||
|
DdlMedidasEquivalente.SelectedValueExist(-1);
|
||||||
|
DdlRin.SelectedValueExist(-1);
|
||||||
|
DdlRinEquivalente.SelectedValueExist(-1);
|
||||||
|
UpModalTiposD.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void LnkEditar_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
BtnAgregarEquivalente.Text = "Actualizar";
|
||||||
|
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
|
||||||
|
CveMedidaEquivalencia = GvRow.DataKey("CveMedidaEquivalencia").ToEntero();
|
||||||
|
int CveMedida = GvRow.DataKey("CveMedida").ToEntero();
|
||||||
|
int CveRin = GvRow.DataKey("CveRin").ToEntero();
|
||||||
|
int CveMedidaEquivalente = GvRow.DataKey("CveMedidaEquivalente").ToEntero();
|
||||||
|
int CveRinEquivalente = GvRow.DataKey("CveRinEquivalente").ToEntero();
|
||||||
|
DdlMedidas.SelectedValueExist(CveMedida);
|
||||||
|
DdlMedidasEquivalente.SelectedValueExist(CveMedidaEquivalente);
|
||||||
|
DdlRin.SelectedValueExist(CveRin);
|
||||||
|
DdlRinEquivalente.SelectedValueExist(CveRinEquivalente);
|
||||||
|
UpModalTiposD.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void LnkEliminar_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
|
||||||
|
int CveMedidaEquivalenciaEliminar = GvRow.DataKey("CveMedidaEquivalencia").ToEntero();
|
||||||
|
ClsGenerales ObjGeneral = new ClsGenerales();
|
||||||
|
if (ObjGeneral.RemoveMedidasEquivalentes(CveMedidaEquivalenciaEliminar))
|
||||||
|
{
|
||||||
|
Alert("Equivalencia eliminada correctamente");
|
||||||
|
CargaDatos();
|
||||||
|
UpDatos.Update();
|
||||||
|
}
|
||||||
|
ObjGeneral.Dispose();
|
||||||
|
}
|
||||||
|
|
||||||
|
protected void BtnAgregarEquivalente_Click(object sender, EventArgs e)
|
||||||
|
{
|
||||||
|
ClsGenerales ObjGeneral = new ClsGenerales();
|
||||||
|
if(BtnAgregarEquivalente.Text == "Agregar")
|
||||||
|
{
|
||||||
|
if (ObjGeneral.AddMedidasEquivalentes(DdlMedidas.SelectedValue.ToEntero(),DdlRin.SelectedValue.ToEntero(), DdlMedidasEquivalente.SelectedValue.ToEntero(),DdlRinEquivalente.SelectedValue.ToEntero()))
|
||||||
|
{
|
||||||
|
Alert("Se agregó la equivalencia correctamente");
|
||||||
|
}
|
||||||
|
}else
|
||||||
|
{
|
||||||
|
if (ObjGeneral.UpdateMedidasEquivalentes(CveMedidaEquivalencia, DdlMedidas.SelectedValue.ToEntero(), DdlRin.SelectedValue.ToEntero(), DdlMedidasEquivalente.SelectedValue.ToEntero(), DdlRinEquivalente.SelectedValue.ToEntero()))
|
||||||
|
{
|
||||||
|
Alert("Se actualizó la equivalencia correctamente");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
ObjGeneral.Dispose();
|
||||||
|
CargaDatos();
|
||||||
|
UpDatos.Update();
|
||||||
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
|
||||||
|
}
|
||||||
|
}
|
||||||
@@ -275,6 +275,7 @@ Partial Class Inventarios_EntradasSalidas
|
|||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
|
||||||
If Not IsPostBack Then
|
If Not IsPostBack Then
|
||||||
|
|
||||||
CveMovimiento = -1
|
CveMovimiento = -1
|
||||||
@@ -289,6 +290,7 @@ Partial Class Inventarios_EntradasSalidas
|
|||||||
CreaDT()
|
CreaDT()
|
||||||
CargaCombos()
|
CargaCombos()
|
||||||
TxtFecha.Text = Now.ToShortDateString
|
TxtFecha.Text = Now.ToShortDateString
|
||||||
|
TxtFechaInvFisico.Text = Now.ToShortDateString
|
||||||
RVFecha.MaximumValue = Now.ToShortDateString
|
RVFecha.MaximumValue = Now.ToShortDateString
|
||||||
|
|
||||||
If Not UsuarioActual.CveEmpresa = 48 Then
|
If Not UsuarioActual.CveEmpresa = 48 Then
|
||||||
@@ -350,7 +352,25 @@ Partial Class Inventarios_EntradasSalidas
|
|||||||
PermisoVerImportes()
|
PermisoVerImportes()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
|
||||||
|
|
||||||
|
TxtFecha.Enabled = False
|
||||||
|
ImgFecha.Visible = False
|
||||||
|
|
||||||
|
TxtFechaInvFisico.Enabled = False
|
||||||
|
ImgFechaInvFisico.Visible = False
|
||||||
|
|
||||||
|
UpGenerales.Update()
|
||||||
|
UpModalInventarioFisico.Update()
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region " PERMISOS PAGINAS "
|
#Region " PERMISOS PAGINAS "
|
||||||
@@ -927,6 +947,21 @@ Partial Class Inventarios_EntradasSalidas
|
|||||||
'BtnGuardar.Visible = False
|
'BtnGuardar.Visible = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
|
||||||
|
|
||||||
|
TxtFecha.Enabled = False
|
||||||
|
ImgFecha.Visible = False
|
||||||
|
|
||||||
|
TxtFechaInvFisico.Enabled = False
|
||||||
|
ImgFechaInvFisico.Visible = False
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
UpModalInventarioFisico.Update()
|
||||||
BloqueaEdicionEncabezado()
|
BloqueaEdicionEncabezado()
|
||||||
Mov.Dispose()
|
Mov.Dispose()
|
||||||
UpGenerales.Update()
|
UpGenerales.Update()
|
||||||
|
|||||||
@@ -263,6 +263,14 @@ Partial Class Inventarios_EntregaAlmacen
|
|||||||
InicializaValores()
|
InicializaValores()
|
||||||
CargaParametrosAD()
|
CargaParametrosAD()
|
||||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
|
||||||
|
|
||||||
|
TxtFecha.Enabled = False
|
||||||
|
ImgFecha.Visible = False
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
@@ -35,18 +35,37 @@
|
|||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
</td>
|
</td>
|
||||||
|
<td>
|
||||||
|
|
||||||
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr runat="server" id="DivMed" visible="false">
|
<tr runat="server" id="DivMed" visible="false">
|
||||||
<td class="text-right">Medida: </td>
|
<td class="text-right">Medida: </td>
|
||||||
<td >
|
<td >
|
||||||
<asp:DropDownList runat="server" ID="DdlMedidas" CssClass="form-control input-sm select2me" Width="150px" DataTextField="Medida" DataValueField="CveMedida"></asp:DropDownList>
|
<asp:DropDownList runat="server" ID="DdlMedidas" CssClass="form-control input-sm select2me" Width="150px" DataTextField="Medida" DataValueField="CveMedida"></asp:DropDownList>
|
||||||
</td>
|
</td>
|
||||||
|
<td rowspan="2">
|
||||||
|
<div id="DivEquivalentes" style="overflow-y: auto; overflow-x:hidden; width: 150px; height:100px" runat="server" visible="False">
|
||||||
|
<asp:GridView ID="GvEquival" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMedidaEquivalencia,CveMedida,CveRin,CveMedidaEquivalente,CveRinEquivalente,Medida,RinTamaño,MedidaEquivalente,RinTamañoEquivalente" EmptyDataText="No se encontraron Equivalencias de Medidas" ToolTip="Listado de Equivalencias de Medidas" CssClass="table table-striped table-advance table-hover" Style="margin-top: 10px; width: 100%" GridLines="None">
|
||||||
|
<Columns>
|
||||||
|
<asp:TemplateField ItemStyle-Width="300px" HeaderText="Equivalentes">
|
||||||
|
<ItemTemplate>
|
||||||
|
<asp:Literal ID="lblUsuario" runat="server" Text='<%#String.Concat(Eval("MedidaEquivalente"), " ", Eval("RinTamañoEquivalente")) %>'></asp:Literal>
|
||||||
|
</ItemTemplate>
|
||||||
|
</asp:TemplateField>
|
||||||
|
</Columns>
|
||||||
|
</asp:GridView>
|
||||||
|
</div>
|
||||||
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr runat="server" id="DivRin" visible="false">
|
<tr runat="server" id="DivRin" visible="false">
|
||||||
<td class="text-right">Rin: </td>
|
<td class="text-right">Rin: </td>
|
||||||
<td >
|
<td >
|
||||||
<asp:DropDownList runat="server" ID="DdlRin" CssClass="form-control input-sm select2me" Width="150px" DataTextField="RinTamaño" DataValueField="CveRinTamaño"></asp:DropDownList>
|
<asp:DropDownList runat="server" ID="DdlRin" CssClass="form-control input-sm select2me" Width="150px" DataTextField="RinTamaño" DataValueField="CveRinTamaño"></asp:DropDownList>
|
||||||
</td>
|
</td>
|
||||||
|
<td>
|
||||||
|
|
||||||
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr runat="server" id="DivCodigoSeriePS" visible="false">
|
<tr runat="server" id="DivCodigoSeriePS" visible="false">
|
||||||
<td class="text-right"><b>C. Barras:</b></td>
|
<td class="text-right"><b>C. Barras:</b></td>
|
||||||
@@ -60,6 +79,9 @@
|
|||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
</td>
|
</td>
|
||||||
|
<td>
|
||||||
|
|
||||||
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
|
|
||||||
<tr align="left" runat="server" id="DivSucursal" visible="false">
|
<tr align="left" runat="server" id="DivSucursal" visible="false">
|
||||||
@@ -67,12 +89,15 @@
|
|||||||
<td>
|
<td>
|
||||||
<asp:DropDownList ID="DdlSubProyecto" AutoPostBack="True" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="400px"></asp:DropDownList>
|
<asp:DropDownList ID="DdlSubProyecto" AutoPostBack="True" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="400px"></asp:DropDownList>
|
||||||
</td>
|
</td>
|
||||||
|
<td></td>
|
||||||
</tr>
|
</tr>
|
||||||
|
|
||||||
<tr>
|
<tr>
|
||||||
<td colspan="4" style="text-align: center;">
|
<td colspan="4" style="text-align: center;">
|
||||||
<asp:Button ID="BtnBuscar" runat="server" Text="Buscar" class="btn btn-primary" />
|
<asp:Button ID="BtnBuscar" runat="server" Text="Buscar" class="btn btn-primary" />
|
||||||
</td>
|
</td>
|
||||||
|
<td></td>
|
||||||
|
<td></td>
|
||||||
</tr>
|
</tr>
|
||||||
</table>
|
</table>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
@@ -113,7 +138,7 @@
|
|||||||
</Columns>
|
</Columns>
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
</div>
|
</div>
|
||||||
<div id="DivMedRin" style="overflow-y: auto; width: 765px; height: 365px;" runat="server" visible="True">
|
<div id="DivMedRin" style="overflow-y: auto; width: 765px; height: 230px;" runat="server" visible="True">
|
||||||
<asp:GridView ID="GvMedRin" Width="100%" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" ToolTip="Listado de Contratos encontrados." CssClass="table table-striped table-hover" GridLines="None">
|
<asp:GridView ID="GvMedRin" Width="100%" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" ToolTip="Listado de Contratos encontrados." CssClass="table table-striped table-hover" GridLines="None">
|
||||||
<Columns>
|
<Columns>
|
||||||
<asp:BoundField DataField="Almacen" HeaderText="Almacén" />
|
<asp:BoundField DataField="Almacen" HeaderText="Almacén" />
|
||||||
|
|||||||
@@ -70,6 +70,7 @@ Partial Class Inventarios_Default
|
|||||||
DivRin.Visible = True
|
DivRin.Visible = True
|
||||||
CargarMedRin()
|
CargarMedRin()
|
||||||
DivMedRin.Visible = True
|
DivMedRin.Visible = True
|
||||||
|
DivEquivalentes.Visible = True
|
||||||
DivPS.Visible = False
|
DivPS.Visible = False
|
||||||
End If
|
End If
|
||||||
Dim Txt As String = IfNull(Request("Txt"), "").ToString
|
Dim Txt As String = IfNull(Request("Txt"), "").ToString
|
||||||
@@ -89,6 +90,7 @@ Partial Class Inventarios_Default
|
|||||||
Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
|
Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
|
||||||
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
|
||||||
CargarDatosMedRin()
|
CargarDatosMedRin()
|
||||||
|
CargaEquivalencia()
|
||||||
Else
|
Else
|
||||||
CargaDatos(DDlPS.SelectedValue.ToEntero, 1)
|
CargaDatos(DDlPS.SelectedValue.ToEntero, 1)
|
||||||
End If
|
End If
|
||||||
@@ -243,6 +245,15 @@ Partial Class Inventarios_Default
|
|||||||
UPDatos.Update()
|
UPDatos.Update()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CargaEquivalencia()
|
||||||
|
Dim ObjGeneral As New ClsGenerales
|
||||||
|
If ObjGeneral.GetMedidasEquivalentes(UsuarioActual.CveEmpresa, DdlMedidas.SelectedValue.ToEntero(), DdlRin.SelectedValue.ToEntero()) Then
|
||||||
|
GvEquival.DataSource = ObjGeneral.DtResultados
|
||||||
|
End If
|
||||||
|
ObjGeneral.Dispose()
|
||||||
|
GvEquival.DataBind()
|
||||||
|
End Sub
|
||||||
|
|
||||||
Private Function ValidarFiltrosSeleccionados() As Boolean
|
Private Function ValidarFiltrosSeleccionados() As Boolean
|
||||||
If DDlPS.SelectedValue.ToEntero > 0 Then Return True
|
If DDlPS.SelectedValue.ToEntero > 0 Then Return True
|
||||||
Return False
|
Return False
|
||||||
|
|||||||
@@ -399,6 +399,14 @@ Partial Class Inventarios_RecepcionAlmacen
|
|||||||
CargaPermisos()
|
CargaPermisos()
|
||||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
|
||||||
|
|
||||||
|
TxtFecha.Enabled = False
|
||||||
|
ImgFecha.Visible = False
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
@@ -234,35 +234,39 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="portlet-body rowpadding">
|
<div class="portlet-body rowpadding">
|
||||||
|
|
||||||
|
<asp:UpdatePanel ID="UpAutorizaciones" runat="server" UpdateMode="Conditional">
|
||||||
<div class="row" runat="server" id="DVAutorizaInformacion" visible = "False" >
|
<ContentTemplate>
|
||||||
|
|
||||||
<div class="col-md-12" runat="server" >
|
<div class="row" runat="server" id="DVAutorizaInformacion" visible = "False" >
|
||||||
<table>
|
|
||||||
|
<div class="col-md-12" runat="server" >
|
||||||
|
<table>
|
||||||
|
|
||||||
<tr><td><b>Estado : </b></td><td><asp:Label runat="server" id="LblEstatusAutorizo" ></asp:Label></td></tr>
|
<tr><td><b>Estado : </b></td><td><asp:Label runat="server" id="LblEstatusAutorizo" ></asp:Label></td></tr>
|
||||||
<tr><td><b>Usuario : </b></td><td><asp:Label runat="server" id="LblUsaurioAutorizo" ></asp:Label></td></tr>
|
<tr><td><b>Usuario : </b></td><td><asp:Label runat="server" id="LblUsaurioAutorizo" ></asp:Label></td></tr>
|
||||||
<tr><td><b>Fecha : </b></td><td><asp:Label runat="server" id="LblFechaAutoriza" ></asp:Label></td></tr>
|
<tr><td><b>Fecha : </b></td><td><asp:Label runat="server" id="LblFechaAutoriza" ></asp:Label></td></tr>
|
||||||
|
|
||||||
</table>
|
</table>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
</div>
|
<div class="row" runat="server" id="DVAutorizarBotones" visible = "False" >
|
||||||
|
|
||||||
</div>
|
|
||||||
|
|
||||||
<div class="row" runat="server" id="DVAutorizarBotones" visible = "False" >
|
|
||||||
|
|
||||||
|
|
||||||
<div class="col-md-6" style="text-align:center!important">
|
<div class="col-md-6" style="text-align:center!important">
|
||||||
<asp:LinkButton runat="server" Text ="Aceptar" id="LnkAceptarTraslado" CssClass="btn btn-success"
|
<asp:LinkButton runat="server" Text ="Aceptar" id="LnkAceptarTraslado" CssClass="btn btn-success"
|
||||||
data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar autorización?" data-btn-ok-label="Si" OnClick="LnkAceptarTraslado_Click"></asp:LinkButton>
|
data-toggle="confirmation" data-popout="true" data-original-title="¿Confirmar autorización?" data-btn-ok-label="Si" OnClick="LnkAceptarTraslado_Click"></asp:LinkButton>
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-6" style="text-align:center!important">
|
<div class="col-md-6" style="text-align:center!important">
|
||||||
<asp:LinkButton runat="server" Text ="Rechazar" ID="LnkRechazarTraslado" CssClass="btn btn-danger" OnClick="LnkRechazarTraslado_Click" ></asp:LinkButton>
|
<asp:LinkButton runat="server" Text ="Rechazar" ID="LnkRechazarTraslado" CssClass="btn btn-danger" OnClick="LnkRechazarTraslado_Click" ></asp:LinkButton>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -285,6 +285,9 @@ Partial Class Inventarios_TrasladoSolicitud
|
|||||||
Else
|
Else
|
||||||
Alert("Ocurrió un error al obtener los datos del traspaso.", TipoMensaje.MsgError)
|
Alert("Ocurrió un error al obtener los datos del traspaso.", TipoMensaje.MsgError)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
UpAutorizaciones.Update()
|
||||||
|
|
||||||
End If
|
End If
|
||||||
ObjInventarios.Dispose()
|
ObjInventarios.Dispose()
|
||||||
ObjClientes.Dispose()
|
ObjClientes.Dispose()
|
||||||
@@ -1034,6 +1037,9 @@ Partial Class Inventarios_TrasladoSolicitud
|
|||||||
MandaCorreoRechazo(LbFolio.Text.ToEntero, CveTraspasoSolicitud, CveUsuarioSolicita, TxtMotivoRechazo.Text)
|
MandaCorreoRechazo(LbFolio.Text.ToEntero, CveTraspasoSolicitud, CveUsuarioSolicita, TxtMotivoRechazo.Text)
|
||||||
CargaDatos()
|
CargaDatos()
|
||||||
RegistraScript("$('#ModalRechazarTraslado').modal('hide');")
|
RegistraScript("$('#ModalRechazarTraslado').modal('hide');")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
@@ -228,6 +228,18 @@ Partial Class Inventarios_TraspasoAlmacen
|
|||||||
|
|
||||||
TipoSeccionAlmacen = 0
|
TipoSeccionAlmacen = 0
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
|
||||||
|
|
||||||
|
TxtFecha.Enabled = False
|
||||||
|
ImgFecha.Visible = False
|
||||||
|
|
||||||
|
TxtFechaRecepcion.Enabled = False
|
||||||
|
ImgFechaRecepcion.Visible = False
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
If ChkTransitorio.Checked Then
|
If ChkTransitorio.Checked Then
|
||||||
RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
|
RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
|
||||||
|
|||||||
@@ -280,7 +280,7 @@ Partial Class OC_CatEstatus
|
|||||||
Dim CveSuperior As Integer = If(tblSuperior.Visible = True, ddlSuperior.SelectedValue.ToEntero, -1)
|
Dim CveSuperior As Integer = If(tblSuperior.Visible = True, ddlSuperior.SelectedValue.ToEntero, -1)
|
||||||
|
|
||||||
If hdnCveEstatusUsuarios.Value.ToEntero = -1 Then
|
If hdnCveEstatusUsuarios.Value.ToEntero = -1 Then
|
||||||
If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior) Then
|
If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
|
||||||
RegistraScript(String.Format("{0}.style.background-color='yellow'", IDCellYellow.Value))
|
RegistraScript(String.Format("{0}.style.background-color='yellow'", IDCellYellow.Value))
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -2858,7 +2858,7 @@ Partial Class OC
|
|||||||
'2018.11.24 se cambia concepto 176, de cargo a abono negativo., petición MALL
|
'2018.11.24 se cambia concepto 176, de cargo a abono negativo., petición MALL
|
||||||
'2019.03.26 se cambia concepto 177, de abono a cargo., petición MALL
|
'2019.03.26 se cambia concepto 177, de abono a cargo., petición MALL
|
||||||
'2019.04.10 se cambia concepto 177, de cargo a abono., petición MALL
|
'2019.04.10 se cambia concepto 177, de cargo a abono., petición MALL
|
||||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), SerieFolio, Fecha, If(ConceptoSalida = 0, IdCtaContableAlmacen, IdCtaContableRecepcionOCER), -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
|
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), SerieFolio, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, SerieFolio, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, SerieFolio, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
|
||||||
TieneError = True
|
TieneError = True
|
||||||
Exit For
|
Exit For
|
||||||
|
|||||||
@@ -1089,11 +1089,18 @@ Partial Class RH_Personal
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CargaSubProyectoAsignado()
|
Private Sub CargaSubProyectoAsignado()
|
||||||
DdlSubProyectoAsignado.Items.Clear()
|
If DivProyectosAsignado.Visible Then
|
||||||
DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(DdlProyectoAsignado.SelectedValue.ToEntero)
|
|
||||||
DdlSubProyectoAsignado.DataBind()
|
DdlSubProyectoAsignado.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
|
||||||
|
DdlSubProyectoAsignado.DataBind()
|
||||||
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
|
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||||
|
'old
|
||||||
|
'DdlSubProyectoAsignado.Items.Clear()
|
||||||
|
'DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(DdlProyectoAsignado.SelectedValue.ToEntero)
|
||||||
|
'DdlSubProyectoAsignado.DataBind()
|
||||||
|
|
||||||
|
'DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
|
||||||
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CargaSubProyectoAsistenciaC()
|
Private Sub CargaSubProyectoAsistenciaC()
|
||||||
|
|||||||
@@ -1327,6 +1327,11 @@
|
|||||||
<asp:ListItem Text="Identificador" Value="4"></asp:ListItem>
|
<asp:ListItem Text="Identificador" Value="4"></asp:ListItem>
|
||||||
<asp:ListItem Text="Serie" Value="5"></asp:ListItem>
|
<asp:ListItem Text="Serie" Value="5"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
|
|
||||||
|
<asp:RequiredFieldValidator ID="RFVDdlMetodoInventario" runat="server" ControlToValidate="DdlMetodoInventario" InitialValue="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Metodo Inventario(Diferente de empresa)''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||||
|
<ajax:ValidatorCalloutExtender ID="CERFVDdlMetodoInventario" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlMetodoInventario" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
|
|
||||||
|
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr>
|
<tr>
|
||||||
|
|||||||
@@ -1921,7 +1921,9 @@
|
|||||||
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Cobrar Pendientes" ToolTip="Listado de CxC"
|
<div class="row">
|
||||||
|
<div class="col-md-12">
|
||||||
|
<asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas X Cobrar Pendientes" ToolTip="Listado de CxC"
|
||||||
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-height="300" GridLines="None" DataKeyNames="CveVenta">
|
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-height="300" GridLines="None" DataKeyNames="CveVenta">
|
||||||
<Columns>
|
<Columns>
|
||||||
|
|
||||||
@@ -1931,6 +1933,9 @@
|
|||||||
<asp:Literal ID="LtlFactura" runat="server"></asp:Literal>
|
<asp:Literal ID="LtlFactura" runat="server"></asp:Literal>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
|
|
||||||
|
|
||||||
|
<asp:BoundField HeaderText="Metodo Pago" DataField="ClaveMetodoPagoSAT" ItemStyle-HorizontalAlign="Center" />
|
||||||
<asp:BoundField HeaderText="Fecha Venta" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
|
<asp:BoundField HeaderText="Fecha Venta" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
|
||||||
<asp:BoundField HeaderText="Fecha Vencimiento" DataField="FechaVencimiento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
|
<asp:BoundField HeaderText="Fecha Vencimiento" DataField="FechaVencimiento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
|
||||||
<asp:BoundField HeaderText="Días Vencidos" DataField="DiasVencidos" DataFormatString="{0}" ItemStyle-HorizontalAlign="Center" />
|
<asp:BoundField HeaderText="Días Vencidos" DataField="DiasVencidos" DataFormatString="{0}" ItemStyle-HorizontalAlign="Center" />
|
||||||
@@ -1974,6 +1979,8 @@
|
|||||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||||
<HeaderStyle CssClass="Titulos" />
|
<HeaderStyle CssClass="Titulos" />
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
@@ -2003,14 +2010,15 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="portlet-body">
|
<div class="portlet-body">
|
||||||
<div class="row col-md-12" align="right">
|
<div class="col-md-12" align="right">
|
||||||
<input type="text" id="TxtCxCHistorial" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtCxCHistorial','{0}')", GvCxCHistorial.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
<input type="text" id="TxtCxCHistorial" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtCxCHistorial','{0}')", GvCxCHistorial.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtCxCHistorial','{0}')", GvCxCHistorial.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtCxCHistorial','{0}')", GvCxCHistorial.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||||
</div>
|
</div>
|
||||||
<br />
|
|
||||||
<br />
|
<br />
|
||||||
<br />
|
<br />
|
||||||
<div class="row">
|
<div class="row">
|
||||||
|
<div class="col-md-12">
|
||||||
<asp:GridView ID="GvCxCHistorial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró Historial de Cuentas X Cobrar"
|
<asp:GridView ID="GvCxCHistorial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró Historial de Cuentas X Cobrar"
|
||||||
ToolTip="Listado de Historia CxC" CssClass="table table-striped table-advance table-hover table-grid Widthall ScrollAD" data-height="300"
|
ToolTip="Listado de Historia CxC" CssClass="table table-striped table-advance table-hover table-grid Widthall ScrollAD" data-height="300"
|
||||||
GridLines="None">
|
GridLines="None">
|
||||||
@@ -2052,6 +2060,7 @@
|
|||||||
<AlternatingRowStyle CssClass="TextoAlterno" />
|
<AlternatingRowStyle CssClass="TextoAlterno" />
|
||||||
<HeaderStyle CssClass="Titulos" />
|
<HeaderStyle CssClass="Titulos" />
|
||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -2731,7 +2731,7 @@ Partial Class Clientes
|
|||||||
'HLRemision.HRef = $"/Ventas/Ventas.aspx?CveRemision={e.Row.DBCampo("CveVenta")}"
|
'HLRemision.HRef = $"/Ventas/Ventas.aspx?CveRemision={e.Row.DBCampo("CveVenta")}"
|
||||||
|
|
||||||
Dim Liga As String = String.Format("< a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
|
Dim Liga As String = String.Format("< a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
|
||||||
HLSendMail.HRef = String.Format("javascript:$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
|
HLSendMail.HRef = String.Format("javascript:(function mail(){{$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();return false;}})();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
|
||||||
e.Row.FCLiteral("LtlFactura").Text = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">{1}</a>", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("Folio"))
|
e.Row.FCLiteral("LtlFactura").Text = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">{1}</a>", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("Folio"))
|
||||||
|
|
||||||
UpSendMail.Update()
|
UpSendMail.Update()
|
||||||
|
|||||||
@@ -911,7 +911,7 @@ Partial Class ProductosyServicios
|
|||||||
|
|
||||||
Public Sub CargaDdlSATPS()
|
Public Sub CargaDdlSATPS()
|
||||||
DdlSATPS.setEsWebService(True)
|
DdlSATPS.setEsWebService(True)
|
||||||
DdlSATPS.Attributes.Add("data-metodo", "getpssat")
|
DdlSATPS.ddlWS.Attributes.Add("data-metodo", "getpssat")
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Sub CargaDdlFraccionArancelaria()
|
Public Sub CargaDdlFraccionArancelaria()
|
||||||
@@ -1123,6 +1123,10 @@ Partial Class ProductosyServicios
|
|||||||
End Sub
|
End Sub
|
||||||
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
||||||
|
|
||||||
|
If DdlSATPS.SelectedValue = "46920" Then
|
||||||
|
Alert("El Producto Servicio SAT con clave '01010101' no es valido, por favor seleccione otro", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
If TxtPS.Text.Trim.Length = 0 Or DdlTipoPS.SelectedValue.ToEntero <= 0 Or DdlUnidadMedida.SelectedValue.ToEntero <= 0 Or DdlClasificacion.SelectedValue.ToEntero <= 0 Then
|
If TxtPS.Text.Trim.Length = 0 Or DdlTipoPS.SelectedValue.ToEntero <= 0 Or DdlUnidadMedida.SelectedValue.ToEntero <= 0 Or DdlClasificacion.SelectedValue.ToEntero <= 0 Then
|
||||||
Alert("Los campos Producto/Servicio, Tipo, Unidad de medida, Clasificación Contable son requeridos por favor ingreselos.", TipoMensaje.MsgAdvertencia)
|
Alert("Los campos Producto/Servicio, Tipo, Unidad de medida, Clasificación Contable son requeridos por favor ingreselos.", TipoMensaje.MsgAdvertencia)
|
||||||
|
|||||||
@@ -114,6 +114,8 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user