From 8ae837108f51e61d11c2520802c230b6b19e5592 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 11 Jan 2021 09:22:57 -0700 Subject: [PATCH] Contratos --- AF/CatActividades.aspx | 2 +- AF/CatActividades.aspx.cs | 2 +- AF/CatCheckList.aspx | 4 ++-- AF/CatCheckList.aspx.cs | 4 ++-- AF/CatCheckListActividades.aspx | 4 ++-- AF/CatCheckListActividades.aspx.cs | 2 +- App_Code/ClsValidaCFDi.vb | 13 ++++++++++-- Bancos/IE.aspx.vb | 2 +- Compras/Compras.aspx.vb | 34 ++++++++++++++++++------------ Contratos/ContratoObra.aspx.vb | 20 ++++++++++-------- 10 files changed, 53 insertions(+), 34 deletions(-) diff --git a/AF/CatActividades.aspx b/AF/CatActividades.aspx index 907d6a766..30c434641 100644 --- a/AF/CatActividades.aspx +++ b/AF/CatActividades.aspx @@ -43,7 +43,7 @@

- Tipo de Servicio

+ Actividad
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