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

Entrega Almacen, reporte

Browse Source
This commit is contained in:
rakcsle
2021-11-24 22:04:38 -07:00
parent ae0566568e
commit 744929d45a
11 changed files with 3201 additions and 2207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Compras/eFacturas.aspx.vb
View File

@@ -2933,7 +2933,13 @@ Partial Class Compras_eFacturas
Try
If drow("CveIE").ToString.ToEntero > 0 Then
dRow2("CveIE") = drow("CveIE").ToString.ToEntero
dRow2("ImportePago") = drow("Importe").ToString.ToDecimal
dRow2("FolioPago") = drow("FolioIE")
dRow2("FechaPago") = drow("FechaDocumento")
dRow2("CvePrePolizaDetalle") = drow("CvePrePolizaDetalle").ToString
End If
Catch ex As Exception
@@ -2941,13 +2947,7 @@ Partial Class Compras_eFacturas
End Try
If drow("CveIE").ToString.ToEntero > 0 Then
dRow2("CveIE") = drow("CveIE").ToString.ToEntero
dRow2("ImportePago") = drow("Importe").ToString.ToDecimal
End If
dRow2("FolioPago") = drow("FolioIE")
dRow2("FechaPago") = drow("FechaDocumento")
End If
Next
@@ -3151,6 +3151,18 @@ Partial Class Compras_eFacturas
If UsuarioActual.TienePermisoProceso(332) And (BtnVincularPago.Visible = False Or BtnVincularPago.Enabled = False) Then
For Each GvRowVal As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
If GvRowVal.DataKey("CveIE").ToEntero > 0 Then
BtnVincularPago.Enabled = True
BtnVincularPago.Visible = True
Exit For
End If
Next
End If
UpVincularPago.Update()
@@ -3181,7 +3193,7 @@ Partial Class Compras_eFacturas
If Gv.DataKey("CveCompra").ToEntero > 0 Then
If Gv.DataKey("CveCompra").ToEntero > 0 And Gv.DataKey("CveIE").ToEntero > 0 Then
If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
TieneError = True
@@ -3232,7 +3244,6 @@ Partial Class Compras_eFacturas
For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
If Boolean.Parse(Gv.DataKey("Manual").ToString) Then
objEventos.AddEventoBitacora($"Complemento { LblSerieFolioPago.Text} vinculado manualmente a compra {Gv.DataKey("SerieFolio").ToString} y Pago { Gv.DataKey("FolioPago").ToString }", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=Gv.DataKey("CveCompra").ToString.ToEntero)
End If