diff --git a/AF/CatActividades.aspx.cs b/AF/CatActividades.aspx.cs
index 8336030ab..d40ede9f6 100644
--- a/AF/CatActividades.aspx.cs
+++ b/AF/CatActividades.aspx.cs
@@ -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();
}
diff --git a/AF/CatCheckList.aspx b/AF/CatCheckList.aspx
index 790db7f2a..e183b4410 100644
--- a/AF/CatCheckList.aspx
+++ b/AF/CatCheckList.aspx
@@ -23,9 +23,9 @@
-
+
-
+
diff --git a/AF/CatCheckList.aspx.cs b/AF/CatCheckList.aspx.cs
index d488bf25c..15444b335 100644
--- a/AF/CatCheckList.aspx.cs
+++ b/AF/CatCheckList.aspx.cs
@@ -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();
diff --git a/AF/CatCheckListActividades.aspx b/AF/CatCheckListActividades.aspx
index e4179f25a..ac168d5d7 100644
--- a/AF/CatCheckListActividades.aspx
+++ b/AF/CatCheckListActividades.aspx
@@ -25,8 +25,8 @@
-
-
+
+
diff --git a/AF/CatCheckListActividades.aspx.cs b/AF/CatCheckListActividades.aspx.cs
index f21d58f7a..5770053c0 100644
--- a/AF/CatCheckListActividades.aspx.cs
+++ b/AF/CatCheckListActividades.aspx.cs
@@ -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();
diff --git a/App_Code/ClsValidaCFDi.vb b/App_Code/ClsValidaCFDi.vb
index 02031dff8..4707619ca 100644
--- a/App_Code/ClsValidaCFDi.vb
+++ b/App_Code/ClsValidaCFDi.vb
@@ -31,9 +31,12 @@ Public Class ClsValidaCFDi
Public Property FechaCertificacion As String
Public Property Monto 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
-
+
Public Sub New()
End Sub
@@ -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
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 15833e3e0..98ddf784d 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -5992,7 +5992,7 @@ Partial Class Bancos_IE
PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False)
Str.AppendFormat("Folio: {0} ", Banco.ComplementoSerieFolio)
Str.AppendFormat("XML ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
- Str.AppendFormat("PDF ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
+ Str.AppendFormat("PDF ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}&CveIE={2}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago, CveIE)))
Str.AppendFormat("{1} {2}
", CveIE, Folio, DdlCliente.SelectedText.ToString())
MandaCorreo(Banco.ComplementoSerieFolio, CorreoCobranzaCliente)
End If
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index bedc186b0..e17b22c08 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -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}", drr("PS"))
+ ProductosCodigoSATNoPermitidos.AppendFormat("{0}", 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:{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:{0}", ProductosCodigoSATNoPermitidos.ToString)
+ Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
End If
- Else
+
+ End If
+ Else
CargaConceptosXML(XMLDoc)
End If
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 257981658..43ff3f4ee 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -3306,7 +3306,7 @@ Partial Class Contratos_ContratoObra
StrReturn = "True|" & CvePS.ToString
Else
- StrReturn = "False| - 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
{RowNoEncontrados} ")
+ Alert($"Productos y Sub Tipos no encontrados
{RowNoEncontrados} ", TipoMensaje.MsgAdvertencia)
End If