This commit is contained in:
2024-06-18 08:11:55 -07:00
parent 3080983a7b
commit 2f2bb1f765

View File

@@ -1184,7 +1184,7 @@ Public Class WS_PuntoVenta
Dim objPV As New ClsPuntoVenta() Dim objPV As New ClsPuntoVenta()
Dim CveCorte As Integer Dim CveCorte As Integer
If objPV.AddVtaCortes(FechaInicial, ImporteInicial, CveUsuario, Descripcion, CveEmpresa) Then If objPV.AddVtaCortes(FechaInicial, ImporteInicial, CveUsuario, Descripcion, -1, CveEmpresa) Then
CveCorte = objPV.CveCorte CveCorte = objPV.CveCorte
End If End If