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

Pago Electronico Grupos correción etiqueta de importe, Compras editar no acreditable en compra son xml con pago

Browse Source
This commit is contained in:
Oscar Irigoyen
2025-06-13 16:08:22 -07:00
parent e242f171b6
commit a46659fc65
2 changed files with 22 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -468,6 +468,7 @@ Partial Class Bancos_PagoElectronicoGrupos
End Select
Else
Movimientos += 1
Importe += dr("Abonado").ToString.ToDecimal
End If
' 3. MOVIMIENTOS de cuentas ya existentes
@@ -3404,6 +3405,12 @@ Partial Class Bancos_PagoElectronicoGrupos
Dim FileName As String = NombreArchivo
Dim FilePath As String = $"{UsuarioActual.Empresa.Ruta}Layout\{NombreArchivo}"
If NombreArchivo.Length = 0 Then
FileName = LnkDescarga.Text
FilePath = $"{UsuarioActual.Empresa.Ruta}Layout\{ LnkDescarga.Text}"
End If
Response.Clear()
Response.ContentType = "application/octet-stream"
Response.AddHeader("Content-Disposition", "attachment; filename=" & FileName)

21
Compras/Compras.aspx.vb
View File

@@ -9164,9 +9164,12 @@ Partial Class Compras_Compras
Next
'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then
If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
Retorno = False
If Not ComparaDatatables(False) Then
If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
Retorno = False
End If
End If
'End If
@@ -9972,26 +9975,32 @@ Partial Class Compras_Compras
End Sub
Private Function ComparaDatatables() As Boolean
Private Function ComparaDatatables(Optional ValidaNoDeducible As Boolean = True) As Boolean
Dim NumRow As Integer = 0
For Each row1 As DataRow In TmpDT.Rows
Dim NumRow2 As Integer = 0
For Each row2 As DataRow In TmpDTOriginal.Rows
'Dim test As Boolean = (row1("NoDeducible").ToString <> row2("NoDeducible").ToString And ValidaNoDeducible)
'Dim test2 As Boolean = (row1("IVAPorcentaje").ToString.ToDecimal <> row2("IVAPorcentaje").ToString.ToDecimal AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0)
Dim TipoCompra As Integer = If(DdlTipoCompra.SelectedValue.ToEntero > 0, DdlTipoCompra.SelectedValue.ToEntero, 0)
If NumRow2 = NumRow Then
If (row1("CveSubProyecto").ToString.ToEntero <> row2("CveSubProyecto").ToString.ToEntero) Or
(row1("CveClasificacion").ToString.ToEntero <> row2("CveClasificacion").ToString.ToEntero) Or
(row1("CveTipoGasto").ToString.ToEntero <> row2("CveTipoGasto").ToString.ToEntero) Or
(row1("Total").ToString.ToDouble <> row2("Total").ToString.ToDouble) Or
(row1("NoDeducible").ToString <> row2("NoDeducible").ToString) Or
(row1("NoDeducible").ToString <> row2("NoDeducible").ToString And ValidaNoDeducible) Or
(row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or
(row1("AFMedida").ToString.ToEntero <> row2("AFMedida").ToString.ToEntero) Or
(row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or
(row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Or
(row1("Obs").ToString <> row2("Obs").ToString) Or
(row1("IVAPorcentaje").ToString <> row2("IVAPorcentaje").ToString AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
(DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then
(row1("IVAPorcentaje").ToString.ToDecimal <> row2("IVAPorcentaje").ToString.ToDecimal AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
(TipoCompra <> TipoCompraOriginal) Then
Return False
End If
End If