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

10
App_Code/Modelos.vb
View File

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