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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2021-02-04 00:41:25 -07:00
parent 16a604afba ab72375bef
commit 45195c44e5
16 changed files with 6833 additions and 7070 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Compras/eFacturas.aspx.vb
View File

@@ -1686,6 +1686,8 @@ Partial Class Compras_eFacturas
End Using
End Sub
Public Shared Function CargaEmisordeXML(ArchivoXML As String, CampoXML As String, RFCEmpresaActual As String) As String
Dim Valor As [String] = Nothing
@@ -3142,15 +3144,6 @@ Partial Class Compras_eFacturas
If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
'GvVincularPago.DataSource = ObjCompras.DtResultados
'If ObjCompras.DtResultados.Rows.Count > 0 Then
' SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
'End If
'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
For Each Drow As DataRow In ObjCompras.DtResultados.Rows
For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
@@ -3171,16 +3164,26 @@ Partial Class Compras_eFacturas
For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
If GvRow.RowType = DataControlRowType.DataRow Then
If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
ErrorVinculacion = False
Exit For
Else
ErrorVinculacion = True
If ObjCompras.DtResultados.Rows.Count > 0 Then
GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString
GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString
Else
ErrorVinculacion = True
Exit For
End If
End If
End If
Next
Else
ErrorVinculacion = True
End If