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

--OPTION EXPLICIT

Browse Source
This commit is contained in:
rrene
2024-01-19 12:23:26 -07:00
parent a770323346
commit 666133203e
1 changed files with 8 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Compras/eFacturas.aspx.vb
View File

@@ -3371,12 +3371,9 @@ Partial Class Compras_eFacturas
XMLNodosPagosModalCount = XMLNodosPagosModalCount + 1 XMLNodosPagosModalCount = XMLNodosPagosModalCount + 1
Next Next
Next Next
Next Next
Dim UUIDDuplicadosEnu = From row In DTDocumentosRelacionados.AsEnumerable() Dim UUIDDuplicadosEnu = From row In DTDocumentosRelacionados.AsEnumerable()
Let IdDocumento = row.Field(Of String)("IdDocumento") Let IdDocumento = row.Field(Of String)("IdDocumento")
Group row By IdDocumento Into IdDocumentos = Group Group row By IdDocumento Into IdDocumentos = Group
@@ -3392,8 +3389,6 @@ Partial Class Compras_eFacturas
Next Next
Next Next
MontoPago = Monto MontoPago = Monto
Dim NodosPagosString As String = Regex.Replace(nodePagos2.InnerXml, $"{Prefijo}:", "", RegexOptions.IgnoreCase) Dim NodosPagosString As String = Regex.Replace(nodePagos2.InnerXml, $"{Prefijo}:", "", RegexOptions.IgnoreCase)
@@ -3428,10 +3423,6 @@ Partial Class Compras_eFacturas
Catch ex As Exception Catch ex As Exception
dRow2("CvePrePolizaDetalle") = 0 dRow2("CvePrePolizaDetalle") = 0
End Try End Try
End If End If
Next Next
Next Next
@@ -3989,9 +3980,9 @@ Partial Class Compras_eFacturas
Private Sub GVPDocumentosRelacionadosPagos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GVPDocumentosRelacionadosPagos.RowCreated Private Sub GVPDocumentosRelacionadosPagos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GVPDocumentosRelacionadosPagos.RowCreated
If e.Row.RowType = DataControlRowType.Header Then If e.Row.RowType = DataControlRowType.Header Then
Dim HeaderGrid = DirectCast(sender, GridView) Dim HeaderGrid As GridView = DirectCast(sender, GridView)
Dim HeaderGridRow = New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Insert) Dim HeaderGridRow As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Insert)
Dim HeaderCell = New TableCell Dim HeaderCell As New TableCell
HeaderCell.Text = "Documentos Relacionados" HeaderCell.Text = "Documentos Relacionados"
HeaderCell.ColumnSpan = 9 HeaderCell.ColumnSpan = 9
@@ -5507,7 +5498,7 @@ Public Class Compra2
XMLCargaExistosa = True XMLCargaExistosa = True
Catch ex As Exception Catch ex As Exception
Try Try
Dim oReader = New StreamReader(XmlFuenteRuta, Encoding.GetEncoding("ISO-8859-1")) Dim oReader As New StreamReader(XmlFuenteRuta, Encoding.GetEncoding("ISO-8859-1"))
XMLDoc.Load(oReader) XMLDoc.Load(oReader)
oReader.Dispose() oReader.Dispose()
XMLCargaExistosa = True XMLCargaExistosa = True
@@ -5734,10 +5725,10 @@ Public Class Compra2
#Region "DETALLES" #Region "DETALLES"
Dim ObjeFacturas As New ClsCompras Dim ObjeFacturas As New ClsCompras
Dim AjustaUltimoConcepto = False Dim AjustaUltimoConcepto As Boolean = False
Dim nodeconceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces) Dim nodeconceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)
Dim XML = Replace(nodeconceptos.OuterXml, "<cfdi:", "<") Dim XML As String = Replace(nodeconceptos.OuterXml, "<cfdi:", "<")
XML = XML.Replace("</cfdi:", "</") XML = XML.Replace("</cfdi:", "</")
XML = XML.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", "") XML = XML.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", "")
XML = XML.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/4""", "") XML = XML.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/4""", "")
@@ -6640,7 +6631,7 @@ Public Class Compra2
End If End If
'RETENCIONES 'RETENCIONES
Dim Retenciones = 0D Dim Retenciones As Decimal = 0
Retenciones = LocalRetIVA Retenciones = LocalRetIVA
Retenciones += LocalRetISR Retenciones += LocalRetISR
@@ -7147,7 +7138,7 @@ Namespace ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE
client.Timeout = TimeSpan.FromMinutes(15) client.Timeout = TimeSpan.FromMinutes(15)
Dim response As HttpResponseMessage = New HttpResponseMessage() Dim response As HttpResponseMessage = New HttpResponseMessage()
Dim strjsonreq = Newtonsoft.Json.JsonConvert.SerializeObject(requestobject) Dim strjsonreq As String = Newtonsoft.Json.JsonConvert.SerializeObject(requestobject)
Dim content As StringContent = New StringContent(strjsonreq, Encoding.UTF8, "application/json") Dim content As StringContent = New StringContent(strjsonreq, Encoding.UTF8, "application/json")
Dim route As String = If(isfullpath, path, GetRoute(path)) Dim route As String = If(isfullpath, path, GetRoute(path))