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 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
End If