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

-- omitir llamado a ventas_facturas

Browse Source
This commit is contained in:
rrene
2023-12-20 18:29:31 -07:00
parent be0114609f
commit a14b979586
2 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
App_Code/ClsVentas.vb
View File

@@ -3219,26 +3219,26 @@ Public Class ClsVentas
Public Function UpdateVentaFacturas(CveFactura As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean 'Public Function UpdateVentaFacturas(CveFactura As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean
Dim OnError As Boolean = False ' Dim OnError As Boolean = False
DataAdapter("PA_Vta_FacturaVentaUpdate") ' DataAdapter("PA_Vta_FacturaVentaUpdate")
With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta ' .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CveFactura", SqlDbType.Int).Value = CveFactura ' .Add("@CveFactura", SqlDbType.Int).Value = CveFactura
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With ' End With
Try ' Try
SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
OnError = True ' OnError = True
Catch ex As Exception ' Catch ex As Exception
Me.OnError("Ocurrió un error al actualizar las Facturas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) ' Me.OnError("Ocurrió un error al actualizar las Facturas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try ' End Try
Return OnError ' Return OnError
End Function 'End Function
Public Function ProcesoPrepolizasCancelacion(CveVenta As Integer, CveUsuario As Integer) As Boolean Public Function ProcesoPrepolizasCancelacion(CveVenta As Integer, CveUsuario As Integer) As Boolean
Dim OnError As Boolean = False Dim OnError As Boolean = False

10
App_Code/Modelos.vb
View File

@@ -961,11 +961,11 @@ Namespace Modelos
End If End If
End If End If
If Me.CveFactura > 0 AndAlso ErrorList.Count = 0 Then 'If Me.CveFactura > 0 AndAlso ErrorList.Count = 0 Then
If Not ObjVentas.UpdateVentaFacturas(Me.CveFactura, ObjVentas.CveVenta, UsuarioActual.CveEmpresa) Then ' If Not ObjVentas.UpdateVentaFacturas(Me.CveFactura, ObjVentas.CveVenta, UsuarioActual.CveEmpresa) Then
ErrorList.Add("No se pudo actualizar la Factura") ' ErrorList.Add("No se pudo actualizar la Factura")
End If ' End If
End If 'End If
If CveCicloComercial > 0 AndAlso ErrorList.Count = 0 Then If CveCicloComercial > 0 AndAlso ErrorList.Count = 0 Then
If Not ObjContr.CicloComercialUpdate(Me.CveCicloComercial, True, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then If Not ObjContr.CicloComercialUpdate(Me.CveCicloComercial, True, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then