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:
rrene
2021-01-14 18:03:13 -07:00
parent 1b36ab5069 842f15c2bf
commit ef6655ed0e
10 changed files with 41 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
AF/CatActividades.aspx
View File

@@ -43,7 +43,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 de Servicio</asp:Literal></h4> <asp:Literal ID="LtlTituloModalTiposD" runat="server">Actividad</asp:Literal></h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">

2
AF/CatActividades.aspx.cs
View File

@@ -40,7 +40,7 @@ public partial class AF_CatActividades : ClsPaginas
} }
DdlPuesto.DataSource = get_GlobalDTRHPuestos(UsuarioActual.CveEmpresa); DdlPuesto.DataSource = get_GlobalDTRHPuestos(UsuarioActual.CveEmpresa);
DdlPuesto.DataBind(); DdlPuesto.DataBind();
DdlPuesto.Items.Insert(0,new ListItem("-1","Seleccione")); DdlPuesto.Items.Insert(0,new ListItem("Seleccione", "-1"));
ObjAF.Dispose(); ObjAF.Dispose();
} }

4
AF/CatCheckList.aspx
View File

@@ -23,9 +23,9 @@
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCheckList, CveTipoServicio, CveCheckListActividad, Nombre, CheckListActividad" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None"> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCheckList, CveTipoServicio, CveCheckListActividad, CheckListActividad" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Nombre" DataField="Nombre" /> <asp:BoundField HeaderText="Actividad" DataField="CheckListActividad" />
<asp:BoundField HeaderText="CheckList Actividad" DataField="CheckListActividad" /> <asp:BoundField HeaderText="CheckList Actividad" DataField="CheckListActividad" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar"> <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate> <ItemTemplate>

4
AF/CatCheckList.aspx.cs
View File

@@ -33,7 +33,7 @@ public partial class AF_CatCheckList : ClsPaginas
private void CargaDatos() private void CargaDatos()
{ {
ClsAF ObjAF = new ClsAF(); ClsAF ObjAF = new ClsAF();
if (ObjAF.GetCheckList(-1, -1, -1)) if (ObjAF.GetCheckList(-1, -1, -1,UsuarioActual.CveEmpresa))
{ {
GvDatos.DataSource = ObjAF.DtResultados; GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind(); GvDatos.DataBind();
@@ -48,7 +48,7 @@ public partial class AF_CatCheckList : ClsPaginas
} }
DdlCheckListActividad.Items.Clear(); DdlCheckListActividad.Items.Clear();
if (ObjAF.GetCheckListActividad(-1, -1)) if (ObjAF.GetCheckListActividad(-1, -1,UsuarioActual.CveEmpresa))
{ {
DdlCheckListActividad.DataSource = ObjAF.DtResultados; DdlCheckListActividad.DataSource = ObjAF.DtResultados;
DdlCheckListActividad.DataBind(); DdlCheckListActividad.DataBind();

4
AF/CatCheckListActividades.aspx
View File

@@ -25,8 +25,8 @@
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCheckListActividad, CheckListActividad, CveCheckListActividadGrupo, CheckListActividadGrupo" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None"> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCheckListActividad, CheckListActividad, CveCheckListActividadGrupo, CheckListActividadGrupo" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Actividad CheckList" DataField="CheckListActividad" /> <asp:BoundField HeaderText="Actividad" DataField="CheckListActividad" />
<asp:BoundField HeaderText="Grupo Actividad de CheckList" DataField="CheckListActividadGrupo" /> <asp:BoundField HeaderText="Grupo" DataField="CheckListActividadGrupo" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar"> <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate> <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="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>" />

2
AF/CatCheckListActividades.aspx.cs
View File

@@ -33,7 +33,7 @@ public partial class AF_CatCheckListActividades : ClsPaginas
private void CargaDatos() private void CargaDatos()
{ {
ClsAF ObjAF = new ClsAF(); ClsAF ObjAF = new ClsAF();
if (ObjAF.GetCheckListActividad(-1, -1)) if (ObjAF.GetCheckListActividad(-1, -1,UsuarioActual.CveEmpresa))
{ {
GvDatos.DataSource = ObjAF.DtResultados; GvDatos.DataSource = ObjAF.DtResultados;
GvDatos.DataBind(); GvDatos.DataBind();

13
App_Code/ClsValidaCFDi.vb
View File

@@ -31,9 +31,12 @@ Public Class ClsValidaCFDi
Public Property FechaCertificacion As String Public Property FechaCertificacion As String
Public Property Monto As String Public Property Monto As String
Public Property FechaCancelacion As String Public Property FechaCancelacion As String
Public Property ResponseHTML As String Public Property ResponseHTML As String
Public Property EnListaEFOS As Boolean = False
#End Region #End Region
Public Sub New() Public Sub New()
End Sub End Sub
@@ -102,6 +105,12 @@ Public Class ClsValidaCFDi
EsValida = 2 EsValida = 2
End If End If
If oAcuse.ValidacionEFOS = "100" Then
EnListaEFOS = True
Else
EnListaEFOS = False
End If
'SI NO PUEDE ENCONTRAR EL ESTATUS UTILIZA EL SERVICIO PARA ESTATUS DE CANCELACION 'SI NO PUEDE ENCONTRAR EL ESTATUS UTILIZA EL SERVICIO PARA ESTATUS DE CANCELACION
If EsValida = 0 Then If EsValida = 0 Then

2
Bancos/IE.aspx.vb
View File

@@ -5993,7 +5993,7 @@ Partial Class Bancos_IE
PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False) PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False)
Str.AppendFormat("Folio: <b>{0}</b> &nbsp;", Banco.ComplementoSerieFolio) Str.AppendFormat("Folio: <b>{0}</b> &nbsp;", Banco.ComplementoSerieFolio)
Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML &nbsp;<i class=""fa fa-file""></i></i></a>&nbsp;&nbsp;", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML &nbsp;<i class=""fa fa-file""></i></i></a>&nbsp;&nbsp;", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF &nbsp;<i class=""fa fa-ad-pdf""></i></i></i></a>&nbsp;", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF &nbsp;<i class=""fa fa-ad-pdf""></i></i></i></a>&nbsp;", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago, CveIE)))
Str.AppendFormat("<a style='color:#337ab7' target='_blank' href='./IE.aspx?CveIE={0}'>{1}</a> &nbsp; {2}<br>", CveIE, Folio, DdlCliente.SelectedText.ToString()) Str.AppendFormat("<a style='color:#337ab7' target='_blank' href='./IE.aspx?CveIE={0}'>{1}</a> &nbsp; {2}<br>", CveIE, Folio, DdlCliente.SelectedText.ToString())
MandaCorreo(Banco.ComplementoSerieFolio, CorreoCobranzaCliente) MandaCorreo(Banco.ComplementoSerieFolio, CorreoCobranzaCliente)
End If End If

10
Compras/Compras.aspx.vb
View File

@@ -1673,6 +1673,7 @@ Partial Class Compras_Compras
If IO.File.Exists(Archivo) Then If IO.File.Exists(Archivo) Then
Dim Validada As Boolean = True Dim Validada As Boolean = True
Dim EnListadoEFOS As Boolean = False
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui 'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui
@@ -1695,6 +1696,13 @@ Partial Class Compras_Compras
Valida.EsValida = 1 Valida.EsValida = 1
End If End If
EnListadoEFOS = Valida.EnListaEFOS
If EnListadoEFOS Then
Alert("El emisor de la factura se encuentra dentro del listado de EFOS.", TipoMensaje.MsgAdvertencia)
End If
If Valida.EsValida > 0 Then If Valida.EsValida > 0 Then
If Valida.EsValida = 2 Then If Valida.EsValida = 2 Then
Validada = False Validada = False
@@ -1722,7 +1730,7 @@ Partial Class Compras_Compras
UpPSS.Update() UpPSS.Update()
If Validada Then If Validada And Not EnListadoEFOS Then

20
Contratos/ContratoObra.aspx.vb
View File

@@ -3306,7 +3306,7 @@ Partial Class Contratos_ContratoObra
StrReturn = "True|" & CvePS.ToString StrReturn = "True|" & CvePS.ToString
Else Else
StrReturn = "False|&nbsp;&nbsp;&nbsp;&nbsp;- No se encontró " & Valor & " en la fila " & NumRow & ", columna " & Opt StrReturn = "False|" & Valor & " en la fila " & NumRow & ", columna " & Opt
End If End If
Return StrReturn Return StrReturn
End Function End Function
@@ -4506,8 +4506,13 @@ Partial Class Contratos_ContratoObra
UpModalCargaPresupuesto.Update() UpModalCargaPresupuesto.Update()
DTPS = DTPS.FiltraParametros("Cantidad > 0")
Return DTPS Return DTPS
End Function End Function
@@ -4580,16 +4585,12 @@ Partial Class Contratos_ContratoObra
If CBool(StrArray(0)) = True Then If CBool(StrArray(0)) = True Then
CvePS = StrArray(1).ToEntero CvePS = StrArray(1).ToEntero
Else Else
RowNoEncontrados &= StrArray(1) & "<\BR>" RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>"
End If End If
End If End If
If CvePS > 0 And DrowPS("Cantidad").ToString.ToDouble > 0 Then If CvePS > 0 And DrowPS("Cantidad").ToString.ToDouble > 0 Then
CveUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $" UnidadMedida = '{ DrowPS("UnidadMedida").ToString.Trim }' OR Abreviatura = '{ DrowPS("UnidadMedida").ToString.Trim }'").ToEntero CveUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $" UnidadMedida = '{ DrowPS("UnidadMedida").ToString.Trim }' OR Abreviatura = '{ DrowPS("UnidadMedida").ToString.Trim }'").ToEntero
If CveUM <= 0 Then If CveUM <= 0 Then
@@ -4718,7 +4719,7 @@ Partial Class Contratos_ContratoObra
DTPS.Rows.Add(Row) DTPS.Rows.Add(Row)
Else Else
ErrorProceso = True
End If End If
End If End If
@@ -4764,7 +4765,8 @@ Partial Class Contratos_ContratoObra
DTPS.Rows.Add(Row) DTPS.Rows.Add(Row)
Else Else
ErrorProceso = True
RowNoEncontrados &= "Sub Tipo: " & DrowPS("SubTipoAF").ToString & "<\BR>"
End If End If
@@ -4876,7 +4878,7 @@ Partial Class Contratos_ContratoObra
If RowNoEncontrados.Length > 0 Then If RowNoEncontrados.Length > 0 Then
Alert($"Productos no encontrados <br> {RowNoEncontrados} ") Alert($"Productos y Sub Tipos no encontrados <br> {RowNoEncontrados} ", TipoMensaje.MsgAdvertencia)
End If End If