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

Contratos

Browse Source
This commit is contained in:
rakcsle
2021-01-11 09:22:57 -07:00
parent 7e99432d44
commit 8ae837108f
10 changed files with 53 additions and 34 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 ">
<button type="button" class="close" data-dismiss="modal">×</button>
<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 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.DataBind();
DdlPuesto.Items.Insert(0,new ListItem("-1","Seleccione"));
DdlPuesto.Items.Insert(0,new ListItem("Seleccione", "-1"));
ObjAF.Dispose();
}

4
AF/CatCheckList.aspx
View File

@@ -23,9 +23,9 @@
<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="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>
<asp:BoundField HeaderText="Nombre" DataField="Nombre" />
<asp:BoundField HeaderText="Actividad" DataField="CheckListActividad" />
<asp:BoundField HeaderText="CheckList Actividad" DataField="CheckListActividad" />
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
<ItemTemplate>

4
AF/CatCheckList.aspx.cs
View File

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

4
AF/CatCheckListActividades.aspx
View File

@@ -25,8 +25,8 @@
<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">
<Columns>
<asp:BoundField HeaderText="Actividad CheckList" DataField="CheckListActividad" />
<asp:BoundField HeaderText="Grupo Actividad de CheckList" DataField="CheckListActividadGrupo" />
<asp:BoundField HeaderText="Actividad" DataField="CheckListActividad" />
<asp:BoundField HeaderText="Grupo" DataField="CheckListActividadGrupo" />
<asp:TemplateField ItemStyle-Width="13%" 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>" />

2
AF/CatCheckListActividades.aspx.cs
View File

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

9
App_Code/ClsValidaCFDi.vb
View File

@@ -32,6 +32,9 @@ Public Class ClsValidaCFDi
Public Property Monto As String
Public Property FechaCancelacion As String
Public Property ResponseHTML As String
Public Property EnListaEFOS As Boolean = False
#End Region
Public Sub New()
@@ -102,6 +105,12 @@ Public Class ClsValidaCFDi
EsValida = 2
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
If EsValida = 0 Then

2
Bancos/IE.aspx.vb
View File

@@ -5992,7 +5992,7 @@ Partial Class Bancos_IE
PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False)
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"">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())
MandaCorreo(Banco.ComplementoSerieFolio, CorreoCobranzaCliente)
End If

34
Compras/Compras.aspx.vb
View File

@@ -1728,6 +1728,7 @@ Partial Class Compras_Compras
If IO.File.Exists(Archivo) Then
Dim Validada As Boolean = True
Dim EnListadoEFOS As Boolean = False
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui
@@ -1750,6 +1751,13 @@ Partial Class Compras_Compras
Valida.EsValida = 1
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 = 2 Then
Validada = False
@@ -1777,7 +1785,7 @@ Partial Class Compras_Compras
UpPSS.Update()
If Validada Then
If Validada And Not EnListadoEFOS Then
@@ -1837,25 +1845,25 @@ Partial Class Compras_Compras
'TmpDT.Columns.Add("IEPSPSPorcentaje")
'TmpDT.Columns.Add("IEPSPSIVAPorcentaje")
SubTotalConceptos = Math.Round(TmpDT.SUM("Total"), 2).ToDecimal
AddPS2(False)
AddPS2(False)
'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
For Each drr As DataRow In TmpDT.FiltraParametros("ClaveProdServ = '01010101'").Rows
'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
For Each drr As DataRow In TmpDT.FiltraParametros("ClaveProdServ = '01010101'").Rows
ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", drr("PS"))
ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", drr("PS"))
Next
Next
If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
End If
If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
End If
Else
End If
Else
CargaConceptosXML(XMLDoc)
End If

20
Contratos/ContratoObra.aspx.vb
View File

@@ -3306,7 +3306,7 @@ Partial Class Contratos_ContratoObra
StrReturn = "True|" & CvePS.ToString
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
Return StrReturn
End Function
@@ -4506,8 +4506,13 @@ Partial Class Contratos_ContratoObra
UpModalCargaPresupuesto.Update()
DTPS = DTPS.FiltraParametros("Cantidad > 0")
Return DTPS
End Function
@@ -4580,16 +4585,12 @@ Partial Class Contratos_ContratoObra
If CBool(StrArray(0)) = True Then
CvePS = StrArray(1).ToEntero
Else
RowNoEncontrados &= StrArray(1) & "<\BR>"
RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>"
End If
End If
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
If CveUM <= 0 Then
@@ -4718,7 +4719,7 @@ Partial Class Contratos_ContratoObra
DTPS.Rows.Add(Row)
Else
ErrorProceso = True
End If
End If
@@ -4764,7 +4765,8 @@ Partial Class Contratos_ContratoObra
DTPS.Rows.Add(Row)
Else
ErrorProceso = True
RowNoEncontrados &= "Sub Tipo: " & DrowPS("SubTipoAF").ToString & "<\BR>"
End If
@@ -4876,7 +4878,7 @@ Partial Class Contratos_ContratoObra
If RowNoEncontrados.Length > 0 Then
Alert($"Productos no encontrados <br> {RowNoEncontrados} ")
Alert($"Productos y Sub Tipos no encontrados <br> {RowNoEncontrados} ", TipoMensaje.MsgAdvertencia)
End If