From 2f2bb1f765dc94f649a9c89accf2e4322c9be079 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 18 Jun 2024 08:11:55 -0700
Subject: [PATCH] -

---
 asmx/WS_PuntoVenta.asmx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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