diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 996ca07f0..f6a0b67ce 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1605,7 +1605,7 @@ Partial Class Compras_eFacturas End While End If Catch ex As Exception - GuardaLog("'ERROR :" & ex.Message) + GuardaLogAD("'ERROR :" & ex.Message, eFacturasLog) End Try End Using Next @@ -1702,7 +1702,7 @@ Partial Class Compras_eFacturas Next If File.Exists(filePathXML) Then - Dim a As New ComprobanteFactura + Dim a As New ComprobanteFactura(eFacturasLog) Dim FF As Factura = a.CargaComprobanteXML(File.ReadAllText(filePathXML), UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.RFC, UsuarioActual.CveEmpresa, True, rowLog, NombreArchivo:=fInfoXML.Name) If FF IsNot Nothing AndAlso FF.CveFactura > 0 Then @@ -5221,6 +5221,14 @@ Partial Class Compras_eFacturas End Set End Property + Public ReadOnly Property eFacturasLog As String + Get + Return "eFacturasLog" + End Get + + End Property + + Private Sub CargaClasificacionesComprobaciones() If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then @@ -7434,9 +7442,16 @@ Namespace ADS.eFacturas Public Property MonedaDR As String Public Property MetodoDePagoDR As String Public Property NumParcialidad As String + End Class Public Class ComprobanteFactura + Public Property ArchivoLog As String + + Public Sub New(NombreArchivoLog As String) + ArchivoLog = NombreArchivoLog + End Sub + Public Property Pagos As List(Of Pago) Public Property XMLNodosPagos As String Public Property XMLNodosPagosCount As Integer @@ -7552,7 +7567,7 @@ Namespace ADS.eFacturas Fact.SumaTotalTraslados += Fact.TrasladoIVA + Fact.TrasladoIEPS Catch ex As Exception - ex.ToString().GuardaLog() + ex.ToString().GuardaLogAD(ArchivoLog) End Try End If @@ -7628,7 +7643,7 @@ Namespace ADS.eFacturas End If Catch ex As Exception - ModExtensiones.GuardaLog(ex.ToString()) + ModExtensiones.GuardaLogAD(ex.ToString(), ArchivoLog) End Try End If @@ -7730,7 +7745,7 @@ Namespace ADS.eFacturas XMLDoc.LoadXml(XMlStr) XMLCargaExistosa = True Catch ex As Exception - GuardaLog("Error al intentar leer . Error:" & ex.ToString()) + GuardaLogAD("Error al intentar leer . Error:" & ex.ToString(), ArchivoLog) 'Errores.AppendLine("Error al intentar leer el XML. Error:" & ex.ToString()) XMLCargaExistosa = False End Try @@ -7999,11 +8014,11 @@ Namespace ADS.eFacturas Select Case Fact.RespuestaInsert Case 0 Dim RRutaDestino As String = String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjCompra.CveFactura) - ModExtensiones.GuardaLog(String.Format(" '--------{0} Compra ya insertada : {1}{2} - {3}", 1, Fact.Serie, Fact.Folio, RRutaDestino)) + ModExtensiones.GuardaLogAD(String.Format(" '--------{0} Compra ya insertada : {1}{2} - {3}", 1, Fact.Serie, Fact.Folio, RRutaDestino), ArchivoLog) File.WriteAllText(RRutaDestino, StrFuente, UTF8Encoding.UTF8) 'ObjCompra.UpdateArchivo(ObjCompra.CveFactura, "XML") - ModExtensiones.GuardaLog(" '--------XML Actualizado ") + ModExtensiones.GuardaLogAD(" '--------XML Actualizado ", ArchivoLog) rowLog("Motivo") = $"Ya registrado {Fact.Serie}-{Fact.Folio} se actualiza XML." Correcto = True @@ -8015,7 +8030,7 @@ Namespace ADS.eFacturas Try File.WriteAllText(String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjCompra.CveFactura), StrFuente, UTF8Encoding.UTF8) ' ObjCompra.UpdateArchivo(ObjCompra.CveFactura, "XML") - ModExtensiones.GuardaLog($" '-------- XML Guardado Factura: {Fact.Serie}-{Fact.Folio} UUID: {Fact.UUID} , RFC Emisor: {Fact.EmisorRFC}") + ModExtensiones.GuardaLogAD($" '-------- XML Guardado Factura: {Fact.Serie}-{Fact.Folio} UUID: {Fact.UUID} , RFC Emisor: {Fact.EmisorRFC}", ArchivoLog) ' Si se movieron los dos archivos, los marca como correcto If File.Exists(String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjCompra.CveFactura)) Then @@ -8024,13 +8039,13 @@ Namespace ADS.eFacturas Correcto = False End If - ModExtensiones.GuardaLog(" '++++++++ Compra Insertada :" & Fact.Serie & Fact.Folio & " - Correcto:" & If(Correcto, "Si", "No" & " Obs: ")) + ModExtensiones.GuardaLogAD(" '++++++++ Compra Insertada :" & Fact.Serie & Fact.Folio & " - Correcto:" & If(Correcto, "Si", "No" & " Obs: "), ArchivoLog) rowLog("Motivo") = $"Agregado {Fact.Serie}-{Fact.Folio}" Catch ex As Exception StrMover = ex.Message Correcto = False - ModExtensiones.GuardaLog(" '++++++++ Compra no Insertada :" & Fact.Serie & Fact.Folio & " - Correcto:" & If(Correcto, "Si", "No" & " Obs: ") & StrMover) + ModExtensiones.GuardaLogAD(" '++++++++ Compra no Insertada :" & Fact.Serie & Fact.Folio & " - Correcto:" & If(Correcto, "Si", "No" & " Obs: ") & StrMover, ArchivoLog) rowLog("Motivo") = $"Error al agregar {Fact.Serie}-{Fact.Folio}" End Try @@ -8039,7 +8054,7 @@ Namespace ADS.eFacturas Catch ex As Exception Correcto = True - GuardaLog(ex.ToString()) + GuardaLogAD(ex.ToString(), ArchivoLog) End Try Else @@ -8058,7 +8073,7 @@ Namespace ADS.eFacturas ObjCompra.Dispose() Else - ModExtensiones.GuardaLog($" '++++++++ Compra RFC Distinto RFC Empresa: {RFCEmpresa}, RFC XML: {Fact.ReceptorRFC} ") + ModExtensiones.GuardaLogAD($" '++++++++ Compra RFC Distinto RFC Empresa: {RFCEmpresa}, RFC XML: {Fact.ReceptorRFC} ", ArchivoLog) rowLog("Motivo") = "RFC Distinto" rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Incorrecto" End If @@ -8090,7 +8105,7 @@ Namespace ADS.eFacturas Dim b As Byte() = cfdi.ConvertirQrCode(String.Format("?re={0}&rr={1}&tt={2}&id={3}", Fact.EmisorRFC, Fact.ReceptorRFC, String.Format("{0,12:F6}", dtotal).Trim(), Fact.UUID)) File.WriteAllBytes(TmpArchivoQR, b) Catch ex As Exception - ModExtensiones.GuardaLog(ex.Message) + ModExtensiones.GuardaLogAD(ex.Message, ArchivoLog) End Try If System.IO.File.Exists(TmpArchivoQR) Then @@ -8115,7 +8130,7 @@ Namespace ADS.eFacturas 'Dim DtDocumentosR As DataTable = Nothing If Fact.TipoComprobante.Contiene("P", "T") Then - ModExtensiones.GuardaLog(String.Format(" '--------PDF Generar Tipo {0}", Fact.TipoComprobante)) + ModExtensiones.GuardaLogAD(String.Format(" '--------PDF Generar Tipo {0}", Fact.TipoComprobante), ArchivoLog) Retorno = GenGoPdf(ArchivoXML, TmpArchivoPDF, DirectorioEmpresas) Fact.ArchivoPDF = Path.GetFileName(TmpArchivoPDF) @@ -8134,8 +8149,8 @@ Namespace ADS.eFacturas Else If (Fact.Version = "3.3" Or Fact.Version = "4.0") Then - Dim cxml As XmlSatCFDI = XmlSatCFDI.readXML(ArchivoXML) - ModExtensiones.GuardaLog(String.Format(" *********** UUID : {0} ***********", cxml.complemento.UUID)) + Dim cxml As XmlSatCFDI = XmlSatCFDI.readXML(ArchivoXML, ArchivoLog) + ModExtensiones.GuardaLogAD(String.Format(" *********** UUID : {0} ***********", cxml.complemento.UUID), ArchivoLog) cxml.ImprimirPDF(TmpArchivoPDF, DirectorioEmpresa, Fact.TipoComprobante) Fact.ArchivoPDF = Path.GetFileName(TmpArchivoPDF) @@ -8152,7 +8167,7 @@ Namespace ADS.eFacturas End Try Else - ModExtensiones.GuardaLog(String.Format(" *********** TFDUUID : {0} ***********", Fact.UUID)) + ModExtensiones.GuardaLogAD(String.Format(" *********** TFDUUID : {0} ***********", Fact.UUID), ArchivoLog) Dim DomFiscal As String = String.Format("Domicilio Fiscal {0}{1} {2}{0}Col.{3}{0}CP. {4} {5},{6},{7}", vbCr, Fact.DomFisCalle, Fact.DomFisNoExt, Fact.DomFisCol, Fact.DomFisCP, Fact.DomFisMun, Fact.DomFisEst, Fact.DomFisPais) If GeneraPDFNew(TmpArchivoPDF, Fact.UUID, Fact.SubTotal, Fact.Descuento, Fact.Total, Fact.TrasladoIVA.FormatoNumero(), Fact.Moneda, Fact.FormaDePago, Fact.TFDNoCertSAT, Fact.TFDFechaTimbrado.ToDate(), Fact.noCertificado, @@ -8192,7 +8207,7 @@ Namespace ADS.eFacturas MensajeError &= " - " & ex.InnerException.ToString() End If - ModExtensiones.GuardaLog(MensajeError) + ModExtensiones.GuardaLogAD(MensajeError, ArchivoLog) End Try Return Retorno End Function @@ -8300,10 +8315,10 @@ Namespace ADS.eFacturas End Using Retorno = True Else - ModExtensiones.GuardaLog("ERROR: No existe Formato Base") + ModExtensiones.GuardaLogAD("ERROR: No existe Formato Base", ArchivoLog) End If Catch ex As Exception - ModExtensiones.GuardaLog(String.Format("Ocurrio un Error al generar el reporte RLDC :" & ex.ToString())) + ModExtensiones.GuardaLogAD(String.Format("Ocurrio un Error al generar el reporte RLDC :" & ex.ToString()), ArchivoLog) Retorno = False End Try Return Retorno @@ -8356,7 +8371,7 @@ Namespace ADS.eFacturas XMLNodosPagos = nodePagos.InnerXml.Replace("pago20:", "").Replace("pagos20:", "").Replace(PrefijoPagos & ":", "") End If Catch ex As Exception - ModExtensiones.GuardaLog(ex.ToString()) + ModExtensiones.GuardaLogAD(ex.ToString(), ArchivoLog) End Try End If @@ -8410,7 +8425,7 @@ Namespace ADS.eFacturas Private Function GenGoPdf(ByVal XmlRutaArchivo As String, ByVal PDFRutaArchivo As String, DirectorioEmpresa As String) As Boolean - ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Inicia ") + ModExtensiones.GuardaLogAD(" '--------PDF GenGoPdf Inicia ", ArchivoLog) Dim Respuesta As Boolean = False Dim RutaRDLC As String = $"{DirectorioEmpresa}\Grales\Formatos\ReciboDePagoGOPDF.rdlc" 'String.Format("{0}{1}", Extensiones.ApplicationParameter.RutaArchivos, "Empresas\Grales\Formatos\ReciboDePagoGOPDF.rdlc") @@ -8427,15 +8442,15 @@ Namespace ADS.eFacturas If result IsNot Nothing Then File.WriteAllBytes(PDFRutaArchivo, result) Respuesta = True - ModExtensiones.GuardaLog($" '--------PDF GenGoPdf Generado") + ModExtensiones.GuardaLogAD($" '--------PDF GenGoPdf Generado", ArchivoLog) Else - ModExtensiones.GuardaLog($" '--------PDF GenGoPdf Error se genero nulo \n RDLC: {RutaRDLC} Ruta Xml: {XmlRutaArchivo} Ruta PDF: {PDFRutaArchivo} \n MensajeError: {goPdf.MensajeError} CodigoError :{goPdf.CodigoError}") + ModExtensiones.GuardaLogAD($" '--------PDF GenGoPdf Error se genero nulo \n RDLC: {RutaRDLC} Ruta Xml: {XmlRutaArchivo} Ruta PDF: {PDFRutaArchivo} \n MensajeError: {goPdf.MensajeError} CodigoError :{goPdf.CodigoError}", ArchivoLog) End If Catch ex As Exception - ModExtensiones.GuardaLog($" '--------PDF GenGoPdf Error {ex.Message} -- > {ex.StackTrace} \n RDLC: {RutaRDLC} Ruta Xml: {XmlRutaArchivo} Ruta PDF: {PDFRutaArchivo}") + ModExtensiones.GuardaLogAD($" '--------PDF GenGoPdf Error {ex.Message} -- > {ex.StackTrace} \n RDLC: {RutaRDLC} Ruta Xml: {XmlRutaArchivo} Ruta PDF: {PDFRutaArchivo}", ArchivoLog) End Try - ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Finaliza ") + ModExtensiones.GuardaLogAD(" '--------PDF GenGoPdf Finaliza ", ArchivoLog) Return Respuesta End Function @@ -8448,7 +8463,7 @@ Namespace ADS.eFacturas ''' Clase para contener los valores de un xml CFDI cambio norma ''' Public Class XmlSatCFDI - Public Sub New() + Public Sub New(NombreArchivoLog As String) comprobante = New CFDIComprobante() emisor = New CFDIEmisor() receptor = New CFDIReceptor() @@ -8456,6 +8471,7 @@ Namespace ADS.eFacturas cFDIRelacionados = New List(Of CFDIRelacionado)() conceptos = New List(Of CFDIConcepto)() Impuestos = New List(Of CFDIImpuesto)() + ArchivoLog = NombreArchivoLog End Sub Public comprobante As CFDIComprobante @@ -8465,6 +8481,7 @@ Namespace ADS.eFacturas Public cFDIRelacionados As List(Of CFDIRelacionado) Public conceptos As List(Of CFDIConcepto) Public Impuestos As List(Of CFDIImpuesto) + Public Property ArchivoLog As String = "Log" Public Function GetConceptosforpdf() As List(Of CFDIConcepto_I) Dim lcon As New List(Of CFDIConcepto_I)() @@ -8512,8 +8529,8 @@ Namespace ADS.eFacturas Return lcon End Function - Public Shared Function readXML(fileUrl As String) As XmlSatCFDI - Dim xmlCFDI As New XmlSatCFDI() + Public Shared Function readXML(fileUrl As String, NombreArchivoLog As String) As XmlSatCFDI + Dim xmlCFDI As New XmlSatCFDI(NombreArchivoLog) Dim canread As Boolean = True ' Keys Dim keyComprobante As String = "cfdi:Comprobante" @@ -8923,7 +8940,7 @@ Namespace ADS.eFacturas Dim cfdi As New RVCFDI33.GeneraCFDI() cQr = cfdi.ConvertirQrCode($"?re={objxml.emisor.Rfc}&rr={objxml.receptor.Rfc}&tt={(If(objxml.complemento.Pagos Is Nothing, objxml.comprobante.Total, objxml.complemento.Pagos.Monto))}&id={objxml.complemento.UUID}") Catch exQR As Exception - ModExtensiones.GuardaLog("Error al generar QR - " & exQR.Message & " - " & exQR.StackTrace.ToString()) + ModExtensiones.GuardaLogAD("Error al generar QR - " & exQR.Message & " - " & exQR.StackTrace.ToString(), ArchivoLog) End Try Dim parametros As New List(Of ReportParameter)() diff --git a/Edoc/CatDocumentos.aspx.vb b/Edoc/CatDocumentos.aspx.vb index 171aac132..67b10068f 100644 --- a/Edoc/CatDocumentos.aspx.vb +++ b/Edoc/CatDocumentos.aspx.vb @@ -229,10 +229,10 @@ Partial Class RH_CatDocumentos TxtOrden.Text = Orden.ToString TxtDiasLimite.Text = GvRow.DataKey("DiasLimite") - ChkAplicaDiasLimite.Checked = Boolean.Parse(GvRow.DataKey("AplicaDiasLimite")) - TxtPeriodicidad.Text = GvRow.DataKey("Periodicidad") - - ChkAplicaFechaVencimiento.Checked = Boolean.Parse(GvRow.DataKey("AplicaFechaVencimiento")) + ChkAplicaDiasLimite.Checked = If(GvRow.DataKey("AplicaDiasLimite").ToEntero = 1, True, False) + TxtPeriodicidad.Text = GvRow.DataKey("Periodicidad") + + ChkAplicaFechaVencimiento.Checked = If(GvRow.DataKey("AplicaFechaVencimiento").ToEntero = 1, True, False) DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo) chkEstatus.Checked = Estatus