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

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

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-04-07 20:25:51 -07:00
parent dd300743d1 67697be233
commit 1c2c067bbc
7 changed files with 87 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsPaginas.vb
View File

@@ -4790,9 +4790,13 @@ Public Class ClsPaginas
PaginaDict.Add("/OI/RepDesarrollo.aspx".ToUpper(), 475)
PaginaDict.Add("/OI/DesarrolloWizard.aspx".ToUpper(), 474)
PaginaDict.Add("/OI/SubidasADS.aspx".ToUpper(), 476)
PaginaDict.Add("/OI/CatDocumentoCategoria.aspx".ToUpper(), 760)
PaginaDict.Add("/OI/CatDocumentoSubCategoria.aspx".ToUpper(), 761)
PaginaDict.Add("/OI/Documentos.aspx".ToUpper(), 762)
'PaginaDict.Add("/OI/CatDocumentoCategoria.aspx".ToUpper(), 760)
'PaginaDict.Add("/OI/CatDocumentoSubCategoria.aspx".ToUpper(), 761)
'PaginaDict.Add("/OI/Documentos.aspx".ToUpper(), 762)
PaginaDict.Add("/OI/CatDocumentoCategoria.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/CatDocumentoSubCategoria.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/Documentos.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/DocumentoDetalle.aspx".ToUpper(), -1)
#End Region
#Region "Planeacion"

16
Compras/Compras.aspx.vb
View File

@@ -1355,7 +1355,7 @@ Partial Class Compras_Compras
GvInv.Visible = True
CargaProveedor(-1, RFC)
If Not DdlTipoComprobante.SelectedValue = "NC" Then
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
If TmpDT.MAX("CvePS").ToEntero > 0 Then
BtnGuardar.Enabled = False
@@ -4060,13 +4060,15 @@ Partial Class Compras_Compras
' DtNoEncontrados.Dispose()
'End If
'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
'Verifica funcionalidad 128 "Require orden de compra para factura de compra"
If UsuarioActual.Empresa.Funcionalidad(128) <> "" Then
If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
If Not CompraEstaVinculadaOC Then
Alert("Debe de vincular una orden de compra para registrar la factura")
Exit Sub
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
If Not CompraEstaVinculadaOC Then
Alert("Debe de vincular una orden de compra para registrar la factura")
Exit Sub
End If
End If
End If
End If

57
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -382,6 +382,63 @@ Partial Class Compras_ReembolsosComprobaciones
#Region " BTN GUARDAR "
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
Dim ValFechaDocumento As Boolean = False
Dim FoliosFechasValFechaDocumento As New StringBuilder
FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
For Each gvRowVal As GridViewRow In GvCxP.Rows
If gvRowVal.FCCheckBox("Chk").Checked Then
Dim FechaFactura As Date = gvRowVal.DataKey("FechaCompra").ToDate
Dim FechaDocumento As Date
If DDlCheques.SelectedValue.ToEntero = -1 Then
FechaDocumento = TxtFechaDocumento.Text.ToDate
Else
FechaDocumento = TxtFechaPrePoliza.Text.ToDate
End If
Dim AnioFactura As Integer = FechaFactura.Year
Dim MesFactura As Integer = FechaFactura.Month
Dim AnioDocumento As Integer = FechaDocumento.Year
Dim MesDocumento As Integer = FechaDocumento.Month
If AnioFactura > AnioDocumento Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
End If
End If
Next
If ValFechaDocumento Then
Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If HdnCheque.Value.ToEntero > 0 And ChkChequeExcedente.Checked And TxtImporte.Text.ToDecimal = 0 Then
Alert("El importe del cheque excedente debe ser mayor a cero", TipoMensaje.MsgAdvertencia)
Exit Sub

4
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -1053,7 +1053,7 @@ Partial Class Inventarios_RecepcionAlmacen
DivTraspasoDevolucion.Visible = True
LtlTextoDevolucion.Text = "La mercancía sera trasladada desde el almacen seleccionado al almacén de devolución"
ElseIf TipoMovimiento = 2 AndAlso GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=21).Rows.Count = 0 Then
LtlTextoDevolucion.Text = "La mercancía sera devuelta ha el almacen seleccionado."
LtlTextoDevolucion.Text = "La mercancía sera devuelta a el almacen seleccionado."
DivTraspasoDevolucion.Visible = True
End If
@@ -1125,7 +1125,7 @@ Partial Class Inventarios_RecepcionAlmacen
BtnGuardar.Enabled = False
LtAdvertencia.Text = "No se puede recibir la mercancía por ser de apartados y no contar con un almacen de apartado."
Else
LtAdvertencia.Text = "La mercancía sera traspasada ha apartados"
LtAdvertencia.Text = "La mercancía sera traspasada a apartados"
If CargaSoloUsados Then
CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
Else

2
OI/CatDocumentoCategoria.aspx.cs
View File

@@ -45,6 +45,7 @@ public partial class OI_CatDocumentoCategoria : ClsPaginas
protected void BtnAgregarCategoria_Click(object sender, EventArgs e)
{
BtnAgregarCategoriaDoc.Text = "Agregar";
LtlTituloModalTiposD.Text = "Agregar Categoría de Documentos";
TxtCategoria.Text = "";
ChkEstatus.Checked = true;
UpModalTiposD.Update();
@@ -54,6 +55,7 @@ public partial class OI_CatDocumentoCategoria : ClsPaginas
protected void LnkEditar_Click(object sender, EventArgs e)
{
BtnAgregarCategoriaDoc.Text = "Actualizar";
LtlTituloModalTiposD.Text = "Actualizar Categoría de Documentos";
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveCategoria = GvRow.DataKey("CveCategoria").ToEntero();
TxtCategoria.Text = GvRow.DataKey("Categoria");

4
OI/CatDocumentoSubCategoria.aspx
View File

@@ -50,7 +50,7 @@
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtSubCategoria" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtSubCategoria" runat="server" ControlToValidate="TxtSubCategoria" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Categoría''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<asp:RequiredFieldValidator ID="RfvTxtSubCategoria" runat="server" ControlToValidate="TxtSubCategoria" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubCategoría''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="TxtSubCategoria">Subcategoría:</label>
<i></i>
</div>
@@ -58,6 +58,8 @@
<div>
<label for="TxtSubCategoria">Categoría:</label><br />
<asp:DropDownList ID="DdlCategorias" CssClass="form-control select2me" runat="server" DataTextField="Categoria" Width="100%" DataValueField="CveCategoria"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlCategorias" runat="server" ControlToValidate="DdlCategorias" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Categoría''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<i></i>
</div>
</div>
<br />

7
OI/CatDocumentoSubCategoria.aspx.cs
View File

@@ -49,6 +49,7 @@ public partial class OI_CatDocumentoSubCategoria : ClsPaginas
{
DdlCategorias.DataSource = ObjOI.DtResultados.FiltraParametros("Estado = 1");
DdlCategorias.DataBind();
DdlCategorias.Items.Insert(0, new ListItem("Seleccione una","-1"));
}
ObjOI.Dispose();
}
@@ -56,6 +57,7 @@ public partial class OI_CatDocumentoSubCategoria : ClsPaginas
protected void BtnAgregarSubCategoria_Click(object sender, EventArgs e)
{
BtnAgregarSubCategoriaDoc.Text = "Agregar";
LtlTituloModalTiposD.Text = "Agregar Subcategoría de Documentos";
TxtSubCategoria.Text = "";
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
@@ -64,9 +66,14 @@ public partial class OI_CatDocumentoSubCategoria : ClsPaginas
protected void LnkEditar_Click(object sender, EventArgs e)
{
BtnAgregarSubCategoriaDoc.Text = "Actualizar";
LtlTituloModalTiposD.Text = "Actualizar Subcategoría de Documentos";
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveSubCategoria = GvRow.DataKey("CveSubCategoria").ToEntero();
TxtSubCategoria.Text = GvRow.DataKey("SubCategoria");
DdlCategorias.SelectedValueExist(GvRow.DataKey("CveCategoria"));
UpModalTiposD.Update();
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
}