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

21
Compras/Compras.aspx.vb
View File

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