From 125c7bf7fa5a4d664b2f9bbdd562c79f671cfedf Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Mon, 25 Nov 2019 13:20:56 -0700
Subject: [PATCH] - serie en Folios - col impuestos locales, en saldos
 iniciales

---
 App_Code/ClsGralFolios.vb       |  3 ++-
 General/SaldosIniciales.aspx.vb | 10 ++++++----
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/App_Code/ClsGralFolios.vb b/App_Code/ClsGralFolios.vb
index 9812c0d5d..d6f093763 100644
--- a/App_Code/ClsGralFolios.vb
+++ b/App_Code/ClsGralFolios.vb
@@ -145,13 +145,14 @@ Public Class ClsGralFolios
     End Function
 
 
-    Public Function AddFolios(CveSubProyecto As Integer, TipoDocto As String, FInicial As Integer, FActual As Integer, FFinal As Integer, CBB As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddFolios(CveSubProyecto As Integer, TipoDocto As String, Serie As String, FInicial As Integer, FActual As Integer, FFinal As Integer, CBB As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_FoliosAdd")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
             .Add("@FInicial", SqlDbType.Int).Value = FInicial
             .Add("@FActual", SqlDbType.Int).Value = FActual
             .Add("@FFinal", SqlDbType.Int).Value = FFinal
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 7db555706..c3b3c7a00 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1323,6 +1323,7 @@ Partial Class General_SaldosIniciales
                     Dim CveVendedor As Integer = 0
                     Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
                     Dim CveClienteSucursal As Integer = Row("CveClienteSucursal").ToString.ToEntero
+                    Dim ImpuestosLocales As Decimal = Row("ImpuestoLocal").ToString.ToDecimal
 
                     GuardaLog(Sucursal + "-" + Row("Sucursal").ToString)
                     'Temporalmente SE BORRARA
@@ -1357,9 +1358,10 @@ Partial Class General_SaldosIniciales
 
                     If FechaVencimiento = "".ToDate Or FechaVencimiento < "1900/01/01".ToDate Then
                         FechaVencimiento = Fecha
-                    End If
-
-                    'Venta
+                    End If
+
+
+                    'Venta
                     If CveCliente > 0 Then
 
 
@@ -1368,7 +1370,7 @@ Partial Class General_SaldosIniciales
                             If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero, CveClienteSucursal, SubTotal, 0, 0, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
                                                0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza,
                                               UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero, CveSubProyectoEjecucion:=Sucursal.ToEntero,
-                                              CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS,
+                                              CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS, ImpuestoLocal:=ImpuestosLocales,
                                               ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente) Then
                                 ErrorVentas = True
                                 Exit For