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

eFacturasLog

Browse Source
This commit is contained in:
rakcsle
2024-08-02 18:21:12 -07:00
parent 848b1aa617
commit debe7495da
2 changed files with 51 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
Compras/eFacturas.aspx.vb
View File

@@ -1605,7 +1605,7 @@ Partial Class Compras_eFacturas
End While End While
End If End If
Catch ex As Exception Catch ex As Exception
GuardaLog("'ERROR :" & ex.Message) GuardaLogAD("'ERROR :" & ex.Message, eFacturasLog)
End Try End Try
End Using End Using
Next Next
@@ -1702,7 +1702,7 @@ Partial Class Compras_eFacturas
Next Next
If File.Exists(filePathXML) Then 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) 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 If FF IsNot Nothing AndAlso FF.CveFactura > 0 Then
@@ -5221,6 +5221,14 @@ Partial Class Compras_eFacturas
End Set End Set
End Property End Property
Public ReadOnly Property eFacturasLog As String
Get
Return "eFacturasLog"
End Get
End Property
Private Sub CargaClasificacionesComprobaciones() Private Sub CargaClasificacionesComprobaciones()
If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then If UsuarioActual.TienePermisoProceso(300) Or UsuarioActual.TienePermisoProceso(301) Then
@@ -7434,9 +7442,16 @@ Namespace ADS.eFacturas
Public Property MonedaDR As String Public Property MonedaDR As String
Public Property MetodoDePagoDR As String Public Property MetodoDePagoDR As String
Public Property NumParcialidad As String Public Property NumParcialidad As String
End Class End Class
Public Class ComprobanteFactura 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 Pagos As List(Of Pago)
Public Property XMLNodosPagos As String Public Property XMLNodosPagos As String
Public Property XMLNodosPagosCount As Integer Public Property XMLNodosPagosCount As Integer
@@ -7552,7 +7567,7 @@ Namespace ADS.eFacturas
Fact.SumaTotalTraslados += Fact.TrasladoIVA + Fact.TrasladoIEPS Fact.SumaTotalTraslados += Fact.TrasladoIVA + Fact.TrasladoIEPS
Catch ex As Exception Catch ex As Exception
ex.ToString().GuardaLog() ex.ToString().GuardaLogAD(ArchivoLog)
End Try End Try
End If End If
@@ -7628,7 +7643,7 @@ Namespace ADS.eFacturas
End If End If
Catch ex As Exception Catch ex As Exception
ModExtensiones.GuardaLog(ex.ToString()) ModExtensiones.GuardaLogAD(ex.ToString(), ArchivoLog)
End Try End Try
End If End If
@@ -7730,7 +7745,7 @@ Namespace ADS.eFacturas
XMLDoc.LoadXml(XMlStr) XMLDoc.LoadXml(XMlStr)
XMLCargaExistosa = True XMLCargaExistosa = True
Catch ex As Exception 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()) 'Errores.AppendLine("Error al intentar leer el XML. Error:" & ex.ToString())
XMLCargaExistosa = False XMLCargaExistosa = False
End Try End Try
@@ -7999,11 +8014,11 @@ Namespace ADS.eFacturas
Select Case Fact.RespuestaInsert Select Case Fact.RespuestaInsert
Case 0 Case 0
Dim RRutaDestino As String = String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjCompra.CveFactura) 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) File.WriteAllText(RRutaDestino, StrFuente, UTF8Encoding.UTF8)
'ObjCompra.UpdateArchivo(ObjCompra.CveFactura, "XML") '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." rowLog("Motivo") = $"Ya registrado {Fact.Serie}-{Fact.Folio} se actualiza XML."
Correcto = True Correcto = True
@@ -8015,7 +8030,7 @@ Namespace ADS.eFacturas
Try Try
File.WriteAllText(String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjCompra.CveFactura), StrFuente, UTF8Encoding.UTF8) File.WriteAllText(String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjCompra.CveFactura), StrFuente, UTF8Encoding.UTF8)
' ObjCompra.UpdateArchivo(ObjCompra.CveFactura, "XML") ' 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 ' 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 If File.Exists(String.Format("{0}{1}\{2}.xml", Destino, Fact.EmisorRFC, ObjCompra.CveFactura)) Then
@@ -8024,13 +8039,13 @@ Namespace ADS.eFacturas
Correcto = False Correcto = False
End If 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}" rowLog("Motivo") = $"Agregado {Fact.Serie}-{Fact.Folio}"
Catch ex As Exception Catch ex As Exception
StrMover = ex.Message StrMover = ex.Message
Correcto = False 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}" rowLog("Motivo") = $"Error al agregar {Fact.Serie}-{Fact.Folio}"
End Try End Try
@@ -8039,7 +8054,7 @@ Namespace ADS.eFacturas
Catch ex As Exception Catch ex As Exception
Correcto = True Correcto = True
GuardaLog(ex.ToString()) GuardaLogAD(ex.ToString(), ArchivoLog)
End Try End Try
Else Else
@@ -8058,7 +8073,7 @@ Namespace ADS.eFacturas
ObjCompra.Dispose() ObjCompra.Dispose()
Else 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 Distinto"
rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Incorrecto" rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Incorrecto"
End If 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)) 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) File.WriteAllBytes(TmpArchivoQR, b)
Catch ex As Exception Catch ex As Exception
ModExtensiones.GuardaLog(ex.Message) ModExtensiones.GuardaLogAD(ex.Message, ArchivoLog)
End Try End Try
If System.IO.File.Exists(TmpArchivoQR) Then If System.IO.File.Exists(TmpArchivoQR) Then
@@ -8115,7 +8130,7 @@ Namespace ADS.eFacturas
'Dim DtDocumentosR As DataTable = Nothing 'Dim DtDocumentosR As DataTable = Nothing
If Fact.TipoComprobante.Contiene("P", "T") Then 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) Retorno = GenGoPdf(ArchivoXML, TmpArchivoPDF, DirectorioEmpresas)
Fact.ArchivoPDF = Path.GetFileName(TmpArchivoPDF) Fact.ArchivoPDF = Path.GetFileName(TmpArchivoPDF)
@@ -8134,8 +8149,8 @@ Namespace ADS.eFacturas
Else Else
If (Fact.Version = "3.3" Or Fact.Version = "4.0") Then If (Fact.Version = "3.3" Or Fact.Version = "4.0") Then
Dim cxml As XmlSatCFDI = XmlSatCFDI.readXML(ArchivoXML) Dim cxml As XmlSatCFDI = XmlSatCFDI.readXML(ArchivoXML, ArchivoLog)
ModExtensiones.GuardaLog(String.Format(" *********** UUID : {0} ***********", cxml.complemento.UUID)) ModExtensiones.GuardaLogAD(String.Format(" *********** UUID : {0} ***********", cxml.complemento.UUID), ArchivoLog)
cxml.ImprimirPDF(TmpArchivoPDF, DirectorioEmpresa, Fact.TipoComprobante) cxml.ImprimirPDF(TmpArchivoPDF, DirectorioEmpresa, Fact.TipoComprobante)
Fact.ArchivoPDF = Path.GetFileName(TmpArchivoPDF) Fact.ArchivoPDF = Path.GetFileName(TmpArchivoPDF)
@@ -8152,7 +8167,7 @@ Namespace ADS.eFacturas
End Try End Try
Else 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) 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, 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() MensajeError &= " - " & ex.InnerException.ToString()
End If End If
ModExtensiones.GuardaLog(MensajeError) ModExtensiones.GuardaLogAD(MensajeError, ArchivoLog)
End Try End Try
Return Retorno Return Retorno
End Function End Function
@@ -8300,10 +8315,10 @@ Namespace ADS.eFacturas
End Using End Using
Retorno = True Retorno = True
Else Else
ModExtensiones.GuardaLog("ERROR: No existe Formato Base") ModExtensiones.GuardaLogAD("ERROR: No existe Formato Base", ArchivoLog)
End If End If
Catch ex As Exception 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 Retorno = False
End Try End Try
Return Retorno Return Retorno
@@ -8356,7 +8371,7 @@ Namespace ADS.eFacturas
XMLNodosPagos = nodePagos.InnerXml.Replace("pago20:", "").Replace("pagos20:", "").Replace(PrefijoPagos & ":", "") XMLNodosPagos = nodePagos.InnerXml.Replace("pago20:", "").Replace("pagos20:", "").Replace(PrefijoPagos & ":", "")
End If End If
Catch ex As Exception Catch ex As Exception
ModExtensiones.GuardaLog(ex.ToString()) ModExtensiones.GuardaLogAD(ex.ToString(), ArchivoLog)
End Try End Try
End If 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 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 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") 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 If result IsNot Nothing Then
File.WriteAllBytes(PDFRutaArchivo, result) File.WriteAllBytes(PDFRutaArchivo, result)
Respuesta = True Respuesta = True
ModExtensiones.GuardaLog($" '--------PDF GenGoPdf Generado") ModExtensiones.GuardaLogAD($" '--------PDF GenGoPdf Generado", ArchivoLog)
Else 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 End If
Catch ex As Exception 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 End Try
ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Finaliza ") ModExtensiones.GuardaLogAD(" '--------PDF GenGoPdf Finaliza ", ArchivoLog)
Return Respuesta Return Respuesta
End Function End Function
@@ -8448,7 +8463,7 @@ Namespace ADS.eFacturas
''' Clase para contener los valores de un xml CFDI cambio norma ''' Clase para contener los valores de un xml CFDI cambio norma
''' </summary> ''' </summary>
Public Class XmlSatCFDI Public Class XmlSatCFDI
Public Sub New() Public Sub New(NombreArchivoLog As String)
comprobante = New CFDIComprobante() comprobante = New CFDIComprobante()
emisor = New CFDIEmisor() emisor = New CFDIEmisor()
receptor = New CFDIReceptor() receptor = New CFDIReceptor()
@@ -8456,6 +8471,7 @@ Namespace ADS.eFacturas
cFDIRelacionados = New List(Of CFDIRelacionado)() cFDIRelacionados = New List(Of CFDIRelacionado)()
conceptos = New List(Of CFDIConcepto)() conceptos = New List(Of CFDIConcepto)()
Impuestos = New List(Of CFDIImpuesto)() Impuestos = New List(Of CFDIImpuesto)()
ArchivoLog = NombreArchivoLog
End Sub End Sub
Public comprobante As CFDIComprobante Public comprobante As CFDIComprobante
@@ -8465,6 +8481,7 @@ Namespace ADS.eFacturas
Public cFDIRelacionados As List(Of CFDIRelacionado) Public cFDIRelacionados As List(Of CFDIRelacionado)
Public conceptos As List(Of CFDIConcepto) Public conceptos As List(Of CFDIConcepto)
Public Impuestos As List(Of CFDIImpuesto) Public Impuestos As List(Of CFDIImpuesto)
Public Property ArchivoLog As String = "Log"
Public Function GetConceptosforpdf() As List(Of CFDIConcepto_I) Public Function GetConceptosforpdf() As List(Of CFDIConcepto_I)
Dim lcon As New List(Of CFDIConcepto_I)() Dim lcon As New List(Of CFDIConcepto_I)()
@@ -8512,8 +8529,8 @@ Namespace ADS.eFacturas
Return lcon Return lcon
End Function End Function
Public Shared Function readXML(fileUrl As String) As XmlSatCFDI Public Shared Function readXML(fileUrl As String, NombreArchivoLog As String) As XmlSatCFDI
Dim xmlCFDI As New XmlSatCFDI() Dim xmlCFDI As New XmlSatCFDI(NombreArchivoLog)
Dim canread As Boolean = True Dim canread As Boolean = True
' Keys ' Keys
Dim keyComprobante As String = "cfdi:Comprobante" Dim keyComprobante As String = "cfdi:Comprobante"
@@ -8923,7 +8940,7 @@ Namespace ADS.eFacturas
Dim cfdi As New RVCFDI33.GeneraCFDI() 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}") 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 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 End Try
Dim parametros As New List(Of ReportParameter)() Dim parametros As New List(Of ReportParameter)()

8
Edoc/CatDocumentos.aspx.vb
View File

@@ -229,10 +229,10 @@ Partial Class RH_CatDocumentos
TxtOrden.Text = Orden.ToString TxtOrden.Text = Orden.ToString
TxtDiasLimite.Text = GvRow.DataKey("DiasLimite") TxtDiasLimite.Text = GvRow.DataKey("DiasLimite")
ChkAplicaDiasLimite.Checked = Boolean.Parse(GvRow.DataKey("AplicaDiasLimite")) ChkAplicaDiasLimite.Checked = If(GvRow.DataKey("AplicaDiasLimite").ToEntero = 1, True, False)
TxtPeriodicidad.Text = GvRow.DataKey("Periodicidad") TxtPeriodicidad.Text = GvRow.DataKey("Periodicidad")
ChkAplicaFechaVencimiento.Checked = Boolean.Parse(GvRow.DataKey("AplicaFechaVencimiento")) ChkAplicaFechaVencimiento.Checked = If(GvRow.DataKey("AplicaFechaVencimiento").ToEntero = 1, True, False)
DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo) DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo)
chkEstatus.Checked = Estatus chkEstatus.Checked = Estatus