diff --git a/asmx/WS_PuntoVenta.asmx b/asmx/WS_PuntoVenta.asmx
index 1e0d53ca2..04adb10b2 100644
--- a/asmx/WS_PuntoVenta.asmx
+++ b/asmx/WS_PuntoVenta.asmx
@@ -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